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