[MWForum]Turtle Geometry

[Daniel Ajoy]

TO POLYSTOP :SIDE :ANGLE
    MAKE "TURN 0
    REPEAT 9999 [
        FORWARD :SIDE
        RIGHT :ANGLE
        MAKE "TURN :TURN + :ANGLE
        IF 0 = REMAINDER :TURN 360 [STOP]
    ]
END

Daniel
OpenWorld Learning


On 27 Dec 2003 at 23:30, mbajic wrote:

> 
> Dear All,
> 
> I am reading Turtle Geometry book from Harold Abselon.
> >
> > I want to run the program from the book, Page 29
> >
> > TO POLYSTOP SIDE ANGLE
> >     TURN <---- 0
> >     REPEAT
> >         FORWARD SIDE
> >         RIGHT ANGLE
> >         TURN <---- (TURN + ANGLE)
> >     UNTIL REMAINDER (TURN, 360) = 0
> > END
> >
> > using MicroWorlds syntax/commands.
> >
> > Could you please help me!
> >
> > My regards
> > Marko Bajic
> 
> 
> ----------------
> Powered by telstra.com
> 
> 
> _______________________________________________
> MWForum mailing list
> MWForum@lists.mathcats.com
> http://lists.mathcats.com/mailman/listinfo/mwforum
> Attachments archived at:
> http://www.mathcats.com/mwforum/attachments.html
> To unsubscribe or for administrative questions contact 
> mailto:mwforum-admin@lists.mathcats.com
>