Une animation assez sympa (et, je vous l'accorde, tout à fait niaise )
- Code:
FnOff
AxesOff
ClrDraw
ZDecimal
Simul:Connected
"(sqrt(4-X2)+X)(X>=0)+(sqrt(4-X2)-X)(X<0)-1->Y1
"(-sqrt(4-X2)+X)(X>=0)+(-sqrt(4-X2)-X)(X<0)-1->Y2
DispGraph
Repeat getKey
randInt(-8,8->X
X/10->X
randInt(-18,5->Y
Y/10->Y
1->B
For(C,1,2
Line(X,Y,X-.4,Y+.5,B
Line(X,Y,X+.4,Y+.5,B
Line(X,Y+.5,X+.2,Y+.7,B
Line(X+.2,Y+.7,X+.4,Y+.5,B
Line(X,Y+.5,X-.2,Y+.7,B
Line(X-.2,Y+.7,X-.4,Y+.5,B
0->B
For(D,1,20:End
End
End
Pause
FnOff
DelVar ADelVar BDelVar CDelVar DDelVar XDelVar Y
Output(1,1,"
- Fichiers joints
- coeur.gif
- (125 Ko) Téléchargé 374 fois