Update of /project/fomus/cvsroot/fomus In directory common-lisp.net:/tmp/cvs-serv21550 Modified Files: classes.lisp fomus.asd test.lisp version.lisp Removed Files: CHANGELOG Log Message: bug fixes Date: Sat Sep 3 21:57:14 2005 Author: dpsenicka Index: fomus/classes.lisp diff -u fomus/classes.lisp:1.11 fomus/classes.lisp:1.12 --- fomus/classes.lisp:1.11 Tue Aug 30 00:28:03 2005 +++ fomus/classes.lisp Sat Sep 3 21:57:14 2005 @@ -21,7 +21,7 @@ ((time :type cons :accessor timesig-time :initform '(4 4) :initarg :time) (div :type list :accessor timesig-div :initform nil :initarg :div) ; list of divisions to force, ex: '((3 3 2) (3 2 3)) or '((3/2 1) (1 3/2)) (comp :type boolean :accessor timesig-comp :initform nil :initarg :comp) ; t or nil - (beat :type (or (rational 0) null) :accessor timesig-beat :initform 1/4 :initarg :beat) ; what actually gets the beat (ex: 1/4 = quarter note, 1/4 + 1/8 = dotted quarter), compound is deterined from signature + (beat :type (or (rational 0) null) :accessor timesig-beat :initform nil :initarg :beat) ; what actually gets the beat (ex: 1/4 = quarter note, 1/4 + 1/8 = dotted quarter), compound is deterined from signature (props :type list :accessor timesig-props :initform nil :initarg :props))) (defclass timesig (timesig-repl event-base) ((off :type (rational 0)) Index: fomus/fomus.asd diff -u fomus/fomus.asd:1.10 fomus/fomus.asd:1.11 --- fomus/fomus.asd:1.10 Fri Sep 2 07:56:45 2005 +++ fomus/fomus.asd Sat Sep 3 21:57:14 2005 @@ -4,7 +4,7 @@ (asdf:defsystem "fomus" :description "Lisp music notation formatter" - :version "0.1.14" + :version "0.1.15" :author "David Psenicka" :licence "LLGPL" Index: fomus/test.lisp diff -u fomus/test.lisp:1.12 fomus/test.lisp:1.13 --- fomus/test.lisp:1.12 Fri Sep 2 07:56:45 2005 +++ fomus/test.lisp Sat Sep 3 21:57:14 2005 @@ -808,7 +808,7 @@ (fomus ; :auto-percussion-durs :backend '((:data) (:lilypond :view t)) :ensemble-type :orchestra - :auto-percussion-durs nil + :auto-percussion-durs t :parts (list (make-part :name "Percussion" @@ -866,3 +866,4 @@ ;; Grace note rests ;; Mark Spanners ;; Compound meter + Index: fomus/version.lisp diff -u fomus/version.lisp:1.9 fomus/version.lisp:1.10 --- fomus/version.lisp:1.9 Fri Sep 2 07:56:45 2005 +++ fomus/version.lisp Sat Sep 3 21:57:14 2005 @@ -12,7 +12,7 @@ (declaim (type string +title+) (type cons +version+ +banner+)) (defparameter +title+ "FOMUS") -(defparameter +version+ '(0 1 14)) +(defparameter +version+ '(0 1 15)) (defparameter +banner+ `("Lisp music notation formatter" "Copyright (c) 2005 David Psenicka, All Rights Reserved"