Re: 3DGraphics color problem
- To: mathgroup at smc.vnet.net
- Subject: [mg13237] Re: 3DGraphics color problem
- From: weber at math.uni-bonn.de (Matthias Weber)
- Date: Fri, 17 Jul 1998 03:17:36 -0400
- Organization: RHRZ - University of Bonn (Germany)
- References: <6oct4m$ha9@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <6oct4m$ha9 at smc.vnet.net>, robpetersonSPAMME at iname.com wrote: > I have been doing some 3D plots, like Plot3D and I find that the > surfaces are plotted in various colors. These colors make a great mess > when copied or faxed. I have been trying for some time to find the > option which will drop all of this color and simply do a black/white > gridded surface which will fax nicely. I've tried Lighting, > ColorFunction, DefaultColor, and a bunch of others and all I can > achieve is to make the surface completely black -- which is worse. Can > some kind soul give me a hint of what to do to get rid of all that > damned color and/or black and white shading which kills plots? > > Thanks, Rob Try BlackAndWhite[GrayLevel[gr_]]:=GrayLevel[0]; BlackAndWhite[RGBColor[r_,g_,b_]]:=GrayLevel[1]; and then use ParametricPlot[..., ColorOutput->BlackAndWhite] or Plot3D[..., ColorOutput->BlackAndWhite] Matthias