Compare commits

..

1 Commits

Author SHA1 Message Date
44ee092ebf change accidentalStyle to modern-voice 2025-04-14 23:22:23 +04:00

View File

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