Update of /project/gsharp/cvsroot/gsharp/Mxml In directory clnet:/tmp/cvs-serv26533/Mxml

Modified Files: mxml.lisp Log Message: Comment fixes in MusicXML code.

--- /project/gsharp/cvsroot/gsharp/Mxml/mxml.lisp 2008/02/08 16:50:57 1.4 +++ /project/gsharp/cvsroot/gsharp/Mxml/mxml.lisp 2008/02/09 16:54:33 1.5 @@ -129,6 +129,9 @@ :filled) ("half" :half) ("whole" :whole) + ;; KLUDGE: "full" here (and for beams) I think is a + ;; feature of catering for Nightingale's MusicXML + ;; export, which is wrong in this respect. (("breve" "full") :breve) ("long" :long)) :filled)) @@ -166,9 +169,8 @@ (+ basenum (* 7 octave))))

(defun parse-mxml-accidental (note) - ;; TODO this should support microtones. also, i wrote it fairly - ;; early on and it doesn't use things like has-element which it - ;; should. + ;; I (presumably Brian Gruber -- CSR) wrote it fairly early on and + ;; it doesn't use things like has-element which it should. (let ((alters (dom:get-elements-by-tag-name note "alter"))) (if (= 0 (length alters)) :natural