]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/tablature-letter.ly
Issue 5167/6: Changes: show \markup xxx = ... \etc assignments
[lilypond.git] / input / regression / tablature-letter.ly
index 5ff06d5ae03c013af26cf875645e887888f00d2a..9af4d79abbe1ce8f8f2403f5b5c350813b0a0dcf 100644 (file)
@@ -1,6 +1,8 @@
-\version "2.13.10"
+\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,
@@ -11,29 +13,26 @@ if the length is too short.
 "
 }
 
-notes = \relative c' {
+notes = \relative {
   \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
-  \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"
-                       ,(markup #:italic #:smaller "c"))
+                       \italic \smaller "c"}
   <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 {
-    stringTunings = #'(17 14 9 5 2 -3)
+    stringTunings = \stringTuning <a d' f' a' d'' f''>
     tablatureFormat = #fret-letter-tablature-format
   }
   \new TabVoice {
     \notes
   }
 }
-
-
-