[fomus-cvs] CVS update: fomus/TODO fomus/package.lisp fomus/test.lisp fomus/util.lisp

[David Psenicka]

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)