]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/tablature-letter.ly
PO: update template.
[lilypond.git] / input / regression / tablature-letter.ly
index 6e9291ceb3ebba7fd3711fe382597f905e17613c..9af4d79abbe1ce8f8f2403f5b5c350813b0a0dcf 100644 (file)
@@ -1,6 +1,8 @@
-\version "2.13.9"
+\version "2.19.21"
 
 
-\header { texidoc = "A sample tablature with lettered tab,
+\header {
+  texidoc = "
+A sample tablature with lettered tab,
 using fretLabels to modify the fret letters.
 
 By default, letters are drawn sequentially from the alphabet,
 using fretLabels to modify the fret letters.
 
 By default, letters are drawn sequentially from the alphabet,
@@ -11,29 +13,26 @@ if the length is too short.
 "
 }
 
 "
 }
 
-notes = \relative c' {
+notes = \relative {
   \time 3/4
   \time 3/4
+  <f' d>4. <bes>8 <g e>4
+  \set fretLabels = \markuplist {"a" "b" \italic \smaller "c"}
   <f d>4. <bes>8 <g e>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")
+  \set fretLabels = \markuplist {\with-color #red "a"
                        "b"
                        "b"
-                       ,(markup #:italic #:smaller "c"))
+                       \italic \smaller "c"}
   <f d>4. <bes>8 <g e>4
   <f d>4. <bes>8 <g e>4
-  \set fretLabels = #'("α" "β" "γ")
+  \set fretLabels = \markuplist {"α" "β" "γ"}
   <f d>4. <bes>8 <g e>4
 }
 
 \score {
   \new TabStaff
   \with {
   <f d>4. <bes>8 <g e>4
 }
 
 \score {
   \new TabStaff
   \with {
-    stringTunings = #'(17 14 9 5 2 -3)
+    stringTunings = \stringTuning <a d' f' a' d'' f''>
     tablatureFormat = #fret-letter-tablature-format
   }
   \new TabVoice {
     \notes
   }
 }
     tablatureFormat = #fret-letter-tablature-format
   }
   \new TabVoice {
     \notes
   }
 }
-
-
-