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