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 colBloc : DarkPurple else: colBloc fi;
23 vardef AffichageBlocDef=
25 cadre=(llcorner texto+(-eb,0))--(llcorner texto+(0,-eb))--
26 (llcorner texto+(0.375cm,0)+(-eb,-eb))--
27 (llcorner texto+(0.375cm,0)+(0,-2eb))--
28 (llcorner texto+(0.625cm,0)+(0,-2eb))--
29 (llcorner texto+(0.625cm,0)+(eb,-eb))--
30 (lrcorner texto+(0,-eb))--(lrcorner texto+(eb,0))--
31 (urcorner texto+(eb,eb)){dir165}..{dir-165}(ulcorner texto+(-eb,eb))--cycle;
34 fill cadre withcolor if unknown colBloc : DarkPurple else: colBloc fi;
41 vardef Bloc(expr nombloc)=
45 label.lrt(LATEX("\bfseries\color{white}"&nombloc&""),if unknown _coinprec:(0,0) else: _coinprec fi);
47 $=AffichageB shifted (if unknown _coinprec:(0,0) else : _coinprec fi - ulcorner AffichageB);
48 _coinprec:=llcorner $;
49 _coinprec:=_coinprec+(0,eb);
53 vardef NouveauBloc(expr nombloc)=
57 label.lrt(LATEX("\bfseries\color{white} définir \colorbox{LightPurple}{\textcolor{white}{"&nombloc&"}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
59 $=AffichageBlocDef shifted (if unknown _coinprec:(0,0) else : _coinprec fi - ulcorner AffichageBlocDef);
60 _coinprec:=llcorner $;
61 _coinprec:=_coinprec+(0,eb);