home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilsm / mkdrawf / Examples / src / Spiral < prev    next >
Encoding:
Text File  |  1994-12-14  |  417 b   |  23 lines
  1. Set $2Pi 6.2831853071795864769
  2. Set $Conv Over $2Pi 360
  3.  
  4. Define Spiral {
  5.   Set %theta 0
  6.   Set %r %dr
  7.   For %i 0 %n {
  8.     RLine Times %r Cos Times $Conv %theta
  9.           Times %r Sin Times $Conv %theta
  10.     Set %r Plus %r %dr
  11.     Set %theta Plus %theta %dt
  12.     IfLess 360 %theta
  13.       Set %theta Minus %theta 360
  14.     EndIf
  15.   }
  16. }
  17.  
  18. Path {
  19.   Outlinecolour r0g0b0  Width 0
  20.   Move 250 250
  21.   Spiral { %dr .5 %dt 65 %n 500 }
  22. }
  23.