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 March 1, 1987 6:59:01 pm PST
Contents: Procedures implementing shadows (reflections and transparency to come).
DIRECTORY
AtomButtonsTypes, IO, SV3d, SVModelTypes, SVRayTypes;
SVFancyRays: CEDAR DEFINITIONS =
BEGIN
CSGTree: TYPE = SVRayTypes.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.