modification de la documentation (Dire, DireT...)
[mp-scratch.git] / src / Apparence.mp
1 vardef AffichageA=
2   path cadre;
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;
14   picture TEXT;
15   TEXT=image(
16       fill cadre withcolor if unknown colAp : LightViolet else: colAp fi;
17     draw texto;
18     draw cadre;
19     );
20   TEXT
21 enddef;
22
23 vardef DireT(expr phrase,tps)=
24   save $;
25   picture $,texto;
26   texto=image(
27       label.lrt(LATEX("\bfseries\color{white}dire "&phrase&" pendant \colorbox{white}{\textcolor{black}{"&if numeric tps:decimal(tps)&"}}" else: tps fi&" secondes"),if unknown _coinprec: (0,0) else:_coinprec fi);
28   );
29 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
30 _coinprec:=llcorner $;
31 _coinprec:=_coinprec+(0,eb);
32 $
33 enddef;
34
35 vardef Dire(expr phrase)=
36   save $;
37   picture $,texto;
38   texto=image(
39       label.lrt(LATEX("\bfseries\color{white}dire "&phrase&""),if unknown _coinprec: (0,0) else:_coinprec fi);
40   );
41 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
42 _coinprec:=llcorner $;
43 _coinprec:=_coinprec+(0,eb);
44 $
45 enddef;
46
47 vardef PenserT(expr phrase,tps)=
48   save $;
49   picture $,texto;
50   texto=image(
51       label.lrt(LATEX("\bfseries\color{white}penser "&phrase&" pendant \colorbox{white}{\textcolor{black}{"&if numeric tps:decimal(tps)&"}}" else: tps fi&" secondes"),if unknown _coinprec: (0,0) else:_coinprec fi);
52   );
53 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
54 _coinprec:=llcorner $;
55 _coinprec:=_coinprec+(0,eb);
56 $
57 enddef;
58
59 vardef Penser(expr phrase)=
60   save $;
61   picture $,texto;
62   texto=image(
63       label.lrt(LATEX("\bfseries\color{white}penser "&phrase&""),if unknown _coinprec: (0,0) else:_coinprec fi);
64   );
65 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
66 _coinprec:=llcorner $;
67 _coinprec:=_coinprec+(0,eb);
68 $
69 enddef;
70
71 vardef Montrer=
72   save $;
73   picture $,texto;
74   texto=image(
75       label.lrt(LATEX("\bfseries\color{white} montrer"),if unknown _coinprec: (0,0) else:_coinprec fi);
76   );
77 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
78 _coinprec:=llcorner $;
79 _coinprec:=_coinprec+(0,eb);
80 $
81 enddef;
82
83 vardef Cacher=
84   save $;
85   picture $,texto;
86   texto=image(
87       label.lrt(LATEX("\bfseries\color{white} cacher"),if unknown _coinprec: (0,0) else:_coinprec fi);
88   );
89 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
90 _coinprec:=llcorner $;
91 _coinprec:=_coinprec+(0,eb);
92 $
93 enddef;
94
95 vardef Basculer(expr costume)=
96   save $;
97   picture $,texto;
98   texto=image(
99       label.lrt(LATEX("\bfseries\color{white} basculer sur le costume "&costume&""),if unknown _coinprec: (0,0) else:_coinprec fi);
100   );
101 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
102 _coinprec:=llcorner $;
103 _coinprec:=_coinprec+(0,eb);
104 $
105 enddef;
106
107 vardef CostumeSuivant=
108   save $;
109   picture $,texto;
110   texto=image(
111       label.lrt(LATEX("\bfseries\color{white} costume suivant"),if unknown _coinprec: (0,0) else:_coinprec fi);
112   );
113 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
114 _coinprec:=llcorner $;
115 _coinprec:=_coinprec+(0,eb);
116 $
117 enddef;
118
119 vardef BasculerAR(expr costume)=
120   save $;
121   picture $,texto;
122   texto=image(
123       label.lrt(LATEX("\bfseries\color{white} basculer sur l'arrière-plan "&costume&""),if unknown _coinprec: (0,0) else:_coinprec fi);
124   );
125 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
126 _coinprec:=llcorner $;
127 _coinprec:=_coinprec+(0,eb);
128 $
129 enddef;
130
131 vardef AjouterEffet(expr costume,nb)=
132   save $;
133   picture $,texto;
134   texto=image(
135       label.lrt(LATEX("\bfseries\color{white} ajouter à l'effet "&costume&" "& if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&"}}" else: nb fi&""),if unknown _coinprec: (0,0) else:_coinprec fi);
136   );
137 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
138 _coinprec:=llcorner $;
139 _coinprec:=_coinprec+(0,eb);
140 $
141 enddef;
142
143 vardef MettreEffet(expr costume,nb)=
144   save $;
145   picture $,texto;
146   texto=image(
147       label.lrt(LATEX("\bfseries\color{white} mettre l'effet "&costume&" à "&if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&"}}" else: nb fi&""),if unknown _coinprec: (0,0) else:_coinprec fi);
148   );
149 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
150 _coinprec:=llcorner $;
151 _coinprec:=_coinprec+(0,eb);
152 $
153 enddef;
154
155 vardef AnnulerEffet=
156   save $;
157   picture $,texto;
158   texto=image(
159       label.lrt(LATEX("\bfseries\color{white} annuler les effets graphiques"),if unknown _coinprec: (0,0) else:_coinprec fi);
160   );
161 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
162 _coinprec:=llcorner $;
163 _coinprec:=_coinprec+(0,eb);
164 $
165 enddef;
166
167 vardef AjouterTaille(expr nb)=
168   save $;
169   picture $,texto;
170   texto=image(
171       label.lrt(LATEX("\bfseries\color{white} ajouter \colorbox{white}{\textcolor{black}{"&if numeric nb:decimal(nb)&"}}" else:nb fi&" à la taille"),if unknown _coinprec: (0,0) else:_coinprec fi);
172   );
173 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
174 _coinprec:=llcorner $;
175 _coinprec:=_coinprec+(0,eb);
176 $
177 enddef;
178
179 vardef MettreA(expr nb)=
180   save $;
181   picture $,texto;
182   texto=image(
183       label.lrt(LATEX("\bfseries\color{white} mettre à "&if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&"}}" else: nb fi&"~\%\ de la taille initiale"),if unknown _coinprec: (0,0) else:_coinprec fi);
184   );
185 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
186 _coinprec:=llcorner $;
187 _coinprec:=_coinprec+(0,eb);
188 $
189 enddef;
190
191 vardef AllerPPlan=
192   save $;
193   picture $,texto;
194   texto=image(
195       label.lrt(LATEX("\bfseries\color{white} aller au premier plan"),if unknown _coinprec: (0,0) else:_coinprec fi);
196   );
197 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
198 _coinprec:=llcorner $;
199 _coinprec:=_coinprec+(0,eb);
200 $
201 enddef;
202
203 vardef DeplacerAP(expr nb)=
204   save $;
205   picture $,texto;
206   texto=image(
207       label.lrt(LATEX("\bfseries\color{white} déplacer de "&      if numeric nb:&"\colorbox{white}{\textcolor{black}{"&decimal(nb)&"}}" else: nb&" plans arrière"),if unknown _coinprec: (0,0) else:_coinprec fi
208         );
209     );
210   $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
211 _coinprec:=llcorner $;
212 _coinprec:=_coinprec+(0,eb);
213 $
214 enddef;

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.