DIRECTORY Graphics, MusicDefs; Selection: CEDAR DEFINITIONS = BEGIN OPEN MusicDefs; AddGreyLine: PROC[time1, time2: Time]; AddLine: PROC[time1, time2: Time]; AddNote: PROC[n: NotePTR]; -- use clear to clear current selection Clear: PROC; Draw: PROC; RemoveNote: PROC[n: NotePTR]; Includes: PROC[n: NotePTR] RETURNS[BOOL]; ClearBeam: PROC; ClearChord: PROC; ClearSync: PROC; 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]; END. ¦Selection.mesa Copyright (C) 1981, 1984 Xerox Corporation. All rights reserved. Author: John Maxwell last modified: November 9, 1981 9:07 AM Edited by Doug Wyatt, June 14, 1984 1:02:55 pm PDT **************************************************************************** procedures that take the current selection as an implicit parameter **************************************************************************** Ê2˜šœ™Jšœ@™@Jšœ™Jšœ(™(J™2J˜—šÏk ˜ Jšœ ˜ Jšœ ˜ J˜—Jšœ œ ˜Jšœœœ ˜J˜JšÏn œœ˜&Jšžœœ˜"JšžœœÏc'˜BJšžœœ˜ 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šœ˜—…—^6