[Cyan]<PreISLCedar>Mockingbird>Selection.mesa!1

Selection.mesa

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

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]];

****************************************************************************

procedures that take the current selection as an implicit parameter

****************************************************************************

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.