diff options
author | Norbert Preining <norbert@preining.info> | 2022-08-03 03:00:44 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-08-03 03:00:44 +0000 |
commit | 7e432dc7f673471164ff0d31c8b9873870525478 (patch) | |
tree | 414675b8f02e01fbf48d4b7972968bd54fdbc426 /macros/latex/contrib/profcollege/metapost/PfCPseudo.mp | |
parent | 473b8529944036d53095231d535a6fb209f3f976 (diff) |
CTAN sync 202208030300
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCPseudo.mp')
-rw-r--r-- | macros/latex/contrib/profcollege/metapost/PfCPseudo.mp | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/macros/latex/contrib/profcollege/metapost/PfCPseudo.mp b/macros/latex/contrib/profcollege/metapost/PfCPseudo.mp index e53e8f87f0..7b98805397 100644 --- a/macros/latex/contrib/profcollege/metapost/PfCPseudo.mp +++ b/macros/latex/contrib/profcollege/metapost/PfCPseudo.mp @@ -1455,6 +1455,11 @@ enddef; vardef FinBlocRepeterI=FinBlocRepeter enddef; +vardef BlocUserFinRepeter(expr col)= + colControle:=col; + FinBlocRepeter +enddef; + vardef Si(expr xa)= LONG:=0; save $; @@ -1951,8 +1956,9 @@ vardef BlocGrisMulti(text argris)= $ enddef; -boolean BlocE; +boolean BlocE,BlocR; BlocE:=false; +BlocR:=false; vardef BlocUser(expr colblocuser)(text textbloc)= LONG:=0; @@ -1964,7 +1970,17 @@ vardef BlocUser(expr colblocuser)(text textbloc)= texto=image( draw BUTB; ); - $=Affichage(texto); + ColBloc:=colblocuser; + if BlocE: + $=AffichageED(texto); + elseif BlocR: + LONG:=0; + numblocrep:=numblocrep+1; + LongRep[numblocrep]:=abs(llcorner texto-lrcorner texto);%afin de conserver la longueur du"répéter..." + $=AffichageControle(texto); + else: + $=Affichage(texto); + fi; $ enddef; |