CG: compiling with lilybuntu.

[lilypond.git] / scm / tablature.scm

diff --git a/scm/tablature.scm b/scm/tablature.scm
index 83ad8bdf31597cb082bc819a3baaaac9ae984e40..7865b9bff5edbb1cc1f986bb1370aedee4f78e79 100644 (file)
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -273,10 +273,12 @@
         (cautionary-width (assoc-get 'width cautionary-props 0.25))
          (output-grob (ly:text-interface::print grob))
         (ref-grob (grob-interpret-markup grob "8"))
-        (column-offset (interval-length
-                           (ly:stencil-extent
-                             (grob-interpret-markup grob "8")
-                             X))))
+        (offset-factor (assoc-get 'head-offset details 3/5))
+        (column-offset (* offset-factor
+                          (interval-length
+                            (ly:stencil-extent
+                              (grob-interpret-markup grob "8")
+                              X)))))
 
     (if (is-harmonic? grob)
         (set! output-grob (harmonic-proc output-grob