2016-08-15 22:45:00

1 files changed, 22 insertions, 0 deletions

diff --git a/metapost/context/base/mpiv/mp-tool.mpiv b/metapost/context/base/mpiv/mp-tool.mpiv
index 4922d5075..220a7b6a9 100644
--- a/metapost/context/base/mpiv/mp-tool.mpiv
+++ b/metapost/context/base/mpiv/mp-tool.mpiv
@@ -1246,6 +1246,15 @@ vardef arrowheadonpath (expr p, s) =
     arrowhead p if s < 1 : cutafter (point (s*arclength(p) + (ahlength/2)) on p) fi
 enddef ;
 
+def resetarrows =
+    hide (
+        ahlength  :=  4 ;
+        ahangle   := 45 ;
+        ahvariant := 0 ;
+        ahdimple  := 1/5 ;
+    )
+enddef ;
+
 %D Points.
 
 def drawpoint expr c =
@@ -2811,4 +2820,17 @@ enddef;
 
 extra_endfig := extra_endfig & "mfun_apply_max_dimensions ;" ;
 
+%D Bonus shapes (need along):
+
+path unittriangle, fulltriangle ; % not really units but circle based
+
+unittriangle := point 0   along unitcircle
+             -- point 1/3 along unitcircle
+             -- point 2/3 along unitcircle
+             -- cycle ;
+fulltriangle := point 0   along fullcircle
+             -- point 1/3 along fullcircle
+             -- point 2/3 along fullcircle
+             -- cycle ;
+
 let dump = relax ;