home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 June B / Pcwk6b98.iso / DESIGCAD / DESCAD7P / BASICCAD / SINE.BS_ / SINE.bin
Encoding:
Text File  |  1994-08-05  |  810 b   |  47 lines
  1. sys(36)=0
  2. SYS(29)=1
  3.  
  4. x1=10
  5. y1=10
  6. >PRESETPOINT 1
  7. SETPOINT "SET STARTING POSITION: " 1
  8. POINTVAL X1 Y1 1
  9.  
  10. ' Begin at Cursor Position
  11. REGEN
  12. SYS(1)=0
  13.  
  14. INPUT "Wavelength: ", WAVELEN
  15. INPUT "Amplitude: ", AMP
  16. INPUT "Number of Waves: ", NWAVES
  17.  
  18. DX =(WAVELEN * 15/360)
  19. X = X1-DX
  20.  
  21. NPTS = 0  ' Number of points so far
  22. >PRESETPOINT 200
  23. FOR J = 0 TO NWAVES - 1
  24.   FOR K = 0 TO 359 STEP 15 
  25.     ' Set a point every 15 degrees
  26.         X = X + DX
  27.     Y = Y1 + SIN(K) * AMP / 2
  28.     >POINTXY 1,[X,Y]
  29.     NPTS = NPTS + 1
  30.  
  31.     ' If there are too many points, draw and set more points
  32.     IF NPTS >= 200 THEN
  33.       >CURVE
  34.       >PRESETPOINT 200
  35.       NPTS = 1
  36.       >POINTXY 1,[X, Y]
  37.       ENDIF
  38.  
  39.     NEXT
  40.   NEXT
  41.  
  42. ' Set the last point and draw
  43. X = X + DX
  44. Y = Y1
  45. >POINTXY 1,[X, Y]
  46. >CURVE
  47.