%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\version "2.18.2"
#(define (lower-extension pitch chbass)
"Return lowered markup for pitch note name."
#{
\markup \raise #-1.9 \halign #0.2
#(note-name->markup pitch chbass)
#})
\layout {
\context {
\ChordNames
slashChordSeparator = \markup {
% the \hspace commands simulate kerning
\hspace #-1.2
\lower #0.8 \rotate#-35 \scale #'(1 . 1.3) "|"
\hspace #-1.4
}
chordNoteNamer = #lower-extension
}
}
\score {
\new StaffGroup <<
\chords {
f2.:m c4:7/e c2:maj7
f2:m/a f/g c:7/g c:7/e e/f
}
\new Staff { \key aes \major \time 3/4 c'4 aes'2 c'4 bes'2 r4 r r r r r
r r r }
>>
\layout { }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%