DIRECTORYMusicDefs;Score: CEDAR DEFINITIONS= BEGIN OPEN MusicDefs;cache: ARRAY [0..maxCacheLength) OF SyncPTR;maxCacheLength: CARDINAL = 200;cacheLength: CARDINAL;BuildCache: PROC;Draw: PROC[erase: BOOL _ TRUE];DrawKey: PROC[key: INTEGER, time: Time];DrawMetrenome: PROC[metrenome: INTEGER, time: Time];DrawTimeSignature: PROC[ts: TimeSignature, time: Time];GetAccidental: PROC[n: NotePTR] RETURNS[Accidental];GetKey: PROC[t: Time] RETURNS[key: INTEGER];GetMetrenome: PROC[t: Time] RETURNS[metrenome: INTEGER];GetTimeSignature: PROC[t: Time] RETURNS[TimeSignature];Justify: PROC[begin, end: Time];LogicalToPhysical: PROC[begin, end: Time];Look: PROC[look: LookCommand, switch: BOOL, n: INTEGER];Print: PROC[splines: BOOL];Redraw: PROC[t1, t2: Time];ScalePhysical: PROC[k: INTEGER]; SetKey: PROC[time1, time2: Time, k: INTEGER]; SetMetrenome: PROC[time1, time2: Time, m: INTEGER];SetTimeSignature: PROC[time1, time2: Time, ts: TimeSignature];ShowLogical: PROC[firstSync, lastSync: CARDINAL];AddToPitch: PROC[key, pitch, delta: INTEGER] RETURNS[INTEGER];KeyHeight: PROC[key, pitch: INTEGER] RETURNS[INTEGER];NormalAcc: PROC[key, pitch: INTEGER] RETURNS[Accidental];PriorNote: PROC[pitch, height: INTEGER, index: CARDINAL] RETURNS[NotePTR];ShowPitch: PROC[pitch: INTEGER, spelled: Accidental, key: INTEGER] RETURNS[INTEGER];FileIn: PROC[s: STRING, append: BOOL _ FALSE];FileInOld: PROC[s: STRING];FileOut: PROC[s: STRING] RETURNS[BOOL];FileOutOld: PROC[s: STRING];FileStats: PROC; InitializeSynthesizer: PROC;StartListening: PROC[s: PiecePTR];StartPlaying: PROC[s: PiecePTR, first: CARDINAL, physical: BOOL,displayCursor: PROC[time: LONG CARDINAL]];StopListening: PROC;StopPlaying: PROC;Test: PROC RETURNS[BOOL];END.   t  Score.mesaCopyright (C) 1981, 1984 Xerox Corporation. All rights reserved.Author: John Maxwelllast modified: December 2, 1981  8:49 AMEdited by Doug Wyatt, June 14, 1984 5:24:10 pm PDT****************************************************************************procedures ****************************************************************************all of the Sets and Gets take "score" as the implied first parameterkey specific procedures****************************************************************************utility procedures ****************************************************************************Э╩r  Ш ЪЬ
Щ
JЪЬ@Щ@JЪЬЩJЪЬ(Щ(JЩ2JШ ЧЪ╧k	Ш	JЪЬ
Ш
JШ ЧJЪЬЭЬЭШJЪЬЭЬЭЬШJШ JЪЬЭЬЭЬ	Ш,JЪЬЭЬШJЪЬЭЬШJШ JЪЬLЩLJЪЬЩJЪЬLЩLJЪЬDЩDJШ JЪ╧n
ЬЭЬШJЪЮЬЭЬЭЬЭЬШJЪЮЬЭЬЭЬШ(JЪЮЬЭЬЭЬШ4JЪЮЬЭЬ Ш7JЪЮЬЭЬЭЬШ4JЪЮЬЭЬ
ЭЬЭЬШ,JЪЮЬЭЬ
ЭЬЭЬШ8JЪЮЬЭЬ
ЭЬШ7JЪЮЬЭЬШ JЪЮЬЭЬШ*JЪЮЬЭЬЭЬЭЬШ8JЪЮЬЭЬ
ЭЬШJЪЮЬЭЬШJЪЮЬЭЬЭЬШ!JЪЮЬЭЬЭЬШ.JЪЮЬЭЬЭЬШ3JЪЮЬЭЬ(Ш>JЪЮЬЭЬЭЬШ1JШ JЪЬЩJЪ
Ю
ЬЭЬЭЬЭЬЭЬШ>JЪ
Ю	ЬЭЬЭЬЭЬЭЬШ6JЪЮ	ЬЭЬЭЬЭЬШ9JЪ
Ю	ЬЭЬЭЬ	ЭЬЭЬ
ШJJЪЮ	ЬЭЬЭЬЭЬЭЬЭЬШTJШ JЪЬLЩLJЪЬЩJЪЬLЩLJШ JЪ
ЮЬЭЬЭЬ
ЭЬЭЬШ.JЪЮ	ЬЭЬЭЬШJЪ
ЮЬЭЬЭЬЭЬЭЬШ'JЪЮ
ЬЭЬЭЬШJЪЮ	ЬЭЬШJЪЮЬЭЬШJЪЮЬЭЬШ"ЪЮЬЭЬЭЬЭЬШ@JЪЬЭЬЭЬЭЬШ*ЧJЪЮЬЭЬШJЪЮЬЭЬШJЪЮЬЭЬЭЬЭЬШJШ JЪЭЬШЧ ЕЧ    ш  ╬  