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