3 cadre=(llcorner texto+(-eb,0))--(llcorner texto+(0,-eb))--
4 (llcorner texto+(0.375cm,0)+(-eb,-eb))--
5 (llcorner texto+(0.375cm,0)+(0,-2eb))--
6 (llcorner texto+(0.625cm,0)+(0,-2eb))--
7 (llcorner texto+(0.625cm,0)+(eb,-eb))--
8 (lrcorner texto+(0,-eb))--(lrcorner texto+(eb,0))--(urcorner texto+(eb,0))--(urcorner texto+(0,eb))--
9 (ulcorner texto+(0.625cm,0)+(eb,eb))--
10 (ulcorner texto+(0.625cm,0))--
11 (ulcorner texto+(0.375cm,0))--
12 (ulcorner texto+(0.375cm,0)+(-eb,eb))--
13 (ulcorner texto+(0,eb))--(ulcorner texto+(-eb,0))--cycle;
16 fill cadre withcolor if unknown colMouv : DarkBlue else: colMouv fi;
23 vardef Avancer(expr nbpas)=
28 label.lrt(LATEX("\bfseries\color{white}avancer de \colorbox{white}{\textcolor{black}{"&decimal(nbpas)&"}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
30 label.lrt(LATEX("\bfseries\color{white}avancer de "&nbpas&""),if unknown _coinprec:(0,0) else: _coinprec fi);
33 $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
34 _coinprec:=llcorner $;
35 _coinprec:=_coinprec+(0,eb);
39 vardef Tournerd(expr nbang)=
44 label.lrt(LATEX("\bfseries\color{white}tourner à droite de \colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}} degré(s)"),if unknown _coinprec:(0,0) else: _coinprec fi);
46 label.lrt(LATEX("\bfseries\color{white}tourner à droite de "&nbang&" degré(s)"),if unknown _coinprec:(0,0) else: _coinprec fi);
49 $=Affichage shifted (if unknown _coinprec:(0,0) else : _coinprec fi - ulcorner Affichage);
50 _coinprec:=llcorner $;
51 _coinprec:=_coinprec+(0,eb);
55 vardef Tournerg(expr nbang)=
60 label.lrt(LATEX("\bfseries\color{white}tourner à gauche de \colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}} degré(s)"),if unknown _coinprec:(0,0) else : _coinprec fi);
62 label.lrt(LATEX("\bfseries\color{white}tourner à gauche de "&nbang&" degré(s)"),if unknown _coinprec:(0,0) else : _coinprec fi);
65 $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
66 _coinprec:=llcorner $;
67 _coinprec:=_coinprec+(0,eb);
71 vardef Orienter(expr nbang)=
75 label.lrt(LATEX("\bfseries\color{white}s'orienter à "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&" \tiny$\blacktriangledown$}}" else: nbang fi&""),if unknown _coinprec: (0,0) else:_coinprec fi);
77 $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
78 _coinprec:=llcorner $;
79 _coinprec:=_coinprec+(0,eb);
83 vardef Orienterdirection(expr nbang)=
87 label.lrt(LATEX("\bfseries\color{white}s'orienter vers \colorbox{mLightBlue}{\normalfont\textcolor{white}{"&nbang&"} \textcolor{black}{\tiny$\blacktriangledown$}}"),if unknown _coinprec: (0,0) else:_coinprec fi);
89 $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
90 _coinprec:=llcorner $;
91 _coinprec:=_coinprec+(0,eb);
95 vardef Aller(expr xa,ya)=
99 if (numeric xa) and (numeric ya):
100 label.lrt(LATEX("\bfseries\color{white} aller à x : \colorbox{white}{\textcolor{black}{"&decimal(xa)&"}} y : \colorbox{white}{\textcolor{black}{"&decimal(ya)&"}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
102 label.lrt(LATEX("\bfseries\color{white} aller à x : \colorbox{white}{\textcolor{black}{"&decimal(xa)&"}} y : "&ya&""),if unknown _coinprec:(0,0) else: _coinprec fi);
104 label.lrt(LATEX("\bfseries\color{white} aller à x : "&xa&" y : \colorbox{white}{\textcolor{black}{"&decimal(ya)&"}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
106 label.lrt(LATEX("\bfseries\color{white} aller à x : "&xa&" y : "&ya&""),if unknown _coinprec:(0,0) else: _coinprec fi);
109 $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
110 _coinprec:=llcorner $;
111 _coinprec:=_coinprec+(0,eb);
115 vardef Allera(expr pointeur)=
119 label.lrt(LATEX("\bfseries\color{white} aller à : \colorbox{mLightBlue}{\normalfont\textcolor{white}{"&pointeur&"} \textcolor{black}{\tiny$\blacktriangledown$}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
121 $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
122 _coinprec:=llcorner $;
123 _coinprec:=_coinprec+(0,eb);
127 vardef Glisser(expr tps,xa,ya)=
131 label.lrt(LATEX("\bfseries\color{white}glisser en "&if numeric tps:"\colorbox{white}{\textcolor{black}{"&decimal(tps)&"}}" else: tps fi&" seconde(s) à x : "&if numeric xa:"\colorbox{white}{\textcolor{black}{"&decimal(xa)&"}}" else: xa fi&" y : "&if numeric ya:"\colorbox{white}{\textcolor{black}{"&decimal(ya)&"}}" else: ya fi), if unknown _coinprec:(0,0) else:_coinprec fi);
133 $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
134 _coinprec:=llcorner $;
135 _coinprec:=_coinprec+(0,eb);
139 vardef Ajouter(expr xa,xx)=
144 label.lrt(LATEX("\bfseries\color{white} ajouter \colorbox{white}{\textcolor{black}{"&decimal(xa)&"}} à "&xx),if unknown _coinprec: (0,0) else:_coinprec fi);
146 label.lrt(LATEX("\bfseries\color{white} ajouter "&xa&" à "&xx),if unknown _coinprec: (0,0) else:_coinprec fi);
149 $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
150 _coinprec:=llcorner $;
151 _coinprec:=_coinprec+(0,eb);
155 vardef Mettre(expr xa,xx)=
160 label.lrt(LATEX("\bfseries\color{white}donner la valeur \colorbox{white}{\textcolor{black}{"&decimal(xa)&"}} à "&xx),if unknown _coinprec: (0,0) else:_coinprec fi);
162 label.lrt(LATEX("\bfseries\color{white}donner la valeur "&xa&" à "&xx),if unknown _coinprec: (0,0) else:_coinprec fi);
165 $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
166 _coinprec:=llcorner $;
167 _coinprec:=_coinprec+(0,eb);
175 label.lrt(LATEX("\bfseries\color{white} rebondir si le bord est atteint"),if unknown _coinprec: (0,0) else:_coinprec fi);
177 $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
178 _coinprec:=llcorner $;
179 _coinprec:=_coinprec+(0,eb);
183 vardef FixerSensRotation(expr sens)=
187 label.lrt(LATEX("\bfseries\color{white} fixer le sens de rotation \colorbox{mLightBlue}{\normalfont\textcolor{white}{"&sens&"} \textcolor{black}{\tiny$\blacktriangledown$}}"),if unknown _coinprec: (0,0) else:_coinprec fi);
189 $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
190 _coinprec:=llcorner $;
191 _coinprec:=_coinprec+(0,eb);