]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/fret-diagrams-capo.ly
Issue 5167/6: Changes: show \markup xxx = ... \etc assignments
[lilypond.git] / input / regression / fret-diagrams-capo.ly
1 \version "2.17.6"
2
3 \header {
4   texidoc="
5 A capo indicator can be added with a fret-diagram-verbose
6 string, and its thickness can be changed.
7
8 "
9 }
10
11 \layout { ragged-right = ##t }
12
13 <<
14   \chords {
15     c1 |
16     c1
17   }
18
19   \new Voice {
20     \textLengthOn
21
22      %% C major for guitar, with capo on third fret
23         % verbose style
24     c' ^\markup {
25             \fret-diagram-verbose #'((mute 6)
26                                      (capo 3)
27                                      (open 5)
28                                      (place-fret 4 5 1)
29                                      (place-fret 3 5 2)
30                                      (place-fret 2 5 3)
31                                      (open 1))}
32
33      %% C major for guitar, with capo on third fret
34        % thinner capo
35         % verbose style
36     \override TextScript.fret-diagram-details.capo-thickness = #0.2
37     c' ^\markup {
38             \fret-diagram-verbose #'((mute 6)
39                                      (capo 3)
40                                      (open 5)
41                                      (place-fret 4 5 1)
42                                      (place-fret 3 5 2)
43                                      (place-fret 2 5 3)
44                                      (open 1)) }
45
46  }
47 >>
48
49