From: Carl Sorensen <c_sorensen@byu.edu>
Date: Tue, 12 Aug 2008 00:33:05 +0000 (-0600)
Subject: Fix determine-frets-mf for minimum-fret
X-Git-Tag: release/2.11.56-1~2^2~23^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=80a921b7887e251c10d87af215af2ca9c0a01a13;p=lilypond.git

Fix determine-frets-mf for minimum-fret

This patch changes determine-frets-mf so that it puts notes
on the highest string with a fret >= min-fret, instead of
putting them on the lowest available string.  This leads to
more rational automatically calculated fretboards.
---

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index d4c84caf61..cefdf70776 100644
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -334,11 +334,11 @@
      (if (note-string note)
 	 (set-fret note (note-string note))
 	 (let*
-	     ((string (find (lambda (string) (string-qualifies string
-							       (note-pitch note)))
-			      (reverse free-strings))))
-	   (if string
-	       (set-fret note string)
+	     ((fit-string (find (lambda (string) 
+                               (string-qualifies string (note-pitch note)))
+			    free-strings)))
+	   (if fit-string
+	       (set-fret note fit-string)
 	       (ly:warning "No string for pitch ~a (given frets ~a)" (note-pitch note)
 			   specified-frets))