diff options
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mp-mlib.mp | 5 | ||||
| -rw-r--r-- | metapost/context/base/mp-tool.mp | 9 |
2 files changed, 9 insertions, 5 deletions
diff --git a/metapost/context/base/mp-mlib.mp b/metapost/context/base/mp-mlib.mp index aeacb3e9c..bf2372ca3 100644 --- a/metapost/context/base/mp-mlib.mp +++ b/metapost/context/base/mp-mlib.mp @@ -165,6 +165,8 @@ vardef thelabel@#(expr s, z) = p shifted (z + labeloffset*laboff@# - (labxf@#*lrcorner p + labyf@#*ulcorner p + (1-labxf@#-labyf@#)*llcorner p)) enddef; +let normalinfont = infont ; + primarydef str infont name = % very naughty ! if name = "" : textext(str) @@ -257,6 +259,9 @@ enddef ; def erasegraphictextfile = enddef ; +def externalfigure primary filename = + doexternalfigure (filename) +enddef ; def doexternalfigure (expr filename) text transformation = draw unitsquare transformation withprescript "fg" withpostscript filename ; enddef ; diff --git a/metapost/context/base/mp-tool.mp b/metapost/context/base/mp-tool.mp index 31074911f..8cc6d1f89 100644 --- a/metapost/context/base/mp-tool.mp +++ b/metapost/context/base/mp-tool.mp @@ -1288,7 +1288,10 @@ extra_endfig := extra_endfig & " naturalizepaths ; " ; %D Also handy: -extra_beginfig := extra_beginfig & " truecorners := 0 ; " ; % restores +extra_beginfig := extra_beginfig & " truecorners := 0 ; " ; % restores +extra_beginfig := extra_beginfig & " miterlimit := 10 ; " ; % restores +extra_beginfig := extra_beginfig & " linejoin := rounded ; " ; % restores +extra_beginfig := extra_beginfig & " linecap := rounded ; " ; % restores %D Normally, arrowheads don't scale well. So we provide a %D hack. @@ -2570,7 +2573,3 @@ enddef ; % done endinput ; - -end - -end |