Mercurial > hg > amuse
diff implementations/meredith/constructors.lisp @ 299:f5734df598f4
add composition slot to event (meredith)
Ignore-this: d6b133f7d17684bf3f7c1ccde28c7d8a
darcs-hash:20090828164631-16a00-1a25e46b8142401466f4a6ec7159a10d8e31de40.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Fri, 28 Aug 2009 17:46:31 +0100 |
| parents | d22c67dac97d |
| children |
line wrap: on
line diff
--- a/implementations/meredith/constructors.lisp Fri Aug 28 17:40:54 2009 +0100 +++ b/implementations/meredith/constructors.lisp Fri Aug 28 17:46:31 2009 +0100 @@ -16,7 +16,7 @@ (defun make-meredith-event (&rest args) (apply #'make-instance 'meredith-event args)) -(defun db-event->meredith-event (db-event) +(defun db-event->meredith-event (db-event composition) (destructuring-bind (event-id tatum-on tatum-dur tactus-on tactus-dur crot-on crot-dur tatum-on-ms tatum-dur-ms beat-on-ms @@ -24,6 +24,7 @@ pitch-name midi-note-number cpitch mpitch voice) db-event (make-meredith-event :identifier event-id + :composition composition :tatum-on tatum-on :tatum-dur tatum-dur :tactus-on tactus-on