Mercurial > hg > amuse
diff implementations/midi/classes.lisp @ 130:b849c4fc4c26
implementation/midi and /geerdes: add midi-object and geerdes-object
darcs-hash:20070730164010-f76cc-baca3a289ca6c022c0085177d539e8c5c6fbea4e.gz
| author | David Lewis <d.lewis@gold.ac.uk> |
|---|---|
| date | Mon, 30 Jul 2007 17:40:10 +0100 |
| parents | cf198383852d |
| children | 5e362d998f29 |
line wrap: on
line diff
--- a/implementations/midi/classes.lisp Mon Jul 30 17:40:39 2007 +0100 +++ b/implementations/midi/classes.lisp Mon Jul 30 17:40:10 2007 +0100 @@ -1,6 +1,8 @@ (cl:in-package #:amuse-midi) -(defclass midi-composition (amuse:composition) +(defclass midi-object (amuse:amuse-object) ()) + +(defclass midi-composition (amuse:composition midi-object) ((time-signatures :initarg :time-signatures :initform 'nil :accessor %midi-time-signatures) @@ -14,7 +16,7 @@ :initform 'nil :accessor %midi-misc-controllers))) -(defclass midi-message () ;? +(defclass midi-message (midi-object) ;? ((channel :accessor %midi-message-channel :initarg :channel) (track :accessor %midi-message-track :initarg :track)))