home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8611a.d64
/
3d.funk
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
566b
|
29 lines
100 POKE3,0:POKE4,0:SYS2^14
130 V=53248:P=(null)/40:D=256:M=40
150 BA=2^14:L=BA+3:IN=BA+6:SE=BA+12:VP=BA+15:PL=BA+18:NR=BA+21
160 SQ=BA+24:LQ=BA+27:IP=BA+30:DP=BA+33
170 IL=BA+36:DL=BA+39:DR=BA+42
190 P1=20736:P2=20992
200 XS=19456:YS=19712:ZS=19968
210 SX=11:SY=10
1000 MM=M/2
1010 FORI=-MTOMSTEPINT(2*M/(SY-1)):FORJ=-MTOMSTEPINT(2*M/(SX-1))
1020 Z=INT(SIN(J*P)*MM+SIN(I*P)*MM)
1030 Z=Z-D*(Z<0)
1040 SYSSE,J-D*(J<0),I-D*(I<0),Z
1050 NEXTJ,I
1060 :
1070 :
1080 :
2000 FORI=0TOSY-1
2010 FORJ=0TOSX-2
2020 SYSVP,J+I*SX,J+I*SX+1
2030 NEXTJ,I
2040 :
2100 FORI=0TOSY-2
2110 FORJ=0TOSX-1
2120 SYSVP,J+I*SX,J+(I+1)*SX
2130 NEXTJ,I
2140 :
3000 SYSBA:SYSDR