Compare commits

...

2 Commits

Author SHA1 Message Date
72d6c83f84 change accidentalStyle to modern-voice 2025-04-17 20:27:50 +02:00
tux
140bc611d1 fix altChord transposition 2025-04-17 20:22:21 +02:00
2 changed files with 4 additions and 3 deletions

View File

@ -43,7 +43,7 @@ generalLayout = \layout {
}
\context {
\Staff
\accidentalStyle modern
\accidentalStyle modern-voice
\consists Merge_rests_engraver
}
\context {

View File

@ -38,13 +38,14 @@ shiftChords = #(define-music-function (parser location xshift chords) (number? l
$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)
#{
\markup {
\translate #'(-0.5 . 0)
\score {
\chords { #mainchord \klamm #altchord }
\chords { \transposable #TRANSPOSITION { #(music-clone mainchord) \klamm #(music-clone altchord) } }
\layout {
\LAYOUT
\context {