]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/fret-diagrams.ly
Fix #129, #228, #7
[lilypond.git] / input / regression / fret-diagrams.ly
1 %% regression test for fret diagram markups
2
3
4 \version "2.10.0"
5
6 \paper {
7
8   %% stretch to prevent diagrams from colliding.
9   line-width = 18.0 \cm
10 }
11
12
13 <<
14   \chords {s2 c c c d}
15   
16   \new Voice =mel {
17
18     %% A chord for ukelele
19     a'2 ^\markup
20     \override #'(string-count . 4) {
21       \override #'(dot-color . white) {
22         \fret-diagram #"4-2-2;3-1-1;2-o;1-o;"}}
23
24     %% C major for guitar, barred on third fret
25     c' ^\markup 
26     \override #'(number-type . roman-lower) {  % lower-case roman numeral fret label
27       \override #'(size . 1.1) {                  % 110% of default size
28         \override #'(finger-code . below-string) {  % string labels below strings
29           \override #'(barre-type . straight) {       % straight barre
30             \fret-diagram-verbose #'((mute 6) (place-fret 5 3 1) (place-fret 4 5 2) (place-fret 3 5 3) (place-fret 2 5 4) (place-fret 1 3 1) (barre 5 1 3)) }}}}
31     %% C major for guitar, barred on third fret
32     c' ^\markup 
33     \override #'(number-type . arabic) {  % lower-case roman numeral fret label
34       \override #'(dot-color . white) {     % white dots
35         \override #'(finger-code . in-dot) {  % string labels in dots
36           \override #'(barre-type . curved) {       % straight barre
37             \fret-diagram-verbose #'((mute 6) (place-fret 5 3 1) (place-fret 4 5 2) (place-fret 3 5 3) (place-fret 2 5 4) (place-fret 1 3 1) (barre 5 1 3)) }}}}
38     %% C major for guitar, barred on third fret
39     c' ^\markup 
40     \override #'(number-type . roman-upper) {  % upper-case roman numeral fret label
41       \override #'(label-dir . -1) {            % label fret at left side of diagram
42         \override #'(finger-code . in-dot) {        % string labels in dots
43           \override #'(barre-type . curved) {         % curved barre
44             \fret-diagram-verbose #'((mute 6) (place-fret 5 3 1) (place-fret 4 5 2) (place-fret 3 5 3) (place-fret 2 5 4) (place-fret 1 3 1) (barre 5 1 3)) }}}}
45
46     %% simple D chord
47
48     d' ^\markup 
49     \override #'(finger-code . below-string) {
50       \override #'(dot-radius . 0.35) {
51         \override #'(dot-position . 0.5) {
52           \override #'(fret-count . 5) {
53             \fret-diagram-terse #"x;x;o;2-1;3-2;2-3;" }}}}
54
55   }
56 >>