home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 August / 64er_Magazin_90-08_1990_Markt__Technik_de_Side_A.d64 / schneeflocke (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  753b  |  22 lines
  1. 100 rem schneeflockenkurve
  2. 110 if flag=0 then flag=1:load "graphtool.obj",8,1
  3. 120 input "wie oft zerteilen : ";tm
  4. 130 sys49152:sys49158,1,0:rem graphik initialisieren
  5. 140 x1=0:y1=100:rem anfangspunkt
  6. 150 l=300:gr=0:rem laenge und ausrichtung der strecke
  7. 160 gosub 190:rem rekursion beginnen
  8. 170 geta$:ifa$=""then170
  9. 180 sys49155:goto120
  10. 190 l(i)=l:gr(i)=gr:tm(i)=tm:i=i+1:rem werte retten
  11. 200 tm=tm-1: if tm < 0 then 260:rem verzweige, bei maximaler rekursiontiefe
  12. 210 l=l/3:gosub 190
  13. 220 gr=gr+60:gosub 190:rem ausrichtung um 60 grad veraendern und zeichnen
  14. 230 gr=gr-120:gosub 190
  15. 240 gr=gr+60:gosub 190
  16. 250 goto290
  17. 260 x0=x1:y0=y1:bo=gr*2*(NULL)/360
  18. 270 x1=x0+cos(bo)*l:y1=y0-sin(bo)*l:rem neue koordinaten berechnen
  19. 280 sys49173,x0,y0,x1,y1:rem und zeichnen
  20. 290 i=i-1:l=l(i):gr=gr(i):tm=tm(i):rem alte werte wiederherstellen
  21. 300 return
  22.