home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p210 / 1.ddi / NEW.BSC < prev    next >
Encoding:
Text File  |  1991-05-28  |  658 b   |  30 lines
  1. GETXYZ X1 Y1 Z1 ' CURSOR POSITION
  2.  
  3. INPUT "WAVELENGTH: " WAVELEN
  4. INPUT "AMPLITUDE: " AMP
  5. INPUT "NUMBER OF WAVES: " NWAVES
  6.  
  7. NPTS = 0  ' NUMBER OF POINTS
  8. FOR J = 0 TO NWAVES - 1
  9.   FOR K = 0 TO 359 STEP 15
  10.      X = X1 + WAVELEN * (J + K / 360)  ' X VALUE
  11.      Y = Y1 + SIN(K) * AMP / 2         ' Y VALUE
  12.      >POINTXYZ [X, Y]
  13.      NPTS = NPTS + 1
  14.  
  15.      IF NPTS >= 200 THEN
  16.        >CURVE
  17.        NPTS = 1
  18.        >POINTXYZ [X, Y]
  19.        ENDIF
  20.  
  21.      NEXT
  22.   NEXT
  23.  
  24.   X = X1 + WAVELEN * NWAVES      ' X VALUE
  25.   Y = Y1 + SIN(0) * AMP / 2      ' Y VALUE
  26.   >POINTXYZ [X, Y]
  27.   >CURVE
  28. LOADEXT "edlin.com"
  29. CALLEXT 1 "This line will be printed."
  30.