[gsharp-cvs] CVS gsharp

crhodes crhodes at common-lisp.net
Fri Sep 14 15:57:21 UTC 2007


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

Modified Files:
	buffer.lisp 
Log Message:
Allow clefs to be put on lines 0 and 8 of a staff. (Necessary for the 
Soprano C clef, found in early music).  Note that key signature 
display code will probably have to be reworked to cater for such 
outlandish clefs.


--- /project/gsharp/cvsroot/gsharp/buffer.lisp	2007/09/14 15:48:05	1.51
+++ /project/gsharp/cvsroot/gsharp/buffer.lisp	2007/09/14 15:57:21	1.52
@@ -59,11 +59,11 @@
 (defclass clef (gsharp-object name-mixin)
   ((print-character :allocation :class :initform #\K)
    (lineno :reader lineno :initarg :lineno
-           :type (or (integer 2 6) null))))
+           :type (or (integer 0 8) null))))
 
 (defun make-clef (name &key lineno)
   (declare (type (member :treble :treble8 :bass :c :percussion) name)
-           (type (or (integer 2 6) null) lineno))
+           (type (or (integer 0 8) null) lineno))
   (when (null lineno)
     (setf lineno
           (ecase name




More information about the Gsharp-cvs mailing list