From 659b8f28e591006b6d0669c05d809d6ccf60cec0 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Thu, 5 Jan 2023 20:22:55 +0100 Subject: 2023-01-05 17:46:00 --- metapost/context/base/mpxl/mp-mlib.mpxl | 26 +++++++++++++++++++------- 1 file changed, 19 insertions(+), 7 deletions(-) (limited to 'metapost') diff --git a/metapost/context/base/mpxl/mp-mlib.mpxl b/metapost/context/base/mpxl/mp-mlib.mpxl index 411095e5d..26aacb35d 100644 --- a/metapost/context/base/mpxl/mp-mlib.mpxl +++ b/metapost/context/base/mpxl/mp-mlib.mpxl @@ -1371,13 +1371,25 @@ permanent verbatim ; % New -def bitmapimage(expr xresolution, yresolution, data) = - image ( - addto currentpicture doublepath unitsquare - withprescript "bm_xresolution=" & decimal xresolution - withprescript "bm_yresolution=" & decimal yresolution - withpostscript data ; - ) +% def bitmapimage(expr xresolution, yresolution, data) = +% image ( +% addto currentpicture doublepath unitsquare +% withprescript "bm_xresolution=" & decimal xresolution +% withprescript "bm_yresolution=" & decimal yresolution +% withpostscript data ; +% ) +% enddef ; + +vardef bitmapimage(expr xresolution, yresolution, data) = + save p ; picture p ; p := nullpicture ; + addto p doublepath unitsquare +% xscaled xresolution +% yscaled yresolution + withprescript "bm_xresolution=" & decimal xresolution + withprescript "bm_yresolution=" & decimal yresolution + withpostscript data + ; + p enddef ; permanent bitmapimage ; -- cgit v1.2.3