summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/metapost/PfCScratch.mp
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCScratch.mp')
-rw-r--r--macros/latex/contrib/profcollege/metapost/PfCScratch.mp7
1 files changed, 5 insertions, 2 deletions
diff --git a/macros/latex/contrib/profcollege/metapost/PfCScratch.mp b/macros/latex/contrib/profcollege/metapost/PfCScratch.mp
index 2a7ce304e2..6e2e7beb59 100644
--- a/macros/latex/contrib/profcollege/metapost/PfCScratch.mp
+++ b/macros/latex/contrib/profcollege/metapost/PfCScratch.mp
@@ -1689,8 +1689,11 @@ $=image(
fill cadre withcolor if print : coefprint*White else : if unknown colControle : LightOrange else : colControle fi fi;
draw cadre withcolor if print : coefprint*White else : if unknown colControle : LightOrange else : colControle fi fi;
AA:=ahangle;
- ahangle:=90;
- drawarrow (lrcorner texto+(-0.625cm,0.15cm)){dir-15}..{dir90}(urcorner texto+(-0.25cm,-0.1cm)) withpen pencircle scaled2bp if print=false : withcolor white fi;
+ BB:=ahlength;
+ ahangle:=90;%90
+ ahlength:=ahlength/2;
+% drawarrow (lrcorner texto+(-0.625cm,0.15cm)){dir-15}..{dir90}(urcorner texto+(-0.25cm,-0.1cm)) withpen pencircle scaled1.5 if print=false : withcolor white fi;
+ drawarrow (lrcorner texto+(-0.25cm,0.15cm)){dir-30}..{dir90}(urcorner texto+(-0.125cm,-0.1cm)) withpen pencircle scaled1 if print=false : withcolor white fi;
ahangle:=AA;
draw (coindebutbloc[numblocrep]+(0.0625+0.5cm+eb,0.125)){dir180}..
{dir-90}(coindebutbloc[numblocrep]+(0.5cm,-eb))--