Re: combining surface graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg15567] Re: [mg15402] combining surface graphics
- From: "S warwick" <swarwick at my-dejanews.com>
- Date: Tue, 26 Jan 1999 13:44:45 -0500 (EST)
- Organization: Deja News Mail (http://www.my-dejanews.com:80)
- Sender: owner-wri-mathgroup at wolfram.com
Superb solution!! thanks
sdw
--
On Sun, 17 Jan 1999 18:27:15 Cl-Jurgen Tischer wrote:
>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
>
>
>
-----== Sent via Deja News, The Discussion Network ==-----
http://www.dejanews.com/ Easy access to 50,000+ discussion forums