(une roue qui semble tourner..)
en TI basic je me suis amusé à faire ce programme
qui ne sert à rien...
le code
- Code:
:1→Xmin
:1→Ymin
:95→Xmax
:63→Ymax
:0→Xscl
:0→Yscl
:ClrDraw
:CoordOff
:ClrHome
:Degree
:(Xmax-Xmin)/2→A
:(Ymax-Ymin)/2→B
:30→R
:Circle(A,B,R
:For(I,0,360,30
: Line(A,B,A+Rcos(I),B+Rsin(I)
:End
:StorePic Pic1
:For(I,0,360,30)
: Line(A,B,A+Rcos(I),B+Rsin(I),0
:End
:
:For(I,15,360,30
: Line(A,B,A+Rcos(I),B+Rsin(I)
:End
:StorePic Pic2
:For(I,100,1,‾1
: ClrDraw
: RecallPic Pic1
: For(W,1,I:End
: ClrDraw
: RecallPic Pic2
: For(W,1,I:End
:End
:Disp "FIN
:
- Fichiers joints
- A1.83p.zip
- (1 Ko) Téléchargé 347 fois
- roue.png
- (86 Ko) Téléchargé 373 fois
Dernière édition par jo2geek le Sam 15 Fév 2014 - 8:47, édité 2 fois (Raison : rajout dans le descriptif le fait que ça semble touner)