Let the distance of strings and frets in fret-diagrams be settable

[lilypond.git] / input / regression / fret-diagrams-size.ly

diff --git a/input/regression/fret-diagrams-size.ly b/input/regression/fret-diagrams-size.ly
index 1dce8a9f4592213004f4609c5bb79538949488a3..573d8dff088da286f95dd2168de8d2cc979034b0 100644 (file)
--- a/input/regression/fret-diagrams-size.ly
+++ b/input/regression/fret-diagrams-size.ly
@@ -3,6 +3,9 @@
 \header {
   texidoc="
 Fret diagrams can be scaled using the @code{size} property.
+Also, scaling the distance between the frets and/@/or strings is possible with
+the properties @code{fret-distance} and/@/or @code{string-distance} of
+@code{fret-diagram-details}.
 The position and size of first fret label, mute/@/open signs, fingers,
 relative to the diagram grid, shall be the same in all cases.
 
@@ -10,15 +13,38 @@ relative to the diagram grid, shall be the same in all cases.
 }
 
 myFretDiagram =
-\markup \fret-diagram-verbose #'((place-fret 6 6 "P")
-                                 (place-fret 5 8 2)
-                                 (place-fret 4 8 2)
-                                 (place-fret 3 7 1)
-                                 (place-fret 2 8 3)
-                                 (mute 1))
+\markup
+  \override #'(fret-diagram-details . ((finger-code . below-string)))
+  \fret-diagram-verbose #'((place-fret 6 6 "P")
+                           (place-fret 5 8 2)
+                           (place-fret 4 8 2)
+                           (place-fret 3 7 1)
+                           (place-fret 2 8 3)
+                           (mute 1))
 
-\markup \override #'(fret-diagram-details . ((finger-code . below-string))) {
-  \myFretDiagram
-  \override #'(size . 1.5) \myFretDiagram
-  \override #'(size . 3) \myFretDiagram
-}
+\markup
+  {
+    \myFretDiagram
+    \override #'(size . 1.5) \myFretDiagram
+    \override #'(size . 3) \myFretDiagram
+  }
+
+\markup
+  {
+    \override #'(fret-diagram-details . ((fret-distance . 0.5)))
+    \myFretDiagram
+    \override #'(fret-diagram-details . ((fret-distance . 1.5)))
+    \myFretDiagram
+    \override #'(fret-diagram-details . ((fret-distance . 2.5)))
+    \myFretDiagram
+  }
+
+\markup
+  {
+    \override #'(fret-diagram-details . ((string-distance . 0.5)))
+    \myFretDiagram
+    \override #'(fret-diagram-details . ((string-distance . 1.5)))
+    \myFretDiagram
+    \override #'(fret-diagram-details . ((string-distance . 2.5)))
+    \myFretDiagram
+  }