Re: Convert to bitmap
- To: mathgroup at smc.vnet.net
- Subject: [mg18051] Re: [mg18015] Convert to bitmap
- From: Jean-Marie Thomas <jmthomas at agat.net>
- Date: Tue, 15 Jun 1999 01:43:15 -0400
- Delivery-date: Tue Jun 15 08:17:11 1999
- Organization: TeA
- References: <199906121952.PAA05650@smc.vnet.net.>
- Sender: owner-wri-mathgroup at wolfram.com
Use the FrontEnd :
Select the cell containing the graphics,
go to the menu "Cell/Convert to" and select BMP
You can then copy the cell and paste it in any drawing program that accepts BMP.
Hope this helps,
On Sat, 12 Jun 1999, Clara wrote:
> 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