Tout d'abord faite un dessin sur le coin haut-gauche du graph, puis lancez le prgm.
- Code: Select all
0→Xmin:94→Xmax
0→Ymin:62→Ymax
Verticale 30
Horizontale 41
0→A
0→B
22→Z
31→Y
Lbl 0
pxl-Test(A,B)→C
If C=1:Goto 2
Lbl 3
B+1→B
Y+2→Y
If B=30:Goto 1
Goto 0
Lbl 1
If A=19:Goto 4
A+1→A
0→B
Z+2→Z
31→Y
Goto 0
Lbl 2
Pxl-On(Z,Y)
Pxl-On(Z+1,Y+1)
Pxl-On(Z+1,Y)
Pxl-On(Z,Y+1)
Goto 3
Lbl 4
Texte(10,70,"FIN")
Goto 4