shiftChord für manuelle Feinjustierung eingeführt #1

This commit is contained in:
Christoph Wagner 2023-08-10 09:39:07 +02:00
parent fbf273dae9
commit 973d72301c

View File

@ -16,6 +16,12 @@ bchord =
\revert ChordName.font-series
#})
shiftChord = #(define-music-function (parser location xshift chord) (number? ly:music?)
#{
\once \override ChordName.extra-offset = #`(,xshift . 0)
$chord
#})
% kleine Mollakkorde und Alteration ausgeschrieben
#(define (note-name->german-markup-nosym pitch lowercase?)
(define (pitch-alteration-semitones pitch) (inexact->exact (round (* (ly:pitch-alteration pitch) 2))))