This is documentation for Mathematica 5, which was
based on an earlier version of the Wolfram Language.
View current documentation (Version 11.2)

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