Re: Change the Color of Graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg17417] Re: Change the Color of Graphics
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 6 May 1999 02:44:24 -0400
- Organization: Universitaet Leipzig
- References: <7gdrvn$ovd@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Clara,
you mean that you what use SurfaceColor[]. The ColorOutput option is
useless
anyway. PolygonIntersections is by default True and the returned (!)
Graphics3D
object has unbroken Polygons[]. The arguments of RGBColor[] must be in
the range
from 0.<=c<=1. and not a 8 bit color code.
Coloring one of the surfaces is obtained by
Show[g1,Graphics3D[{SurfaceColor[RGBColor[0,1,1]],
Cases[g2,_Polygon,Infinity]}],DisplayFunction->$DisplayFunction]
Hope that helps
Jens
Clara wrote:
>
> I have this Graphic:
>
> Needs["Graphics`ContourPlot3D`"]
>
> f[x_,y_,z_]= 3x+2y+z;
> g[x_,y_,z_]= x^2+y^2-z^2;
> g1=ContourPlot3D[f[x,y,z],{x,-2,2},{y,-2,2},{z,-2,2},
> PlotPoints->2, Boxed->False,DisplayFunction->Identity];
> g2=ContourPlot3D[g[x,y,z],{x,-2,2},{y,-2,2},{z,-2,2},
> PlotPoints->5, Boxed->False,ColorOutput-> RGBColor[0,255,255],
> DisplayFunction->Identity];
> Show[g1,g2,PolygonIntersections->True,DisplayFunction->$DisplayFunction]
>
> I want the visualize the intersection. I need the change the color of
> the Graphics. Put the color more clear.