diff options
Diffstat (limited to 'Master/texmf-dist/metapost/profcollege/PfC-Calculatrice.mp')
-rw-r--r-- | Master/texmf-dist/metapost/profcollege/PfC-Calculatrice.mp | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/Master/texmf-dist/metapost/profcollege/PfC-Calculatrice.mp b/Master/texmf-dist/metapost/profcollege/PfC-Calculatrice.mp index a6326e19258..92d4d3057d6 100644 --- a/Master/texmf-dist/metapost/profcollege/PfC-Calculatrice.mp +++ b/Master/texmf-dist/metapost/profcollege/PfC-Calculatrice.mp @@ -1,6 +1,3 @@ -%Author : Christophe Poulain -%Licence : Released under the LaTeX Project Public License v1.3c -% or later, see http://www.latex-project.org/lppl.txtf prologues:=3; path carre[]; @@ -174,7 +171,7 @@ vardef Test(expr cptk,cptnt)= fi; enddef; -vardef LCD(text nt)(text rep)= +vardef LCD(text nt)(text rep)(expr NB)= decahoriz:=0; nblignes:=nblignes+1; path Ecran; @@ -185,6 +182,12 @@ vardef LCD(text nt)(text rep)= BlocAffichage; Test(k,nt); endfor; + for k=1 upto NB: + nblignes:=nblignes+1; + Ecran:=(u*(0,-1)--u*(120,-1)--u*(120,7)--u*(0,7)--cycle) shifted(u*(0,-8*(nblignes-1))); + fill Ecran withcolor if print=true:0.8white else:CouleurEcran fi; + draw Ecran withcolor if print=true:0.8white else:CouleurEcran fi; + endfor; nblignes:=nblignes+1; Ecran:=(u*(0,-1)--u*(120,-1)--u*(120,7)--u*(0,7)--cycle) shifted(u*(0,-8*(nblignes-1))); fill Ecran withcolor if print=true:0.8white else:CouleurEcran fi; |