From bb940b2a3bd9d3b5b2255bc0bad7b7015da74be7 Mon Sep 17 00:00:00 2001 From: "zuk (Jakob Krueger)" Date: Wed, 22 Apr 2026 11:14:51 +0200 Subject: [PATCH] Fix transposeGlobal: Make additional transpositions possible --- private_includes/base/transposition.ily | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/private_includes/base/transposition.ily b/private_includes/base/transposition.ily index e5335bc..a244b88 100644 --- a/private_includes/base/transposition.ily +++ b/private_includes/base/transposition.ily @@ -2,7 +2,12 @@ TRANSPOSITION = #(cons #f #f) transposeGlobal = #(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 = #(define-music-function (fromto music) (pair? ly:music?) -- 2.49.1