Re: LOGO-L> circular spiral

["George Mills" <mills@softronix.com>]

Oops, I stripped down ELLIPSEARC2 to build the code below and missed
stripping out some code.

to arc2 :ang :radius_x
local "penstate 
make "penstate pendownp
pu
rt 90
fd :radius_x 
if :penstate [pd]
arc :ang :radius_x
pu
rt :ang-180
fd :radius_x
rt 90
if :penstate [pd]
end

bury "arc2

>For those intereseted here is ARC2 for UCBLogo
>It draws with the turtle ON the arc rather than
>from the center. It uses UCBLOgo's built in ARC
>function.
>
>to arc2 :ang :radius_x
>local "penstate 
>local "x
>local "y
>make "penstate pendownp
>pu
>rt 90
>fd :radius_x 
>if :penstate [pd]
>arc :ang :radius_x
>make "x -(sin :ang)*:radius_x
>make "y -(cos :ang)*:radius_x
>pu
>rt :ang-180
>fd :radius_x
>rt 90
>if :penstate [pd]
>end
>
>bury "arc2
>
>
>---------------------------------------------------------------
>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.
>

---------------------------------------------------------------
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.