DIRECTORY MusicDefs; Chord: CEDAR DEFINITIONS = BEGIN OPEN MusicDefs; default: INTEGER = 1000; AddNote: PROC[c: ChordPTR, n: NotePTR]; RemoveNote: PROC[c: ChordPTR, n: NotePTR]; Sort: PROC[c: ChordPTR, up: BOOL] RETURNS[n: CARDINAL]; Adjust: PROC[c: ChordPTR]; Draw: PROC[c: ChordPTR, stem: INTEGER _ default]; SetDefaultStem: PROC[c: ChordPTR]; Beam: PROC[c: ChordPTR] RETURNS[BeamPTR]; GetHeapIndex: PROC[c: ChordPTR] RETURNS[NAT]; Grace: PROC[c: ChordPTR] RETURNS[BOOL]; InVoice: PROC[c: ChordPTR, voice: NAT] RETURNS[BOOL]; Length: PROC[c: ChordPTR] RETURNS[NAT]; Width: PROC[c: ChordPTR] RETURNS[INTEGER]; END. âChord.mesa Copyright (C) 1981, 1984 Xerox Corporation. All rights reserved. Author: John Maxwell last modified: November 28, 1981 8: 43 AM Edited by Doug Wyatt, June 14, 1984 5:14:14 pm PDT (formerly) INLINE Procedures Ę˜šœ ™ Jšœ@™@Jšœ™Jšœ*™*J™2J˜—šĪk ˜ Jšœ ˜ J˜—Jšœœ ˜Jšœœœ ˜J˜Jšœ œ˜J˜JšĪnœœ˜'Jšž œœ˜*J˜Jš žœœœœœ˜7J˜Jšžœœ˜J˜Jšžœœœ ˜1Jšžœœ˜"J˜Jšœ™J˜šžœœœ ˜)J˜—šž œœœœ˜-J˜—šžœœœœ˜'J˜—š žœœœœœ˜5J˜—šžœœœœ˜'J˜—šžœœœœ˜+J˜—Jšœ˜—…—zė