Mercurial > hg > amuse

diff implementations/mtp/methods.lisp @ 330:2fbff655ba47 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line diff
--- 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))