<<>> <> <> <> <> <> <> DIRECTORY G3dBasic, G3dLight, G3dShade, G3dVector, G3dRender; G3dShadeImpl: CEDAR MONITOR IMPORTS G3dLight, G3dVector EXPORTS G3dShade ~ BEGIN <> Light: TYPE ~ G3dLight.Light; LightSequence: TYPE ~ G3dLight.LightSequence; RGB: TYPE ~ G3dRender.RGB; Triple: TYPE ~ G3dBasic.Triple; <> TotalSurfaceIntensity: PUBLIC PROC [ normal, eyeView: Triple, lights: LightSequence, portionSpecular: REAL] RETURNS [i: REAL Ź 0.0] ~ { portionDiffuse: REAL Ź 1.0-portionSpecular; IF lights # NIL THEN FOR n: NAT IN [0..lights.length) DO nDotE, nDotH, nDotL, specular: REAL; l: Light Ź lights[n]; [nDotE, nDotH, nDotL] Ź G3dLight.LightDots[l, normal, eyeView]; specular Ź G3dLight.SpecularFromDots[l, nDotE, nDotH, nDotL]; i Ź i+portionSpecular*specular+portionDiffuse*MAX[0.0, nDotL]; ENDLOOP; }; SurfaceIntensity: PUBLIC PROC [light: Light, normal, eyeView: Triple, portionSpecular: REAL] RETURNS [REAL] ~ { nDotE, nDotH, nDotL, specular: REAL; [nDotE, nDotH, nDotL] Ź G3dLight.LightDots[light, normal, eyeView]; specular Ź G3dLight.SpecularFromDots[light, nDotE, nDotH, nDotL]; RETURN[portionSpecular*specular+(1.0-portionSpecular)*MAX[0.0, nDotL]]; }; SpecularIntensity: PUBLIC PROC [light: Light, normal, eyeView: Triple] RETURNS [REAL] ~ { nDotE, nDotH, nDotL: REAL; [nDotE, nDotH, nDotL] Ź G3dLight.LightDots[light, normal, eyeView]; RETURN[G3dLight.SpecularFromDots[light, nDotE, nDotH, nDotL]]; }; DiffuseIntensity: PUBLIC PROC [light: Light, normal: Triple] RETURNS [REAL] ~ { RETURN[MAX[0, G3dVector.Dot[normal, light.direction]]]; }; <> Ambient: PUBLIC PROC [normal: Triple, data: REF Ź NIL] RETURNS [ambient: RGB] ~ { <> IF data = NIL THEN RETURN[[.2, .2, .2]]; WITH data SELECT FROM clr: REF RGB => ambient Ź clr; dir: REF Triple => { direction: Triple Ź dir; dotNL: REAL Ź G3dVector.Dot[ G3dVector.Unit[direction], G3dVector.Unit[ normal ] ]; dotNL Ź (dotNL + 1.0) / 2.0; -- range ambient light over shadowed portions too ambient.R Ź ambient.G Ź ambient.B Ź dotNL; }; ENDCASE => ambient Ź [.2, .2, .2]; }; <> END. .. ShadeVtx: PUBLIC G3dRender.CtlPtInfoProc ~ { <> <> shadingClass: REF ShadingClass Ź NARROW[data]; shapeClr: RGB Ź IF shadingClass # NIL THEN shadingClass.color ELSE defaultWhite; shapeTrans: REAL Ź IF shadingClass # NIL THEN shadingClass.transmittance ELSE 0.0; kDiffuse: REAL Ź IF shadingClass # NIL THEN shadingClass.diffuseReflectivity ELSE 1.0; kSpecular: REAL Ź IF shadingClass # NIL THEN shadingClass.specularReflectivity ELSE 1.0; metallicity: REAL Ź IF shadingClass # NIL THEN shadingClass.metallicity ELSE 0.0; shininess: REAL Ź IF shadingClass # NIL THEN shadingClass.shininess ELSE 0.0; shinyPwr: NAT Ź Real.Round[shininess]; partShiny: REAL Ź 1.0; toLightSrc, toEye: Triple; dotNL, dotNE, sumHilite: REAL Ź 0.0; ambient, diffuse, specular, result: RGB Ź [0.0, 0.0, 0.0]; vtxClr: RGB Ź [vtx.shade.r * shapeClr.R, vtx.shade.g * shapeClr.G, vtx.shade.b * shapeClr.B]; toEye Ź G3dVector.Unit[[-vtx.coord.ex, -vtx.coord.ey, -vtx.coord.ez]]; -- direction to eye [ [vtx.shade.exn, vtx.shade.eyn, vtx.shade.ezn] ] Ź G3dVector.Unit[ [vtx.shade.exn, vtx.shade.eyn, vtx.shade.ezn] -- often not unitd ]; <> ambient Ź Ambient[[vtx.shade.exn, vtx.shade.eyn, vtx.shade.ezn], context3d.environment]; ambient.R Ź ambient.R * vtxClr.R; ambient.G Ź ambient.G * vtxClr.G; ambient.B Ź ambient.B * vtxClr.B; IF context3d.lightSources # NIL THEN FOR i: NAT IN [0..context3d.lightSources.length) DO <> light: Light Ź context3d.lightSources[i]; vtxCoord: Triple Ź [vtx.coord.ex, vtx.coord.ey, vtx.coord.ez]; lightClr: RGB Ź light.lightProc[light, vtxCoord]; center: Triple Ź light.eyePosition; <> toLightSrc Ź G3dVector.Unit[G3dVector.Sub[center, vtxCoord]]; <> dotNL Ź G3dVector.Dot[toLightSrc, [vtx.shade.exn, vtx.shade.eyn, vtx.shade.ezn]]; IF dotNL <= 0. THEN LOOP; -- surface faces away from light, skip diffuse.R Ź (1. - ambient.R) * dotNL * lightClr.R * vtxClr.R; -- surface facing the light diffuse.G Ź (1. - ambient.G) * dotNL * lightClr.G * vtxClr.G; diffuse.B Ź (1. - ambient.B) * dotNL * lightClr.B * vtxClr.B; <> IF vtx.data # NIL THEN WITH vtx.data SELECT FROM -- extract partial shinyness ptShiny: REF REAL => partShiny Ź ptShiny; ENDCASE; IF shinyPwr > 0 AND partShiny > 0.0 THEN { -- compute Phong specular component pctHilite: REAL Ź 0.0; halfWay: Triple Ź G3dVector.Unit[ -- unitd average of vectors G3dVector.Mul[ G3dVector.Add[toEye, toLightSrc], 0.5 ] ]; dotNormHalfWay: REAL Ź G3dVector.Dot[ -- cos angle betw. normal and average [vtx.shade.exn, vtx.shade.eyn, vtx.shade.ezn], halfWay ]; IF dotNormHalfWay > 0. THEN { binaryCount: NAT Ź shinyPwr; pctHilite Ź partShiny; WHILE binaryCount > 0 DO -- compute power by repeated squares IF (binaryCount MOD 2) = 1 THEN pctHilite Ź pctHilite*dotNormHalfWay; dotNormHalfWay Ź dotNormHalfWay*dotNormHalfWay; binaryCount Ź binaryCount/2; ENDLOOP; IF pctHilite < 0.0 OR pctHilite > 1.0 THEN SIGNAL G3dRender.Error[$MisMatch, "Highlight error"]; }; <> specular.R Ź (1.0 - diffuse.R - ambient.R) * pctHilite * lightClr.R; specular.G Ź (1.0 - diffuse.G - ambient.G) * pctHilite * lightClr.G; specular.B Ź (1.0 - diffuse.B - ambient.B) * pctHilite * lightClr.B; sumHilite Ź sumHilite + pctHilite; }; <> result.R Ź result.R + (kDiffuse * diffuse.R) + (kSpecular * specular.R); result.G Ź result.G + (kDiffuse * diffuse.G) + (kSpecular * specular.G); result.B Ź result.B + (kDiffuse * diffuse.B) + (kSpecular * specular.B); ENDLOOP; -- end loop for each light source result.R Ź result.R + ambient.R; -- add in ambient light result.G Ź result.G + ambient.G; result.B Ź result.B + ambient.B; vtx.shade.er Ź MAX[0.0, MIN[result.R, 1.]]; vtx.shade.eg Ź MAX[0.0, MIN[result.G, 1.]]; vtx.shade.eb Ź MAX[0.0, MIN[result.B, 1.]]; IF shapeTrans > 0.0 THEN { -- compute transmittance if transparent <> dotNE Ź G3dVector.Dot[toEye, [vtx.shade.exn, vtx.shade.eyn, vtx.shade.ezn]]; dotNE Ź 1.0 - ABS[dotNE]; dotNE Ź 1.0 - (dotNE * dotNE); -- invert, square, invert vtx.shade.et Ź dotNE * vtx.shade.t * shapeTrans; -- Transmittance as seen from eyepoint vtx.shade.et Ź MIN[1.0 - sumHilite, vtx.shade.et]; -- make highlights more opaque vtx.shade.et Ź MAX[0.0, MIN[vtx.shade.et, 1.]]; } ELSE vtx.shade.et Ź 0.0; RETURN[vtx]; };