home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / kxc / ms_dos / tf02mini / tfxpr04.bas < prev    next >
BASIC Source File  |  1990-06-14  |  1KB  |  44 lines
  1. 1000 OPEN "R",#1,"1:(7)imo1.TFX":CLS
  2. 1010 FIELD #1,7 AS A$
  3. 1020 R0=64:R1=128:PX=180/3.14159!
  4. 1030 FOR I=-89 TO 89 STEP 2
  5. 1040   X=I*2+320
  6. 1050   Y=R0*COS(I/PX)*COS(J/PX)+200
  7. 1060   Z=R1*COS(I/PX)*SIN(J/PX)+200
  8. 1070   J=J+30
  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 I>=88 ELSE B$=B$+CHR$(0):GOTO 1140
  14. 1130   B$=B$+CHR$(1)
  15. 1140   LSET A$=B$:PUT #1
  16. 1150 NEXT
  17. 1230 FOR I=-89 TO 89 STEP 2
  18. 1240   Y=I*2+200
  19. 1250   Z=R0*COS(I/PX)*COS(J/PX)+200
  20. 1260   X=R1*COS(I/PX)*SIN(J/PX)+320
  21. 1270   J=J+30
  22. 1280   LINE -(X,Y),PSET,7
  23. 1290   B$=CHR$(X MOD 256)+CHR$(X\256)
  24. 1300   B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
  25. 1310   B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
  26. 1320   IF I>=88 ELSE B$=B$+CHR$(0):GOTO 1340
  27. 1330   B$=B$+CHR$(1)
  28. 1340   LSET A$=B$:PUT #1
  29. 1350 NEXT
  30. 1430 FOR I=-89 TO 89 STEP 2
  31. 1440   Z=I*2+200
  32. 1450   X=R0*COS(I/PX)*COS(J/PX)+320
  33. 1460   Y=R1*COS(I/PX)*SIN(J/PX)+200
  34. 1470   J=J+30
  35. 1480   LINE -(X,Y),PSET,7
  36. 1490   B$=CHR$(X MOD 256)+CHR$(X\256)
  37. 1500   B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
  38. 1510   B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
  39. 1520   IF I>=88 ELSE B$=B$+CHR$(0):GOTO 1540
  40. 1530   B$=B$+CHR$(2)
  41. 1540   LSET A$=B$:PUT #1
  42. 1550 NEXT
  43. 1560 CLOSE #1
  44.