Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1996

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

Search the Archive

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

                               :-)  (-:
-------------------------------------------------------------------------




  • Prev by Date: Minimum computer configuration to run Mathematica (Win95)
  • Next by Date: Apple purchase of NeXT
  • Previous by thread: lighten plots
  • Next by thread: Re: lighten plots