-\version "2.3.17"
+\version "2.7.39"
\include "deutsch.ly"
% possible rename to scheme- something. -gp
% TODO: ask if it needs to have so many empty bars in the middle. -gp
#(define (transform music)
(let* ((es (ly:music-property music 'elements))
- (n (ly:music-name music)))
- (if (not (equal? n "Sequential_music"))
- (ly:warn "transform needs sequential music!")
+ (n (ly:music-property music 'name)))
+ (if (not (equal? n 'SequentialMusic))
+ (ly:warning "transform needs SequentialMusic, got ~a" n)
(begin
(let recurse ((elts es))
(if (not (equal? elts '()))
-\version "2.3.17"
+\version "2.7.39"
pat = \transpose c c' \repeat unfold 2 {
- << { \context Staff=up {r8 e16 f g e f g } }
- { \context Staff=down <<
- \context Voice=vup { \stemUp \tieUp r16 d8.~d4 }
- \context Voice=vdwn { \stemDown c2 }
+ << { \context Staff = "up" {r8 e16 f g e f g } }
+ { \context Staff = "down" <<
+ \context Voice = "vup" { \stemUp \tieUp r16 d8.~d4 }
+ \context Voice = "vdwn" { \stemDown c2 }
>> }
>>
}
\score {
\transpose c c' \context PianoStaff <<
- \context Staff=up { \clef "G" }
- \context Staff=down { \clef "F" }
- { \applymusic #transform {
+ \new Staff = "up" { \clef "G" }
+ \new Staff = "down" { \clef "F" }
+ { \applyMusic #transform {
\pat {c e g c' e' }
\pat {c d a d' f' }
}
}
>>
- \paper {
+ \layout {
\context {
\PianoStaff
\override VerticalAlignment #'forced-distance = #10
}
- linewidth = 18.0 \cm
+ line-width = 18.0 \cm
}
\midi {