14 lines
306 B
Plaintext
14 lines
306 B
Plaintext
TRANSPOSITION = ##f
|
|
|
|
transposeGlobal =
|
|
#(define-void-function (from to) (ly:pitch? ly:pitch?)
|
|
(set! TRANSPOSITION (cons from to)))
|
|
|
|
transposable =
|
|
#(define-music-function (music) (ly:music?)
|
|
(if TRANSPOSITION
|
|
#{
|
|
\transpose #(car TRANSPOSITION) #(cdr TRANSPOSITION) #music
|
|
#}
|
|
music))
|