From 2ccf824cf6614b771c4dd47bd09e7d4f1a59f271 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Thu, 4 Jun 2009 22:20:00 +0200 Subject: beta 2009.06.04 22:20 --- metapost/context/base/mp-mlib.mp | 5 +++++ metapost/context/base/mp-tool.mp | 9 ++++----- 2 files changed, 9 insertions(+), 5 deletions(-) (limited to 'metapost') 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 -- cgit v1.2.3