home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ladybug.arc / MISC.BUG < prev    next >
Encoding:
Text File  |  1984-03-12  |  1005 b   |  19 lines
  1. DEFINE "spiralsq [[ :s][rsquare :s][rt 45][spsq 1.414 * :s ]]
  2. define "rays [[ :angle :incangle :dist :incdist ][setheading :angle][fd :dist][bk :dist][rays :incangle + :angle  :incangle   :incdist + :dist  :incdist]]
  3. define "tree [[ :l][if :l < 5 then stop][left 45][fd :l][tree :l / 1.616][back :l][right 90][fd :l][tree :l / 1.616][back :l][left 45]]
  4. define "corner.tri [[ :size][if :size < 10 then stop][repeat 3 [fd :size  corner.tri :size / 2  rt 120]]]
  5.  
  6. to "cornerpoly  :size :angle :totalturn
  7. if :size < 10 then stop
  8. forward :size
  9. cornerpoly  :size / 2   0 - :angle   0
  10. right :angle
  11. if :totalturn + :angle \ 360 = 0 then stop
  12. cornerpoly :size :angle :totalturn + :angle
  13. end
  14.  
  15. define "nested.triangle [[ :size][if :size < 10 then stop][repeat 3 [nested.triangle :size / 2  fd :size  rt 120]]]
  16.  
  17. define "insert [[ :size][left 120][outward.tri :size / 2][right 120]]
  18. define "outward.tri [[ :size][if :size < 20 then stop][repeat 3 [fd :size / 2  insert :size  fd :size / 2  rt 120]]]
  19.