Mercurial > hg > amuse
diff base/classes.lisp @ 223:fb27101cde2b
add composition slot to event (amuse base)
Ignore-this: ef4ef09ad8e7c134e7e3cb5b70345b34
darcs-hash:20090828163617-16a00-eb532b34b175c446e804d90785ef18367ae85971.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 | ead979ad3b28 |
| children | 061ae49a0b41 |
line wrap: on
line diff
--- a/base/classes.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/base/classes.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -80,6 +80,11 @@ (defclass event (anchored-period) () (:documentation "Notelike object")) +(defclass linked-event (amuse-object) + ((composition :reader composition + :writer %set-composition + :initarg :composition)) + (:documentation "This provides a composition slot for events.")) (defclass pitched-event (event pitch) () (:documentation "Event with pitch information")) (defclass standard-pitched-event (pitched-event