Comme si vous aviez une vraie horloge sur votre 82 Stats.fr (bon par contre, elle se dérègle, elle n'a pas pour but de servir de chronomètre, c'est une animation). La vitesse du programme varie de toutes façons avec l'état des piles, la RAM libre, etc...
- Code:
ClrDraw
1.4->Ymax:-1.4->Ymin
-2.2->Xmin:2.2->Xmax
Circle(0,0,1.4
Circle(0,0,1.3
Circle(0,0,1.1
Pt-On(0,0,2
Line(Xmin,.8,-1.2,.8
Line(Xmin,-.7,-1.2,-.7
Line(1.2,.8,Xmax,.8
Line(1.2,-.7,Xmax,-.7
Pt-On(0,1
Pt-On(0,~1
Pt-On(-1,0
Pt-On(1,0
StorePic 1
Input "H[e]u[r][e][s]:",H
Input "M[i][n]u[t][e][s]:",M
Input "S[e][c]O[n][d][e][s]:",S
If H>12:H-12->H
Degree
ClrHome
Repeat 0
M+(S=60)->M
If S=60:0->S
H+(S=60)->H
If M=60:0->M
If H=12:0->H
RecallPic 1
30H+(M/2->A
Line(0,0,2sin(A)/3,2cos(A)/3
6M->B
Line(0,0,5sin(B)/6,5cos(B)/6
6S->C
Line(0,0,sin(C),cos(C
For(D,1,100
End
S+1->S
Line(0,0,5sin(B)/6,5cos(B)/6,0
Line(0,0,3sin(A)/4,3cos(A)/4,0
Line(0,0,sin(C),cos(C),0
Pt-On(0,1
Pt-On(1,0
Pt-On(0,-1
Pt-On(-1,0
Pt-On(-.5,.8
Pt-On(-.8,.5
Pt-On(.5,.8
Pt-On(.8,.5
Pt-On(-.5,-.8
Pt-On(-.8,-.5
Pt-On(.5,-.8
Pt-On(.8,-.5
End