From: Marc Hohl <marc@hohlart.de>
Date: Tue, 23 Nov 2010 20:18:25 +0000 (+0100)
Subject: tablature: provide custom fret labels
X-Git-Tag: release/2.13.41-1~3^2~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=81e831991105e969f21e6ff3e953d6f52c5ea04b;p=lilypond.git

tablature: provide custom fret labels
---

diff --git a/scm/tablature.scm b/scm/tablature.scm
index 419f93c2cf..1aa766d9d0 100644
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -255,3 +255,16 @@
   (let ((width (ly:stem-tremolo::calc-width grob))
 	(staff-space (ly:staff-symbol-staff-space grob)))
     (/ width staff-space)))
+
+;; define custom fret label as markup
+(define-markup-command (customFretLabel
+                                layout props fret-label) (string?)
+  #:category music
+  "Draw a custom tab fret label."
+
+  (interpret-markup layout props
+                    (markup #:vcenter fret-label)))
+
+;; use it for custom fret labels
+(define-public ((tab-note-head::print-custom-fret-label fret) grob)
+  (grob-interpret-markup grob (make-customFretLabel-markup fret)))