Une petit programme pas très très utils mais qui est sympa en écran de veille par exemple^^
Code
350->L
1.7->Ymax
.5[Racine de](2->T
DelVar W
ClrDraw
94->Xmax:62->Ymax
0->Xmin:0->Ymin
{1,1->dim([E]
If not([E](1,1
Then
1->[E](1,1
For(I,0,62
Horizontal I
End
StorePic 3
End
DelVar R
Lbl D:ClrDraw
Text(0,5,"CUBE[THETA]D PAR COC5 - (C)2007
Text(57,10,"MANIEZ UN CUBE EN 3D ...
Text(19,16,"<- NOIR BLANC ->
Text(29,26,"[DEL] - AIDE
Text(39,25,"[MODE] - Stop
Goto A
Lbl I
ClrDraw
Text(10,0,"<-/->
Text(10,45,"MOUVEMENTS
Text(20,45,"ZOOM
Text(20,0,"[HAUT/BAS]
For(I,1,4
Pt-On(42,59-10I,3
End
Text(30,0,"[GRAPH]
Text(30,45,"MODE AUTO.
Text(40,0,"<-/->
Text(40,45,"ViT. (EN AUTO.)
Repeat getKey
End
Goto D
Lbl A
Line(24,37,67,37
Line(24,43,67,43
For(I,25,43
For(J,38,42
Pt-Change(I,J
End
End
Repeat K=105
getKey->K
If K=22:Then
ClrDraw
ClrHome
Stop
End
If K=23:Goto I
If RK=24 or 26=Knot(R:Then
not(R->R
For(J,24R+not(R)67,R67+24not(R),R-not(R
For(K,38,42
Pt-Change(J,K
End
End
End
End
DelVar V
5->F
[Pi]/4->[THETA]
-1->Ymin
Repeat K=22
Repeat W+K+(F=5
getKey->K
If not(W
Then
Ymin+.1((K=25)-(K=34->Ymin
-1.7Ymin->Ymax
47/63(Ymax-Ymin)+.3->Xmax
-Ans+.6->Xmin
(K-25 and K-34)->Z
[THETA]+(Xmax/12)((K=24)-(K=26->[THETA]
End
If K=15:not(W->W
If W:Then
L+L/5((K=24)-(K=26->L
For(I,1,L
End
[THETA]+Xmax/12->[THETA]
End
End
If Z:Then
cos([THETA]->A
cos([THETA] + [Pi] /2->C
cos([THETA]-[Pi]/2->E
cos([THETA]-[Pi]->G
sin([THETA]->B
sin([THETA]+[Pi]/2->D
sin([THETA]-[Pi]/2->F
sin([THETA]+[Pi]->H
If R
ClrDraw
End
If not(R
RecallPic 3
Line(A,B,C,D,R
Line(A,B,E,F,R
Line(G,H,E,F,R
Line(G,H,C,D,R
C+T
Line(A,B,A+T,B+T,R
Line(C,D,Ans,D+T,R
Line(E,F,E+T,F+T,R
Line(G,H,G+T,H+T,R
Line(A+T,B+T,Ans,D+T,R
Line(A+T,B+T,E+T,F+T,R
Line(E+T,F+T,G+T,H+T,R
Line(Ans,D+T,G+T,H+T,R
End
ClrDraw
ClrHome
