DIRECTORY G3dBasic, G3dLight, G3dRender, G3dShape;G3dShade: CEDAR DEFINITIONS~ BEGINRGB:						TYPE ~ G3dRender.RGB;Pair:						TYPE ~ G3dBasic.Pair;Triple:					TYPE ~ G3dBasic.Triple;Light:						TYPE ~ G3dLight.Light;LightSequence:			TYPE ~ G3dLight.LightSequence;CtlPtToRealSeqProc:		TYPE ~ G3dRender.CtlPtToRealSeqProc;CtlPtInfoProc:			TYPE ~ G3dRender.CtlPtInfoProc;SpotProc:					TYPE ~ G3dRender.SpotProc;Context:					TYPE ~ G3dRender.Context;ShadingClass:			TYPE ~ G3dRender.ShadingClass; Shape:					TYPE ~ G3dShape.Shape;RegisterShadingClass: PROC [class: ShadingClass, type: ATOM];GetShadingClass: PROC [type: ATOM] RETURNS [class: ShadingClass];LoadShadingClass: PUBLIC PROC [shape: Shape, type: ATOM _ $Default];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];ShadeVtx: G3dRender.CtlPtInfoProc;NoShadeVtx: G3dRender.CtlPtInfoProc;END.   ~  G3dShade.mesaCopyright Ó 1985, 1989 by Xerox Corporation.  All rights reserved.Bloomenthal, May 17, 1989 6:47:24 pm PDTCrow, May 16, 1989 2:59:13 pm PDTTypesClasses RegistrationAdd class to list of registered ShadingClasses, for fancy texturing procs, etc.Retrieve registered class for use or modification.Put ShadingClass in shape record.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.Vertex ShadingCalculate shade at vertices of polygon.PROC [context: Context, vtx: VertexInfo, data: REF ANY _ NIL ] RETURNS[VertexInfo]Calculate shade at vertices of polygon.ÊZ  ˜ ™J™BJšœ(™(Icodešœ!™!J˜ JšÏk	œ)˜2J˜ —šÑblnœœ˜Jšœ˜—headšÏl™Jšœœœ˜Jšœœ˜ Jšœœ˜#Jšœœ˜"Jšœœ˜/Jšœœ ˜9Jšœœ˜0Jšœœ˜(Jšœœ˜&Jšœœ˜/Jšœœ˜!—šÐbl™šÏnœœœ˜=J™P—š¡œœœœ˜AJ™3—š¡œœœœ˜DJ™!——šŸ™š¡œœœœœ
œ˜GJ™N——šŸ™š¡œœ˜JšœAœ˜FJšœœ˜J™TJ™.J˜ —š¡œœœ:œ˜\Jšœœ˜J™J˜ —š¡œœ(œœ˜OJ™0J˜ —š¡œœœœ˜EJ™/——š ™defaultš¡œ˜"Ia™'M˜ —š¡
œ˜$Mš
œ+œœœœ™RN™'——J˜ šœ˜J˜ —J˜ J˜ — …—    ú  
Ò  