src/Evenements.mp

   1 vardef AffichageE=
   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 colEvenements : LightMarron else: colEvenements fi;
  17     draw texto;
  18     draw cadre;
  19     );
  20   TEXT
  21 enddef;
  22
  23 vardef AffichageED=
  24   path cadre;
  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,0))--(urcorner texto+(0,eb))--
  32     1/2[ulcorner texto+(-eb,eb),urcorner texto+(eb,eb)]{dir150}..{dir-150}(ulcorner texto+(-eb,eb))--cycle;
  33   picture TEXT;
  34   TEXT=image(
  35     fill cadre withcolor if unknown colEvenements : LightMarron else: colEvenements fi;
  36     draw texto;
  37     draw DrapeauImage shifted((llcorner texto+(1.45cm,0.125cm))-(72.000000,699));
  38     draw cadre;
  39     );
  40   TEXT
  41 enddef;
  42
  43 vardef AffichageEA=
  44   path cadre;
  45   cadre=(llcorner texto+(-eb,0))--(llcorner texto+(0,-eb))--
  46     (llcorner texto+(0.375cm,0)+(-eb,-eb))--
  47     (llcorner texto+(0.375cm,0)+(0,-2eb))--
  48     (llcorner texto+(0.625cm,0)+(0,-2eb))--
  49     (llcorner texto+(0.625cm,0)+(eb,-eb))--
  50     (lrcorner texto+(0,-eb))--(lrcorner texto+(eb,0))--
  51     (urcorner texto+(eb,0))--(urcorner texto+(0,eb))--
  52     1/2[ulcorner texto+(-eb,eb),urcorner texto+(eb,eb)]{dir150}..{dir-150}(ulcorner texto+(-eb,eb))--cycle;
  53   picture TEXT;
  54   TEXT=image(
  55     fill cadre withcolor if unknown colEvenements : LightMarron else: colEvenements fi;
  56     draw texto;
  57     draw cadre;
  58     );
  59   TEXT
  60 enddef;
  61
  62 vardef Drapeau=
  63   save $;
  64   picture $,texto;
  65   texto=image(
  66       label.lrt(LATEX("\bfseries{\color{white}quand}\raisebox{-0.6em}{\hbox{\includegraphics{Drapeau.1}}}\hbox to1em{} {\color{white}est cliqué}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  67   );
  68 $=AffichageED shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageED);
  69 _coinprec:=llcorner $;
  70 _coinprec:=_coinprec+(0,eb);
  71   $
  72 enddef;
  73
  74 vardef QPresse(expr touche)=
  75   save $;
  76   picture $,texto;
  77   texto=image(
  78       label.lrt(LATEX("\bfseries\color{white}quand \colorbox{DarkMarron}{\normalfont\textcolor{white}{"&touche&" \tiny\textcolor{black}{$\blacktriangledown$}}} est pressé"),if unknown _coinprec:(0,0) else: _coinprec fi);
  79   );
  80 $=AffichageEA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageEA);
  81 _coinprec:=llcorner $;
  82 _coinprec:=_coinprec+(0,eb);
  83   $
  84 enddef;
  85
  86 vardef QLutinPresse=
  87   save $;
  88   picture $,texto;
  89   texto=image(
  90       label.lrt(LATEX("\bfseries\color{white}quand ce lutin est cliqué"),if unknown _coinprec:(0,0) else: _coinprec fi);
  91   );
  92 $=AffichageEA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageEA);
  93 _coinprec:=llcorner $;
  94 _coinprec:=_coinprec+(0,eb);
  95   $
  96 enddef;
  97
  98 vardef QScenePressee=
  99   save $;
 100   picture $,texto;
 101   texto=image(
 102       label.lrt(LATEX("\bfseries\color{white}quand la Scène est cliquée"),if unknown _coinprec:(0,0) else: _coinprec fi);
 103   );
 104 $=AffichageEA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageEA);
 105 _coinprec:=llcorner $;
 106 _coinprec:=_coinprec+(0,eb);
 107   $
 108 enddef;
 109
 110 vardef QBasculeAR(expr touche)=
 111   save $;
 112   picture $,texto;
 113   texto=image(
 114       label.lrt(LATEX("\bfseries\color{white}quand l'arrière-plan bascule sur \colorbox{DarkMarron}{\normalfont\textcolor{white}{"&touche&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
 115   );
 116 $=AffichageEA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageEA);
 117 _coinprec:=llcorner $;
 118 _coinprec:=_coinprec+(0,eb);
 119   $
 120 enddef;
 121
 122 vardef QVolumeSup(expr touche,vol)=
 123   save $;
 124   picture $,texto;
 125   texto=image(
 126       label.lrt(LATEX("\bfseries\color{white}quand \colorbox{DarkMarron}{\textcolor{white}{\normalfont "&touche&" \tiny\textcolor{black}{$\blacktriangledown$}}} $\,\bm{>}\,$ "&if numeric vol:"\colorbox{white}{\textcolor{black}{"&decimal(vol)&"}}" else: vol fi&""),if unknown _coinprec:(0,0) else: _coinprec fi);
 127   );
 128 $=AffichageEA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageEA);
 129 _coinprec:=llcorner $;
 130 _coinprec:=_coinprec+(0,eb);
 131   $
 132 enddef;
 133
 134 vardef QRecevoirMessage(expr touche)=
 135   save $;
 136   picture $,texto;
 137   texto=image(
 138       label.lrt(LATEX("\bfseries\color{white}quand je reçois \colorbox{DarkMarron}{\textcolor{white}{\normalfont "&touche&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
 139   );
 140 $=AffichageEA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageEA);
 141 _coinprec:=llcorner $;
 142 _coinprec:=_coinprec+(0,eb);
 143   $
 144 enddef;
 145
 146 vardef EnvoyerMessage(expr touche)=
 147   save $;
 148   picture $,texto;
 149   texto=image(
 150       label.lrt(LATEX("\bfseries\color{white}envoyer à tous \colorbox{DarkMarron}{\textcolor{white}{\normalfont "&touche&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
 151   );
 152 $=AffichageE shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageE);
 153 _coinprec:=llcorner $;
 154 _coinprec:=_coinprec+(0,eb);
 155   $
 156 enddef;
 157
 158 vardef EnvoyerMessageA(expr touche)=
 159   save $;
 160   picture $,texto;
 161   texto=image(
 162       label.lrt(LATEX("\bfseries\color{white}envoyer à tous \colorbox{DarkMarron}{\normalfont\textcolor{white}{"&touche&" \tiny\textcolor{black}{$\blacktriangledown$}}} et attendre"),if unknown _coinprec:(0,0) else: _coinprec fi);
 163   );
 164 $=AffichageE shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageE);
 165 _coinprec:=llcorner $;
 166 _coinprec:=_coinprec+(0,eb);
 167   $
 168 enddef;
 169
 170 vardef DrapeauImage=
 171   save $;
 172   picture $,flag;
 173   $=image(
 174       linecap := butt;
 175     linejoin := rounded;
 176     drawoptions (withcolor (0,0.625,0));
 177     fill (72.000000,713.254028)--(72.000000,718.918030)--(72.507797,718.979980)
 178       --(72.984398,719.026978)--(73.437500,719.054993)--(73.867203,719.070007)
 179       --(74.273399,719.073975)--(74.660202,719.062988)--(75.023399,719.043030)
 180       --(75.367203,719.012024)--(75.695297,718.968994)--(76.003899,718.918030)
 181       --(76.300797,718.859009)--(76.578102,718.793030)--(76.847702,718.723022)
 182       --(77.105499,718.648010)--(77.351601,718.570007)--(77.589798,718.484009)
 183       --(77.820297,718.401978)--(78.042999,718.312988)--(78.234398,718.237976)
 184       --(78.234398,706.906006)--(78.042999,706.979980)--(77.820297,707.065979)
 185       --(77.589798,707.151978)--(77.351601,707.237976)--(77.105499,707.315979)
 186       --(76.847702,707.390991)--(76.578102,707.460999)--(76.300797,707.526978)
 187       --(76.003899,707.585999)--(75.695297,707.637024)--(75.367203,707.676025)
 188       --(75.023399,707.710999)--(74.660202,707.729980)--(74.273399,707.742004)
 189       --(73.867203,707.737976)--(73.437500,707.723022)--(72.984398,707.690979)
 190       --(72.507797,707.648010)--(72.000000,707.585999)--cycle;
 191 %    drawoptions (withcolor (0,0.625,0));
 192     fill (78.246101,712.565979)--(78.261703,718.226990)--(78.476601,718.140991)
 193       --(78.691399,718.059021)--(78.902298,717.976990)--(79.113297,717.895020)
 194       --(79.328102,717.820007)--(79.546898,717.754028)--(79.765602,717.687988)
 195       --(79.992203,717.632996)--(80.226601,717.585999)--(80.468803,717.543030)
 196       --(80.718803,717.515991)--(80.980499,717.495972)--(81.253899,717.492004)
 197       --(81.542999,717.495972)--(81.843803,717.515991)--(82.160202,717.546997)
 198       --(82.492203,717.598022)--(82.847702,717.664001)--(83.218803,717.745972)
 199       --(83.332001,717.773010)--(83.332001,706.440979)--(83.218803,706.414001)
 200       --(82.847702,706.328003)--(82.492203,706.265991)--(82.160202,706.215027)
 201       --(81.843803,706.179993)--(81.542999,706.164001)--(81.253899,706.156006)
 202       --(80.980499,706.164001)--(80.718803,706.184021)--(80.468803,706.210999)
 203       --(80.226601,706.250000)--(79.992203,706.301025)--(79.765602,706.354980)
 204       --(79.546898,706.418030)--(79.328102,706.487976)--(79.113297,706.562988)
 205       --(78.902298,706.645020)--(78.691399,706.723022)--(78.476601,706.809021)
 206       --(78.234398,706.906006)--cycle;
 207 %    drawoptions (withcolor (0,0.625,0));
 208     fill (83.332001,712.109009)--(83.332001,717.773010)--(83.613297,717.843994)
 209       --(84.031303,717.965027)--(84.468803,718.104980)--(84.933601,718.265991)
 210       --(85.425797,718.448975)--(85.945297,718.651978)--(86.492203,718.882996)
 211       --(87.070297,719.137024)--(87.679703,719.414001)--(88.324203,719.718994)
 212       --(89.000000,720.054993)--(89.000000,708.718994)--(88.324203,708.387024)
 213       --(87.679703,708.081970)--(87.070297,707.801025)--(86.492203,707.551025)
 214       --(85.945297,707.320007)--(85.425797,707.117004)--(84.933601,706.934021)
 215       --(84.468803,706.773010)--(84.031303,706.632996)--(83.613297,706.512024)
 216       --(83.332001,706.440979)--cycle;
 217 %    drawoptions (withcolor (0,0.625,0));
 218 %pickup pencircle scaled 0.199253bp;
 219 draw (72.000000,713.254028)--(72.000000,718.918030)--(72.507797,718.979980)
 220     --(72.984398,719.026978)--(73.437500,719.054993)--(73.867203,719.070007)
 221     --(74.273399,719.073975)--(74.660202,719.062988)--(75.023399,719.043030)
 222     --(75.367203,719.012024)--(75.695297,718.968994)--(76.003899,718.918030)
 223     --(76.300797,718.859009)--(76.578102,718.793030)--(76.847702,718.723022)
 224     --(77.105499,718.648010)--(77.351601,718.570007)--(77.589798,718.484009)
 225     --(77.820297,718.401978)--(78.042999,718.312988)--(78.261703,718.226990)
 226     --(78.476601,718.140991)--(78.691399,718.059021)--(78.902298,717.976990)
 227     --(79.113297,717.895020)--(79.328102,717.820007)--(79.546898,717.754028)
 228     --(79.765602,717.687988)--(79.992203,717.632996)--(80.226601,717.585999)
 229     --(80.468803,717.543030)--(80.718803,717.515991)--(80.980499,717.495972)
 230     --(81.253899,717.492004)--(81.542999,717.495972)--(81.843803,717.515991)
 231     --(82.160202,717.546997)--(82.492203,717.598022)--(82.847702,717.664001)
 232     --(83.218803,717.745972)--(83.613297,717.843994)--(84.031303,717.965027)
 233     --(84.468803,718.104980)--(84.933601,718.265991)--(85.425797,718.448975)
 234     --(85.945297,718.651978)--(86.492203,718.882996)--(87.070297,719.137024)
 235     --(87.679703,719.414001)--(88.324203,719.718994)--(89.000000,720.054993)
 236     --(89.000000,708.718994)--(88.324203,708.387024)--(87.679703,708.081970)
 237     --(87.070297,707.801025)--(86.492203,707.551025)--(85.945297,707.320007)
 238     --(85.425797,707.117004)--(84.933601,706.934021)--(84.468803,706.773010)
 239     --(84.031303,706.632996)--(83.613297,706.512024)--(83.218803,706.414001)
 240     --(82.847702,706.328003)--(82.492203,706.265991)--(82.160202,706.215027)
 241     --(81.843803,706.179993)--(81.542999,706.164001)--(81.253899,706.156006)
 242     --(80.980499,706.164001)--(80.718803,706.184021)--(80.468803,706.210999)
 243     --(80.226601,706.250000)--(79.992203,706.301025)--(79.765602,706.354980)
 244     --(79.546898,706.418030)--(79.328102,706.487976)--(79.113297,706.562988)
 245     --(78.902298,706.645020)--(78.691399,706.723022)--(78.476601,706.809021)
 246     --(78.261703,706.895020)--(78.042999,706.979980)--(77.820297,707.065979)
 247     --(77.589798,707.151978)--(77.351601,707.237976)--(77.105499,707.315979)
 248     --(76.847702,707.390991)--(76.578102,707.460999)--(76.300797,707.526978)
 249     --(76.003899,707.585999)--(75.695297,707.637024)--(75.367203,707.676025)
 250     --(75.023399,707.710999)--(74.660202,707.729980)--(74.273399,707.742004)
 251     --(73.867203,707.737976)--(73.437500,707.723022)--(72.984398,707.690979)
 252     --(72.507797,707.648010)--(72.000000,707.585999)--cycle;
 253     %pickup pencircle scaled 0.8bp;
 254     draw (72.000000,699)--(72.000000,720);
 255     drawoptions();
 256     );
 257   $:=$ rotatedabout((72.000000,699),-15);
 258   $
 259 enddef
 260
 261
 262