chExceptionMusic = {
<c e g d'>1-\markup { \super "add9" }
}
chExceptions = #(append
(sequential-music-to-chord-exceptions chExceptionMusic #t)
ignatzekExceptions)
up = \upbow
do = \downbow
cr = \override NoteHead #'style = #'cross
no = \revert NoteHead #'style
\header {
title = "Test guitare"
}
dsus = \markup {
\fret-diagram #"6-x;5-x;4-o;3-2;2-3;1-o;"
}
cadd = \markup {
\fret-diagram #"6-x;5-3;4-2;3-o;2-3;1-o;"
}
gsix = \markup {
\fret-diagram #"6-3;5-2;4-o;3-o;2-3;1-o;"
}
amaj = \markup {
\fret-diagram #"6-x;5-o;4-2;3-2;2-2;1-o;"
}
accords = \chordmode {
\set chordNameExceptions = #chExceptions
d2:sus2 c4:9^7 g:6
d2:sus2 s8 a4.
d2:sus2 c4:9^7 g:6
d2:sus2 s8 a4.
}
staffGuitareJazz = \new RhythmicStaff {
\time 4/4
\set Score.markFormatter = #format-mark-box-letters
\mark \default c8.\do ^\dsus c16\up c8\do c16\do c\up c8\do ^\cadd c16\do c\up c8\do ^\gsix c16\do c16\up
c8.\do ^\dsus c16\up c8\do c16\do c\up \cr c\do c\up \no c8\do ^\amaj c\do \cr c16\do c\up \no
c8.\do c16\up c8\do c16\do c\up c8\do c16\do c\up c8\do c16\do c16\up
c8.\do c16\up c8\do c16\do c\up \cr c\do c\up \no c8\do c\do \cr c16\do c\up
\bar "|."
}
\score {
<<
\new ChordNames \accords
\staffGuitareJazz
>>
}