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 / ring-r3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  536b  |  13 lines
  1. 1 rem      r i n g
  2. 10 bt_=[0,0,-300]:ra_=[-80,0,0]:ri_=[-20,0,0]:dx=(NULL)/12:ps=(NULL)/6:m#=@#y(ps)*@#x(-ps)
  3. 20 e_=[0,10,100]:graf2:gosub30:graf6:gosub30:grafa:gosub30:grafe:gosub30:goto100
  4. 30 clea:fori=uto2*(NULL)stepdx:v#=@#y(i):ve#=@#y(i+dx)
  5. 40 forj=0to2*(NULL)stepps:w#=@#z(j):we#=@#z(j+ps)
  6. 50 x_=(ra_+ri_*w#)*v#*m#+e_:y_=(ra_+ri_*w#)*ve#*m#+e_:z_=(ra_+ri_*we#)*v#*m#+e_
  7. 60 w_=(ra_+ri_*we#)*ve#*m#+e_
  8. 80 f=(y_-x_)x(z_-x_)*(x_-bt_):iff<0then95
  9. 90 linex_,y_:linex_,z_:liney_,w_:linez_,w_
  10. 95 next:next:u=u+dx/4:return
  11. 100 gosub110:graf2:gosub110:graf6:gosub110:grafa:gosub110:grafe:goto100
  12. 110 fori=0to28:next:return
  13.