X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Ftablature-letter.ly;fp=input%2Fregression%2Ftablature-letter.ly;h=3fc098e8d830f1e7c8989222f05427f48d96e109;hb=941dff9d2a67080e0dd8474f1e70f0c72ace6424;hp=0000000000000000000000000000000000000000;hpb=5a22d6233a39d3164e1ca043244794c268be4ad0;p=lilypond.git

diff --git a/input/regression/tablature-letter.ly b/input/regression/tablature-letter.ly
new file mode 100644
index 0000000000..3fc098e8d8
--- /dev/null
+++ b/input/regression/tablature-letter.ly
@@ -0,0 +1,43 @@
+\version "2.14.0"
+
+\header {
+  texidoc = "
+A sample tablature with lettered tab,
+using fretLabels to modify the fret letters.
+
+By default, letters are drawn sequentially from the alphabet,
+but if the context property fretLabels is defined, these are
+substituted.  If specified, the length of fretLabels must be
+sufficient to label all the frets used.  A warning is issued
+if the length is too short.
+"
+}
+
+notes = \relative c' {
+  \time 3/4
+  <f d>4. <bes>8 <g e>4
+  \set fretLabels = #`("a" "b" ,(markup #:italic #:smaller "c"))
+  <f d>4. <bes>8 <g e>4
+  \set fretLabels = #`(,(markup #:with-color red "a")
+                       "b"
+                       ,(markup #:italic #:smaller "c"))
+  <f d>4. <bes>8 <g e>4
+  \set fretLabels = #'("α" "β" "γ")
+  <f d>4. <bes>8 <g e>4
+}
+
+\score {
+  \new TabStaff
+  \with {
+    stringTunings = #`(,(ly:make-pitch 1 3 0)
+                       ,(ly:make-pitch 1 1 0)
+		       ,(ly:make-pitch 0 5 0)
+		       ,(ly:make-pitch 0 3 0)
+		       ,(ly:make-pitch 0 1 0)
+		       ,(ly:make-pitch -1 5 0))
+    tablatureFormat = #fret-letter-tablature-format
+  }
+  \new TabVoice {
+    \notes
+  }
+}