src/Variable.mp

   1 vardef AffichageVar=
   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 Orange;
   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 AffichageLis=
  14   path cadre;
  15   cadre=(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
  16   picture TEXT;
  17   TEXT=image(
  18       fill cadre withcolor DarkOrange;
  19     draw texto;
  20     draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
  21     );
  22   TEXT
  23 enddef;
  24
  25 vardef MettreVar(expr nomvar,nbpas)=
  26   save $;
  27   picture $,texto;
  28   texto=image(
  29       label.lrt(LATEX("\bfseries\color{white}Mettre \colorbox{DarkOrange}{\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);
  30   );
  31 $=AffichageVar shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  32   _coinprec:=llcorner $;
  33   $
  34 enddef;
  35
  36 vardef AjouterVar(expr nomvar,nbpas)=
  37   save $;
  38   picture $,texto;
  39   texto=image(
  40       label.lrt(LATEX("\bfseries\color{white}Ajouter à \colorbox{DarkOrange}{\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);
  41   );
  42 $=AffichageVar shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  43   _coinprec:=llcorner $;
  44   $
  45 enddef;
  46
  47 vardef MontrerVar(expr nomvar)=
  48   save $;
  49   picture $,texto;
  50   texto=image(
  51       label.lrt(LATEX("\bfseries\color{white}Montrer la variable \colorbox{DarkOrange}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  52   );
  53 $=AffichageVar shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  54   _coinprec:=llcorner $;
  55   $
  56 enddef;
  57
  58 vardef CacherVar(expr nomvar)=
  59   save $;
  60   picture $,texto;
  61   texto=image(
  62       label.lrt(LATEX("\bfseries\color{white}Cacher la variable \colorbox{DarkOrange}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  63   );
  64 $=AffichageVar shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  65   _coinprec:=llcorner $;
  66   $
  67 enddef;
  68
  69 vardef AjouterList(expr nomvar,nbpas)=
  70   save $;
  71   picture $,texto;
  72   texto=image(
  73       label.lrt(LATEX("\bfseries\color{white}Ajouter "&nomvar&" à \colorbox{dDarkOrange}{\textcolor{white}{"&nbpas&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  74   );
  75 $=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  76   _coinprec:=llcorner $;
  77   $
  78 enddef;
  79
  80 vardef SupprimerList(expr nomvar,nbpas)=
  81   save $;
  82   picture $,texto;
  83   texto=image(
  84       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}{\textcolor{white}{"&nbpas&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  85   );
  86 $=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  87   _coinprec:=llcorner $;
  88   $
  89 enddef;
  90
  91 vardef InsererList(expr nomelmt,nbpas,nomvar)=
  92   save $;
  93   picture $,texto;
  94   texto=image(
  95       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}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  96   );
  97 $=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  98   _coinprec:=llcorner $;
  99   $
 100 enddef;
 101
 102 vardef RemplacerList(expr nomelmt,nomvar,nbpas)=
 103   save $;
 104   picture $,texto;
 105   texto=image(
 106       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}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}} par "&nbpas&""),if unknown _coinprec:(0,0) else: _coinprec fi);
 107   );
 108 $=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
 109   _coinprec:=llcorner $;
 110   $
 111 enddef;
 112
 113 vardef MontrerList(expr nomvar)=
 114   save $;
 115   picture $,texto;
 116   texto=image(
 117       label.lrt(LATEX("\bfseries\color{white}Montrer la liste \colorbox{dDarkOrange}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
 118   );
 119 $=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
 120   _coinprec:=llcorner $;
 121   $
 122 enddef;
 123
 124 vardef CacherList(expr nomvar)=
 125   save $;
 126   picture $,texto;
 127   texto=image(
 128       label.lrt(LATEX("\bfseries\color{white}Cacher la liste \colorbox{dDarkOrange}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
 129   );
 130 $=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
 131   _coinprec:=llcorner $;
 132   $
 133 enddef;
 134
 135