summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-08-02 20:48:10 +0000
committerKarl Berry <karl@freefriends.org>2022-08-02 20:48:10 +0000
commit1685fb256848a75575d5928c1d55d844333971fb (patch)
treeb23b436cf16fa32c5cae6086cdc380f21ddadbaa /Master/texmf-dist/metapost
parentb29b4e4d5408b5261a146df0c568cc29719ca5ac (diff)
profcollege (2aug22)
git-svn-id: svn://tug.org/texlive/trunk@64032 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost')
-rw-r--r--Master/texmf-dist/metapost/profcollege/PfCPseudo.mp20
-rw-r--r--Master/texmf-dist/metapost/profcollege/PfCScratch.mp19
-rw-r--r--Master/texmf-dist/metapost/profcollege/PfCScratchpdf.mp19
3 files changed, 48 insertions, 10 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;
diff --git a/Master/texmf-dist/metapost/profcollege/PfCScratch.mp b/Master/texmf-dist/metapost/profcollege/PfCScratch.mp
index 2f1b2ffa491..2f2db0ee741 100644
--- a/Master/texmf-dist/metapost/profcollege/PfCScratch.mp
+++ b/Master/texmf-dist/metapost/profcollege/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;
diff --git a/Master/texmf-dist/metapost/profcollege/PfCScratchpdf.mp b/Master/texmf-dist/metapost/profcollege/PfCScratchpdf.mp
index 87a59ce7504..f96556d0327 100644
--- a/Master/texmf-dist/metapost/profcollege/PfCScratchpdf.mp
+++ b/Master/texmf-dist/metapost/profcollege/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;