From 80a921b7887e251c10d87af215af2ca9c0a01a13 Mon Sep 17 00:00:00 2001 From: Carl Sorensen Date: Mon, 11 Aug 2008 18:33:05 -0600 Subject: [PATCH] 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. --- scm/translation-functions.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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)) -- 2.39.2