diff options
author | Hans Hagen <pragma@wxs.nl> | 2018-03-10 19:29:49 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2018-03-10 19:29:49 +0100 |
commit | f923c957a3b322ae3ee8e7a0b20df1580869bee7 (patch) | |
tree | 988b46f68add1068e6110a9b9223d0106a888e00 /metapost/context/base | |
parent | 62185974cd9c16ad11788dbeebb30f466a2fb38c (diff) | |
download | context-f923c957a3b322ae3ee8e7a0b20df1580869bee7.tar.gz |
2018-03-10 15:02:00
Diffstat (limited to 'metapost/context/base')
-rw-r--r-- | metapost/context/base/mpiv/mp-node.mpiv | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/metapost/context/base/mpiv/mp-node.mpiv b/metapost/context/base/mpiv/mp-node.mpiv index fe6b40c64..79391220b 100644 --- a/metapost/context/base/mpiv/mp-node.mpiv +++ b/metapost/context/base/mpiv/mp-node.mpiv @@ -135,6 +135,8 @@ vardef mfun_node@#(suffix p)(expr i)(text t) = fi enddef ; +newinternal node_loopback_yscale ; node_loopback_yscale := 1 ; + % returns a path vardef fromtopaths@#(expr d)(suffix p)(expr f)(suffix q)(text s) = @@ -159,7 +161,7 @@ vardef fromtopaths@#(expr d)(suffix p)(expr f)(suffix q)(text s) = save deviation ; deviation := if numeric d: d else: 0 fi ; r1 = if (point 0 of r0) = (point length r0 of r0) : - (fullcircle rotated 180 + (fullcircle yscaled node_loopback_yscale rotated 180 if mfun_laboff@# <> origin : rotated angle mfun_laboff@# shifted .5mfun_laboff@# |