Re: LOGO-L> circular spiral

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

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.