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 August 5, 1984 1:07:37 pm PDT
Contents: Procedures implementing shadows (reflections and transparency to come).
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.