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

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