RE: SpericalPlot3D in Gray?

*To*: mathgroup at smc.vnet.net*Subject*: [mg72120] RE: [mg72073] SpericalPlot3D in Gray?*From*: "David Park" <djmp at earthlink.net>*Date*: Wed, 13 Dec 2006 06:38:54 -0500 (EST)

Thomas, You could do it the following way... SphericalPlot3D[ {(theta/2 - Pi/2)^2, {SurfaceColor[GrayLevel[0.7]], EdgeForm[GrayLevel[0.5]]}}, {theta, 0, Pi}, {phi, 0, 2Pi}, PlotPoints -> {54, 34}, LightSources -> {{{1.`, 0.`, 1.`}, GrayLevel[0.5]}, {{1.`, 1.`, 1.`}, GrayLevel[0.5]}, {{0.`, 1.`, 1.`}, GrayLevel[0.5]}}, Axes -> False, BoxStyle -> Gray, ImageSize -> 350]; Instead of a simple radial function you use a list where the first item is the radial function and the second item is color directives for the surface. The color directives could be functions of phi and theta. But to show the surface color properly you have to use neutral colors for the light sources. Another way to do this is with the DrawGraphics package from my web site below. Here, if the surface color is uniform, it can be placed before the SphericalDraw3D statement. NeutralLighting[saturation, brightness, ambient] is an easier DrawGraphics command that allows you to control the light sources. (It also allows the lights to be rotated about the z axis.) In both of the plots I also used EdgeForm so that the 'mesh' lines were only a slightly darker shade of the surface color. Subdued edges generally look better than black edges. Needs["DrawGraphics`DrawingMaster`"] Draw3DItems[ {SurfaceColor[GrayLevel[0.7]], EdgeForm[GrayLevel[0.5]], SphericalDraw3D[ (theta/2 - Pi/2)^2, {theta, 0, Pi}, {phi, 0, 2Pi}, PlotPoints -> {54, 34}]}, NeutralLighting[0.0, 0.5, 0.1], BoxStyle -> Gray, ImageSize -> 300]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Thomas Rausch [mailto:thomas.rausch at lehrer.uni-karlsruhe.de] Hi, is there a Possibility to show figures with SpericalPlot3D in gray-shades? Thanks