}
\include "deutsch.ly"
+\version "1.5.18"
#(define (transform music)
(let* ((es (ly-get-mus-property music 'elements))
#(define ((trans pitches) music)
(let* ((es (ly-get-mus-property music 'elements))
(e (ly-get-mus-property music 'element))
- (p (ly-get-mus-property music 'pitch))
- (body (ly-get-mus-property music 'body))
- (alts (ly-get-mus-property music 'alternatives)))
+ (p (ly-get-mus-property music 'pitch)))
(if (pair? es)
(ly-set-mus-property
music 'elements
(map (trans pitches) es)))
- (if (music? alts)
- (ly-set-mus-property
- music 'alternatives
- ((trans pitches) alts)))
-
- (if (music? body)
- (ly-set-mus-property
- music 'body
- ((trans pitches) body)))
-
(if (music? e)
(ly-set-mus-property
music 'element