Author: Eric Bier on July 3, 1983 12:33 pm

Last edited by Bier on August 2, 1983 5:15 pm

Contents: Procedures implementing shadows (reflections and transparency to come).

DIRECTORY

SVFancyRays: DEFINITIONS =

BEGIN

CSGTree: TYPE = CSG.CSGTree;

LightSourceList: TYPE = Shading.LightSourceList;

Point3d: TYPE = Matrix3d.Point3d;

VisibleLights: PROC [allLights: LightSourceList, surfacePoint: Point3d, tree: CSGTree, makeStream: BOOL ← FALSE, f: IO.STREAM ← NIL, indent: NAT ← 0] RETURNS [visibleLights: LightSourceList];

END.