X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Ftablature-letter.ly;h=9af4d79abbe1ce8f8f2403f5b5c350813b0a0dcf;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=d52a2500a5670fe112d458b15d52c81657670aed;hpb=17f11c2f5ab963bfb07b7652b4860dc4dda5540a;p=lilypond.git

diff --git a/input/regression/tablature-letter.ly b/input/regression/tablature-letter.ly
index d52a2500a5..9af4d79abb 100644
--- a/input/regression/tablature-letter.ly
+++ b/input/regression/tablature-letter.ly
@@ -1,4 +1,4 @@
-\version "2.13.46"
+\version "2.19.21"
 
 \header {
   texidoc = "
@@ -13,28 +13,23 @@ 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 = #`(,(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))
+    stringTunings = \stringTuning <a d' f' a' d'' f''>
     tablatureFormat = #fret-letter-tablature-format
   }
   \new TabVoice {