summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/metapost/PfCScratchpdf.mp
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCScratchpdf.mp')
-rw-r--r--macros/latex/contrib/profcollege/metapost/PfCScratchpdf.mp19
1 files changed, 15 insertions, 4 deletions
diff --git a/macros/latex/contrib/profcollege/metapost/PfCScratchpdf.mp b/macros/latex/contrib/profcollege/metapost/PfCScratchpdf.mp
index 87a59ce750..f96556d032 100644
--- a/macros/latex/contrib/profcollege/metapost/PfCScratchpdf.mp
+++ b/macros/latex/contrib/profcollege/metapost/PfCScratchpdf.mp
@@ -1744,6 +1744,11 @@ enddef;
vardef FinBlocRepeterI=FinBlocRepeter enddef;
+vardef BlocUserFinRepeter(expr col)=
+ colControle:=col;
+ FinBlocRepeter
+enddef;
+
vardef Si(expr xa)=
LONG:=0;
save $;
@@ -2542,8 +2547,9 @@ vardef BlocGrisMulti(text argris)=
$
enddef;
-boolean BlocE;
+boolean BlocE,BlocR;
BlocE:=false;
+BlocR:=false;
vardef BlocUser(expr colblocuser)(text textbloc)=
LONG:=0;
@@ -2556,10 +2562,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;