MathGroup Archive 2011

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

Search the Archive

Problem with "Point" light sources in Mathematica 7.01

  • To: mathgroup at smc.vnet.net
  • Subject: [mg118512] Problem with "Point" light sources in Mathematica 7.01
  • From: Alexey <lehin.p at gmail.com>
  • Date: Sat, 30 Apr 2011 05:53:12 -0400 (EDT)

Hello,

I tried to reproduce the default styling of Plot3D of Mathematica 5 in
Mathematica 7.01 and faced unexpected seemingly wrong behavior of "Point"
light sources in version 7.

Consider the following:

v5Style = {{"Ambient", GrayLevel[0]}, {"Point", RGBColor[{1, 0., 0.}],
    ImageScaled[{2, 0, 2}]}, {"Point", RGBColor[{0., 1, 0.}],
    ImageScaled[{2, 2, 2}]}, {"Point", RGBColor[{0., 0., 1}],
    ImageScaled[{0, 2, 2}]}};
Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, Pi}, Lighting -> v5Style, Mesh ->
20]

The plot generated by the above code is too dark. And the surface colors
does not change when rotating the plot. It means that the "Point" light
sources are fixed in the coordinate system and rotate with the plot.

With "Directional" light sources the problem disappears but it is not the
default lighting style of Mathematica 5:

new = {{"Ambient", GrayLevel[0]}, {"Directional",
    RGBColor[{1, 0., 0.}], ImageScaled[{2, 0, 2}]}, {"Directional",
    RGBColor[{0., 1, 0.}], ImageScaled[{2, 2, 2}]}, {"Directional",
    RGBColor[{0., 0., 1}], ImageScaled[{0, 2, 2}]}};
Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, Pi}, Lighting -> new, Mesh -> 20]

It seems that in the case of "Point" light sources we get wrong  light
directions. Is there a way to avoid this?

Alexey


  • Prev by Date: thoughts on how to explain this functionality?
  • Next by Date: Re: Solve / Reduce isolating results.
  • Previous by thread: thoughts on how to explain this functionality?
  • Next by thread: Re: Problem with "Point" light sources in Mathematica 7.01