home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 August / 64er_Magazin_90-08_1990_Markt__Technik_de_Side_A.d64 / lissajous (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  440 b   |  12 lines
  1. 100 rem lissajous-figuren
  2. 110 if flag=0 then flag=1:load "graphtool.obj",8,1
  3. 120 input "[147]phasenverschiebung in grad : ";pv:pv=pv*(NULL)/360
  4. 130 input "frequenzverhaeltnis (1:?)  : ";fv
  5. 140 sys49152:sys49158,1,0:rem graphik initialisieren
  6. 150 t=0:x0=160+sin(t)*100:y0=100-sin(fv*t+pv)*100
  7. 160 t=t+.05:x1=160+sin(t)*100:y1=100-sin(fv*t+pv)*100
  8. 170 rem neuen punkt mit zuletzt gezeichnetem verbinden
  9. 180 sys49173,x0,y0,x1,y1:x0=x1:y0=y1
  10. 190 geta$:ifa$="" goto 160
  11. 200 sys49155:goto 120
  12.