Abt. Besser ungesagt Bleibendes
=====================
Code
WindowTitle "Spielwiese":Windowstyle 24:Cls
declare xh&,yh&,sw!,ew!,r&,n&,dr&,f!,i!,j!,k!:xh&=width(%hwnd)\2
yh&=height(%hwnd)\2:f!=Pi()/180:repeat:whileloop 0,358,15:k!=&Loop/360
r&=yh&:n&=6:dr&=r&\n&:MCLS 2*xh&,2*yh&:StartPaint -1:usepen 0,2,0
Whileloop 0,n&:i!=&Loop/n&:Whileloop 0,359,30:j!=&Loop*f!:usebrush 1,rgb(\
(128-127*cos(j!-k!*2*pi()))*2^i!,\
(128-127*cos(j!+120*f!-k!*2*pi()))*2^i!,\
(128-127*cos(j!+240*f!-k!*2*pi()))*2^i!)
Sw!=f!*(&Loop+30*k!):Ew!=Sw!+f!*30:PIE xh&+r&,yh&+r& - xh&-r&,yh&-r&;\
900*r&*cos(Sw!),900*r&*sin(-Sw!);900*r&*cos(Ew!),900*r&*sin(-Ew!)
endwhile:r&=r&-dr&:endwhile:EndPaint:MCopyBMP 0,0 - 2*xh&,2*yh& >0,0;0
endwhile:until %key:end
Alles anzeigen