File: SVFancyRays.mesa
Author: Eric Bier on July 3, 1983 12:33 pm
Copyright © 1984 by Xerox Corporation. All rights reserved.
Last edited by Bier on June 1, 1987 10:45:26 am PDT
Contents: Procedures implementing shadows (reflections and transparency to come).
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.