home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / PROGRAMM / LADYBUG.ZIP / SPIRO.BUG < prev    next >
Text File  |  1983-10-09  |  384b  |  5 lines
  1. define "subspiro [[ :side :angle :max][local "count][make "count 1][repeat :max [fd :side * :count  rt :angle  make "count :count + 1]]]
  2. define "spiro [[ :side :angle :max][repeat 32000 [subspiro :side :angle :max]]]
  3. make "describe [SPIRO from Turtle Graphics, Pg. 37]
  4. "spiro [[ :side :angle :max][repeat 32000 [subspiro :side :angle :max]]]
  5. make "describe [SPIRO from Turtle Gra