\ turtle 97.8.15 8:26 pm NAB

include trig
include graphics
variable x  variable y  variable angle
variable ink
: black   1 ink ! ;   : white   0 ink ! ;
: goto ( y x )  80 + x !  80 + y ! ;
: drawto ( toY toX --)
   ink @ if  2dup  y @ x @ line  then
   x !  y ! ;
: turtle  page  0 angle !  0 dup goto
   black ;
: sindist ( angle distance -- yOffset)
   swap  sin 10000 */ ;
: cosdist ( angle distance -- xOffset)
   swap  cos 10000 */ ;
: turn ( angle --)  angle +! ;
: fwd ( distance  --)
   angle @  swap 2dup
   cosdist x @ +  >r
   sindist negate  y @ +
   r>   drawto ;