home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / egcg / g07.bas < prev    next >
BASIC Source File  |  1980-01-02  |  474b  |  18 lines
  1. 100 ' G07 T.WAKAMATSU 
  2. 110 READ A,B,C,G,Z
  3. 120 PI=3.14159!:K=40:CLS
  4. 130 FOR T=-PI/4 TO 7/4*PI STEP PI/96
  5. 140   K=K+.2!
  6. 150   IF T>=5/4*PI THEN C=Z ELSE C=G-C
  7. 160   X=150*SIN(A*T)+320
  8. 170   Y=150*COS(B*T)+240
  9. 180   LINE (X-K,Y-K)-(X+K,Y+K),PSET,C,B
  10. 190 NEXT T
  11. 200 FOR D=1 TO 4000:NEXT D:K=40
  12. 210 FOR T=-PI/4 TO 7/4*PI STEP PI/96
  13. 220   X=150*SIN(A*T)+320
  14. 230   Y=150*COS(B*T)+240:K=K+.2!
  15. 240   LINE (X-K,Y-K)-(X+K,Y+K),PSET,0,B
  16. 250 NEXT T
  17. 260 DATA 55,55,2,5,7
  18.