]> git.donarmstrong.com Git - lilypond.git/blob - input/new/customizing-fretboard-fret-diagrams.ly
1b9ab8f912747feacf3ef8c107030e9031c03ee5
[lilypond.git] / input / new / customizing-fretboard-fret-diagrams.ly
1 \version "2.11.55"
2
3 \header {
4   lsrtags = "fretted-strings,tweaks-and-overrides"
5
6   texidoc = "Fret diagram properties can be set through
7 @code{fret-diagram-details}.  For FretBoard fret diagrams,
8 overrides are applied to the @code{FretBoards.FretBoard} object.
9 "
10   doctitle = "Customizing fretboard fret diagrams"
11 }
12
13 \include "predefined-guitar-fretboards.ly"
14 \storePredefinedDiagram \chordmode { c' }
15                         #guitar-tuning
16                         #"x;1-1-(;3-2;3-3;3-4;1-1-);"
17 <<
18   \context ChordNames {
19     \chordmode { c1 c c d }
20   }
21   \context FretBoards {
22     % Set global properties of fret diagram
23     \override FretBoards.FretBoard #'size = #'1.2
24     \override FretBoards.FretBoard #'fret-diagram-details
25                                   #'finger-code = #'in-dot
26     \override FretBoards.FretBoard #'fret-diagram-details
27                                   #'dot-color = #'white
28     \chordmode {
29       c
30       \once \override FretBoards.FretBoard #'size = #'1.0
31       \once \override FretBoards.FretBoard #'fret-diagram-details
32               #'barre-type = #'straight
33       \once \override FretBoards.FretBoard #'fret-diagram-details
34               #'dot-color = #'black
35       \once \override FretBoards.FretBoard #'fret-diagram-details
36               #'finger-code = #'below-string
37       c'
38       \once \override FretBoards.FretBoard #'fret-diagram-details
39               #'barre-type = #'none
40       \once \override FretBoards.FretBoard #'fret-diagram-details
41               #'number-type = #'arabic
42       \once \override FretBoards.FretBoard #'fret-diagram-details
43               #'orientation = #'landscape
44       \once \override FretBoards.FretBoard #'fret-diagram-details
45               #'mute-string = #"M"
46       \once \override FretBoards.FretBoard #'fret-diagram-details
47               #'label-dir = #-1
48       \once \override FretBoards.FretBoard #'fret-diagram-details
49               #'dot-color = #'black
50       c'
51       \once \override FretBoards.FretBoard #'fret-diagram-details
52               #'finger-code = #'below-string
53       \once \override FretBoards.FretBoard #'fret-diagram-details
54               #'dot-radius = #0.35
55       \once \override FretBoards.FretBoard #'fret-diagram-details
56               #'dot-position = #0.5
57       \once \override FretBoards.FretBoard #'fret-diagram-details
58               #'fret-count = #3
59       d
60     }
61   }
62   \context Voice {
63     c'1 c' c' d'
64   }
65 >>