<> <> <> <> <> <> <<>> DIRECTORY GGModelTypes, GGInterfaceTypes, Imager; GGSceneType: CEDAR DEFINITIONS = BEGIN Slice: TYPE = GGModelTypes.Slice; FeatureCycler: TYPE = GGInterfaceTypes.FeatureCycler; SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor; SceneObj: TYPE = RECORD [ ptrValid: BOOL _ FALSE, -- TRUE when ptr accurately points to end of entities ptr: LIST OF Slice _ NIL, -- finger pointer to end of entities list entities: LIST OF Slice _ NIL, -- a list of slices oldEntities: LIST OF LIST OF Slice _ NIL, -- lists of slices. Used by Undelete. selected: SelectedData, savedSelected: SelectedData, -- needed to recover from Abort operations prioritiesValid: BOOL, -- TRUE if no top level entities have been added or deleted since priorities were last updated, Bier, March 10, 1987 currentColor: Imager.Color, -- used by GGParseImpl to read sampled colors from Interpress lock: ATOM _ $NotLocked ]; SelectedData: TYPE = RECORD [ normal: LIST OF SliceDescriptor _ NIL, -- a list of selected SliceDescriptors normalPtr: LIST OF SliceDescriptor _ NIL, -- finger pointer to end of normal normalPtrValid: BOOL _ FALSE, -- TRUE when normalPtr accurately points to end of normal normalLast: SliceDescriptor _ NIL, -- the last parts that were normal selected hot: LIST OF SliceDescriptor _ NIL, -- a list of hot SliceDescriptors hotPtr: LIST OF SliceDescriptor _ NIL, -- finger pointer to end of hot hotPtrValid: BOOL _ FALSE, -- TRUE when hotPtr accurately points to end of normal active: LIST OF SliceDescriptor _ NIL, -- a list of active SliceDescriptors activePtr: LIST OF SliceDescriptor _ NIL, -- finger pointer to end of active activePtrValid: BOOL _ FALSE, -- TRUE when activePtr accurately points to end of normal match: LIST OF SliceDescriptor _ NIL, -- a list of match SliceDescriptors matchPtr: LIST OF SliceDescriptor _ NIL, -- finger pointer to end of match matchPtrValid: BOOL _ FALSE, -- TRUE when matchPtr accurately points to end of match, featureCycler: FeatureCycler ]; END.