Re: Precise bitmaps

*To*: mathgroup at smc.vnet.net*Subject*: [mg54722] Re: Precise bitmaps*From*: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>*Date*: Mon, 28 Feb 2005 03:27:09 -0500 (EST)*References*: <cvrqg4$p55$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

I have used precisely the same export/import trick as you in order to use the Mathematica rendering engine to generate bitmaps for use in image processing applications. My cure to the extra white space problem was to simply discard those pixels after Importing the bitmap, and to anticipate this loss of pixels by Exporting a slightly larger bitmap in the first place. I have just tried to reproduce what I did using Mathematica 5.1 (for Windows) and find that the extra whitespace problem seems to have been cured in that version. However, here is (roughly) what I did to cure the problem in an earlier version of Mathematica: Load a package for generating a pretty image. << "Graphics`Shapes`" Generate an image (with a black background so you can see the extra white space when it is added), export, then import it. Notice that I export 1 pixel more in each dimension than I eventually need. g = Show[Graphics3D[Torus[], Background -> RGBColor[0, 0, 0]]] Export["temp.bmp", g, "BMP", ImageSize -> {101, 101}] g2 = Import["temp.bmp", "BMP"] Show[g2] Now have a look at the contents of g2. The first part is the image data, so I have displayed only its dimensions. This shows which bits have to be changed if you crop the image. There may be an "official" way of doing this, but I haven't found it. Dimensions[g2[[1,1]]] g2[[1,2]] g2[[1,3]] g2[[1,4]] g2[[2]] g2[[3]] g2[[4]] {101, 101, 3} {{0, 0}, {101, 101}} {0, 255} ColorFunction -> RGBColor ImageSize -> {101, 101} PlotRange -> {{0, 100}, {1, 101}} AspectRatio -> Automatic Make a copy of g2, and then hack it to crop the image. I am dropping the last pixel in each row, and also the last row of the image. I am doing this from memory, so if this prescription doesn't get rid of the white space then modify it appropriately. g3 = g2; g3[[1,1]] = Drop[Map[Drop[#,-1]&,g2[[1,1]]],-1]; g3[[1,2,2]] = g3[[1,2,2]] - {1, 1}; g3[[2]] = g3[[2]] /. {x_, y_} -> {x - 1, y - 1}; g3[[3]] = g3[[3]] /. {{x1_, y1_}, {x2_, y2_}} -> {{x1, y1 - 1}, {x2, y2 - 1}}; Show[g3] Have a look at the contents of g3. Dimensions[g3[[1,1]]] g3[[1,2]] g3[[1,3]] g3[[1,4]] g3[[2]] g3[[3]] g3[[4]] {100, 100, 3} {{0, 0}, {100, 100}} {0, 255} ColorFunction -> RGBColor ImageSize -> {100, 100} PlotRange -> {{0, 99}, {1, 100}} AspectRatio -> Automatic That should do what you want. Steve Luttrell "Jan G. Korvink" <korvink at t-online.de> wrote in message news:cvrqg4$p55$1 at smc.vnet.net... > Dear All, > > I am battling to obtain a "precise" Raster[] of some Graphics[] objects. > There seems to be no straightforward way to do the conversion, so I tried: > > Export[ /tmp/myfile, Graphics[myGraphics], ImageSize -> {xmax,ymax} > myBitsPerUnit ] > g = Import[ /tmp/myfile ] > > from which I can unpack the Raster[]. Unfortunately the Raster[] > contains extra white space around the object, and no matter what I > select for "myfile" (I have tried all bitmap formats) I get a > consistently bad result. Furthermore, the Export/Import route is pretty > bad, since it is slow for large pictures. > > What works is to use Adobe Illustrator as the rendering engine. But this > is not nice! > > I do not want to implement a renderer, unless absolutely necessary, and > it seems silly since Mathematica has such an animal. > > Can anyone suggest an alternative route? > > Thanks in advance, Jan >