DIRECTORY MusicDefs; Note: CEDAR DEFINITIONS = BEGIN OPEN MusicDefs; default: INTEGER = 1000; Delete: PROC[n: NotePTR, free: BOOL]; Draw: PROC[n: NotePTR, stem: INTEGER _ default]; DrawHead: PROC[n: NotePTR, x, y, dotX: INTEGER]; DrawTie: PROC[n: NotePTR]; Duration: PROC[n: NotePTR, metrenome: INTEGER] RETURNS[Time]; GetBackTie: PROC[n: NotePTR] RETURNS[NotePTR]; SetAccidental: PROC[n: NotePTR, a: Accidental]; SetEmbellishment: PROC[n: NotePTR, e: Embellishment]; Delta: PROC[n: NotePTR] RETURNS[INTEGER]; GetSyncIndex: PROC[a: SyncPTR, p: NotePTR] RETURNS[NAT]; FindChord: PROC[n: NotePTR] RETURNS[c: ChordPTR] = INLINE {RETURN[n.chord]}; Width: PROC[n: NotePTR] RETURNS[INTEGER] = INLINE {RETURN[IF n.grace THEN 6 ELSE IF n.value=whole THEN 10 ELSE 8]}; END. ÖNote.mesa Copyright (C) 1981, 1984 Xerox Corporation. All rights reserved. Author: John Maxwell last modified: October 15, 1981 9: 17 AM Edited by Doug Wyatt, June 14, 1984 5:18:54 pm PDT inline procedures Ê¢˜šœ ™ Jšœ@™@Jšœ™Jšœ)™)J™2J˜—šÏk ˜ Jšœ ˜ J˜—Jšœœ ˜Jšœœœ ˜J˜Jšœ œ˜J˜JšÏnœœœ˜%Jšžœœœ ˜0Jšžœœœ˜0Jšžœœ ˜Jšžœœœœ˜>Jšž œœ œ ˜.Jšž œœ˜/Jšžœœ˜5J˜šžœœ œœ˜)J˜—šž œœœœ˜8J˜—Jšœ™J˜š ž œœ œœœ ˜LJ˜—š žœœ œœœ˜2Jšœœœ œœœœœ˜AJ˜—Jšœ˜—…— ‚