<> <> <> <> <> <> <<>> DIRECTORY GGBasicTypes, GGInterfaceTypes, GGModelTypes, GGSegmentTypes, GGObjects; GGSelect: CEDAR DEFINITIONS = BEGIN BoundBox: TYPE = GGBasicTypes.BoundBox; Caret: TYPE = GGInterfaceTypes.Caret; EntityGenerator: TYPE = GGModelTypes.EntityGenerator; Outline: TYPE = GGModelTypes.Outline; OutlineDescriptor: TYPE = GGModelTypes.OutlineDescriptor; Scene: TYPE = GGModelTypes.Scene; SelectionClass: TYPE = GGSegmentTypes.SelectionClass; Sequence: TYPE = GGModelTypes.Sequence; SequenceGenerator: TYPE = GGModelTypes.SequenceGenerator; Slice: TYPE = GGModelTypes.Slice; SliceParts: TYPE = GGModelTypes.SliceParts; SliceGenerator: TYPE = GGModelTypes.SliceGenerator; SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor; SliceDescriptorGenerator: TYPE = GGModelTypes.SliceDescriptorGenerator; Traj: TYPE = GGModelTypes.Traj; TrajEnd: TYPE = GGModelTypes.TrajEnd; TrajGenerator: TYPE = GGModelTypes.TrajGenerator; <> SelectAll: PROC [scene: Scene, selectClass: SelectionClass]; SelectOutline: PROC [outline: Outline, parts: SliceParts, scene: Scene, selectClass: SelectionClass]; SelectEntireOutline: PROC [outline: Outline, scene: Scene, selectClass: SelectionClass]; <> SelectSlice: PROC [slice: Slice, parts: SliceParts, scene: Scene, selectClass: SelectionClass]; SelectEntireSlice: PROC [slice: Slice, scene: Scene, selectClass: SelectionClass]; SelectTraj: PROC [traj: Traj, scene: Scene, selectClass: SelectionClass]; <> SelectSequence: PROC [seq: Sequence, scene: Scene, selectClass: SelectionClass]; <> ReselectTraj: PROC [traj: Traj, trajEnd: TrajEnd, scene: Scene, extend: BOOL]; DeselectAllAllClasses: PROC [scene: Scene]; DeselectAll: PROC [scene: Scene, selectClass: SelectionClass]; DeselectEntity: PROC [entity: REF ANY, scene: Scene, selectClass: SelectionClass]; DeselectEntityAllClasses: PROC [entity: REF ANY, scene: Scene]; DeselectOutline: PROC [outline: Outline, parts: SliceParts, scene: Scene, selectClass: SelectionClass]; DeselectEntireOutline: PROC [outline: Outline, scene: Scene, selectClass: SelectionClass]; DeselectTraj: PROC [traj: Traj, scene: Scene, selectClass: SelectionClass]; <> DeselectSequence: PROC [seq: Sequence, scene: Scene, selectClass: SelectionClass]; <> DeselectSlice: PROC [slice: Slice, parts: SliceParts, scene: Scene, selectClass: SelectionClass]; <> <<>> <> <> <> <> <<>> <> <> <<>> <> IsSelectedInFull: PROC [entity: REF ANY, scene: Scene, selectClass: SelectionClass] RETURNS [BOOL]; <> IsSelectedInPart: PROC [entity: REF ANY, scene: Scene, selectClass: SelectionClass] RETURNS [BOOL]; <> <<1) entity is a slice. Some outline is selected all or in part.>> <<2) entity is an outline. Some trajectory is selected all or in part.>> <<3) entity is a trajectory. Some joint or segment is selected.>> <<4) entity is a sequence. Some joint or segment is selected>> NoSelections: PROC [scene: Scene, selectClass: SelectionClass] RETURNS [BOOL]; <> ListSelectedDescendants: PROC [entity: REF ANY, scene: Scene, selectClass: SelectionClass] RETURNS [components: LIST OF REF ANY]; FindSelectedSequence: PROC [traj: Traj, scene: Scene, selectClass: SelectionClass] RETURNS [seq: Sequence]; <> ListSelected: PUBLIC PROC [scene: Scene, selectClass: SelectionClass] RETURNS [selectedList: LIST OF REF ANY]; FindSequenceInList: PUBLIC PROC [traj: Traj, selectedList: LIST OF REF ANY] RETURNS [seq: Sequence]; FindSelectedOutline: PROC [outline: Outline, scene: Scene, selectClass: SelectionClass] RETURNS [outlineD: OutlineDescriptor]; <> FindSelectedSlice: PROC [slice: Slice, scene: Scene, selectClass: SelectionClass] RETURNS [sliceD: SliceDescriptor]; <> SelectedStuff: PROC [scene: Scene, selectClass: SelectionClass] RETURNS [selectedGen: EntityGenerator]; <> SelectedSequences: PROC [scene: Scene, selectClass: SelectionClass] RETURNS [seqGen: SequenceGenerator]; SelectedOutlines: PROC [scene: Scene, selectClass: SelectionClass] RETURNS [outDGen: GGModelTypes.OutlineDescriptorGenerator]; SelectedSlices: PROC [scene: Scene, selectClass: SelectionClass] RETURNS [sliceDescGen: SliceDescriptorGenerator]; NextSliceDescriptor: PROC [g: SliceDescriptorGenerator] RETURNS [next: SliceDescriptor]; NextOutlineDescriptor: PROC [g: GGModelTypes.OutlineDescriptorGenerator] RETURNS [next: OutlineDescriptor]; DeletedFromSelection: PROC [scene: Scene, selectClass: SelectionClass] RETURNS [deleted: EntityGenerator]; <> OutlineSequenceGenerator: TYPE = REF OutlineSequenceGeneratorObj; OutlineSequenceGeneratorObj: TYPE = RECORD [ list: LIST OF OutlineSequence ]; OutlineSequence: TYPE = REF OutlineSequenceObj; OutlineSequenceObj: TYPE = RECORD [ outline: Outline, -- the outline represented by this record fenceSeq: Sequence, -- included parts of the fence trajectory holeSeqs: SequenceGenerator -- included parts of holes ]; SelectedOutlineSequences: PROC [scene: Scene, selectClass: SelectionClass] RETURNS [outSeqGen: OutlineSequenceGenerator]; <> NextOutlineSequences: PROC [outSeqGen: OutlineSequenceGenerator] RETURNS [outSeq: OutlineSequence]; RunProc: TYPE = PROC [run: Sequence] RETURNS [traj: Traj]; ForEachOutlineRun: PROC [scene: Scene, caret: Caret, selectClass: SelectionClass, runProc: RunProc, segmentsOnly: BOOL _ TRUE, selectNewRuns: BOOL _ FALSE] RETURNS [bBox: BoundBox]; <> SubstituteForSegment: PROC [traj: Traj, segNum: NAT, newRun: Traj, scene: Scene] RETURNS [bBox: BoundBox, newTraj: Traj]; <> END.