fix altChord for SVG Output

This commit is contained in:
tux 2025-04-19 17:03:09 +02:00
parent d2dbf3448a
commit cc4fc9f297

View File

@ -40,8 +40,11 @@ shiftChords = #(define-music-function (parser location xshift chords) (number? l
altChord =
#(define-music-function (parser location mainchord altchord) (ly:music? ly:music?)
(define (chord-namer in-pitches bass inversion context)
#{
(let* ((remove-point-and-click
(lambda (grob)
(ly:grob-set-property! grob 'cause #f)
(ly:text-interface::print grob)))
(chord-name (lambda (in-pitches bass inversion context) #{
\markup {
\translate #'(-0.5 . 0)
\score {
@ -51,6 +54,7 @@ altChord =
\context {
\ChordNames
\override ChordName.extra-spacing-width = #'(0 . 0.3)
\override ChordName.stencil = #remove-point-and-click
}
\context {
\Score
@ -58,12 +62,11 @@ altChord =
}
}
}
}
#})
}#})))
#{
\once \set chordNameFunction = #chord-namer
\once \set chordNameFunction = #chord-name
#mainchord
#})
#}))
% kleine Mollakkorde und Alteration ausgeschrieben
#(define (note-name->german-markup-nosym pitch lowercase?)