1 %% DO NOT EDIT this file manually; it is automatically
2 %% generated from LSR http://lsr.di.unimi.it
3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
4 %% and then run scripts/auxiliar/makelsr.py
6 %% This file is in the public domain.
10 lsrtags = "fretted-strings"
13 Predefined fret diagrams can be added for new instruments in addition
14 to the standards used for guitar. This file shows how this is done by
15 defining a new string-tuning and a few predefined fretboards for the
18 This file also shows how fingerings can be included in the chords used
19 as reference points for the chord lookup, and displayed in the fret
20 diagram and the @code{TabStaff}, but not the music.
23 These fretboards are not transposable because they contain string
24 information. This is planned to be corrected in the future.
27 doctitle = "Defining predefined fretboards for other instruments"
31 % add FretBoards for the Cuatro
32 % Note: This section could be put into a separate file
33 % predefined-cuatro-fretboards.ly
34 % and \included into each of your compositions
36 cuatroTuning = #`(,(ly:make-pitch 0 6 0)
37 ,(ly:make-pitch 1 3 SHARP)
38 ,(ly:make-pitch 1 1 0)
39 ,(ly:make-pitch 0 5 0))
41 dSix = { <a\4 b\1 d\3 fis\2> }
42 dMajor = { <a\4 d\1 d\3 fis \2> }
43 aMajSeven = { <a\4 cis\1 e\3 g\2> }
44 dMajSeven = { <a\4 c\1 d\3 fis\2> }
45 gMajor = { <b\4 b\1 d\3 g\2> }
47 \storePredefinedDiagram #default-fret-table \dSix
50 \storePredefinedDiagram #default-fret-table \dMajor
53 \storePredefinedDiagram #default-fret-table \aMajSeven
56 \storePredefinedDiagram #default-fret-table \dMajSeven
59 \storePredefinedDiagram #default-fret-table \gMajor
63 % end of potential include file /predefined-cuatro-fretboards.ly
66 #(set-global-staff-size 16)
68 primerosNames = \chordmode {
73 \dSix \dMajor \aMajSeven \dMajSeven
80 \set chordChanges = ##t
86 \remove "New_fingering_engraver"
94 \set Staff.stringTunings = #cuatroTuning
96 % #'(fret-diagram-details string-count) = #'4
97 \override FretBoard.fret-diagram-details.finger-code = #'in-dot
101 \new TabStaff \relative c'' {
102 \set TabStaff.stringTunings = #cuatroTuning
111 \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)