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

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