--Author: John Maxwell
--last modified: November 28, 1981  8:43 AM

DIRECTORY
    MusicDefs: FROM "MusicDefs";

Chord: DEFINITIONS IMPORTS MusicDefs =
BEGIN
OPEN MusicDefs;

default:INTEGER = 1000;

AddNote:PROCEDURE[c:ChordPTR,n:NotePTR];
Adjust:PROCEDURE[c:ChordPTR];
Draw:PROC[c:ChordPTR,stem:INTEGER_default];
RemoveNote:PROCEDURE[c:ChordPTR,n:NotePTR];
SetDefaultStem:PROCEDURE[c:ChordPTR];
Sort:PROCEDURE[c:ChordPTR,up:BOOLEAN] RETURNS[n:CARDINAL];

-- INLINE Procedures

Beam:PUBLIC PROC[c:ChordPTR] RETURNS[BeamPTR] = INLINE
   {RETURN[IF c.note[0]#NIL THEN c.note[0].beam ELSE NIL]};

GetHeapIndex:PUBLIC PROC[c:ChordPTR] RETURNS[CARDINAL] = INLINE
   {FOR i:CARDINAL IN [0..chordHeapLength) DO 
	IF chordHeap[i]=c THEN RETURN[i]; 
	ENDLOOP; 
    RETURN[chordHeapLength]}; 

Grace:PROCEDURE[c:ChordPTR] RETURNS[BOOLEAN] = INLINE
   {FOR i:CARDINAL IN [0..chordLength) DO
	IF c.note[i]=NIL THEN EXIT;
	IF ~c.note[i].grace THEN RETURN[FALSE];
	ENDLOOP;
    RETURN[TRUE]};

InVoice:PROCEDURE[c:ChordPTR,voice:CARDINAL] RETURNS[BOOLEAN] = INLINE
   {FOR i:CARDINAL IN [0..chordLength) DO
    IF c.note[i]=NIL THEN EXIT;
    IF c.note[i].voice=voice THEN RETURN[TRUE];
    ENDLOOP;
    RETURN[FALSE]};

Length:PROC[c:ChordPTR] RETURNS[CARDINAL] = INLINE
   {FOR i:CARDINAL IN [0..chordLength] DO
		IF i=chordLength THEN RETURN[i];
		IF c.note[i]=NIL THEN RETURN[i];
		ENDLOOP;
	ERROR};

Width:PROCEDURE[c:ChordPTR] RETURNS[INTEGER] = INLINE
   {RETURN[IF Grace[c] THEN 5 ELSE 8]}; 

END..
(1792)\173b1B25b7B34b6B24b4B40b10B34b14B24b4B78b4B112b12B178b5B191b7B220b6B178b5B96b