2015-01-19 11:22:00

1 files changed, 10 insertions, 6 deletions

diff --git a/metapost/context/base/mp-func.mpiv b/metapost/context/base/mp-func.mpiv
index 1ff330038..81b37fd1c 100644
--- a/metapost/context/base/mp-func.mpiv
+++ b/metapost/context/base/mp-func.mpiv
@@ -23,6 +23,7 @@ mfun_pathconnectors[0] := ","   ;
 mfun_pathconnectors[1] := "--"  ;
 mfun_pathconnectors[2] := ".."  ;
 mfun_pathconnectors[3] := "..." ;
+mfun_pathconnectors[4] := "---" ;
 
 def pathconnectors = mfun_pathconnectors enddef ;
 
@@ -39,9 +40,10 @@ enddef ;
 
 def function         = mfun_function     enddef ; % let doesn't work here
 def straightfunction = mfun_function (1) enddef ;
-def punkedfunction   = mfun_function (1) enddef ;
 def curvedfunction   = mfun_function (2) enddef ;
-def tightfunction    = mfun_function (3) enddef ;
+
+% def punkedfunction   = mfun_function (1) enddef ; % same as straightfunction
+% def tightfunction    = mfun_function (3) enddef ; % same as curvedfunction
 
 vardef mfun_constructedpath (expr f) (text t) =
     save ok ; boolean ok ; ok := false ;
@@ -57,9 +59,10 @@ enddef ;
 
 def constructedpath = mfun_constructedpath     enddef ; % let doesn't work here
 def straightpath    = mfun_constructedpath (1) enddef ;
-def punkedpath      = mfun_constructedpath (1) enddef ;
 def curvedpath      = mfun_constructedpath (2) enddef ;
-def tightpath       = mfun_constructedpath (3) enddef ;
+
+def punkedpath      = mfun_constructedpath (1) enddef ; % same as straightpath
+def tightpath       = mfun_constructedpath (3) enddef ; % same as curvedpath
 
 vardef mfun_constructedpairs (expr f) (text p) =
     save i ; i := -1 ;
@@ -74,6 +77,7 @@ enddef ;
 
 def constructedpairs = mfun_constructedpairs     enddef ; % let doesn't work here
 def straightpairs    = mfun_constructedpairs (1) enddef ;
-def punkedpairs      = mfun_constructedpairs (1) enddef ;
 def curvedpairs      = mfun_constructedpairs (2) enddef ;
-def tightpairs       = mfun_constructedpairs (3) enddef ;
+
+def punkedpairs      = mfun_constructedpairs (1) enddef ; % same as straightpairs
+def tightpairs       = mfun_constructedpairs (3) enddef ; % same as curvedpairs