Mercurial > hg > amuse
diff implementations/midi/classes.lisp @ 212:619194befdd4
add identifier and timebase slots to midifile composition class
Ignore-this: 4e72a0860344399452bea196c3739bbf
darcs-hash:20090524150506-16a00-bce845ccf20a9289a4015fb58287f25ebfa178ad.gz
committer: Jamie Forth <j.forth@gold.ac.uk>
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:17 +0000 |
| parents | a74494a94be9 |
| children | de60993404c1 |
line wrap: on
line diff
--- a/implementations/midi/classes.lisp Thu Feb 24 11:23:17 2011 +0000 +++ b/implementations/midi/classes.lisp Thu Feb 24 11:23:17 2011 +0000 @@ -14,8 +14,12 @@ :initform 'nil :accessor %midi-key-signatures) (misc-controllers :initarg :controllers - :initform 'nil - :accessor %midi-misc-controllers)) + :initform 'nil + :accessor %midi-misc-controllers) + (identifier :initarg :identifier + :reader identifier) + (midi-timebase :initarg :midi-timebase + :reader %midi-timebase)) (:documentation "Class for midi compositions, with time signatures, tempi, key signatures and other controllers as lists in slots"))