home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / plot33 / plot33.lbr / TEST.BQS / TEST.BAS
Encoding:
BASIC Source File  |  1985-02-10  |  1.5 KB  |  61 lines
  1. 280 REM   AUTHOR:  TOM SPEER             24 NOV 1983
  2. 290 REM  ************* SAMPLE PROGRAM SHOWING PLOT OF FILLED SINEWAVE *******
  3. 300 DIM X(20),Y(20)
  4. 310 N%=20
  5. 320 PI=6.28318/N%
  6. 330 FOR I%=1 TO N%
  7. 340 A=PI*I%
  8. 350 X(I%)=COS(A)*.49+.5
  9. 360 Y(I%)=SIN(A)*.49+.5
  10. 370 NEXT I%
  11. 380 REM 
  12. 390 REM SET UP PLOT
  13. 400 INPUT "PLOT POLYGON";Y$
  14. 410 IF LEFT$(Y$,1)<>"Y" GOTO 580
  15. 420 REM
  16. 430 REM PLOT POLYGON
  17. 440 REM
  18. 450 FOR I%=1 TO N%
  19. 460 FOR J%=I% TO N%
  20. 470 X1=X(I%):Y1=Y(I%):X2=X(J%):Y2=Y(J%)
  21. 480 GOSUB 176
  22. 490 NEXT J%
  23. 500 NEXT I%
  24. 510 REM
  25. 520 GOSUB 194
  26. 530 GC%=0:GOSUB 186
  27. 540 GC%=127:GOSUB 183
  28. 550 PRINT "POLYGON PLOTTED"
  29. 560 REM
  30. 570 REM PLOT SINE CURVE
  31. 580 INPUT "PLOT SINE CURVE";Y$
  32. 590 IF LEFT$(Y$,1)<>"Y" GOTO 760
  33. 600 REM
  34. 610 MB=.1:MT=.1:MR=.1:ML=.1
  35. 620 XL=0:XR= 10:YB=-1:YT=1:DX= 2:DY=.2
  36. 630 NX%=3:NY%=3
  37. 640 LX%=-1
  38. 650 GOSUB 272: REM PLOT GRID
  39. 660 YF=FN RY(0)
  40. 665 GC%=96: GOSUB 182 : REM SET COLOR CODE
  41. 670 Y1=1-MT:GL$="E^(-T/5) * SIN (T)":X1=.5-LEN(GL$)/2*CX:GOSUB 188
  42. 690 X1=FN RX(0):Y1=FN RY(0)
  43. 700 FOR T=0 TO 10 STEP .2
  44. 710 X2=FN RX(T):Y2=FN RY(EXP(-T/5)*SIN(T))
  45. 720 GOSUB 190: REM FILL AREA TO X AXIS
  46. 730 X1=X2:Y1=Y2
  47. 740 NEXT T
  48. 741 GC%=127:GOSUB 182:REM SET COLOR TO BLACK
  49. 742 X1=FN RX(0):Y1=FN RY(0)
  50. 743 FOR T=0 TO 10 STEP .2
  51. 744 X2=FN RX(T):Y2=FN RY(EXP(-T/5)*SIN(T))
  52. 745 GOSUB 176: REM PLOT EDGE AROUND FILLED AREA
  53. 746 X1=X2:Y1=Y2:NEXT T
  54. 750 GOSUB 194: REM PRINT PLOT
  55. 760 GC$="Q":GOSUB 198
  56. 770 END
  57. O N%
  58. 460 FOR J%=I% TO N%
  59. 470 X1=X(I%):Y1=Y(I%):X2=X(J%):Y2=Y(J%)
  60. 480 GOSUB 176
  61. 4