This is documentation for Mathematica 5, which was
based on an earlier version of the Wolfram Language.

 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