diff options
| author | Hans Hagen <pragma@wxs.nl> | 2018-07-18 18:32:31 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2018-07-18 18:32:31 +0200 |
| commit | e09328e5e3230ee408f6af2cd454848c4d056702 (patch) | |
| tree | c57a1aca26d55550ba7d07bb2a419cd68485bef7 /metapost | |
| parent | 57dbee16f3a8e09e688f792c6e36a53de798e6cb (diff) | |
| download | context-e09328e5e3230ee408f6af2cd454848c4d056702.tar.gz | |
2018-07-18 17:40:00
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mpiv/mp-node.mpiv | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/metapost/context/base/mpiv/mp-node.mpiv b/metapost/context/base/mpiv/mp-node.mpiv index b7abcd5e5..5829558e6 100644 --- a/metapost/context/base/mpiv/mp-node.mpiv +++ b/metapost/context/base/mpiv/mp-node.mpiv @@ -51,7 +51,9 @@ clearnodepath ; vardef makenode@#(text t) = for a = t : - if (path a) or (unknown a) or ((string a) and (length(a) = 0)) : + if (path a) or (unknown a) : + mfun_makenode@#(t,) + elseif (string a) and (length(a) = 0) : mfun_makenode@#(t,) else : mfun_makenode@#(nodepath, t,) @@ -62,7 +64,9 @@ enddef ; vardef node@#(text t) = for a = t : - if (path a) or (unknown a) or ((string a) and (length(a) = 0)) : + if (path a) or (unknown a) : + mfun_node@#(t,) + elseif (string a) and (length(a) = 0) : mfun_node@#(t,) else : mfun_node@#(nodepath, t,) @@ -73,7 +77,9 @@ enddef ; vardef nodeboundingpoint@#(text t) = for a = t : - if (path a) or (unknown a) or ((string a) and (length(a) = 0)) : + if (path a) or (unknown a) : + mfun_nodeboundingpoint@#(t) + elseif (string a) and (length(a) = 0) : mfun_nodeboundingpoint@#(t) else : mfun_nodeboundingpoint@#(nodepath,a) @@ -231,7 +237,7 @@ vardef betweennodes@#(suffix p)(expr f)(suffix q)(text s) = for a = s : if unknown t : t = a ; - nodeboundingpoint@#(q,t) + nodeboundingpoint@#(p,f) + mfun_nodeboundingpoint@#(q,t) + mfun_nodeboundingpoint@#(p,f) else : + relative@#(a) fi |