diff options
| author | Hans Hagen <pragma@wxs.nl> | 2019-06-01 22:12:48 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2019-06-01 22:12:48 +0200 |
| commit | 822d6299d6c28fe3780ff40831ec5c00c60133f5 (patch) | |
| tree | 365fa79c20cb515efe97785cdf59430ab17a1e8f /metapost/context/base/mpiv/mp-tool.mpiv | |
| parent | e2658addf306f729945c184e46f98df39dd7026c (diff) | |
| download | context-822d6299d6c28fe3780ff40831ec5c00c60133f5.tar.gz | |
2019-06-01 19:20:00
Diffstat (limited to 'metapost/context/base/mpiv/mp-tool.mpiv')
| -rw-r--r-- | metapost/context/base/mpiv/mp-tool.mpiv | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/metapost/context/base/mpiv/mp-tool.mpiv b/metapost/context/base/mpiv/mp-tool.mpiv index 2cdb5fb39..cabdf9ab2 100644 --- a/metapost/context/base/mpiv/mp-tool.mpiv +++ b/metapost/context/base/mpiv/mp-tool.mpiv @@ -1392,7 +1392,7 @@ def drawcontrollines expr c = path _c_ ; _c_ := c ; mfun_draw_controllines end def drawpointlabels expr c = path _c_ ; _c_ := c ; mfun_draw_pointlabels enddef ; def mfun_draw_points text t = - for _i_=0 upto length(_c_) : + for _i_=0 upto length(_c_) if cycle _c_ : -1 fi : normaldraw point _i_ of _c_ _pnt_opt_ t ; endfor ; enddef; @@ -1416,7 +1416,7 @@ numeric pointlabelscale ; pointlabelscale := 0 ; string pointlabelfont ; pointlabelfont := "" ; def mfun_draw_pointlabels text t = - for _i_=0 upto length(_c_) : + for _i_=0 upto length(_c_) if cycle _c_ : -1 fi : pair _u_ ; _u_ := unitvector(direction _i_ of _c_) rotated if swappointlabels : - fi 90 ; pair _p_ ; _p_ := (point _i_ of _c_) ; begingroup ; |