Re: Convert to bitmap
- To: mathgroup at smc.vnet.net
- Subject: [mg18084] Re: Convert to bitmap
- From: "Neal E. Tornberg" <neal.e.tornberg at boeing.com>
- Date: Thu, 17 Jun 1999 12:26:29 -0400
- Delivery-date: Thu Jun 17 17:35:18 1999
- Organization: Boeing
- References: <7juaus$56s@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
By using the front-end menus to Edit/Copy as/bitmap
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
--
Neal E. Tornberg
neal.e.tornberg at boeing.com
Nobody here thinks I speak for Boeing.
You shouldn't either.