home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / kxc / ms_dos / tf02mini / tfxpr03.bas < prev    next >
BASIC Source File  |  1990-06-14  |  1KB  |  33 lines
  1. 1000 OPEN "R",#1,"1:(7)SINCRV1.TFX":CLS
  2. 1010 FIELD #1,7 AS A$
  3. 1020 R=128:PX=180/3.14159!
  4. 1030 FOR TH=0 TO 150 STEP 15
  5. 1040   Z=TH*2-150+200
  6. 1050   FOR J=-150 TO 150 STEP 30
  7. 1060     X=J+320
  8. 1070     Y=R*COS(TH/2/PX)*SIN(J/PX+TH/2/PX)+200
  9. 1080     'LINE -(X,Y),PSET,7
  10. 1090     B$=CHR$(X MOD 256)+CHR$(X\256)
  11. 1100     B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
  12. 1110     B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
  13. 1120     IF J<>150 THEN B$=B$+CHR$(0):GOTO 1140
  14. 1130     B$=B$+CHR$(1)
  15. 1140     LSET A$=B$:PUT #1
  16. 1150   NEXT
  17. 1160 NEXT
  18. 1170 FOR J=-150 TO 150 STEP 30
  19. 1180   X=J+320
  20. 1190   FOR TH=0 TO 150 STEP 15
  21. 1200     Z=TH*2-150+200
  22. 1210     Y=R*COS(TH/2/PX)*SIN(J/PX+TH/2/PX)+200
  23. 1220     'LINE -(X,Y),PSET,7
  24. 1230     B$=CHR$(X MOD 256)+CHR$(X\256)
  25. 1240     B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
  26. 1250     B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
  27. 1260     IF TH<>150 THEN B$=B$+CHR$(0):GOTO 1280
  28. 1270     IF J=150 THEN B$=B$+CHR$(2) ELSE B$=B$+CHR$(1)
  29. 1280     LSET A$=B$:PUT #1
  30. 1290   NEXT
  31. 1300 NEXT
  32. 1310 CLOSE #1
  33.