diff options
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCScratch.mp')
-rw-r--r-- | macros/latex/contrib/profcollege/metapost/PfCScratch.mp | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/macros/latex/contrib/profcollege/metapost/PfCScratch.mp b/macros/latex/contrib/profcollege/metapost/PfCScratch.mp index 2f1b2ffa49..2f2db0ee74 100644 --- a/macros/latex/contrib/profcollege/metapost/PfCScratch.mp +++ b/macros/latex/contrib/profcollege/metapost/PfCScratch.mp @@ -1712,6 +1712,11 @@ enddef; vardef FinBlocRepeterI=FinBlocRepeter enddef; +vardef BlocUserFinRepeter(expr col)= + colControle:=col; + FinBlocRepeter +enddef; + vardef Si(expr xa)= LONG:=0; save $; @@ -2510,8 +2515,9 @@ vardef BlocGrisMulti(text argris)= $ enddef; -boolean BlocE; +boolean BlocE,BlocR; BlocE:=false; +BlocR:=false; vardef BlocUser(expr colblocuser)(text textbloc)= LONG:=0; @@ -2524,10 +2530,15 @@ vardef BlocUser(expr colblocuser)(text textbloc)= draw BUTB; ); ColBloc:=colblocuser; - if BlocE=false: - $=Affichage(texto); - else: + 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; |