X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Ffret-diagrams-fret-label.ly;fp=input%2Fregression%2Ffret-diagrams-fret-label.ly;h=cb840ba8cf965017b03704f51aa328ba144c75dd;hb=e90f0536f9be39ada0bef0aeb0d275dec3b2fb5b;hp=e45755c8f24dd31a32caa6025b9ff1f0e0660b9f;hpb=a8c9e8a7ca320ab0df5fd32e717fd62cd7635ce6;p=lilypond.git

diff --git a/input/regression/fret-diagrams-fret-label.ly b/input/regression/fret-diagrams-fret-label.ly
index e45755c8f2..cb840ba8cf 100644
--- a/input/regression/fret-diagrams-fret-label.ly
+++ b/input/regression/fret-diagrams-fret-label.ly
@@ -1,4 +1,4 @@
-\version "2.12.0"
+\version "2.14.0"
 
 \header {
   texidoc="
@@ -12,6 +12,7 @@ size, and number type.
 
 <<
   \chords {
+    c1 |
     c1 |
     c1 |
     c1
@@ -61,6 +62,21 @@ size, and number type.
                                      (place-fret 1 3 1)
                                      (barre 5 1 3))}
 
+     %% C major for guitar, verbose style
+    \revert TextScript #'fret-diagram-details #'label-dir
+    \once \override TextScript #'fret-diagram-details 
+        #'number-type = #'custom
+    \once \override TextScript #'fret-diagram-details 
+        #'fret-label-custom-format = #"~d°"
+    c' ^\markup {
+            \fret-diagram-verbose #'((mute 6)
+                                     (place-fret 5 3 1)
+                                     (place-fret 4 5 2)
+                                     (place-fret 3 5 3)
+                                     (place-fret 2 5 4)
+                                     (place-fret 1 3 1)
+                                     (barre 5 1 3))}
+
  }
 >>