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