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))