home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 9 / CD_ASCQ_09_1193.iso / news / 2132 / eea31 / spirale.eea < prev    next >
Text File  |  1993-03-18  |  344b  |  23 lines
  1. i = 1
  2. t = 0
  3. pi = 2*ASIN(1)
  4. maxi = 100
  5. delta = 2*pi/16
  6. h = 3 
  7.  
  8. WHILE (i<=maxi)
  9.   x = 10*SIN(t)
  10.   y = 10*COS(t) 
  11.   z = h*t
  12.   t = t + delta
  13.   IF ( i > 1)
  14.     REPLACE(SPIRALE.IN,SPIRALE.INC/a)
  15.   ELSE
  16.     REPLACE(SPIRALE.IN,SPIRALE.INC)
  17.   ENDIF
  18.   i = i + 1
  19. ENDWHILE
  20.  
  21. EXEC(POVRAY,+iSPIRALE.POV +oSPIRALE.TGA +w640 +h480 +v +x)
  22.  
  23.