resolve merge

[lilypond.git] / input / regression / tablature-letter.ly

diff --git a/input/regression/tablature-letter.ly b/input/regression/tablature-letter.ly
new file mode 100644 (file)
index 0000000..3fc098e
--- /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
+  }
+}