home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 45 / 64er_Magazin_Sonderheft_45_19xx_Markt__Technik_de_Side_B.d64 / 3d.funk (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.