<> <> <> <> DIRECTORY CSG, IO, Matrix3d, Shading; 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.