MathGroup Archive 1999

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: RE: Binomial eq..using FindRoot. Bug?
  • Next by Date: Re: Implicit Surface Equation
  • Previous by thread: Re: Convert to bitmap
  • Next by thread: Re: Convert to bitmap