release: 1.5.43

[lilypond.git] / scm / beam.scm

diff --git a/scm/beam.scm b/scm/beam.scm
index f3d0de99517db0f091647a15c8c92307c21d6864..6698e1fd623339236d1902ae655ada2774c02e60 100644 (file)
--- a/scm/beam.scm
+++ b/scm/beam.scm
@@ -29,6 +29,11 @@
 ;;     
 ;; We have our doubts, so we simply provide all sensible alternatives.
 
+
+;;
+;
+; DOCME: what goes into this func, what comes out.
+
 (define (dir-compare up down)
   (sign (- up down)))
 
@@ -36,7 +41,14 @@
 (define (beam-dir-majority count total)
   (dir-compare (car count) (cdr count)))
 
-(beam-dir-majority '(0 . 0) '(0 . 0))
+(define (beam-dir-majority-median count total)
+  "First try majority. If that doesn't work, try median."
+  (let ((maj (dir-compare (car count) (cdr count))))
+    (if (not (= maj 0))
+       maj
+       (beam-dir-median count total))
+    ))
+
 
 (define (beam-dir-mean count total)
   (dir-compare (car total) (cdr total)))