src/Evenements.mp

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