[gsharp-cvs] CVS gsharp - gsharp-cvs@common-lisp.net - mailman3.common-lisp.net

17 Jan 2007

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv20348
Modified Files:
    buffer.lisp 
Log Message:
Added a few comments

--- /project/gsharp/cvsroot/gsharp/buffer.lisp	2007/01/16 05:36:40	1.41
+++ /project/gsharp/cvsroot/gsharp/buffer.lisp	2007/01/17 12:21:01	1.42
@@ -81,12 +81,17 @@
   #'read-clef-v3
   *gsharp-readtable-v3*)
+;;; given a clef, return the staff step of the B that should have
+;;; the first flat sign in key signatures with flats
 (defmethod b-position ((clef clef))
   (ecase (name clef)
     (:bass (- (lineno clef) 4))
     ((:treble :treble8) (+ (lineno clef) 2))
     (:c (- (lineno clef) 1))))
+
+;;; given a clef, return the staff step of the F that should have
+;;; the first sharp sign in key signatures with sharps
 (defmethod f-position ((clef clef))
   (ecase (name clef)
     (:bass (lineno clef))

    