Jay Lee <jkllee <at> mac.com> writes:
> What I want to do is to change the in-dot finger-code to reflect not
fingerings,
> but scale intervals in scale and arpeggio diagrams of the entire
fretboard or
> part of a fretboard.
Here is the complete example:
\version "2.14.0"
#(define-public ukulele-tuning '(9 4 0 7))
\addChordShape #'MajorTriad
#ukulele-tuning
#'(
(place-fret 4 1 5)
(place-fret 4 6 1)
(place-fret 4 10 3)
(place-fret 4 13 5)
(place-fret 3 1 1)
(place-fret 3 5 3)
(place-fret 3 8 5)
(place-fret 3 13 1)
(place-fret 2 1 3)
(place-fret 2 4 5)
(place-fret 2 9 1)
(place-fret 2 13 3)
(place-fret 2 16 5)
(place-fret 1 4 1)
(place-fret 1 8 3)
(place-fret 1 11 5)
(place-fret 1 16 1)
)
\storePredefinedDiagram #default-fret-table \chordmode { des'' }
#ukulele-tuning
#(chord-shape 'MajorTriad ukulele-tuning)
\addChordShape #'MinorTriad
#ukulele-tuning
#'(
(place-fret 4 1 5)
(place-fret 4 6 1)
(place-fret 4 9 3)
(place-fret 4 13 5)
(place-fret 3 1 1)
(place-fret 3 4 3)
(place-fret 3 8 5)
(place-fret 3 13 1)
(place-fret 3 16 3)
(place-fret 2 4 5)
(place-fret 2 9 1)
(place-fret 2 12 3)
(place-fret 2 16 5)
(place-fret 1 4 1)
(place-fret 1 7 3)
(place-fret 1 11 5)
(place-fret 1 16 1)
)
\storePredefinedDiagram #default-fret-table \chordmode { des'':m }
#ukulele-tuning
#(chord-shape 'MinorTriad ukulele-tuning)
\addChordShape #'DominantSeventh
#ukulele-tuning
#'(
(place-fret 4 1 5)
(place-fret 4 4 7)
(place-fret 4 6 1)
(place-fret 4 10 3)
(place-fret 4 13 5)
(place-fret 4 16 7)
(place-fret 3 1 1)
(place-fret 3 5 3)
(place-fret 3 8 5)
(place-fret 3 11 7)
(place-fret 3 13 1)
(place-fret 2 1 3)
(place-fret 2 4 5)
(place-fret 2 7 7)
(place-fret 2 9 1)
(place-fret 2 13 3)
(place-fret 2 16 5)
(place-fret 1 2 7)
(place-fret 1 4 1)
(place-fret 1 8 3)
(place-fret 1 11 5)
(place-fret 1 14 7)
(place-fret 1 16 1)
)
\storePredefinedDiagram #default-fret-table \chordmode { des'':7 }
#ukulele-tuning
#(chord-shape 'DominantSeventh ukulele-tuning)
mychords = \chordmode{
des'' des'':m des'':7
}
<<
\context FretBoards {
\set stringTunings = #ukulele-tuning
\override FretBoards.FretBoard
#'size = #'7
\override FretBoard
#'(fret-diagram-details finger-code) = #'in-dot
\override FretBoard
#'(fret-diagram-details fret-count) = #'15
\mychords
}
\lyrics {
major minor seventh
}
>>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
