Voice.mesa
Copyright (C) 1981, 1984 Xerox Corporation. All rights reserved.
Author: John Maxwell
last modified: October 6, 1981 2:04 PM
Edited by Doug Wyatt, June 14, 1984 5:38:41 pm PDT
DIRECTORY
MusicDefs;
Voice: CEDAR DEFINITIONS
= BEGIN OPEN MusicDefs;
StatePTR: TYPE = REF 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
procedures for enumerating voices
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.