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

fix tranpose

Browse Source
This commit is contained in:
tux 2024-05-27 14:56:44 +02:00
parent 0df95f6441
commit b3d46ff607
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
verses_with_chords.ly
View File

@ -122,6 +122,8 @@
newtext newtext
1 "\n" 2)))))) 1 "\n" 2))))))
#(use-modules (lily display-lily))
% Kompletten Vers mit Akkorden % Kompletten Vers mit Akkorden
#(define-markup-command (chordverse layout props stanza verse) (string-or-music? string?) #(define-markup-command (chordverse layout props stanza verse) (string-or-music? string?)
#:properties ( #:properties (
@ -132,7 +134,7 @@
) )
"Vers mit Akkorden" "Vers mit Akkorden"
(let ((transp (if (car transposition) (let ((transp (if (car transposition)
(string-append "\\transpose " (note-name->string (car transposition)) " " (note-name->string (cdr transposition))) (string-append "\\transpose " (symbol->string (note-name->lily-string (car transposition))) " " (symbol->string (note-name->lily-string (cdr transposition))))
""))) "")))
(interpret-markup layout props (interpret-markup layout props
(markup #:override `(baseline-skip . ,(+ intraverse-vspace songTextLineHeigth)) #:anchor-x-between #:stanza stanza (markup #:override `(baseline-skip . ,(+ intraverse-vspace songTextLineHeigth)) #:anchor-x-between #:stanza stanza