diff options
| author | Karl Berry <karl@freefriends.org> | 2021-03-14 22:52:07 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2021-03-14 22:52:07 +0000 |
| commit | 4350559ab12f199a030eab3600548b05c191afc5 (patch) | |
| tree | da3d29dc8182f79a83051f2047368c6a88459d8f /Master/texmf-dist/metapost/profcollege/PfC-Calculatrice.mp | |
| parent | 61214586c288947b3272b5551d439dc8a9eb7c86 (diff) | |
profcollege (14mar21)
git-svn-id: svn://tug.org/texlive/trunk@58351 c570f23f-e606-0410-a88d-b1316a301751
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; |