home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 2
/
FreeSoftwareCollection2pd199x-jp.img
/
kxc
/
ms_dos
/
tf02mini
/
tfxpr04.bas
< prev
next >
Wrap
BASIC Source File
|
1990-06-14
|
1KB
|
44 lines
1000 OPEN "R",#1,"1:(7)imo1.TFX":CLS
1010 FIELD #1,7 AS A$
1020 R0=64:R1=128:PX=180/3.14159!
1030 FOR I=-89 TO 89 STEP 2
1040 X=I*2+320
1050 Y=R0*COS(I/PX)*COS(J/PX)+200
1060 Z=R1*COS(I/PX)*SIN(J/PX)+200
1070 J=J+30
1080 LINE -(X,Y),PSET,7
1090 B$=CHR$(X MOD 256)+CHR$(X\256)
1100 B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
1110 B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
1120 IF I>=88 ELSE B$=B$+CHR$(0):GOTO 1140
1130 B$=B$+CHR$(1)
1140 LSET A$=B$:PUT #1
1150 NEXT
1230 FOR I=-89 TO 89 STEP 2
1240 Y=I*2+200
1250 Z=R0*COS(I/PX)*COS(J/PX)+200
1260 X=R1*COS(I/PX)*SIN(J/PX)+320
1270 J=J+30
1280 LINE -(X,Y),PSET,7
1290 B$=CHR$(X MOD 256)+CHR$(X\256)
1300 B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
1310 B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
1320 IF I>=88 ELSE B$=B$+CHR$(0):GOTO 1340
1330 B$=B$+CHR$(1)
1340 LSET A$=B$:PUT #1
1350 NEXT
1430 FOR I=-89 TO 89 STEP 2
1440 Z=I*2+200
1450 X=R0*COS(I/PX)*COS(J/PX)+320
1460 Y=R1*COS(I/PX)*SIN(J/PX)+200
1470 J=J+30
1480 LINE -(X,Y),PSET,7
1490 B$=CHR$(X MOD 256)+CHR$(X\256)
1500 B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
1510 B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
1520 IF I>=88 ELSE B$=B$+CHR$(0):GOTO 1540
1530 B$=B$+CHR$(2)
1540 LSET A$=B$:PUT #1
1550 NEXT
1560 CLOSE #1