home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac / dflogo12.zip / SPIRAL.DFP < prev    next >
Text File  |  1993-01-27  |  391b  |  38 lines
  1. TO SPIRAL :COUNT :SIDE :INC :ANGLE
  2.      HIDETURTLE   
  3.      PENDOWN
  4.      REPEAT :COUNT [FORWARD :SIDE RIGHT :ANGLE MAKE "SIDE :SIDE + :INC]
  5.      PENUP
  6.      SHOWTURTLE
  7. END
  8.  
  9. TO GO
  10.     SPIRAL 120 10 2 117
  11. END
  12.  
  13. TO GO2
  14.     SPIRAL 47 10 6 117
  15. END
  16.  
  17. TO GO3
  18.     SPIRAL 151 5 2 125
  19. END
  20.  
  21. TO GO4
  22.     SPIRAL 150 5 2 91
  23. END
  24.  
  25. TO GO5
  26.     SPIRAL 150 5 4 181
  27. END
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.