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"
30 % add FretBoards for the Cuatro
31 % Note: This section could be put into a separate file
32 % predefined-cuatro-fretboards.ly
33 % and \included into each of your compositions
35 cuatroTuning = #`(,(ly:make-pitch 0 6 0)
36 ,(ly:make-pitch 1 3 SHARP)
37 ,(ly:make-pitch 1 1 0)
38 ,(ly:make-pitch 0 5 0))
40 dSix = { <a\4 b\1 d\3 fis\2> }
41 dMajor = { <a\4 d\1 d\3 fis \2> }
42 aMajSeven = { <a\4 cis\1 e\3 g\2> }
43 dMajSeven = { <a\4 c\1 d\3 fis\2> }
44 gMajor = { <b\4 b\1 d\3 g\2> }
46 \storePredefinedDiagram #default-fret-table \dSix
49 \storePredefinedDiagram #default-fret-table \dMajor
52 \storePredefinedDiagram #default-fret-table \aMajSeven
55 \storePredefinedDiagram #default-fret-table \dMajSeven
58 \storePredefinedDiagram #default-fret-table \gMajor
62 % end of potential include file /predefined-cuatro-fretboards.ly
65 #(set-global-staff-size 16)
67 primerosNames = \chordmode {
72 \dSix \dMajor \aMajSeven \dMajSeven
79 \set chordChanges = ##t
85 \remove "New_fingering_engraver"
93 \set Staff.stringTunings = #cuatroTuning
95 % #'(fret-diagram-details string-count) = #'4
96 \override FretBoard.fret-diagram-details.finger-code = #'in-dot
100 \new TabStaff \relative c'' {
101 \set TabStaff.stringTunings = #cuatroTuning
110 \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1 16)