home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / ARCADEA / DEMO30 / MACROS.Z / SINE2.d3m < prev    next >
Text File  |  1997-04-15  |  699b  |  41 lines
  1. SYS(36) = 0       'Normal
  2.  
  3.  
  4. SETPOINT "Set a point for starting location." 1
  5. POINTVAL X1 Y1 Z1 1
  6.  
  7. INPUT "Wavelength: ", WAVELEN
  8. IF SYS(999) = 1 THEN GOTO LOOP
  9.  
  10. INPUT "Amplitude: ", AMP
  11. IF SYS(999) = 1 THEN GOTO LOOP
  12.  
  13. INPUT "Number of Waves: ", NWAVES
  14. IF SYS(999) = 1 THEN GOTO LOOP
  15.  
  16. DX = (WAVELEN * 15/360)
  17. X = X1 - DX
  18.  
  19. SYS(36) = 1       'Silent Mode
  20.  
  21. FOR J = 0 TO NWAVES - 1
  22.   >Curve
  23.   {
  24.     IF J >= 1 THEN <PointXYZ [X, Y, Z1]
  25.  
  26.     FOR K = 0 TO 359 STEP 15 
  27.       ' Set a point every 15 degrees
  28.  
  29.       X = X + DX
  30.       Y = Y1 + SIN(K) * AMP / 2
  31.  
  32.       <PointXYZ [X, Y, Z1]
  33.     NEXT
  34.  
  35.     IF J = NWAVES - 1 THEN <PointXYZ [X + DX, Y1, Z1]
  36.     }
  37.   NEXT
  38.  
  39. LOOP:
  40.  
  41.