DIRECTORY DisplayList3d, Rope, Shading; DisplayList3dPrivate: DEFINITIONS = BEGIN Scene: TYPE = REF SceneObj; SceneObj: TYPE = DisplayList3d.SceneObj; Assembly: TYPE = REF AssemblyObj; AssemblyObj: TYPE = DisplayList3d.AssemblyObj; AssemblyList: TYPE = REF AssemblyListObj; AssemblyListObj: TYPE = DisplayList3d.AssemblyListObj; LightSourceList: TYPE = Shading.LightSourceList; -- LIST OF LightSource; LightSource: TYPE = REF LightSourceObj; LightSourceObj: TYPE = Shading.LightSourceObj; MasterObject: TYPE = REF MasterObjectRec; MasterObjectRec: TYPE = DisplayList3d.MasterObjectRec; MasterObjectList: TYPE = LIST OF MasterObject; TemporaryRemoveFromAssemblyList: PROC [a: Assembly, al: AssemblyList, scene: Scene] RETURNS [newAl: AssemblyList, success: BOOL]; FindMasterObjectAndNeighborsFromName: PROC [moName: Rope.ROPE, moList: MasterObjectList] RETURNS [beforeMo, mo, afterMo: MasterObjectList, found: BOOL]; FindLightSourceAndNeighborsFromName: PROC [lsName: Rope.ROPE, lsList: LightSourceList] RETURNS [beforeLS, ls, afterLS: LightSourceList]; LightSourceNotFound: SIGNAL; AppendToMasterObjects: PROC [mo: MasterObject, list: MasterObjectList] RETURNS [MasterObjectList]; RemoveDuplicateMOs: PROC [moList: MasterObjectList] RETURNS [uniqueList: MasterObjectList]; MoListMinusMoList: PROC [moList1, moList2: MasterObjectList] RETURNS [moList1MinusmoList2: MasterObjectList]; CopyMasterObjectList: PROC [moList: MasterObjectList] RETURNS [copy: MasterObjectList]; END. ΪFile: DisplayList3dPrivate.mesa Author: Eric Bier on August 6, 1983 3:04 pm Last edited by Bier on August 6, 1983 3:39 pm Contents: List Auxiliaries for use by DisplayList3d Procedures DisplayList Types Databases, Scenes, Assemblies, and Lightsources Master Object Types Delete Parts of the Scene Tree In DisplayList3dImplB.mesa Find Scene Entities from their Names List Append Auxiliaries For the Add Procedures Other List Auxiliaries In DisplayList3dImplB.mesa ΚE˜Ihead™J™+J™-J™?šΟk ˜ J˜J˜Jšœ ˜ —Jšœ œ˜$Jš˜head1– "Cedar" stylešœ™head2– "Cedar" stylešœ/™/J– "Cedar" stylešœœœ ˜Jšœ œ˜(Jšœ œœ ˜!Jšœ œ˜.Jšœœœ˜)Jšœœ!˜6J– "Cedar" stylešœœΟc˜HJšœ œœ˜'Jšœœ˜.—– "Cedar" stylešœ™J– "Cedar" stylešœœœ˜)Jšœœ!˜6Jšœœœœ˜.——šœ™Iproc™NšΟnœœ/œ œ˜—šœ$™$Nš Ÿ$œœœœ2œ˜™NšŸ#œœœœ+˜‰Nšœœ˜—šœ.™.NšŸœœ,œ˜b—™J™JšŸœœœŸ˜\JšŸœœ&œ*˜nJšŸœœœ˜X—šœ˜L™——…—Μ λ