Mercurial > hg > amuse
comparison implementations/geerdes/classes.lisp @ 224:7afb8cfdcdcf
add composition slot to event (geerdes)
Ignore-this: 7ece48560d6cc689711c5864e49a0360
darcs-hash:20090828164054-16a00-57b981532296c149640ab1e48439cdb88c41f2cf.gz
committer: Jamie Forth <j.forth@gold.ac.uk>
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:18 +0000 |
| parents | d8f650e3796e |
| children |
comparison
equal
deleted
inserted
replaced
| 223:fb27101cde2b | 224:7afb8cfdcdcf |
|---|---|
| 62 :accessor %ioi-mode))) | 62 :accessor %ioi-mode))) |
| 63 | 63 |
| 64 (defclass geerdes-event (geerdes-object) () | 64 (defclass geerdes-event (geerdes-object) () |
| 65 (:documentation "Base class for geerdes events.")) | 65 (:documentation "Base class for geerdes events.")) |
| 66 | 66 |
| 67 (defclass geerdes-pitched-event (midi-pitched-event geerdes-event) | 67 (defclass geerdes-pitched-event (midi-pitched-event geerdes-event |
| 68 linked-event) | |
| 68 ((identifier :initarg :identifier | 69 ((identifier :initarg :identifier |
| 69 :reader identifier)) | 70 :reader identifier)) |
| 70 (:documentation "Only adds a database identifier to | 71 (:documentation "Only adds a database identifier to |
| 71 midi-pitched-event")) | 72 midi-pitched-event")) |
| 72 | 73 |
| 73 (defclass geerdes-percussive-event (midi-percussive-event | 74 (defclass geerdes-percussive-event (midi-percussive-event |
| 74 geerdes-event) | 75 geerdes-event linked-event) |
| 75 ((identifier :initarg :identifier | 76 ((identifier :initarg :identifier |
| 76 :reader identifier)) | 77 :reader identifier)) |
| 77 (:documentation "Only adds a database identifier to | 78 (:documentation "Only adds a database identifier to |
| 78 midi-percussive-event")) | 79 midi-percussive-event")) |