boernel/lilypond-common-includes
14
0
Fork 0
Code Issues 19 Pull Requests 1 Packages Projects Releases Wiki Activity

fix altChord for SVG Output

Browse Source
This commit is contained in:
tux 2025-04-19 17:03:09 +02:00
parent d2dbf3448a
commit cc4fc9f297
1 changed files with 27 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
chord_settings.ly
View File

@ -40,8 +40,11 @@ shiftChords = #(define-music-function (parser location xshift chords) (number? l
altChord = altChord =
#(define-music-function (parser location mainchord altchord) (ly:music? ly:music?) #(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 { \markup {
\translate #'(-0.5 . 0) \translate #'(-0.5 . 0)
\score { \score {
@ -51,6 +54,7 @@ altChord =
\context { \context {
\ChordNames \ChordNames
\override ChordName.extra-spacing-width = #'(0 . 0.3) \override ChordName.extra-spacing-width = #'(0 . 0.3)
\override ChordName.stencil = #remove-point-and-click
} }
\context { \context {
\Score \Score
@ -58,12 +62,11 @@ altChord =
} }
} }
} }
} }#})))
#})
#{ #{
\once \set chordNameFunction = #chord-namer \once \set chordNameFunction = #chord-name
#mainchord #mainchord
#}) #}))
% kleine Mollakkorde und Alteration ausgeschrieben % kleine Mollakkorde und Alteration ausgeschrieben
#(define (note-name->german-markup-nosym pitch lowercase?) #(define (note-name->german-markup-nosym pitch lowercase?)