--Author: John Maxwell
--last modified: November 9, 1981  9:07 AM

DIRECTORY
      Graphics: FROM "Graphics",
    MusicDefs: FROM "MusicDefs";

Selection: DEFINITIONS
	IMPORTS MusicDefs =
BEGIN
OPEN MusicDefs;

AddGreyLine:PROCEDURE[time1,time2:Time];
AddLine:PROCEDURE[time1,time2:Time];
AddNote:PROCEDURE[n:NotePTR]; -- use clear to clear current selection
Clear:PROCEDURE;
Draw:PROCEDURE;
RemoveNote:PROCEDURE[n:NotePTR];

Includes:PROCEDURE[n:NotePTR] RETURNS[BOOLEAN] = INLINE
   {IF voice AND n.voice#selectedVoice THEN RETURN[FALSE];
	IF lineSelect
		THEN RETURN[n.sync.time IN [select1..select2)]
		ELSE FOR i:CARDINAL IN [0..selectionLength) DO
			IF selection[i]=n THEN RETURN[TRUE];
			ENDLOOP;
	RETURN[FALSE]};

--****************************************************************************
--procedures that take the current selection as an implicit parameter
--****************************************************************************

ClearBeam:PROCEDURE;
ClearChord:PROCEDURE;
ClearSync:PROCEDURE;
ClearTie:PROCEDURE;
Delete:PROCEDURE;
HideNTuplets:PROCEDURE[invisible:BOOLEAN];
MakeBeam:PROCEDURE[beamed:BOOLEAN_TRUE];
MakeBeamOfBeams:PROCEDURE[beamed:BOOLEAN_TRUE];
MakeChord:PROCEDURE;
MakeNTuplet:PROCEDURE[n,a:INTEGER];
MakeNTupletOfBeams:PROCEDURE[n,a:INTEGER];
MakeSync:PROCEDURE;
MakeTie:PROCEDURE;
SetGrace:PROCEDURE[grace:BOOLEAN];
SetNoteValue:PROCEDURE[v:NoteValue,dots:INTEGER];
SetRest:PROCEDURE[rest:BOOLEAN];
SetStaff:PROCEDURE[staff:CARDINAL];
SetStem:PROCEDURE[stemUp:BOOLEAN];
Transpose:PROCEDURE[halfsteps:INTEGER];

END..e6(0,3810)(1,4445)(2,5080)\211b11B30b7B30b7B63b5B12b4B12b10B24b8B371i67I81b9B12b10B12b9B12b8B12b6B12b12B31b8B33b15B33b9B12b11B25b18B25b8B12b7B12b8B27b12B38b7B26b8B28b7B28b9B