MathGroup Archive 2005

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

Search the Archive

Re: 3D plots in different colors

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

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
http://homepage.cem.itesm.mx/lgomez/

-----Mensaje original-----
De: Felix Campelo [mailto:felixcampelo at gmail.com] 
Enviado el: Viernes, 21 de Octubre de 2005 11:36 p.m.
Para: mathgroup at smc.vnet.net
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