comparison implementations/mtp/methods.lisp @ 82:92e6625473e2

implementations/mtp: implement diatonic pitch

darcs-hash:20070717120244-c0ce4-4667ed1bf08ca41f6619e895c4cdc2e24224df04.gz

              (make-mtp-composition-identifier dataset-id composition-id))
             compositions))
     (sequence:adjust-sequence dataset (length compositions)
                               :initial-contents (nreverse compositions))
     dataset))
+
+
 
 (defmethod get-composition ((identifier mtp-composition-identifier))
   (let* ((dataset-id (dataset-id identifier))
          (composition-id (composition-id identifier))
          (where-clause [and [= [dataset-id] dataset-id]

   (make-chromatic-pitch (%mtp-cpitch e)))
 
 (defmethod midi-pitch-number ((e mtp-event))
   (%mtp-cpitch e))
 
+(defmethod meredith-morphetic-pitch-number ((e mtp-event))
+  ;; MIPS morphetic pitch is relative to An0 while mpitch is relative to Cn2
+  (- (%mtp-mpitch e) 12))
+
+(defmethod mips-pitch ((e mtp-event))
+  (make-mips-pitch (meredith-chromatic-pitch-number e)
+                   (meredith-morphetic-pitch-number e)))
+
 (defmethod diatonic-pitch ((e mtp-event))
-;;   (make-diatonic-pitch (event-mpitch e) 
-;;                        (event-accidental e)
-;;                        octave)
-  )
+  (diatonic-pitch (mips-pitch e)))
+
+#.(clsql:locally-enable-sql-reader-syntax)
+(defmethod middle-c ((e mtp-event))
+  (let ((cpitch (car (clsql:select [midc] :from [dataset] 
+                                   :where [= [dataset-id] (dataset-id e)]
+                                   :flatp t :field-names nil))))
+    (make-mtp-event :cpitch cpitch :mpitch (* (/ cpitch 12) 7))))
+#.(clsql:restore-sql-reader-syntax-state)
 
 ;;; Phrase boundaries 
 
 (defmethod boundary-strength ((s mtp-before-segmenter) (e mtp-event) c)
   (declare (ignore s c))