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 / welle-r3 (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  404b  |  13 lines
  1. 1 rem       w e l l e
  2. 5 c_=[-1.5,0,0]:m#=@#z((NULL)/2):t=2.3:s=.3
  3. 10 a_=[40,0,0]:b_=[0,40,0]:e_=[0,-5,0]
  4. 20 graf6:gosub30:grafa:gosub30:grafe:gosub30:graf2:gosub30:goto300
  5. 30 clear:fori=-4+uto4+ssteps
  6. 40 forj=-2to1+ssteps:z=(j+t)^2/30
  7. 49 za=z*cos(i)+i:zb=z*sin(i)+j+s
  8. 50 z_=za*a_+zb*b_+e_
  9. 100 fork=0to3:v_=c_:c_=c_*m#:linez_+v_,z_+c_:next:next:next:u=u+s/4:return
  10. 300 gosub311:graf2:gosub310:graf6:gosub310:grafa:gosub310:grafe:goto300
  11. 310 fori=0to26:next:return
  12. 311 fori=0to22:next:return
  13.