DIRECTORY MusicDefs USING [Accidental, ChordPTR, Embellishment, NotePTR, noVoice, ScorePTR, SheetPTR, SyncPTR, Time]; Note: CEDAR DEFINITIONS = BEGIN OPEN MusicDefs; default: INTEGER = 1000; Draw: PROC[score: ScorePTR, n: NotePTR, stem: INTEGER _ default]; DrawHead: PROC[score: ScorePTR, n: NotePTR, x, y, dotX: INTEGER]; DrawTie: PROC[score: ScorePTR, n: NotePTR]; Free: PROC[score: ScorePTR, n: NotePTR]; GetBackTie: PROC[score: ScorePTR, n: NotePTR] RETURNS[NotePTR]; Duration: PROC[n: NotePTR, metrenome: INTEGER] RETURNS[Time]; SetAccidental: PROC[score: ScorePTR, n: NotePTR, a: Accidental]; SetEmbellishment: PROC[score: ScorePTR, n: NotePTR, e: Embellishment]; GetSyncIndex: PROC[s: SyncPTR, p: NotePTR] RETURNS[NAT]; InVoice: PROC[n: NotePTR, voice: CARDINAL] RETURNS[BOOLEAN] = INLINE { RETURN[voice = noVoice OR n.voice = voice]}; Delta: PROC[sheet: SheetPTR, n: NotePTR] RETURNS[INTEGER] = INLINE { RETURN[IF sheet.display#graphical THEN 0 ELSE IF n.chord=NIL THEN n.delta ELSE n.delta+n.chord.delta] }; Width: PROC[n: NotePTR] RETURNS[INTEGER] = INLINE { RETURN[IF n.grace THEN 6 ELSE IF n.value=whole THEN 10 ELSE 8]}; END. JNote.mesa Copyright (C) 1983, 1984 Xerox Corporation. All rights reserved. Author: John Maxwell last modified: November 4, 1983 2:12 pm Last Edited by: Maxwell, November 17, 1983 2:35 pm Last Edited by: Doug Wyatt, June 13, 1984 3:51:52 pm PDT removes note from anything that points to it, then frees it. inline procedures Êù˜šœ ™ Jšœ@™@Jšœ™Jšœ'™'Jšœ2™2Jšœ8™8—J˜šÏk ˜ Jšœ œ\˜kJ˜—Jšœœ ˜Jšœœœ ˜J˜Jšœ œ˜J˜JšÏnœœ$œ ˜AJšžœœ*œ˜AJšžœœ˜+J˜šžœœ˜)Jšœ<™<—Jšž œœœ ˜?J˜Jšžœœœœ˜>Jšž œœ-˜@Jšžœœ0˜FJ˜šž œœœœ˜8J˜—Jšœ™J˜š žœœœœœœ˜FJšœœ˜,J˜—š žœœœœœ˜Dšœœœ˜(Jš œœ œœ œ˜?—J˜—š žœœ œœœ˜3Jšœœ œœœœœ˜@J˜—Jšœ˜—…—‚Å