DIRECTORYGraphicsColor,Rope,SV2d,SV3d,SVModelTypes;SVRayTypes: DEFINITIONS =BEGINArtwork: TYPE = SVModelTypes.Artwork;BoundBox: TYPE = SVModelTypes.BoundBox;BoundHedron: TYPE = SVModelTypes.BoundHedron;BoundSphere: TYPE = SVModelTypes.BoundSphere;Color: TYPE = GraphicsColor.Color;CoordSystem: TYPE = SVModelTypes.CoordSystem;Matrix4by4: TYPE = SV3d.Matrix4by4;Point2d: TYPE = SV2d.Point2d;Vector: TYPE = SV3d.Vector;RayCastProc: TYPE = PROC [cameraPoint: Point2d, localRay: Ray, masterObject: REF ANY, prim: Primitive] RETURNS [class: Classification];RayCastNoBBoxesProc: TYPE = PROC [localRay: Ray, masterObject: REF ANY, prim: Primitive] RETURNS [class: Classification];RayCastBoundingSpheresProc: TYPE = PROC [localRay: Ray, masterObject: REF ANY, prim: Primitive] RETURNS [class: Classification];Surface: TYPE = REF ANY; -- may be RectSurface, TubeSurface, DiskSurface, ShellSurface...Classification: TYPE = REF ClassificationObj;ClassificationObj: TYPE = RECORD [count: NAT,params: ParameterArray,surfaces: SurfaceArray,primitives: PrimitiveArray,-- the primitive from which each surface cameclassifs: InOutArray,normals: NormalArray];maxSceneDepth: NAT = 40;ParameterArray: TYPE = ARRAY [1..maxSceneDepth] OF REAL;InOutArray: TYPE = ARRAY [1..maxSceneDepth] OF BOOL;NormalArray: TYPE = ARRAY [1..maxSceneDepth] OF Vector;SurfaceArray: TYPE = REF SurfaceArrayObj;SurfaceArrayObj: TYPE = ARRAY [1..maxSceneDepth] OF Surface;PrimitiveArray: TYPE = ARRAY [1..maxSceneDepth] OF Primitive;Primitive: TYPE = REF PrimitiveObj;PrimitiveObj: TYPE = RECORD [name: Rope.ROPE,artwork: Artwork,assembly: REF ANY, -- a DisplayList3d.Assembly.  REF ANY avoids compilation dependencies.mo: REF ANY, -- should be MasterObject but oh the compilation dependencies!rayCast: RayCastProc,rayCastNoBBoxes: RayCastNoBBoxesProc,rayCastBoundingSpheres: RayCastBoundingSpheresProc,primWRTAssembly: CoordSystem,scalars: Vector,worldWRTPrim: Matrix4by4,primWRTWorld: Matrix4by4,hints: REF ANY, -- each object type may wish to store helpful information hereboundBox: BoundBox,boundSphere: BoundSphere,boundHedron: BoundHedron,inverted: BOOL, -- is this shape to be subtracted?currentRay: Ray,rayStepX: Ray];Ray: TYPE = REF RayObj;RayObj: TYPE; -- see CSGImpl for the read recordPointSetOp: TYPE = {union, intersection, difference};Composite: TYPE = REF CompositeObj;CompositeObj: TYPE = RECORD [name: Rope.ROPE,operation: PointSetOp,leftSolid: REF ANY,rightSolid: REF ANY,boundBox: BoundBox,boundSphere: BoundSphere];CSGTree: TYPE = REF CSGTreeObj;CSGTreeObj: TYPE = RECORD [name: Rope.ROPE,son: REF ANY,backgroundColor: Color,shadows: BOOL];END.  ,  File: SVRayTypes.mesaCreated July 29, 1984 3:16:53 pm PDTCopyright c 1984 by Xerox Corporation.  All rights reserved.Last edited by Bier on July 29, 1984 3:28:12 pm PDTTypes of Ray casting procedures.Remember to update DisplayListToTree.PrimitiveFromAssembly if this definition changes. Э╩▀  Ш IheadЩJЩ$JЪЬ
╧mЬ1Щ<JЩ3JЩ Ъ╧k	Ш	JЪЬШJЪЬШJШJШJШJШ ЧJЪЬЮЬШJЪЮШJШ IprocЪЬ	ЮЬШ%LЪЬ
ЮЬШ'LЪЬЮЬШ-LЪЬЮЬШ-LЪЬЮЬШ"LЪЬЮЬШ-LЪЬЮЬШ#LЪЬ	ЮЬШLЪЬЮЬШLШ LЩ LШ LЪ╧nЬЮЬЮЬ5ЮЬЮЬЮЬШЗLЪЯЬЮЬЮЬЮЬЮЬЮЬШyLЪЯЬЮЬЮЬЮЬЮЬЮЬШАLШ LЪЬ	ЮЬЮЬЮЬ╧cAШYLЪЬЮЬЮЬШ-ЪЬЮЬЮЬШ"LЪЬЮЬШLЪЬШLЪЬШLЪЬа-ШHLЪЬШLЪЬШLШ LЪЬЮЬШLЪ	ЬЮЬЮЬЮЬЮЬШ8LЪ	ЬЮЬЮЬЮЬЮЬШ4LЪЬЮЬЮЬЮЬШ7LЪЬЮЬЮЬШ)LЪЬЮЬЮЬЮЬ	Ш<LЪЬЮЬЮЬЮЬШ=Ш LЪЬVЩVЧЧLЪЬЮЬЮЬШ#ЪЬЮЬЮЬШLЪЬЮЬШLЪЬШLЪЬ
ЮЬЮЬаFШYLЪЬЮЬЮЬа>ШKLЪЬШLШ%LЪЬ3Ш3LЪЬШLЪЬШLЪЬШLЪЬШLЪЬЮЬЮЬа>ШNLЪЬШLШLЪЬШLЪЬ
ЮЬа"Ш2LЪЬШЪЬШLШ ЧЧJЪЬЮЬЮЬШJЪЬЮЬа"Ш0JШ LЪЬЮЬ%Ш5LШ LЪЬЮЬЮЬШ#ЪЬЮЬЮЬШLЪЬЮЬШLЪЬШLЪЬЮЬЮЬШLЪЬЮЬЮЬШLЪЬШLЪЬШЧLШ LЪЬ	ЮЬЮЬШЪЬЮЬЮЬШLЪЬЮЬШLЪЬЮЬЮЬШLЪЬШLЪЬ	ЮЬШLШ ЧЪЮЬШLШ LШ ЧJШ Ч ЕЧ    
Ш  г  