0->Xmin:0->Ymin
0->T:AxesOff:LabelOff:CoordOff
Repeat T and T<31
ClrHome
Output(8,1,"(C)2007/PAR COC5
Disp "
Input "TAILLE (1/30) ",T
End
5(32-T->Ymax
Ymax/.66->Xmax
0->R:Ymax-9->W
ClrDraw
Ymax/62->Q
Xmax/94->P
For(I,R+1,R+7,P
Pt-Change(I,W-1
End
Repeat K=22
getKey->K
If K:Then
If K=45:Then
If not(R:Then
ClrDraw
54->W
-8-P->R
End
If R:Then
For(I,W-1,W+9,Q
Line(0,I,94,I,0
End
-P-8->R
End
W-8-2Q->W
End
If Kø45:Then
For(I,R+1,R+7,P
Pt-Change(I,W-1
End:End
If K=41:Then
Line(R,W,R+3,W+8
Line(R+1,W+3,R+5,W+3
Line(R+3,W+8,R+6,W
End
If K=53:Then
R+1
Line(Ans,W,Ans,W+8
Line(Ans,W+8,R+6,W+8
Line(Ans,W+5,R+5,W+5
End
If K=75:Then
Line(R+2,W+4,R+6,W
Line(R,W,R,W+8
Line(R,W+8,R+5,W+7
Line(R+5,W+6,R+4,W+5
Line(R+4,W+5,R,W+3
End
If K=51
Then
R+5
Line(R,W,R,W+8
Line(R,W,Ans,W+2
Line(Ans,W+2,Ans,W+6
Line(Ans,W+6,R,W+8
End
If K=64:Then
Line(R,W+1,R+5,W
Line(R+1,W+7,R,W+1
End
If K=65:Then
W+7
Line(R,W,R,Ans
Line(R,Ans,R+3,W+4
Line(R+3,W+4,R+6,Ans
Line(R+6,Ans,R+6,W
End
If K=43:Then
Line(R+1,W+6,R+6,W+7
Line(R+1,W+6,R,W+1
Line(R,W+1,R+6,W
End
If K=62:Then
Line(R+1,W+3,R+2,W+1
Line(R+2,W+1,R+4,W
R+6
Line(R+4,W,Ans,W+2
Line(Ans,W+2,Ans,W+8
End
If K=63:Then
Line(R,W+3,R+6,W+7
Line(R,W+4,R+6,W
Line(R,W,R,W+7
End
If K=55:Then
R+1
Line(Ans,W,Ans,W+8
Line(Ans,W+4,R+6,W+4
Line(R+6,W,R+6,W+8
End
If K=91:Then
Line(R+1,W,R+6,W+7
Line(R+6,W,R+1,W+7
End
If K<27 or K=34:Then
If K=24:R-12-4P->R
If K=25 or K=34:R-6-Xmax/47->R
W+(8+Q2)((K=25)-(K=34->W
If K=23:Then
For(I,R,R+7
Line(I,W,I,W+8,0
End
R-6-2P->R
End
End
If K=71
Then
R+1
Line(Ans,W,Ans,W+7
Line(Ans,W+7,R+5,W+2
Line(R+5,W,R+6,W+7
End
If K=73:Then
R+1
Line(Ans,W,Ans,W+7
Line(Ans,W+7,R+7,W+6
Line(R+7,W+6,R+6,W+4
Line(R+6,W+4,Ans,W+3
End
If K=81:Then
Line(R,W,R+6,W+2
Line(R+6,W+2,R,W+6
Line(R,W+6,R+6,W+8
End
If K=82
Then
Line(R+4,W,R+4,W+7
Line(R+1,W+7,R+7,W+7
End
If K=83:Then
R+6
Line(R,W+7,R,W+Q
Line(R+P,W,Ans-P,W
Line(Ans,W+Q,Ans,W+7
End
If K=85:Then
For(I,R,R+3.5,3.5
Line(I,W+7,I+2,W
Line(I+2,W,I+4,W+7
End
End
If K=92:Then
Line(R,W+7,R+4,W+4
Line(R+4,W+4,R+7,W+7
Line(R+3,W,R+4,W+4:End
If K=93:Then
Line(R+1,W,R+7,W
W+7
Line(R+1,W,R+7,Ans
Line(R+1,Ans,R+7,Ans
End
If K=94:Line(R+2,W+2,R+6,W+6
If K=84
Then
R+3
Line(R,W+7,Ans,W
Line(Ans,W,R+6,W+7
End
If K=61:Then
W+4
Line(R+4,W,R+4,Ans
Line(R+3,Ans,R+5,Ans
Line(R+3,W,R+5,W
Circle(R+4,W+7,1
End
If K=52:Then
W+7
Line(R,W,R,Ans
Line(R,W+4,R+4,W+4
Line(R,Ans,R+5,Ans
Line(R,W,R+6,W
End
If K=54:Then
R+1
Line(R+6,W+8,Ans,W+6
Line(Ans,W+6,Ans,W
Line(Ans,W,R+7,W+1
W+3
Line(R+7,W+1,R+5,Ans
Line(R+6,Ans,R+4,Ans
End
If K=72 or K=74 or K=94:Circle(R+4,W+4,3
If K=74
Line(R+5,W+2,R+6,W-1
If K=42:Then
R+1
Line(Ans,W,Ans,W+7-Q
Line(Ans,W,R+5,W
Line(Ans,W+4,R+5,W+4
Line(Ans,W+7,R+5,W+7
R+5+P
Line(Ans,W+1,Ans,W+7
Pt-Off(Ans,W+4
End
If K=105:Xmax->R
R+6+2P->R
If R<0 or W<0
W+8+Q2->W
If R>Xmax-8
W-8-Q2->W
If W<0 or R<0 or R>Xmax-8:0->R
If W>=Ymax:Ymax-9->W
For(I,R+1,R+7,P
Pt-Change(I,W-1
End
End:End
|
