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 1:03:05 pm PDT
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
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.
(635)\271b5B12b7B30b3B99b10B67b8B