]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/predefined-fretboards.ly
daa88bd03fc7be54ce9d7e3588ca7405b36cff6c
[lilypond.git] / input / regression / predefined-fretboards.ly
1 % add a chord shape
2
3 \addChordShape #'bes #"x;1-1-(;3-2;3-3;3-4;1-1-);"
4
5 % add chords
6
7 \storePredefinedDiagram \chordmode {bes}
8                         #guitar-tuning
9                         #(chord-shape 'bes)
10
11 \storePredefinedDiagram \chordmode {c}
12                         #guitar-tuning
13                         #(offset-fret 2 (chord-shape 'bes))
14
15 mychords = \chordmode {
16   bes
17 }
18
19 chordline = {
20   \mychords
21   \transpose bes c {
22     \mychords
23   }
24 }
25
26 <<
27   \context ChordNames {
28     \chordline
29   }
30   \context FretBoards {
31     \chordline
32   }
33 >>