Tablature: support StemTremolo correctly

[lilypond.git] / scm / tablature.scm

diff --git a/scm/tablature.scm b/scm/tablature.scm
index 71b453c0fb7de0608038cfdef0d5e29e1d183802..419f93c2cf15012ba6e3deedfc915b4c5ee48dc1 100644 (file)
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -248,3 +248,10 @@
 
     (ly:grob-set-property! grob 'control-points new-control-points)
     (ly:slur::print grob)))
+
+;; for \tabFullNotation, the stem tremolo beams are too big in comparison to
+;; normal staves; this wrapper function scales accordingly:
+(define-public (stem-tremolo::calc-tab-width grob)
+  (let ((width (ly:stem-tremolo::calc-width grob))
+       (staff-space (ly:staff-symbol-staff-space grob)))
+    (/ width staff-space)))