DIRECTORYMusicDefs USING [NotePTR, NoteValue, ScorePTR, SelectionPTR, Time];Selection: CEDAR DEFINITIONS= BEGIN OPEN MusicDefs;selection: SelectionPTR;AddGreyLine: PROC[score: ScorePTR, time1, time2: Time];AddLine: PROC[score: ScorePTR, time1, time2: Time];AddNote: PROC[score: ScorePTR, n: NotePTR]; -- use clear to clear current selectionClear: PROC;Draw: PROC;RemoveNote: PROC[n: NotePTR];Enumerate: PROC[proc: PROC[ScorePTR, NotePTR]];ClearBeam: PROC;ClearChord: PROC;ClearSync: PROC; -- may raise Piece.OverflowClearTie: PROC;Delete: PROC;HideNTuplets: PROC[invisible: BOOL];MakeBeam: PROC[beamed: BOOL _ TRUE];MakeBeamOfBeams: PROC[beamed: BOOL _ TRUE];MakeChord: PROC;MakeNTuplet: PROC[n, a: INTEGER];MakeNTupletOfBeams: PROC[n, a: INTEGER];MakeSync: PROC;MakeTie: PROC;SetGrace: PROC[grace: BOOL];SetNoteValue: PROC[v: NoteValue, dots: INTEGER];SetRest: PROC[rest: BOOL];SetStaff: PROC[staff: CARDINAL];SetStem: PROC[stemUp: BOOL];Transpose: PROC[halfsteps: INTEGER];Includes: PROC[n: NotePTR] RETURNS[BOOL];END.   ä  Selection.mesaCopyright (C) 1981, 1983, 1984 Xerox Corporation. All rights reserved.Author: John Maxwelllast modified: November 9, 1981  9:07 AMLast Edited by: Maxwell, November 21, 1983 9:19 amLast Edited by: Doug Wyatt, June 14, 1984 6:33:22 pm PDT****************************************************************************procedures that take the current selection as an implicit parameter****************************************************************************ÊV  ˜ šœ™JšœF™FJšœ™Jšœ(™(Jšœ2™2Jšœ8™8—J˜ šÏk	˜	Jšœ
œ4˜CJ˜ —Jšœœ˜Jšœœœ˜J˜ J˜J˜ JšÏnœœ&˜7Jšžœœ&˜3JšžœœÏc'˜SJšžœœ˜Jšžœœ˜Jšž
œœ˜Jšž	œœœ˜/J˜ JšœL™LJšœC™CJšœL™LJ˜ Jšž	œœ˜Jšž
œœ˜Jšž	œœŸ˜,Jšžœœ˜Jšžœœ˜Jšžœœœ˜$Jšžœœ	œœ˜$Jšžœœ	œœ˜+Jšž	œœ˜Jšžœœœ˜!Jšžœœœ˜(Jšžœœ˜Jšžœœ˜Jšžœœœ˜Jšžœœœ˜0Jšžœœœ˜Jšžœœœ˜ Jšžœœ	œ˜Jšž	œœœ˜$J˜ šžœœœœ˜)J˜ —Jšœ˜J˜ — …—    (  b  