Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

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


  • Prev by Date: Re: Derivatives D[ ] as Functions: Summary (LONGISH)
  • Next by Date: Re: Integrate Bug?
  • Previous by thread: Re: 3DGraphics color problem
  • Next by thread: Re: 3DGraphics color problem