Mercurial > hg > amuse
comparison base/classes.lisp @ 306:d70ff27b1968
add note about linked-events mixin
Ignore-this: c5677560055960b06b1689b7a89f6d39
darcs-hash:20100404210537-16a00-7ca82f871410639d74103e352ecad60979a128c9.gz
author | j.forth <j.forth@gold.ac.uk> |
---|---|
date | Sun, 04 Apr 2010 22:05:37 +0100 |
parents | 6be947d9e7c3 |
children | be5cd4c5ecc2 |
comparison
equal
deleted
inserted
replaced
305:39f5fc572953 | 306:d70ff27b1968 |
---|---|
82 (:documentation "Notelike object")) | 82 (:documentation "Notelike object")) |
83 (defclass linked-event (amuse-object) | 83 (defclass linked-event (amuse-object) |
84 ((composition :reader composition | 84 ((composition :reader composition |
85 :writer %set-composition | 85 :writer %set-composition |
86 :initarg :composition)) | 86 :initarg :composition)) |
87 (:documentation "This provides a composition slot for events.")) | 87 (:documentation "This provides a composition slot for events. The |
88 generic function initialize-instance can be specialized on an | |
89 implementation composition to assign the event slots when a | |
90 composition instance is created. Or the slot can be assigned within | |
91 the composition constructor function. FIXME: Not sure about this - | |
92 was there a good reason why events should not know the composition | |
93 they belong to? MTP-events have a slot for composition-id (an | |
94 integer number), but here the slot is intended to be assigned the | |
95 composition object itself. Doing this means that potentially some | |
96 generic functions could loose the extra composition parameter. I | |
97 made this change because of SIA projection related stuff, the only | |
98 function that relies on it in amuse is find-next-event. JF")) | |
99 | |
88 (defclass pitched-event (event pitch) () | 100 (defclass pitched-event (event pitch) () |
89 (:documentation "Event with pitch information")) | 101 (:documentation "Event with pitch information")) |
90 (defclass standard-pitched-event (pitched-event | 102 (defclass standard-pitched-event (pitched-event |
91 standard-anchored-period) () | 103 standard-anchored-period) () |
92 (:documentation "Event with pitch information")) | 104 (:documentation "Event with pitch information")) |