MathGroup Archive 1998

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

Search the Archive

Re: 3DGraphics color problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg13268] Re: 3DGraphics color problem
  • From: "Allan Hayes" <hay at haystack.demon.cc.uk>
  • Date: Fri, 17 Jul 1998 03:17:59 -0400
  • References: <6oct4m$ha9@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

robpetersonSPAMME at iname.com wrote in message <6oct4m$ha9 at smc.vnet.net>...
>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
>

Bob:

Plot3D[Sin[x+Sin[y]],{x,0,2Pi},{y,0,2Pi}, Shading->False] (*white with
grid lines*)


Plot3D[Sin[x+Sin[y]],{x,0,2Pi},{y,0,2Pi},
 HiddenSurface ->False] (*gives wire frame*)


ParametricPlot3D[{x,y,Sin[x+Sin[y]]},{x,0,2Pi},{y,0,2Pi},
Shading->False] (*white with grid lines*)


<<Graphics`Shapes`

ParametricPlot3D[{x,y,Sin[x+Sin[y]]},{x,0,2Pi},{y,0,2Pi}]

Show[WireFrame[%]] (*wire frame*)


------------------------------------------------------------- Allan
Hayes
Training and Consulting
Leicester UK
http://www.haystack.demon.co.uk
hay at haystack.demon.co.uk
voice: +44 (0)116 271 4198
fax: +44(0)116 271 8642



  • Prev by Date: Re: Integrate Bug?
  • Next by Date: Re: Can it be done - easily?
  • Previous by thread: Re: 3DGraphics color problem
  • Next by thread: Re: 3DGraphics color problem