Mercurial > hg > amuse
comparison base/classes.lisp @ 297:6be947d9e7c3
add composition slot to event (amuse base)
Ignore-this: ef4ef09ad8e7c134e7e3cb5b70345b34
darcs-hash:20090828163617-16a00-eb532b34b175c446e804d90785ef18367ae85971.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Fri, 28 Aug 2009 17:36:17 +0100 |
| parents | 68aadc4eb96d |
| children | 061ae49a0b41 |
comparison
equal
deleted
inserted
replaced
| 296:68aadc4eb96d | 297:6be947d9e7c3 |
|---|---|
| 78 | 78 |
| 79 ;; events | 79 ;; events |
| 80 | 80 |
| 81 (defclass event (anchored-period) () | 81 (defclass event (anchored-period) () |
| 82 (:documentation "Notelike object")) | 82 (:documentation "Notelike object")) |
| 83 (defclass linked-event (amuse-object) | |
| 84 ((composition :reader composition | |
| 85 :writer %set-composition | |
| 86 :initarg :composition)) | |
| 87 (:documentation "This provides a composition slot for events.")) | |
| 83 (defclass pitched-event (event pitch) () | 88 (defclass pitched-event (event pitch) () |
| 84 (:documentation "Event with pitch information")) | 89 (:documentation "Event with pitch information")) |
| 85 (defclass standard-pitched-event (pitched-event | 90 (defclass standard-pitched-event (pitched-event |
| 86 standard-anchored-period) () | 91 standard-anchored-period) () |
| 87 (:documentation "Event with pitch information")) | 92 (:documentation "Event with pitch information")) |