Coloring Surfaces
- To: mathgroup at smc.vnet.net
- Subject: [mg9806] Coloring Surfaces
- From: eanog at TURING.UNICAMP.BR
- Date: Fri, 28 Nov 1997 05:35:18 -0500
- Sender: owner-wri-mathgroup at wolfram.com
Hello
I want to combine 2 different surfaces with different colors
(I am using Show and SurfaceOfRevolution), like this:
s1=SurfaceOfRevolution[a^2,{a,3,5},
AspectRatio->1,PlotRange->{{-5,5},{-2,5},{0,25}},
Axes->False,Boxed->False,
LightSources->
{{{0,0,1},RGBColor[0,1,1]},
{{1,0,0.4},RGBColor[.7,0,0.8]},
{{0,1,0.4},RGBColor[0,1,0.8]}}]
s2=SurfaceOfRevolution[a^2+4,{a,3,5},
AspectRatio->1,PlotRange->{{-5,5},{-2,5},{0,25}},
Axes->False,Boxed->False,
LightSources->
{{{0,0,1},RGBColor[1,1,0]},
{{1,0,0.4},RGBColor[.8,0,0.8]},
{{0,1,0.4},RGBColor[0,1,0.8]}}]
but when I combine them with
Show[s1,s2]
the surfaces come up with just one color. Any help will be very
appreciated.
Thanks in advance.
ean
--
Eduardo A. Nogueira
Cardiac Catheterization Laboratory
Universidade de Campinas
Campinas, Sao Paulo
Brazil eanog at turing.unicamp.br