| Rekursives Programmieren für COOLE EFFEKTE! von ??? |
| Ich habe gestern mal ein bisschen rekursives Programmieren ausprobiert. es ist erstaunlich wie man mit wenig code coole Effekte erstellen kann. schaut es euch an! [code:1:1a63fd099d]const sx=640,sy=480,i=6 GRAPHICS sx,sy,32,1 setbuffer backbuffer() r#=0 While Not KeyDown(1) r=r+0.3 mod 360 cls lockbuffer backbuffer() rek(i,sx/2,sy/2,r) unlockbuffer backbuffer() flip Wend End function rek(t,x#,y#,d#) if t>0 then for a=0 to 359 step 120 tx#=x+cos(a+d)*11*sx/640*t ty#=y+sin(a+d)*11*sy/480*t color 255*t/i,255*t/i,255 line tx,ty,x,y rek(t-1,tx,ty,d+d/2) next endif end function [/code:1:1a63fd099d] :) |