Re: lighten plots
- To: mathgroup at smc.vnet.net
- Subject: [mg5607] Re: [mg5579] lighten plots
- From: b5hafa at rz.uni-jena.de (Fabian Haas)
- Date: Fri, 27 Dec 1996 23:43:38 -0500
- Sender: owner-wri-mathgroup at wolfram.com
>Dear Mathgroupies: >The following code creates a matrix of plots representing a vibrating >square membrane. The numerical output is great, but I need to lighten up >the plots for print. I tried different schemes, but after a few hours, I >got nowhere near where I wanted to be. If I changed the ViewPoint option, >I could lighten the plot, but not display the plots as needed. Any help >would be appreciated. > > For[k =3D 0, k < 5, k++ , > {Share[], > t =3D k Pi/4, > m =3D Table[ > Table[ Sin[2 x] Sin[2 y] Cos[t], > {y,0,Pi,Pi/50}] > {x,0,Pi,Pi/50}], > ListPlot3D[m, PlotRange -> {-1,1}, > Boxed -> False, > ColorOutput -> GrayLevel, > AspectRatio -> 1.5, > ViewPoint -> {2.787, 1.067, 1.595}]} >] =20 > >Yours truly, >Jeff Copes Hi Jeff, Lightstuff is not quite easy with Mma. Play around with=20 Lighting->True, LightSources -> {{{1., 0., 1.}, RGBColor[1, 0, 0]},=20 {{1., 1., 1.}, RGBColor[0, 1, 0]},=20 {{0., 1., 1.}, RGBColor[0, 0, 1]}}, and Lighting->False AmbientLight->GrayLevel[0.0], =20 and check for details of the commands in the Handbook. However you can= greatly influence the brightness of your image: setting all RGBColors to= [0,0,0] will result in a completely black image. Cheers and Happy New Year =46abian ------------------------------------------------------------------------- Dipl.Biol. Fabian Haas, MPhil Institut f=FCr Spezielle Zoologie und Evolutionsbiologie Erbertstr. 1 D-07743 Jena Deutschland / Germany :-) (-: -------------------------------------------------------------------------