Re: combining surface graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg15537] Re: [mg15402] combining surface graphics
- From: jtischer at col2.telecom.com.co (Cl-Jurgen Tischer)
- Date: Tue, 26 Jan 1999 13:44:26 -0500 (EST)
- Organization: Universidad del Valle
- References: <199901140157.UAA02588@smc.vnet.net.>
- Sender: owner-wri-mathgroup at wolfram.com
sdw,
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
example:
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-
Jurgen
swarwick at my-dejanews.com 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 ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
- References:
- combining surface graphics
- From: swarwick@my-dejanews.com
- combining surface graphics