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

Compare commits

base: Notenbund:bb940b2a3bd9d3b5b2255bc0bad7b7015da74be7
Branches Tags
Notenbund:main Notenbund:filter-authors Notenbund:chordpro Notenbund:chord-spacing-experimental Notenbund:tocSubtitleText-Variable
...
compare: Notenbund:03bb7562eec0fc74483918f7c20a3e92416d8046
Branches Tags
Notenbund:filter-authors Notenbund:main Notenbund:chordpro Notenbund:chord-spacing-experimental Notenbund:tocSubtitleText-Variable

1 Commits
bb940b2a3b ... 03bb7562ee

Author SHA1 Message Date
zuk (Jakob Krueger)
03bb7562ee Fix transposeGlobal: Make additional transpositions possible 2026-04-22 11:14:51 +02:00
1 changed files with 6 additions and 1 deletions
Expand all files Collapse all files

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?)