home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / proglang / ladybug1.arj / SPIRO.BUG < prev    next >
Text File  |  1991-01-13  |  315b  |  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 "description [SPIRO from Turtle Graphics, Pg. 37 try spiro 20 160 10]
  4. print :description
  5.