summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/profcollege/PfCPseudo.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/metapost/profcollege/PfCPseudo.mp')
-rw-r--r--Master/texmf-dist/metapost/profcollege/PfCPseudo.mp20
1 files changed, 18 insertions, 2 deletions
diff --git a/Master/texmf-dist/metapost/profcollege/PfCPseudo.mp b/Master/texmf-dist/metapost/profcollege/PfCPseudo.mp
index e53e8f87f03..7b98805397b 100644
--- a/Master/texmf-dist/metapost/profcollege/PfCPseudo.mp
+++ b/Master/texmf-dist/metapost/profcollege/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;