summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/profcollege/PfC-Calculatrice.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-03-14 22:52:07 +0000
committerKarl Berry <karl@freefriends.org>2021-03-14 22:52:07 +0000
commit4350559ab12f199a030eab3600548b05c191afc5 (patch)
treeda3d29dc8182f79a83051f2047368c6a88459d8f /Master/texmf-dist/metapost/profcollege/PfC-Calculatrice.mp
parent61214586c288947b3272b5551d439dc8a9eb7c86 (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.mp11
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;