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
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];
inline procedures
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.