Mercurial > hg > amuse
diff implementations/meredith/constructors.lisp @ 225:6f0881af3403
add composition slot to event (meredith)
Ignore-this: d6b133f7d17684bf3f7c1ccde28c7d8a
darcs-hash:20090828164631-16a00-1a25e46b8142401466f4a6ec7159a10d8e31de40.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 | 4eceac78e7c6 |
| children |
line wrap: on
line diff
--- a/implementations/meredith/constructors.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/implementations/meredith/constructors.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -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