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