diff options
author | Hans Hagen <pragma@wxs.nl> | 2020-05-07 11:47:12 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2020-05-07 11:47:12 +0200 |
commit | 352a2686282e95b2869728f8f321688f7e216d80 (patch) | |
tree | a0cd6d8cd35aaf6c51632307786e4083e25c0df8 /metapost/context/base/mpiv/mp-blob.mpiv | |
parent | 3d0fae7aaf79674a41d2bdaf5b3c2a3a4d8113db (diff) | |
download | context-352a2686282e95b2869728f8f321688f7e216d80.tar.gz |
2020-05-07 11:00:00
Diffstat (limited to 'metapost/context/base/mpiv/mp-blob.mpiv')
-rw-r--r-- | metapost/context/base/mpiv/mp-blob.mpiv | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/metapost/context/base/mpiv/mp-blob.mpiv b/metapost/context/base/mpiv/mp-blob.mpiv index dd147bede..8808b5df6 100644 --- a/metapost/context/base/mpiv/mp-blob.mpiv +++ b/metapost/context/base/mpiv/mp-blob.mpiv @@ -91,7 +91,10 @@ vardef followtext(expr pth, txt) = at := arctime pos of pat ; ap := point at of pat ; ad := direction at of pat ; - pic[i] := pic[i] shifted (-wid/2,0) rotated(angle(ad)) shifted ap ; + pic[i] := pic[i] + shifted (-wid/2,0) + if ad <> origin : rotated(angle(ad)) fi + shifted ap ; draw pic[i] ; if tracingfollowtext = 1 : draw boundingbox pic[i] withpen pencircle scaled .25pt withcolor red ; |