[gsharp-cvs] CVS gsharp

[rstrandh]

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)