diff options
author | Karl Berry <karl@freefriends.org> | 2022-08-02 20:48:10 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2022-08-02 20:48:10 +0000 |
commit | 1685fb256848a75575d5928c1d55d844333971fb (patch) | |
tree | b23b436cf16fa32c5cae6086cdc380f21ddadbaa /Master/texmf-dist/metapost | |
parent | b29b4e4d5408b5261a146df0c568cc29719ca5ac (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.mp | 20 | ||||
-rw-r--r-- | Master/texmf-dist/metapost/profcollege/PfCScratch.mp | 19 | ||||
-rw-r--r-- | Master/texmf-dist/metapost/profcollege/PfCScratchpdf.mp | 19 |
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; |