Mercurial > hg > amuse
changeset 330:2fbff655ba47 tip
Removed cpitch-adj and cents SQL columns
| author | Jeremy Gow <jeremy.gow@gmail.com> |
|---|---|
| date | Mon, 21 Jan 2013 11:08:11 +0000 |
| parents | f54848e1f74c |
| children | |
| files | implementations/mtp/classes.lisp implementations/mtp/methods.lisp |
| diffstat | 2 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/mtp/classes.lisp Mon Nov 19 15:11:49 2012 +0000 +++ b/implementations/mtp/classes.lisp Mon Jan 21 11:08:11 2013 +0000 @@ -50,8 +50,6 @@ (bioi :initarg :bioi :accessor %mtp-bioi) (deltast :initarg :deltast :accessor %mtp-deltast) (cpitch :initarg :cpitch :accessor %mtp-cpitch) - (cpitch-adj :initarg :cpitch-adj :accessor %mtp-cpitch-adj) - (cents :initarg :cents :accessor %mtp-cents) (mpitch :initarg :mpitch :accessor %mtp-mpitch) (accidental :initarg :accidental :accessor %mtp-accidental) (keysig :initarg :keysig :accessor %mtp-keysig)
--- a/implementations/mtp/methods.lisp Mon Nov 19 15:11:49 2012 +0000 +++ b/implementations/mtp/methods.lisp Mon Jan 21 11:08:11 2013 +0000 @@ -10,7 +10,7 @@ (defvar *event-attributes* (list [dataset-id] [composition-id] [event-id] - [onset] [dur] [deltast] [cpitch] [cpitch-adj] [cents] + [onset] [dur] [deltast] [cpitch] [mpitch] [accidental] [keysig] [mode] [barlength] [pulses] [phrase] [tempo] [dyn] [voice] [bioi] [ornament] [comma] [articulation])) @@ -102,7 +102,7 @@ (defun db-event->mtp-event (db-event timebase) (let* ((slots ; the order must match *event-attributes* - '(amuse::time amuse::interval deltast cpitch cpitch-adj cents mpitch accidental + '(amuse::time amuse::interval deltast cpitch mpitch accidental keysig mode barlength pulses phrase tempo dyn voice bioi ornament comma articulation)) (time-slots '(amuse::time amuse::interval deltast barlength bioi))