Mercurial > hg > amuse
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 298:204d6d1f4f6a | 299:f5734df598f4 |
|---|---|
| 14 :description description)) | 14 :description description)) |
| 15 | 15 |
| 16 (defun make-meredith-event (&rest args) | 16 (defun make-meredith-event (&rest args) |
| 17 (apply #'make-instance 'meredith-event args)) | 17 (apply #'make-instance 'meredith-event args)) |
| 18 | 18 |
| 19 (defun db-event->meredith-event (db-event) | 19 (defun db-event->meredith-event (db-event composition) |
| 20 (destructuring-bind (event-id tatum-on tatum-dur tactus-on | 20 (destructuring-bind (event-id tatum-on tatum-dur tactus-on |
| 21 tactus-dur crot-on crot-dur | 21 tactus-dur crot-on crot-dur |
| 22 tatum-on-ms tatum-dur-ms beat-on-ms | 22 tatum-on-ms tatum-dur-ms beat-on-ms |
| 23 beat-dur-ms crot-on-ms crot-dur-ms | 23 beat-dur-ms crot-on-ms crot-dur-ms |
| 24 pitch-name midi-note-number cpitch | 24 pitch-name midi-note-number cpitch |
| 25 mpitch voice) db-event | 25 mpitch voice) db-event |
| 26 (make-meredith-event :identifier event-id | 26 (make-meredith-event :identifier event-id |
| 27 :composition composition | |
| 27 :tatum-on tatum-on | 28 :tatum-on tatum-on |
| 28 :tatum-dur tatum-dur | 29 :tatum-dur tatum-dur |
| 29 :tactus-on tactus-on | 30 :tactus-on tactus-on |
| 30 :tactus-dur tactus-dur | 31 :tactus-dur tactus-dur |
| 31 :time crot-on ; define crotchet as standard time | 32 :time crot-on ; define crotchet as standard time |