MathGroup Archive 2005

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

Search the Archive

Re: 3D plots in different colors

  • To: mathgroup at
  • Subject: [mg61697] Re: [mg61552] 3D plots in different colors
  • From: "Jose Luis Gomez" <jose.luis.gomez at>
  • Date: Wed, 26 Oct 2005 01:01:56 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

Hello Felix:

<< Graphics`SurfaceOfRevolution`;
s1 = Show[Graphics3D[SurfaceColor[RGBColor[1, 0, 0.5]]], 
        SurfaceOfRevolution[x^2, {x, 0, 2}]];
s2 = Show[Graphics3D[SurfaceColor[RGBColor[0.0, 0.0, 0.9]]], 
        SurfaceOfRevolution[x^2, {x, 2, 2.5}]];
Show[s1, s2]
I hope that helps
Jose Luis

-----Mensaje original-----
De: Felix Campelo [mailto:felixcampelo at] 
Enviado el: Viernes, 21 de Octubre de 2005 11:36 p.m.
Para: mathgroup at
Asunto: [mg61552] 3D plots in different colors

I want to make a 3dplot with the command SurfaceOfRevolution, such
that, for instance, for z<0 the surface looks green, and for z>0 it
looks blue (with the usual shadows). I tried plotting themn separately
and changing the light source, but when I do Show[plot1,plot2],
everything is in the same color...

  • Prev by Date: Re: notebook directory
  • Next by Date: Re: Complex numbers in Mathematica
  • Previous by thread: 3D plots in different colors
  • Next by thread: Baffling change to partial derivative in version 5.1