<> <> <> <> <> DIRECTORY MusicDefs; Voice: CEDAR DEFINITIONS = BEGIN OPEN MusicDefs; StatePTR: TYPE = POINTER TO State; State: TYPE = ARRAY[0..10) OF RECORD[found, grace, graced: BOOL, duration, sum: Time]; Check: PROC; Correct: PROC[time1, time2: Time]; Set: PROC[voice: CARDINAL]; -- takes selection as a parameter <> ClearState: PROC[vs: StatePTR]=INLINE {vs^ _ ALL[[FALSE, FALSE, FALSE, 0, 0]]}; SetState: PROC[vs: StatePTR, s: SyncPTR, m: INTEGER _ 128, separate: BOOL _ FALSE] RETURNS[max: Time]; END. (635)\271b5B12b7B30b3B99b10B67b8B