]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/fret-diagrams-fret-label.ly
Fix 787 for real this time (works for more than 2 scripts stacked)
[lilypond.git] / input / regression / fret-diagrams-fret-label.ly
1 \version "2.12.0"
2
3 \header {
4   texidoc="
5 The label for the lowest fret can be changed in location,
6 size, and number type.
7
8 "
9 }
10
11 \layout { ragged-right = ##t }
12
13 <<
14   \chords {
15     c1 |
16     c1 |
17     c1
18   }
19
20   \new Voice {
21     \textLengthOn
22
23      %% C major for guitar,  verbose style
24     c'1 ^\markup {
25             \fret-diagram-verbose #'((mute 6)
26                                      (place-fret 5 3 1)
27                                      (place-fret 4 5 2)
28                                      (place-fret 3 5 3)
29                                      (place-fret 2 5 4)
30                                      (place-fret 1 3 1)
31                                      (barre 5 1 3))}
32
33      %% C major for guitar, verbose style
34     \override TextScript #'fret-diagram-details 
35         #'label-dir = #LEFT 
36     \override TextScript #'fret-diagram-details 
37         #'number-type = #'roman-upper 
38     c' ^\markup {
39             \fret-diagram-verbose #'((mute 6)
40                                      (place-fret 5 3 1)
41                                      (place-fret 4 5 2)
42                                      (place-fret 3 5 3)
43                                      (place-fret 2 5 4)
44                                      (place-fret 1 3 1)
45                                      (barre 5 1 3))}
46
47      %% C major for guitar, verbose style
48     \revert TextScript #'fret-diagram-details #'label-dir
49     \override TextScript #'fret-diagram-details 
50         #'fret-label-font-mag = #0.4 
51     \override TextScript #'fret-diagram-details 
52         #'number-type = #'arabic 
53     \once \override TextScript #'fret-diagram-details 
54         #'fret-label-vertical-offset = #0.25
55     c' ^\markup {
56             \fret-diagram-verbose #'((mute 6)
57                                      (place-fret 5 3 1)
58                                      (place-fret 4 5 2)
59                                      (place-fret 3 5 3)
60                                      (place-fret 2 5 4)
61                                      (place-fret 1 3 1)
62                                      (barre 5 1 3))}
63
64  }
65 >>
66
67