home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / extensions / jd / procs / _spiral.amos / _spiral.amosSourceCode
AMOS Source Code  |  1994-02-02  |  465b  |  19 lines
  1. ' Spiralen plotten 
  2. '
  3. ' X,Y   = Spiral-Mittelpunkt 
  4. ' SR,ER = Start- und Endradius 
  5. ' AB    = Vollkreisabstand 
  6. ' VK    = Vollkreis ja/nein
  7. '
  8. X=160 : Y=100 : SR=50 : ER=10 : AB=3 : VK=1
  9. SPIRAL[X,Y,SR,ER,AB,VK]
  10. Procedure SPIRAL[X,Y,SR,ER,AB,VK]
  11.    Degree 
  12.    A=360/AB : L=A/(9-AB)
  13.    For S=0 To L
  14.       For W=0 To 359
  15.          Plot X+SR*Cos(W),Y+SR*Sin(W)
  16.          K=W/A*A : If K=W Then SR=SR-1 : If SR<=ER Then S=L : If VK=0 Then W=359
  17.       Next 
  18.    Next 
  19. End Proc