Notenbund/lilypond-common-includes
15
0
Fork 0
Code Issues 24 Pull Requests 1 Packages Projects Releases Wiki Activity

Fix transposeGlobal: Make additional transpositions possible #1487

Merged
tux merged 1 commits from fix_transposition into main 2026-04-22 11:50:25 +02:00
Conversation 1 Commits 1 Files Changed 1 +6 -1
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit bb940b2a3b - Show all commits

7
private_includes/base/transposition.ily
View File

@@ -2,7 +2,12 @@ TRANSPOSITION = #(cons #f #f)
transposeGlobal = transposeGlobal =
#(define-void-function (from to) (ly:pitch? ly:pitch?) #(define-void-function (from to) (ly:pitch? ly:pitch?)
(set! TRANSPOSITION (cons from to))) (if (not (car TRANSPOSITION))
(set! TRANSPOSITION (cons from to))
(let ((current_to (cdr TRANSPOSITION))
(interval (ly:pitch-diff to from)))
(set! TRANSPOSITION (cons (car TRANSPOSITION)
(ly:pitch-transpose current_to interval))))))
transposable = transposable =
#(define-music-function (fromto music) (pair? ly:music?) #(define-music-function (fromto music) (pair? ly:music?)