diff options
Diffstat (limited to 'metapost/context/base/mp-func.mpiv')
-rw-r--r-- | metapost/context/base/mp-func.mpiv | 16 |
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 |