Update of /project/gsharp/cvsroot/gsharp In directory clnet:/tmp/cvs-serv12476
Modified Files: measure.lisp Log Message: Fixed the problem with stem direction for a beam group. It was just a typo: instead of calling bot-note-pos to get the position of the bottom note of each cluster, top-note-pos was called.
--- /project/gsharp/cvsroot/gsharp/measure.lisp 2007/08/29 15:42:57 1.37 +++ /project/gsharp/cvsroot/gsharp/measure.lisp 2007/08/30 03:04:56 1.38 @@ -215,7 +215,7 @@ (bot-note-pos (loop for element in elements when (non-empty-cluster-p element) - minimize (top-note-pos element)))) + minimize (bot-note-pos element)))) (if (>= (- top-note-pos 4) (- 4 bot-note-pos)) :down :up))))) (loop for element in elements when (non-empty-cluster-p element)