--Author: John Maxwell
--last modified: October 6, 1981  2:04 PM

DIRECTORY  MusicDefs: FROM "MusicDefs";

Voice: DEFINITIONS = 
BEGIN
OPEN MusicDefs;

StatePTR:TYPE = POINTER TO State;
State:TYPE = ARRAY[0..10) OF RECORD[found,grace,graced:BOOLEAN,duration,sum:Time];
	
Check:PROCEDURE;
Correct:PROCEDURE[time1,time2:Time];
Set:PROCEDURE[voice:CARDINAL]; -- takes selection as a parameter

--procedures for enumerating voices
ClearState:PROCEDURE[vs:StatePTR]=INLINE {vs^_ALL[[FALSE,FALSE,FALSE,0,0]]};
SetState:PROCEDURE[vs:StatePTR,s:SyncPTR,
    m:INTEGER_128,separate:BOOLEAN_FALSE] RETURNS[max:Time];

END.
(635)\271b5B12b7B30b3B99b10B67b8B