
DIRECTORY G3dBasic, G3dLight, G3dRender, G3dShape;

G3dShade: CEDAR DEFINITIONS
~ BEGIN
Triple:					TYPE ~ G3dBasic.Triple;
Light:						TYPE ~ G3dLight.Light;
LightSequence:			TYPE ~ G3dLight.LightSequence;
RGB:						TYPE ~ G3dRender.RGB;
Shape:					TYPE ~ G3dShape.Shape;
Ambient: PROC [normal: Triple, data: REF ¬ NIL] RETURNS [ambient: RGB];
TotalSurfaceIntensity: PROC [
normal, eyeView: Triple, lights: LightSequence, portionSpecular: REAL]
RETURNS [REAL];

SurfaceIntensity: PUBLIC PROC [light: Light, normal, eyeView: Triple, portionSpecular: REAL]
RETURNS [REAL];

SpecularIntensity: PROC [light: Light, normal, eyeView: Triple] RETURNS [REAL];

DiffuseIntensity: PROC [light: Light, normal: Triple] RETURNS [REAL];

END.


    
G3dShade.mesa
Copyright Ó 1985, 1989, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 15, 1992 10:42 pm PDT
Crow, May 16, 1989 2:59:13 pm PDT
Types
Ambient Light
Return the ambient light given the surface normal.  Who knows what data means?
Shading
Compute the surface intensity (summed over all the lights) given the surface normal.
Does not test for the surface being in shadow.
Return the surface intensity.
Compute the intensity of the specular component.
Compute the intensity of the diffuse component.
Ê§  •NewlineDelimiter
–"cedarcode" style™ ™Jšœ
Ïeœ=™HJ™'Jšœ!™!J˜ JšÏk	œ)˜2J˜ —šÑblnœžœž˜Jšœž˜—headšÏl™Jšœžœ˜#Jšœžœ˜"Jšœžœ˜/Jšžœžœžœ˜Jšœžœ˜!—š ™šÏnœžœžœžœžœ
žœ˜GJ™N——š ™š¡œžœ˜JšœAžœ˜FJšžœžœ˜J™TJ™.J˜ —š¡œžœžœ:žœ˜\Jšžœžœ˜J™J˜ —š¡œžœ(žœžœ˜OJ™0J˜ —š¡œžœžœžœ˜EJ™/—J˜ —šžœ˜J˜ —J˜ J˜ — …—    Þ  ›  