Re: LOGO-L> Total Turtle Trip

[Jim Muller <jmul@cyberramp.net>]

At 10:57 PM 10/27/97 -0500, Chuck Shavit wrote:
>At 09:29 PM 10/27/97 -0600, Jim Muller wrote:
>>At 09:46 PM 10/27/97 -0500, Chuck Shavit wrote:
>
>>>BTW, I would remove HOME CS from the
>>>function, to make it more general.
>>
>>HOME CS is simple housekeeping to start from a clean slate.
>
>IMO it should be moved from inside the function to the caller's code.  In
>that way, CIRCLE will be able to draw anywhere, not just at (0,0).
>

Since you're getting picky one me (:>), try this one...

TO CIRCLE :CENTER :RADIUS
PU SETPOS :CENTER
SETX XCOR - :RADIUS SETH 0 PD
REPEAT 360 [FD (:RADIUS * 2) * PI/360 RT 1]
PU SETPOS :CENTER PD
END

I've always considered this to be the best "definition" of a circle. But
it's still tied to REPEAT 360[ FD ? RT ?].

>...
>>You've lost me here.  The result I got was definitely not circular. WHen I
>>try to change the relationship of...
>>
>>REPEAT 360 [... FD 1 ... RT 1]
>
>I meant that the modifications are to be made to CIRCLE.  E.g., 
>
>TO CIRCLE :RADIUS
>HOME CS PU
>REPEAT 360 [FD :RADIUS POINT BK :RADIUS RT 37.886]
>END
>
>Chuck
>
>
>
>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>
Jim Muller
jmul@cyberramp.net
The Great Logo Adventure at
http://www.cyberramp.net/~jmul
>+>+>+>+>+>+>+>+>+>+>+>+>+>+>+>
---------------------------------------------------------------
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.