Mathematica 9 is now available

Documentation / Mathematica / Demos / Graphics Gallery / Color Charts /

Effect of surface color on a Klein bottle

SurfaceColor[RGBColor[1, .5, 0.5]]



LightSources -> {{{1, 0, 1}, RGBColor[1, 0, 0]},

{{-0.2, 0.9, 1}, RGBColor[0, 1, 0]},

{{-0.2, -0.9, 1}, RGBColor[0, 0, 1]}}

SurfaceColor[RGBColor[0, 1, 0]]



LightSources -> {{{1, 0, 1}, RGBColor[1, 0, 0]},

{{1, 1, 1}, RGBColor[0, 1, 0]},

{{0, 1, 1}, RGBColor[0, 0, 1]}}


SurfaceColor[RGBColor[0,0,1]]



LightSources -> {{{1, 0, 1}, RGBColor[1, 0, 0]},

{{1, 1, 1}, RGBColor[0, 1, 0]},

{{0, 1, 1}, RGBColor[0, 0, 1]}}

SurfaceColor[RGBColor[0.5, 0.5, 1]]



LightSources -> {{{1, 0, 1}, RGBColor[1, 0, 0]},

{{-0.2, 0.9, 1}, RGBColor[0, 1, 0]},

{{-0.2, -0.9, 1}, RGBColor[0, 0, 1]}}

SurfaceColor[GrayLevel[0],GrayLevel[1],5]



LightSources -> {{{0, 0, 1}, RGBColor[1, 0, 0]},

{{1, 0, 0.3}, RGBColor[0, 1, 0]},

{{-1, 0, 0.3}, RGBColor[0, 1, 0]},

{{0, 1, 0.3}, RGBColor[0, 0, 1]}}

SurfaceColor[GrayLevel[0],GrayLevel[1],3]



LightSources -> {{{2, 3, 4},RGBColor[1, 0, 0]},

{{1, -5, 6},RGBColor[0, 1, 0]},

{{2, 6, -12},RGBColor[0, 0, 1]}}

SurfaceColor[GrayLevel[0],RGBColor[0.25, 1, 0.25],3]



LightSources -> {{{2, 3, 4}, RGBColor[1, 0, 0]},

{{1, -5, 6}, RGBColor[0, 1, 0]},

{{2, 6, -12}, RGBColor[0, 0, 1]}}


SurfaceColor[GrayLevel[0],RGBColor[0.33, 1, 0.33], 3]



LightSources -> {{{0, 0, 1}, RGBColor[1, 0, 0]},

{{1, 0, 0.3}, RGBColor[0, 1, 0]},

{{-1, 0, 0.3}, RGBColor[0, 1, 0]},

{{0, 1, 0.3}, RGBColor[0, 0, 1]}}

polygons colored with Hue[h]

no edges shown

polygons colored with GrayLevel[0.7],

edges colored with Hue[h]

polygons colored with RGBColor[1,0,0] or RGBColor[0,0,1]

edges colored with GrayLevel[1]

polygons colored with Hue[h]

no edges shown



Any questions about topics on this page? Click here to get an individual response.Buy NowMore Information
THIS IS DOCUMENTATION FOR AN OBSOLETE PRODUCT.
SEE THE DOCUMENTATION CENTER FOR THE LATEST INFORMATION.