Compare commits
2 Commits
44ee092ebf
...
72d6c83f84
Author | SHA1 | Date | |
---|---|---|---|
72d6c83f84 | |||
140bc611d1 |
@ -43,7 +43,7 @@ generalLayout = \layout {
|
|||||||
}
|
}
|
||||||
\context {
|
\context {
|
||||||
\Staff
|
\Staff
|
||||||
\accidentalStyle modern
|
\accidentalStyle modern-voice
|
||||||
\consists Merge_rests_engraver
|
\consists Merge_rests_engraver
|
||||||
}
|
}
|
||||||
\context {
|
\context {
|
||||||
|
@ -38,13 +38,14 @@ shiftChords = #(define-music-function (parser location xshift chords) (number? l
|
|||||||
$chords
|
$chords
|
||||||
#})
|
#})
|
||||||
|
|
||||||
altChord = #(define-music-function (parser location mainchord altchord) (ly:music? ly:music?)
|
altChord =
|
||||||
|
#(define-music-function (parser location mainchord altchord) (ly:music? ly:music?)
|
||||||
(define (chord-namer in-pitches bass inversion context)
|
(define (chord-namer in-pitches bass inversion context)
|
||||||
#{
|
#{
|
||||||
\markup {
|
\markup {
|
||||||
\translate #'(-0.5 . 0)
|
\translate #'(-0.5 . 0)
|
||||||
\score {
|
\score {
|
||||||
\chords { #mainchord \klamm #altchord }
|
\chords { \transposable #TRANSPOSITION { #(music-clone mainchord) \klamm #(music-clone altchord) } }
|
||||||
\layout {
|
\layout {
|
||||||
\LAYOUT
|
\LAYOUT
|
||||||
\context {
|
\context {
|
||||||
|
Loading…
x
Reference in New Issue
Block a user