src/Variable.mp

   1 vardef AffichageVar=
   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 colVar : Orange else: colVar fi;
  17     draw texto;
  18     draw cadre;
  19     );
  20   TEXT
  21 enddef;
  22
  23 vardef AffichageLis=
  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))--(urcorner texto+(eb,0))--(urcorner texto+(0,eb))--
  31     (ulcorner texto+(0.625cm,0)+(eb,eb))--
  32     (ulcorner texto+(0.625cm,0))--
  33     (ulcorner texto+(0.375cm,0))--
  34     (ulcorner texto+(0.375cm,0)+(-eb,eb))--
  35     (ulcorner texto+(0,eb))--(ulcorner texto+(-eb,0))--cycle;
  36   picture TEXT;
  37   TEXT=image(
  38       fill cadre withcolor if unknown colList : DarkOrange else: colList fi;
  39     draw texto;
  40     draw cadre;
  41     );
  42   TEXT
  43 enddef;
  44
  45 vardef MettreVar(expr nomvar,nbpas)=
  46   save $;
  47   picture $,texto;
  48   texto=image(
  49       label.lrt(LATEX("\bfseries\color{white}mettre \colorbox{DarkOrange}{\normalfont\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}} à "&if numeric nbpas : "\colorbox{white}{\textcolor{black}{"&decimal(nbpas)&"}}" else: nbpas fi&""),if unknown _coinprec:(0,0) else: _coinprec fi);
  50   );
  51 $=AffichageVar shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  52 _coinprec:=llcorner $;
  53 _coinprec:=_coinprec+(0,eb);
  54   $
  55 enddef;
  56
  57 vardef AjouterVar(expr nomvar,nbpas)=
  58   save $;
  59   picture $,texto;
  60   texto=image(
  61       label.lrt(LATEX("\bfseries\color{white}ajouter à \colorbox{DarkOrange}{\normalfont\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}} "&if numeric nbpas : "\colorbox{white}{\textcolor{black}{"&decimal(nbpas)&"}}" else: nbpas fi &""),if unknown _coinprec:(0,0) else: _coinprec fi);
  62   );
  63 $=AffichageVar shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  64 _coinprec:=llcorner $;
  65 _coinprec:=_coinprec+(0,eb);
  66   $
  67 enddef;
  68
  69 vardef MontrerVar(expr nomvar)=
  70   save $;
  71   picture $,texto;
  72   texto=image(
  73       label.lrt(LATEX("\bfseries\color{white}montrer la variable \colorbox{DarkOrange}{\normalfont\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  74   );
  75 $=AffichageVar shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  76 _coinprec:=llcorner $;
  77 _coinprec:=_coinprec+(0,eb);
  78   $
  79 enddef;
  80
  81 vardef CacherVar(expr nomvar)=
  82   save $;
  83   picture $,texto;
  84   texto=image(
  85       label.lrt(LATEX("\bfseries\color{white}cacher la variable \colorbox{DarkOrange}{\normalfont\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  86   );
  87 $=AffichageVar shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  88 _coinprec:=llcorner $;
  89 _coinprec:=_coinprec+(0,eb);
  90   $
  91 enddef;
  92
  93 vardef AjouterList(expr nomvar,nbpas)=
  94   save $;
  95   picture $,texto;
  96   texto=image(
  97       label.lrt(LATEX("\bfseries\color{white}ajouter "&nomvar&" à \colorbox{dDarkOrange}{\normalfont\textcolor{white}{"&nbpas&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  98   );
  99 $=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
 100 _coinprec:=llcorner $;
 101 _coinprec:=_coinprec+(0,eb);
 102   $
 103 enddef;
 104
 105 vardef SupprimerList(expr nomvar,nbpas)=
 106   save $;
 107   picture $,texto;
 108   texto=image(
 109       label.lrt(LATEX("\bfseries\color{white}supprimer l'élément "&if numeric nomvar : "\colorbox{white}{\textcolor{black}{"&decimal(nomvar)&" \tiny$\blacktriangledown$}}" else : nomvar fi&" de la liste \colorbox{dDarkOrange}{\normalfont\textcolor{white}{"&nbpas&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
 110   );
 111 $=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
 112 _coinprec:=llcorner $;
 113 _coinprec:=_coinprec+(0,eb);
 114   $
 115 enddef;
 116
 117 vardef InsererList(expr nomelmt,nbpas,nomvar)=
 118   save $;
 119   picture $,texto;
 120   texto=image(
 121       label.lrt(LATEX("\bfseries\color{white}insérer "&nomelmt&" en position "&if numeric nbpas:"\colorbox{white}{\textcolor{black}{"&decimal(nbpas)&" \tiny$\blacktriangledown$}}" else: nbpas fi&" de la liste \colorbox{dDarkOrange}{\normalfont\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
 122   );
 123 $=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
 124 _coinprec:=llcorner $;
 125 _coinprec:=_coinprec+(0,eb);
 126   $
 127 enddef;
 128
 129 vardef RemplacerList(expr nomelmt,nomvar,nbpas)=
 130   save $;
 131   picture $,texto;
 132   texto=image(
 133       label.lrt(LATEX("\bfseries\color{white}remplacer l'élément "&if numeric nomelmt:"\colorbox{white}{\textcolor{black}{"&decimal(nomelmt)&" \tiny$\blacktriangledown$}}" else: nomelmt fi&" de la liste \colorbox{dDarkOrange}{\normalfont\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}} par "&nbpas&""),if unknown _coinprec:(0,0) else: _coinprec fi);
 134   );
 135 $=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
 136 _coinprec:=llcorner $;
 137 _coinprec:=_coinprec+(0,eb);
 138   $
 139 enddef;
 140
 141 vardef MontrerList(expr nomvar)=
 142   save $;
 143   picture $,texto;
 144   texto=image(
 145       label.lrt(LATEX("\bfseries\color{white}montrer la liste \colorbox{dDarkOrange}{\normalfont\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
 146   );
 147 $=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
 148 _coinprec:=llcorner $;
 149 _coinprec:=_coinprec+(0,eb);
 150   $
 151 enddef;
 152
 153 vardef CacherList(expr nomvar)=
 154   save $;
 155   picture $,texto;
 156   texto=image(
 157       label.lrt(LATEX("\bfseries\color{white}cacher la liste \colorbox{dDarkOrange}{\normalfont\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
 158   );
 159 $=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
 160 _coinprec:=llcorner $;
 161 _coinprec:=_coinprec+(0,eb);
 162   $
 163 enddef;
 164
 165 endinput;