[gsharp-cvs] CVS gsharp/Mxml

[crhodes]

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