<> <> <> <> <> 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.