Re: LOGO-L> ellipses

[mikedoyle@cix.compulink.co.uk (Mike Doyle)]

In-Reply-To: <338E5212.55A5@c031.aone.net.au>
THe following Geomland procedure will draw ellipses:

; CONSTRUCTING AN ELLIPSE 1
INITPLANE

PARAM [COLOR 9]
OB "O POINT 0 0 [COLOR 13]
OB "LEN1 50
OB "LEN2 100
OB "K1 CIRCLE :O :LEN1 [UNNAMED COLOR 13]
OB "K2 CIRCLE :O :LEN2 [UNNAMED COLOR 13]

OB "W 45
OB "L LINE :O :W [HIDDEN UNNAMED]
OB "P1 ITEM 2 ISEC :L :K1
OB "P2 ITEM 2 ISEC :L :K2
OB "OP2 SEGMENT :O :P2 [UNNAMED]

OB "W1 0
OB "L1 LINE :P1 :W1 [UNNAMED]
OB "L2 LINE :P2 :W1 + 90 [UNNAMED]
OB "P ISEC :L1 :L2  [COLOR 14]

HISTORY "SS :P [HIDDEN COLOR 14]
TRACED "P
RDROFF
REPEAT 30 [OB "W :W + 12]
RDRON
CLRDR
SHOWN "SS
PARAM [COLOR 14]
OB "PP POLYGON :SS
HIDDEN "SS

STOPCOMM

Micheal O Duill
EuroLogo Scientific Committee Chairman

---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.