src/Stylo.mp

   1 vardef AffichageS=
   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 colStylo : DarkGreen else: colStylo fi;
  17     draw texto;
  18     draw cadre;
  19     );
  20   TEXT
  21 enddef;
  22
  23 vardef Effacer=
  24   save $;
  25   picture $,texto;
  26   texto=image(
  27       label.lrt(LATEX("\bfseries\color{white}effacer tout"),if unknown _coinprec:(0,0) else: _coinprec fi);
  28   );
  29 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
  30 _coinprec:=llcorner $;
  31 _coinprec:=_coinprec+(0,eb);
  32   $
  33 enddef;
  34
  35 vardef Estampiller=
  36   save $;
  37   picture $,texto;
  38   texto=image(
  39       label.lrt(LATEX("\bfseries\color{white}estampiller"),if unknown _coinprec:(0,0) else: _coinprec fi);
  40   );
  41 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
  42 _coinprec:=llcorner $;
  43 _coinprec:=_coinprec+(0,eb);
  44   $
  45 enddef;
  46
  47 vardef PoserStylo=
  48   save $;
  49   picture $,texto;
  50   texto=image(
  51       label.lrt(LATEX("\bfseries\color{white}stylo en position d'écriture"),if unknown _coinprec:(0,0) else: _coinprec fi);
  52   );
  53 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
  54 _coinprec:=llcorner $;
  55 _coinprec:=_coinprec+(0,eb);
  56   $
  57 enddef;
  58
  59 vardef ReleverStylo=
  60   save $;
  61   picture $,texto;
  62   texto=image(
  63       label.lrt(LATEX("\bfseries\color{white}relever le stylo"),if unknown _coinprec:(0,0) else: _coinprec fi);
  64   );
  65 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
  66 _coinprec:=llcorner $;
  67 _coinprec:=_coinprec+(0,eb);
  68   $
  69 enddef;
  70
  71 vardef MettreCouleur(expr nomcol,redc,greenc,bluec)=
  72   save $;
  73   picture $,texto;
  74   texto=image(
  75       label.lrt(LATEX("\bfseries\color{white}mettre la couleur du stylo à \definecolor{"&nomcol&"}{rgb}{"&decimal(redc)&","&decimal(greenc)&","&decimal(bluec)&"}\colorbox{"&nomcol&"}{\phantom{t}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  76   );
  77 $=AffichageS shifted (if unknown _coinprec:(0,0) else : _coinprec fi - ulcorner AffichageS);
  78 _coinprec:=llcorner $;
  79 _coinprec:=_coinprec+(0,eb);
  80 $
  81 enddef;
  82
  83 vardef AjouterCS(expr nbang)=
  84   save $;
  85   picture $,texto;
  86   texto=image(
  87       label.lrt(LATEX("\bfseries\color{white}ajouter "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi&" à la couleur du stylo"),if unknown _coinprec:(0,0) else : _coinprec fi);
  88     );
  89   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
  90 _coinprec:=llcorner $;
  91 _coinprec:=_coinprec+(0,eb);
  92   $
  93 enddef;
  94
  95 vardef MettreCS(expr nbang)=
  96   save $;
  97   picture $,texto;
  98   texto=image(
  99       label.lrt(LATEX("\bfseries\color{white}mettre la couleur du stylo à "&      if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi),if unknown _coinprec:(0,0) else : _coinprec fi);
 100     );
 101   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
 102 _coinprec:=llcorner $;
 103 _coinprec:=_coinprec+(0,eb);
 104   $
 105 enddef;
 106
 107 %intensité stylo
 108 vardef AjouterIS(expr nbang)=
 109   save $;
 110   picture $,texto;
 111   texto=image(
 112       label.lrt(LATEX("\bfseries\color{white}ajouter "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi&" à l'intensité du stylo"),if unknown _coinprec:(0,0) else : _coinprec fi);
 113     );
 114   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
 115 _coinprec:=llcorner $;
 116 _coinprec:=_coinprec+(0,eb);
 117   $
 118 enddef;
 119
 120 vardef MettreIS(expr nbang)=
 121   save $;
 122   picture $,texto;
 123   texto=image(
 124       label.lrt(LATEX("\bfseries\color{white}mettre l'intensité du stylo à "&      if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi),if unknown _coinprec:(0,0) else : _coinprec fi);
 125     );
 126   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
 127 _coinprec:=llcorner $;
 128 _coinprec:=_coinprec+(0,eb);
 129   $
 130 enddef;
 131
 132 %taille du stylo
 133 vardef AjouterTS(expr nbang)=
 134     save $;
 135   picture $,texto;
 136   texto=image(
 137       label.lrt(LATEX("\bfseries\color{white}ajouter "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi&" à la taille du stylo"),if unknown _coinprec:(0,0) else : _coinprec fi);
 138     );
 139   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
 140 _coinprec:=llcorner $;
 141 _coinprec:=_coinprec+(0,eb);
 142 _coinprec:=_coinprec+(0,eb);
 143   $
 144 enddef;
 145
 146 vardef MettreTS(expr nbang)=
 147   save $;
 148   picture $,texto;
 149   texto=image(
 150       label.lrt(LATEX("\bfseries\color{white}mettre la taille du stylo à "&      if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi),if unknown _coinprec:(0,0) else : _coinprec fi);
 151     );
 152   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
 153 _coinprec:=llcorner $;
 154 _coinprec:=_coinprec+(0,eb);
 155   $
 156 enddef;