Update of /project/fomus/cvsroot/fomus In directory common-lisp.net:/tmp/cvs-serv21627 Modified Files: TODO package.lisp test.lisp util.lisp Log Message: minor changes Date: Wed Sep 21 01:23:16 2005 Author: dpsenicka Index: fomus/TODO diff -u fomus/TODO:1.20 fomus/TODO:1.21 --- fomus/TODO:1.20 Tue Sep 13 23:39:14 2005 +++ fomus/TODO Wed Sep 21 01:23:15 2005 @@ -4,6 +4,7 @@ Bugs: Quantizing nested tuplets--occasional hangups + Doc: list-instr-syms Splitting chords across staves (LilyPond) STAFF, CLEF and other marks for overriding FOMUS's decisions MusicXML backend Index: fomus/package.lisp diff -u fomus/package.lisp:1.10 fomus/package.lisp:1.11 --- fomus/package.lisp:1.10 Sun Aug 21 21:17:41 2005 +++ fomus/package.lisp Wed Sep 21 01:23:15 2005 @@ -14,7 +14,7 @@ (:export "FOMUS" "LOAD-INITFILE" ; interface functions "FOMUS-INIT" "FOMUS-NEWTIMESIG" "FOMUS-NEWPART" "FOMUS-NEWMARK" "FOMUS-NEWNOTE" "FOMUS-NEWREST" "FOMUS-EXEC" "FOMUS-PART" "LIST-FOMUS-SETTINGS" "LIST-FOMUS-INSTRUMENTS" "LIST-FOMUS-INSTRGROUPS" "LIST-FOMUS-PERCUSSION" "LIST-FOMUS-CLEFS" - "LIST-FOMUS-MEAS-DIVS" "LIST-FOMUS-TUPLET-DIVS" "GET-MIDI-INSTR" "IS-INSTR" "IS-CLEF" + "LIST-FOMUS-MEAS-DIVS" "LIST-FOMUS-TUPLET-DIVS" "GET-MIDI-INSTR" "IS-INSTR" "IS-CLEF" "GET-INSTR-SYMS" ; make/copy functions "MAKE-TIMESIG" "MAKE-TIMESIG-REPL" "MAKE-PART" "MAKE-MARK" "MAKE-NOTE" "MAKE-REST" "MAKE-INSTR" "MAKE-PERC" "COPY-INSTR" "COPY-PERC" "MAKE-MEAS" "COPY-TIMESIG" "COPY-TIMESIG-REPL" "COPY-EVENT" "COPY-PART" "COPY-MEAS" Index: fomus/test.lisp diff -u fomus/test.lisp:1.14 fomus/test.lisp:1.15 --- fomus/test.lisp:1.14 Tue Sep 13 23:39:14 2005 +++ fomus/test.lisp Wed Sep 21 01:23:15 2005 @@ -11,7 +11,7 @@ (list (make-part :name "Piano" - :instr '(:piano :staves 1) + :instr :piano :events (loop for off from 0 to 10 by 1/2 Index: fomus/util.lisp diff -u fomus/util.lisp:1.17 fomus/util.lisp:1.18 --- fomus/util.lisp:1.17 Fri Sep 2 07:56:45 2005 +++ fomus/util.lisp Wed Sep 21 01:23:15 2005 @@ -788,6 +788,10 @@ (loop for (s sn) on (rest +instr-keys+) collect (format nil (if sn "~A: ~S " "~A: ~S") (string-downcase s) (slot-value e (intern (symbol-name s) :fomus))))))))) +(defun get-instr-syms () + (set-instruments + (mapcar #'instr-sym (remove-duplicates (append *instruments* +instruments+) :key #'instr-sym :from-end t)))) + (defun list-fomus-percussion () (loop with li = (remove-duplicates *percussion* :key #'perc-sym :from-end t) with c = (+ (loop for e in li maximize (length (symbol-name (perc-sym e)))) 3)