<> <> <> <> <> DIRECTORY IO, SV3d, SVModelTypes, SVRayTypes; SVFancyRays: DEFINITIONS = BEGIN CSGTree: TYPE = SVRayTypes.CSGTree; LightSourceList: TYPE = SVModelTypes.LightSourceList; Point3d: TYPE = SV3d.Point3d; VisibleLights: PROC [allLights: LightSourceList, surfacePoint: Point3d, tree: CSGTree, useBoundSpheres: BOOL, makeStream: BOOL _ FALSE, f: IO.STREAM _ NIL, indent: NAT _ 0] RETURNS [visibleLights: LightSourceList]; END.