]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/fret-diagrams-size.ly
Issue 5167/6: Changes: show \markup xxx = ... \etc assignments
[lilypond.git] / input / regression / fret-diagrams-size.ly
1 \version "2.16.0"
2
3 \header {
4   texidoc="
5 Fret diagrams can be scaled using the @code{size} property.
6 Also, scaling the distance between the frets and/@/or strings is possible with
7 the properties @code{fret-distance} and/@/or @code{string-distance} of
8 @code{fret-diagram-details}.
9 The position and size of first fret label, mute/@/open signs, fingers,
10 relative to the diagram grid, shall be the same in all cases.
11
12 "
13 }
14
15 myFretDiagram =
16 \markup
17   \override #'(fret-diagram-details . ((finger-code . below-string)))
18   \fret-diagram-verbose #'((place-fret 6 6 "P")
19                            (place-fret 5 8 2)
20                            (place-fret 4 8 2)
21                            (place-fret 3 7 1)
22                            (place-fret 2 8 3)
23                            (mute 1))
24
25 \markup
26   {
27     \myFretDiagram
28     \override #'(size . 1.5) \myFretDiagram
29     \override #'(size . 3) \myFretDiagram
30   }
31
32 \markup
33   {
34     \override #'(fret-diagram-details . ((fret-distance . 0.5)))
35     \myFretDiagram
36     \override #'(fret-diagram-details . ((fret-distance . 1.5)))
37     \myFretDiagram
38     \override #'(fret-diagram-details . ((fret-distance . 2.5)))
39     \myFretDiagram
40   }
41
42 \markup
43   {
44     \override #'(fret-diagram-details . ((string-distance . 0.5)))
45     \myFretDiagram
46     \override #'(fret-diagram-details . ((string-distance . 1.5)))
47     \myFretDiagram
48     \override #'(fret-diagram-details . ((string-distance . 2.5)))
49     \myFretDiagram
50   }