Re: Convert to bitmap

*To*: mathgroup at smc.vnet.net*Subject*: [mg18066] Re: Convert to bitmap*From*: paulh (P.J. Hinton)*Date*: Tue, 15 Jun 1999 01:43:26 -0400*Delivery-date*: Tue Jun 15 07:14:06 1999*Organization*: Wolfram Research, Inc.*References*: <7juaus$56s@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

In article <7juaus$56s at smc.vnet.net>, Clara <cnoemia at ccg.uc.pt> writes: > How can convert this graphics: > Needs["Graphics`ContourPlot3D`"] > > f[x_,y_,z_]= x+y-3z-4; > g[x_,y_,z_]= x^2+y^2-z^2; > > g1=ContourPlot3D[f[x,y,z],{x,-4,3},{y,-4,3},{z,-4,3}, > PlotPoints->2, Boxed->False,DisplayFunction->Identity]; > > g2=ContourPlot3D[g[x,y,z],{x,-3,3},{y,-3,3},{z,-3,3}, > PlotPoints->5, Boxed->False,SphericalRegion->False, > FaceGrids->None,DisplayFunction-> Identity]; > > g3= Show[g1,Graphics3D[{FaceForm[ > SurfaceColor[RGBColor[0.502,1.000,1.000]]], > Cases[g2,_Polygon,Infinity]}],DisplayFunction->$DisplayFunction] > > > to bmp By "bmp," I am assuming that you are wanting to generate Windows Device Independent Bitmaps. If you are using Mathematica 3.0 or later under Microsoft Windows, you can simply select a graphic (the contents within the cell, not the bracket of the cell containing the graphic) and perform the following menu command sequence. Edit -> Save Selection As -> Bitmap (BMP) If you are running under Unix, and you have the PBMPlus or netPBM toolkits installed, you can do something like this. Display["!ppmtobmp > graphic_file.bmp", g3, "PBM"] Mathematica 4 users can use: Export["graphic_file.bmp", g3, "BMP"] regardless of platform. -- P.J. Hinton Mathematica Programming Group paulh at wolfram.com Wolfram Research, Inc. Disclaimer: Opinions expressed herein are those of the author alone.