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 / globus-r3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  760b  |  17 lines
  1. 1 rem       g l o b u s
  2. 5 ps=(NULL)/18:a_=[700,0,0]:r#=@#z((NULL)/9)*@#x(-(NULL)/3):rem a_=radius,r#=lage
  3. 10 o_=[0,0,-700]:q_=o_*1.5:e_=[100,-450,1200]:rem o_,q_=achse,e_=postion mitpkt
  4. 15 bt_=[0,0,-300]:rem pos d betrachters
  5. 20 graf2:gosub30:graf6:gosub30:grafa:gosub30:grafe:gosub30:goto100:rem 4 zchngn
  6. 30 clear:r#=r#*@#z(ps/4):rem gedreht
  7. 35 lineq_*r#+e_,o_*r#+e_:rem achse
  8. 40 fori=-(NULL)/2+1e-7to0stepps:forj=0to6.2stepps:rem laengen- und breiteneinteilung
  9. 50 u#=@#y(i):v#=@#z(j):un#=@#y(i+ps):vn#=@#z(j+ps):rem fuer vier punkte
  10. 60 x_=a_*u#*v#*r#+e_:y_=a_*un#*v#*r#+e_:z_=a_*u#*vn#*r#+e_:k_=a_*un#*vn#*r#+e_
  11. 70 f=((y_-x_)x(z_-x_))*(x_-bt_):iff>0then90:rem unsichtbar
  12. 80 linex_,y_:linex_,z_:liney_,k_:linez_,k_
  13. 90 next:next:return
  14. 100 graf2:gosub110:grafe:gosub110:grafa:gosub110:graf6:gosub111:goto100: film
  15. 110 fori=0to33:next:return
  16. 111 fori=0to29:next:return
  17.