12 % Set global properties of fret diagram
13 \override Voice
.TextScript
#'size
= #'1.2
14 \override Voice
.TextScript
#'(fret-diagram-details finger-code
) = #'below-string
15 \override Voice
.TextScript
#'(fret-diagram-details dot-color
) = #'black
17 %% A chord for ukelele
19 \override #'(fret-diagram-details
. (
22 (finger-code
. in-dot
))){
23 \fret-diagram
#"4-2-2;3-1-1;2-o;1-o;"}
24 %% A chord for ukelele, with formatting defined in definition string
25 % 1.2 * size, 4 strings, 4 frets, fingerings below string
26 % dot radius .35 of fret spacing, dot position 0.55 of fret spacing
28 \override #'(fret-diagram-details
. (
30 (open-string
. "o"))){
31 \fret-diagram
#"s:1.2;w:4;h:3;f:2;d:0.35;p:0.55;4-2-2;3-1-1;2-o;1-o;"}
32 %% C major for guitar, barred on third fret
34 % roman fret label, finger labels below string, straight barre
36 \override #'(size
. 1.1) { % 110% of default size
37 \override #'(fret-diagram-details
. (
38 (number-type
. roman-lower
)
39 (finger-code
. below-string
)
40 (barre-type
. straight
))) {
41 \fret-diagram-verbose
#'((mute
6)
49 %% C major for guitar, barred on third fret
52 \override #'(size
. 1.1) { % 110% of default size
53 \override #'(fret-diagram-details
. (
54 (number-type
. arabic
)
55 (dot-label-font-mag
. 0.9)
56 (finger-code
. in-dot
)
57 (fret-label-font-mag
. 0.6)
58 (fret-label-vertical-offset
. 0)
61 (orientation
. landscape
)
62 (xo-font-magnification
. 0.4)
63 (xo-padding
. 0.3))) {
64 \fret-diagram-verbose
#'((mute
6)
73 %% C major for guitar, with capo on third fret
76 \override #'(size
. 1.1) { % 110% of default size
77 \override #'(fret-diagram-details
. (
78 (dot-label-font-mag
. 0.9)
79 (finger-code
. in-dot
)
80 (xo-font-magnification
. 0.4)
81 (xo-padding
. 0.3))) {
82 \fret-diagram-verbose
#'((mute
6)
93 \override #'(fret-diagram-details
. (
94 (finger-code
. below-string
)
99 \fret-diagram-terse
#"x;x;o;2-1;3-2;2-3;" }