src/Stylo.mp

   1 vardef AffichageS=
   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 DarkGreen;
   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 Effacer=
  14   save $;
  15   picture $,texto;
  16   texto=image(
  17       label.lrt(LATEX("\bfseries\color{white}Effacer tout"),if unknown _coinprec:(0,0) else: _coinprec fi);
  18   );
  19 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
  20   _coinprec:=llcorner $;
  21   $
  22 enddef;
  23
  24 vardef Estampiller=
  25   save $;
  26   picture $,texto;
  27   texto=image(
  28       label.lrt(LATEX("\bfseries\color{white}Estampiller"),if unknown _coinprec:(0,0) else: _coinprec fi);
  29   );
  30 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
  31   _coinprec:=llcorner $;
  32   $
  33 enddef;
  34
  35 vardef PoserStylo=
  36   save $;
  37   picture $,texto;
  38   texto=image(
  39       label.lrt(LATEX("\bfseries\color{white}Stylo en position d'écriture"),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   $
  44 enddef;
  45
  46 vardef ReleverStylo=
  47   save $;
  48   picture $,texto;
  49   texto=image(
  50       label.lrt(LATEX("\bfseries\color{white}Relever le stylo"),if unknown _coinprec:(0,0) else: _coinprec fi);
  51   );
  52 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
  53   _coinprec:=llcorner $;
  54   $
  55 enddef;
  56
  57 vardef MettreCouleur(expr nomcol,redc,greenc,bluec)=
  58   save $;
  59   picture $,texto;
  60   texto=image(
  61       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);
  62   );
  63 $=AffichageS shifted (if unknown _coinprec:(0,0) else : _coinprec fi - ulcorner AffichageS);
  64 _coinprec:=llcorner $;
  65 $
  66 enddef;
  67
  68 vardef AjouterCS(expr nbang)=
  69   save $;
  70   picture $,texto;
  71   texto=image(
  72       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);
  73     );
  74   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
  75   _coinprec:=llcorner $;
  76   $
  77 enddef;
  78
  79 vardef MettreCS(expr nbang)=
  80   save $;
  81   picture $,texto;
  82   texto=image(
  83       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);
  84     );
  85   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
  86   _coinprec:=llcorner $;
  87   $
  88 enddef;
  89
  90 %intensité stylo
  91 vardef AjouterIS(expr nbang)=
  92   save $;
  93   picture $,texto;
  94   texto=image(
  95       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);
  96     );
  97   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
  98   _coinprec:=llcorner $;
  99   $
 100 enddef;
 101
 102 vardef MettreIS(expr nbang)=
 103   save $;
 104   picture $,texto;
 105   texto=image(
 106       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);
 107     );
 108   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
 109   _coinprec:=llcorner $;
 110   $
 111 enddef;
 112
 113 %taille du stylo
 114 vardef AjouterTS(expr nbang)=
 115     save $;
 116   picture $,texto;
 117   texto=image(
 118       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);
 119     );
 120   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
 121   _coinprec:=llcorner $;
 122   $
 123 enddef;
 124
 125 vardef MettreTS(expr nbang)=
 126   save $;
 127   picture $,texto;
 128   texto=image(
 129       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);
 130     );
 131   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
 132   _coinprec:=llcorner $;
 133   $
 134 enddef;