home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / loch-r3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  603b  |  15 lines
  1. 1 rem        l  o  c  h
  2. 5 ps=(NULL)/8:kz_=[0,7,0]:q=1.1
  3. 10 bt_=[0,0,-300]:ra_=[-68,0,0]:ri_=[0,120,0]:dx=(NULL)/18:h=4:dh=.2:m#=@#x(ps)
  4. 20 e_=[0,99,60]:graf2:gosub30:graf6:gosub30:grafa:gosub30:grafe:gosub30:goto100
  5. 30 clea:fori=uto2*(NULL)stepdx:v#=@#y(i):ve#=@#y(i+dx):g=8*dh
  6. 40 forj=qtohstepdh:a_=ra_*j:b_=ri_*g/j:be_=ri_*g/(j+dh):ae_=ra_*(j+dh)
  7. 50 x_=(a_-b_)*v#*m#+e_:y_=(a_-b_)*ve#*m#+e_:z_=(ae_-be_)*v#*m#+e_
  8. 60 w_=(ae_-be_)*ve#*m#+e_
  9. 80 f=(y_-x_)x(z_-x_)*(x_-bt_):iff>0then95
  10. 90 linex_,y_:linex_,z_:liney_,w_:linez_,w_
  11. 95 next:next:q=q-dh/4:u=u+dx/4:return
  12. 100 gosub111:graf2:gosub110:graf6:gosub110:grafa:gosub110:grafe:goto100
  13. 110 fori=0to26:next:return
  14. 111 fori=0to22:next:return
  15.