DIRECTORY GGBasicTypes, GGGravity, GGInterfaceTypes, GGModelTypes; GGAlign: CEDAR DEFINITIONS = BEGIN Caret: TYPE = GGInterfaceTypes.Caret; FeatureData: TYPE = GGGravity.FeatureData; Filters: TYPE = GGInterfaceTypes.Filters; GGData: TYPE = GGInterfaceTypes.GGData; Line: TYPE = GGBasicTypes.Line; AlignBag: TYPE = GGGravity.AlignBag; Outline: TYPE = GGModelTypes.Outline; OutlineDescriptor: TYPE = GGModelTypes.OutlineDescriptor; Point: TYPE = GGBasicTypes.Point; Scene: TYPE = GGModelTypes.Scene; SelectionClass: TYPE = GGInterfaceTypes.SelectionClass; Sequence: TYPE = GGModelTypes.Sequence; Slice: TYPE = GGModelTypes.Slice; SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor; Traj: TYPE = GGModelTypes.Traj; TrajEnd: TYPE = GGModelTypes.TrajEnd; TriggerBag: TYPE = REF TriggerBagObj; TriggerBagObj: TYPE = GGInterfaceTypes.TriggerBagObj; Vector: TYPE = GGBasicTypes.Vector; FilterOutlineProc: TYPE = PROC [outlineD: OutlineDescriptor, scene: Scene] RETURNS [stationary: OutlineDescriptor]; FilterSliceProc: TYPE = PROC [sliceD: SliceDescriptor, scene: Scene] RETURNS [stationary: SliceDescriptor]; emptyTriggerBag: TriggerBag; CreateTriggerBag: PROC [] RETURNS [triggerBag: TriggerBag]; FlushTriggerBag: PROC [triggerBag: TriggerBag]; CopyTriggerBag: PROC [triggerBag: TriggerBag] RETURNS [copy: TriggerBag]; emptyAlignBag: AlignBag; -- an (immutable) empty object bag. CreateAlignBag: PROC [] RETURNS [objectBag: AlignBag]; FlushAlignBag: PROC [objectBag: AlignBag]; FillStaticTriggerBag: PROC [anchor: Caret, scene: Scene, heuristics: BOOL, triggerBag: TriggerBag]; FillDynamicTriggerBag: PROC [anchor: Caret, scene: Scene, heuristics: BOOL, triggerBag: TriggerBag]; FillStaticSceneBag: PROC [scene: Scene, sceneBag: TriggerBag]; FillDynamicSceneBag: PROC [scene: Scene, sceneBag: TriggerBag]; FillStaticAlignBag: PROC [triggerBag: TriggerBag, sceneBag: TriggerBag, filters: Filters, hideAlignments: BOOL, midpoints: BOOL, alignBag: AlignBag]; FillDynamicAlignBag: PROC [triggerBag: TriggerBag, sceneBag: TriggerBag, filters: Filters, hideAlignments: BOOL, midpoints: BOOL, action: ATOM, alignBag: AlignBag]; SetStaticBags: PROC [ggData: GGData]; SetDynamicBags: PROC [ggData: GGData, action: ATOM]; StaticToDynamicBags: PROC [ggData: GGData] RETURNS [repaintForeground: BOOL]; DynamicToStaticBags: PROC [ggData: GGData] RETURNS [repaintForeground: BOOL]; UpdateBagsForAdd: PROC [oldOutline: Outline, newOutline: Outline, trajEnd: TrajEnd, ggData: GGData] RETURNS [repaintForeground: BOOL]; UpdateBagsForNewSlices: PROC [newSlices: LIST OF Slice, ggData: GGData]; UpdateBagsForDelete: PROC [oldOutline: Outline, ggData: GGData] RETURNS [repaintForeground: BOOL]; BuiltInFilters: PROC [triggerBag: TriggerBag, filters: Filters, hideAlignments: BOOL, alignBag: AlignBag]; AddAllMidpoints: PROC [sceneBag: TriggerBag, midpoints: BOOL, alignBag: AlignBag]; CreateAnchorTrigger: PUBLIC PROC [anchor: Caret, triggerBag: TriggerBag] RETURNS [feature: FeatureData]; AddHotSlice: PROC [sliceD: SliceDescriptor, triggerBag: TriggerBag] RETURNS [feature: FeatureData]; RemoveMovingSlice: PROC [sliceD: SliceDescriptor, scene: Scene] RETURNS [stationary: OutlineDescriptor]; IncrementalFilters: PROC [trigger: FeatureData, filters: Filters, hideAlignments: BOOL, alignBag: AlignBag] RETURNS [alignObjects: LIST OF FeatureData]; IncrementalFilterSlice: PROC [sliceD: SliceDescriptor, filters: Filters, hideAlignments: BOOL, alignBag: AlignBag] RETURNS [alignObjects: LIST OF FeatureData]; IncrementalFilterOutline: PROC [outlineD: OutlineDescriptor, filters: Filters, hideAlignments: BOOL, alignBag: AlignBag] RETURNS [alignObjects: LIST OF FeatureData]; IncrementalMidpointsOutline: PROC [outlineD: OutlineDescriptor, midpoints: BOOL, alignBag: AlignBag]; RemoveAnchorTrigger: PUBLIC PROC [triggerBag: TriggerBag]; RemoveEntireHotSlice: PROC [slice: Slice, triggerBag: TriggerBag] RETURNS [oldSliceD: SliceDescriptor]; RemoveHotSlice: PROC [sliceD: SliceDescriptor, triggerBag: TriggerBag]; RemoveMentionSlice: PROC [slice: Slice, alignBag: AlignBag]; END. GGAlign.mesa Contents: Allows the client to build a set of trigger objects (joints, segments, and control points) which can be sent through a GGGravity filter to create a set alignment objects. Pier, May 13, 1987 2:41:22 pm PDT Bier, April 6, 1987 9:35:53 pm PDT [Artwork node; type 'ArtworkInterpress on' to command tool] Creating a TriggerBag Use this as an (immutable) empty TriggerBag. Allocates a new empty TriggerBag. Takes an old TriggerBag and makes it empty. Allocates a copy of triggerBag. The copy shares featureDatas with the original but has freshly allocated LIST structures. Creating an AlignBag Filling the Trigger Bag Filling the SceneBag Filling the Align Bag Filling all of the Bags at Once The Filter Routines shown in the figure as boxes and ovals AddAnchorTrigger: PROC [anchor: Caret, triggerBag: TriggerBag]; -- private AddAllHotOutlines: PROC [scene: Scene, triggerBag: TriggerBag]; -- private AddAllHotSlices: PROC [scene: Scene, triggerBag: TriggerBag]; -- private AddHeuristics: PROC [scene: Scene, heuristics: BOOL, atom: ATOM, triggerBag: TriggerBag]; -- private RemoveMoving: PROC [scene: Scene, triggerBag: TriggerBag]; -- private Incremental Addition versions of the Filter Routines shown in the figure as boxes and ovals. Just like AddAnchorTrigger except it returns the feature in addition to adding it to the triggerBag. AddHotOutline: PROC [outlineD: OutlineDescriptor, triggerBag: TriggerBag] RETURNS [feature: FeatureData]; Add outlineD to triggerBag and return the new feature which represents outlineD. Add slice to triggerBag and return the new feature which represents slice. HeuristicsOutline: PROC [outline: Outline, heuristics: BOOL] RETURNS [honoraryTrigger: OutlineDescriptor]; -- private RemoveMovingOutline: PROC [outlineD: OutlineDescriptor, scene: Scene] RETURNS [stationary: OutlineDescriptor]; Returns those part of outline that are in outlineD but are not moving. Returns those part of slice that are in sliceD but are not moving. Incremental Deletion versions of the Filter Routines shown in the figure as boxes and ovals. RemoveEntireHotOutline: PROC [outline: Outline, triggerBag: TriggerBag] RETURNS [oldD: OutlineDescriptor]; RemoveHotOutline: PROC [outlineD: OutlineDescriptor, triggerBag: TriggerBag]; RemoveMentionOutline: PROC [outline: Outline, alignBag: AlignBag]; Removes all alignment objects and midpoints that were triggered (only) by this outline. Removes mention of this outline from those alignment objects that are trigger by other triggers as well. Removes all alignment objects and midpoints that were triggered (only) by this slice. Removes mention of this slice from those alignment objects that are trigger by other triggers as well. Icode K!K"k J88KK  KK%K *K )K'KK $K %K"9K!K!K#7K 'K!K 5KK %K %K"5K#K-!sK)kI artworkFigureG91.02716 mm topLeading 91.02716 mm topIndent 1.411111 mm bottomLeading Bounds:0.0 mm xmin 0.0 mm ymin 178.1528 mm xmax 88.20494 mm ymax Artwork Interpress Interpress+Interpress/Xerox/3.0 fjkj=ApCrjb٠rjIXerox TiogaFonts Helvetica10 Hot Scene Objectskrju Xerox TiogaFonts Helvetica10  HeuristicskrjO򠢠xerox tiogafontsMath12 UkrjeBeXeXXXBBeBkrjjSXerox TiogaFonts Helvetica10  Scene ObjectskrjBXX_X_X_B_BBki![;_D@o q|#;#xwFSF>oL3O&E[!ccpL=[kZPa#8Re*K*;1;μGXSYqQIU]em@SOR.AOOQ q&%j@X irj)Xerox TiogaFonts Helvetica10 Triggerkrj?~Xerox TiogaFonts Helvetica10 Bagkpe#p.#prj;;Y Jww JwY J;; JkBYB.Ye7tyCam;oJM?́yc;-~Q9a#Z71xqE61!mە{i>V;`8L5J_*!yj;v,_.SԮqe5BS]c㡒SA)u6Aƨyv|7JXc[6_Woe7tyCrjUXerox TiogaFonts Helvetica10 TriggerkrjkXerox TiogaFonts Helvetica10 BagkMBM uuMrjPXerox TiogaFonts Helvetica10 Filtersk Ǚ ݡǡ rjϠXerox TiogaFonts Helvetica10  Not MovingkYWݗWǙWitA_De8 l|J#PKFSF L3O>#T/ccpʿp[kPaM]Rex?%.C1;EGXS*KQw@;emIORF3$OO<s&%&jN( irjA #4@;Xerox TiogaFonts Helvetica10 BagkrjwXerox TiogaFonts Helvetica10 AlignkrjBXX9X9X9B9BBkrjSXerox TiogaFonts Helvetica10  Scene ObjectskǙݡ.9.ǡ⎡rjϠXerox TiogaFonts Helvetica10  Not Movingk!iUA_DJ8 |mQ#fGKFSF L3O-#=/ccpp[kPa]ReZ?%.bC1;hEGXSt!KQZ;emoIOR4$OOs&%cj;w( !irjV?~Xerox TiogaFonts Helvetica10 BagkBݗǙ$!rjXerox TiogaFonts Helvetica10 Scenekrj****krjXerox TiogaFonts Helvetica10 AnchorkYtyC~An!8JMч́yQ-K9a#w 1xD#[=/mp{%!V;x]L5f?!y(Cv+>.SKe5B=;c㡒IA)K$ƨys|7J* [6T(otyCrj~?Xerox TiogaFonts Helvetica10 Bagkrj/Xerox TiogaFonts Helvetica10 Scenek ȎrjXerox TiogaFonts Helvetica10  MidpointskrjԠxerox tiogafontsMath12 Ukrjٙ J J J JkO-s=O d1^A a藘ʙ# 藘rj#Xerox TiogaFonts Helvetica10 Gravitykrj'Xerox TiogaFonts Helvetica10 Activekwkwkkgn==KKK,,;K!!/K++IKzzKKKKc#K&?KKKR K R  KKK %K4KKMKMKOK HK'bKK:K4JK3JK3HK %dK 3EK<jK#RKK\)hKdd 7iKPP 3cKJJK  ' u-!nKFF)!hKBBKK :K =K AK*eKK\K:K,jK7MK(gK3G(BK$