DIRECTORYMusicDefs USING [EventPTR, KeySignaturePTR, MeasurePTR, MetronomePTR, NotePTR, ScorePTR, Staff, StavesPTR, SyncPTR, Time, TimeSignaturePTR];Event: CEDAR DEFINITIONS= BEGIN OPEN MusicDefs;Draw: PROC[score: ScorePTR, event: EventPTR];Invisible: PROC[score: ScorePTR, index: CARDINAL, leftEdge: Time] RETURNS[BOOLEAN]; -- HiddenGetScoreIndex: PROC[score: ScorePTR, event: EventPTR] RETURNS[index: CARDINAL];Sync: PROC[event: EventPTR] RETURNS[SyncPTR] ~ INLINE {RETURN[WITH event SELECT FROM e: SyncPTR => e, ENDCASE => NIL];};Staves: PROC[event: EventPTR] RETURNS[StavesPTR] ~ INLINE {RETURN[WITH event SELECT FROM e: StavesPTR => e, ENDCASE => NIL];};Measure: PROC[event: EventPTR] RETURNS[MeasurePTR] ~ INLINE {RETURN[WITH event SELECT FROM e: MeasurePTR => e, ENDCASE => NIL];};Metronome: PROC[event: EventPTR] RETURNS[MetronomePTR] ~ INLINE {RETURN[WITH event SELECT FROM e: MetronomePTR => e, ENDCASE => NIL];};TimeSignature: PROC[event: EventPTR] RETURNS[TimeSignaturePTR] ~ INLINE {RETURN[WITH event SELECT FROM e: TimeSignaturePTR => e, ENDCASE => NIL];};KeySignature: PROC[event: EventPTR] RETURNS[KeySignaturePTR] ~ INLINE {RETURN[WITH event SELECT FROM e: KeySignaturePTR => e, ENDCASE => NIL];};Octava: PROC[event: EventPTR] RETURNS[BOOLEAN] ~ INLINE {RETURN[WITH event SELECT FROMev: StavesPTR => ev.staves IN[octava1..octava2], ENDCASE => FALSE]};Clef: PROC[event: EventPTR] RETURNS[BOOLEAN] ~ INLINE {RETURN[WITH event SELECT FROMev: StavesPTR => ev.staves=clef, ENDCASE => FALSE]};GetOctava: PROC[score: ScorePTR, octava: StavesPTR] RETURNS[other: StavesPTR];SetStave: PROC[score: ScorePTR, oldS, newS: StavesPTR]; -- copy info from old to newGetStaff: PROC[staves: StavesPTR, staff: CARDINAL] RETURNS[Staff];AddNote: PROC[score: ScorePTR, sync: SyncPTR, note: NotePTR];RemoveNote: PROC[score: ScorePTR, sync: SyncPTR, note: NotePTR, free: BOOLEAN _ FALSE];Adjust: PROC[score: ScorePTR, s: SyncPTR]; -- space the notes so they don't overlapNewSync: PROC[score: ScorePTR, length: CARDINAL _ 12] RETURNS[sync: SyncPTR];Free: PROC[score: ScorePTR, event: EventPTR]; AddTimes: PROC[event: EventPTR, time, toc: Time];Grace: PROC[sync: SyncPTR] RETURNS[BOOLEAN];InVoice: PROC[sync: SyncPTR, voice: CARDINAL] RETURNS[BOOLEAN];END.  *  Event.mesaCopyright (C) 1983, 1984 Xerox Corporation. All rights reserved.Author: John MaxwellLast Edited by: Maxwell, November 22, 1983 12:06 pmLast Edited by: Doug Wyatt, June 14, 1984 6:35:33 pm PDTreturns score.length if not found (score[score.length] is always NIL)************************************************Type coercion************************************************************************************************Procedures that only apply to staves************************************************************************************************Procedures that only apply to syncs************************************************removes note from sync.  If sync.length = 0 and free = TRUE, then sync is freed.removes sync from anything that points to itINLINE Procedures Э╩Ў  Ш ЪЬ
Щ
JЪЬ@Щ@JЪЬЩJЪЬ3Щ3JЪЬ8Щ8JЩ ЧЪ╧k	Ш	JЪЬ
ЭЬ}ШМJШ ЧJЪЬЭЬЭШJЪЬЭЬЭЬШJШ JЪ╧nЬЭЬ#Ш-ЪЮ	ЬЭЬЭЬШBJЪЭЬЭЬ╧c	ШЧJЪЮЬЭЬ#ЭЬЭЬШOJЪЬEЩEJШ JШ JЪЬ0Щ0JЩJЪЬ0Щ0JШ ЪЮЬЭЬЭЬЭЬШ7JЪЭЬЭЬЭЬЭЬЭЬЭЬШ?JШJШ ЧЪЮЬЭЬЭЬЭЬШ;JЪЭЬЭЬЭЬЭЬЭЬЭЬШAJШJШ ЧЪЮЬЭЬЭЬЭЬШ=JЪЭЬЭЬЭЬЭЬЭЬЭЬШBJШJШ ЧЪЮ	ЬЭЬЭЬЭЬШAJЪЭЬЭЬЭЬЭЬЭЬЭЬШDJШJШ ЧЪЮЬЭЬЭЬЭЬШIJЪЭЬЭЬЭЬЭЬЭЬЭЬШHJШJШ ЧЪЮЬЭЬЭЬЭЬШGJЪЭЬЭЬЭЬЭЬЭЬЭЬШGJШJШ ЧJЪЬ0Щ0JЪЬ$Щ$JЪЬ0Щ0JШ Ъ
ЮЬЭЬЭЬЭЬЭЬШ9ЪЭЬЭЬЭЬЭШJЪЬЭЬЭЬЭЬШBЧJЪЬШJЩ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШ7ЪЭЬЭЬЭЬЭШJЪЬ!ЭЬЭЬШ2ЧJЪЬШJШ ЧJЪЮ	ЬЭЬ%ЭЬШNJЪЮЬЭЬ*ЯШTJШ JЪЮЬЭЬЭЬЭЬШBJШ JЪЬ0Щ0JЪЬ#Щ#JЪЬ0Щ0JШ JЪЮЬЭЬ0Ш=ЪЮ
ЬЭЬ6ЭЬЭЬШWJЪЬPЩPЧJЪЮЬЭЬЯ(ШSJШ JШ JЪЮЬЭЬЭЬЭЬШMЪЮЬЭЬ$Ш.JЪЬ,Щ,ЧJШ JЪЬЩJШ ЪЮЬЭЬ#Ш1JШ ЧЪЮЬЭЬЭЬЭЬШ,JШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШ?JШ ЧJЪЭЬШЧ ЕЧ    	  ,  