Issue 1976: Handle full rational pitch differences in fingering calculations.

[lilypond.git] / scm / tablature.scm

diff --git a/scm/tablature.scm b/scm/tablature.scm
index 2adaaa6ed6cc8c55e5f470e401087ebd8aecaba9..3304e24af78a4f9a5b5f4168037a264240cdce4b 100644 (file)
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -107,7 +107,7 @@
          (left-pitch (ly:event-property (event-cause left-bound) 'pitch))
          (right-pitch (ly:event-property (event-cause right-bound) 'pitch)))
 
-    (if (< (ly:pitch-semitones right-pitch) (ly:pitch-semitones left-pitch))
+    (if (< (ly:pitch-tones right-pitch) (ly:pitch-tones left-pitch))
         -0.75
         0.75)))