MathGroup Archive 1999

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

Search the Archive

Re: 3d Custom Color Output

  • To: mathgroup at
  • Subject: [mg17254] Re: 3d Custom Color Output
  • From: Jens-Peer Kuska <kuska at>
  • Date: Fri, 30 Apr 1999 02:34:41 -0400
  • Organization: Universitaet Leipzig
  • References: <7g0r1g$>
  • Sender: owner-wri-mathgroup at

Hi Christian,

here is the solution with out a color average


SaveUV[_,_] serves only as a dummy. It creates no error message because
the graphic is not converted to PostScript. The result is something like


in the second step the SaveUV[] structure is converted to a valid
color directive and you can display it without any problem:
Define a discontinuous color function like


and convert the SaveUV[]'s to colors with

Show[gr /. SaveUV[u_,v_]:>

Hope that helps

Christian Exner wrote:
> Hi!
> I am trying to get a Color Output of a 3D Plot with my own Colors
> defined, but Mathematica always interpolates the Color Fields I defined.
> I am using Mathematica 3.0 for PC. And I am using
> ParametricPlot[{fx[u,t],fy[u,t],fz[u,t],MyColor[u,t]},
> {u,0,2 Pi},{z,0,zmax},Lighting->False]
> to create the graphic, with MyColor to assing a color to every polygon.
> I have also tried FaceForm[MyColor[u,t]] but it does not work either.
> If my surface changes color from red to yellow, for instance,
> Mathematica always interpolates one stripe to become orange. MyColor has
> no orange defined (I am using constant colors in MyColor, such as
> RGBColor[1,0,0] )
> How can I find solution to this problem
> Every suggestion is welcomed after I spend a week now over this
> problem!!
> Thanx in advance
> Christian

  • Prev by Date: Re: directory and file structure
  • Next by Date: Re: Polar vector field plot
  • Previous by thread: 3d Custom Color Output
  • Next by thread: Protected element error