<> <> <> <> <> DIRECTORY MusicDefs; MusicFileDefs: CEDAR DEFINITIONS = BEGIN OPEN MusicDefs; versionID: INTEGER = 3; ID: TYPE ~ MACHINE DEPENDENT {nullID(0), scoreID(1), eventID(2), noteID(3), chordHeapID(4), chordID(5), beamHeapID(6), beamID(7), viewID(8), tieID(9), (CARDINAL.LAST)}; <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<>> EventFormat: TYPE = MACHINE DEPENDENT RECORD[ identifier: ID _ eventID, time: Time _ 0, type: EventType _ notes, exception: BOOL _ FALSE, spare1: [0..1000) _ 0, value: INTEGER _ 0, spare2: CARDINAL _ 0, length: CARDINAL _ 0 <> ]; <<>> SheetFormat: TYPE = MACHINE DEPENDENT RECORD[ junk: NotePTR _ NIL, height, offset: INTEGER _ 0, sl: CARDINAL _ 0, staff: ARRAY [0..6) OF Staff ]; NoteFormat: TYPE = MACHINE DEPENDENT RECORD[ identifier: ID _ noteID, pitch: INTEGER _ 40, voice: CARDINAL _ 0, value: NoteValue _ unknown, --3 bits spelled: Accidental _ inKey, --3 bits rest: BOOL _ FALSE, dotted: BOOL _ FALSE, doubleDotted: BOOL _ FALSE, grace: BOOL _ FALSE, stemUp: BOOL _ FALSE, exception: BOOL _ FALSE, embellish: Embellishment _ none, --3 bits tie: BOOL _ FALSE, show: BOOL _ FALSE, spare4: [0..2000) _ 0, staff: [0..16) _ 1, spare2: CARDINAL _ 0, --legato, stacatto, accents spare3: CARDINAL _ 0, toc: LONG CARDINAL, duration: CARDINAL ]; ChordFormat: TYPE = MACHINE DEPENDENT RECORD[ identifier: ID _ chordID, stemUp: BOOL, exception: BOOL _ FALSE, spare1: [0..16000) _ 0, exceptionPTR: CARDINAL _ 0, spare2: INTEGER _ 0, length: CARDINAL, notePTRs: ARRAY [0..0) OF RelativePTR ]; BeamFormat: TYPE = MACHINE DEPENDENT RECORD[ identifier: ID _ beamID, tilt: REAL, beamed: BOOL, exception: BOOL _ FALSE, ntuple: [0..128), against: [0..128), height: INTEGER, invisible: BOOL _ FALSE, spare1: [0..1024) _ 0, staff: [0..32), spare2: CARDINAL _ 0, length: CARDINAL, chordPTRs: ARRAY [0..0) OF RelativePTR ]; TieFormat: TYPE = MACHINE DEPENDENT RECORD[ identifier: ID _ tieID, height: INTEGER _ 0, heap: CARDINAL _ 0, index: CARDINAL _ 0 ]; RelativePTR: TYPE = MACHINE DEPENDENT RECORD[ heap: CARDINAL, index: CARDINAL ]; beams: CARDINAL = 64000; -- special heap value in RelativePTR chords: CARDINAL = 64001; -- special heap value in RelativePTR ViewFormat: TYPE = MACHINE DEPENDENT RECORD[ identifier: ID _ viewID, scale: INTEGER, accidental: BOOL, notehead: BOOL, sync: BOOL, display: DisplayMode, noCarry: BOOL _ FALSE, hardcopy: BOOL, spare1: [0..512) _ 0, sheet: INTEGER _ 0, --will later be made obsolete speed: INTEGER _ 0, --will later be made obsolete key: INTEGER _ 0, --will later be made obsolete spare5: INTEGER _ 0, spare6: INTEGER _ 0 ]; END.