Mercurial > hg > amuse
diff implementations/mtp/methods.lisp @ 328:04940d80aaed
Added cpitch-adj and cents as basic viewpoints
| author | Jeremy Gow <jeremy.gow@gmail.com> |
|---|---|
| date | Thu, 08 Nov 2012 09:21:00 +0000 |
| parents | 5271a0aa06d6 |
| children | f54848e1f74c |
line wrap: on
line diff
--- a/implementations/mtp/methods.lisp Thu Nov 01 16:51:50 2012 +0000 +++ b/implementations/mtp/methods.lisp Thu Nov 08 09:21:00 2012 +0000 @@ -6,7 +6,8 @@ (defvar *event-attributes* (list [dataset-id] [composition-id] [event-id] - [onset] [dur] [deltast] [cpitch] [mpitch] [accidental] [keysig] [mode] + [onset] [dur] [deltast] [cpitch] [cpitch-adj] [cents] + [mpitch] [accidental] [keysig] [mode] [barlength] [pulses] [phrase] [tempo] [dyn] [voice] [bioi] [ornament] [comma] [articulation])) @@ -97,7 +98,7 @@ (defun db-event->mtp-event (db-event timebase) (let* ((slots ; the order must match *event-attributes* - '(amuse::time amuse::interval deltast cpitch mpitch accidental + '(amuse::time amuse::interval deltast cpitch cpitch-adj cents mpitch accidental keysig mode barlength pulses phrase tempo dyn voice bioi ornament comma articulation)) (time-slots '(amuse::time amuse::interval deltast barlength bioi))