MathGroup Archive 1999

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

Search the Archive

Re: combining surface graphics

  • To: mathgroup at
  • Subject: [mg15537] Re: [mg15402] combining surface graphics
  • From: jtischer at (Cl-Jurgen Tischer)
  • Date: Tue, 26 Jan 1999 13:44:26 -0500 (EST)
  • Organization: Universidad del Valle
  • References: <>
  • Sender: owner-wri-mathgroup at

not exactly what you asked for: If you change your graphic to
Graphics3D, you can Prepend SurfaceColor to color the polygons at will.
There will still be illumination but that shouldn't spoil it. By way of

In[1]:= gr = Graphics3D[Plot3D[Sin[x*y], {x, -1, 1}, {y, -1, 1}]]

Out[1]= -Graphics3D-

In[2]:= gr1 = MapAt[Prepend[#1, SurfaceColor[Hue[0]]] & , gr, 1]

Out[2]= -Graphics3D-

In[3]:= gr2 = Plot3D[x*y^2, {x, -1, 1}, {y, -1, 1}]

Out[3]= -SurfaceGraphics-

In[4]:= Show[gr1, gr2]

Out[4]= -Graphics3D-


swarwick at wrote:
> I am interested in generating a combined surface graphics plot in which
> one function is illuminated with light sources, and the other is
> plotted in the same 3D volume with a fixed color.  I have tried
> everything I know regarding Show, Graphics3D, DisplayTogether, Ambient,
> Lightsource.. etc.  and can't seem to get any other result than the
> second plot specified in show is the same color representation as the
> first.  Is there any way of converting the -SurfaceGraphics- object to
> a set of polygons ( with color fixed ) such that Show stops messing
> with the illumination?????
> thanks,
> sulking in seattle
> sdw
> -----------== Posted via Deja News, The Discussion Network ==----------
>       Search, Read, Discuss, or Start Your Own

  • Prev by Date: Re: Non linear diff eq
  • Next by Date: Comparison of Mathematica on Various Computers
  • Previous by thread: combining surface graphics
  • Next by thread: Re: combining surface graphics