-
-\version "2.1.7"
-\header { texidoc="@cindex Octave Doubling
-Octave doubling parts of music. "
-}
-
-upperOne = \notes\relative c'' {
- a4 a a a
- a4 a a a
- a4 a a a
- a4 a a a
-}
-
-upperOctave = \notes <<
- \context Thread=upperOne { \transpose c' c \upperOne }
- \context Thread=upperOne {
- \property Thread.devNullThread = #'allways s1*2
- \property Thread.devNullThread = #'() s1*2
- }
->>
-
-lowerOne = \notes\relative c {
- a8 a a a a a a a
- a8 a a a a a a a
- a8 a a a a a a a
- a8 a a a a a a a
-}
-
-firstEight = \notes {
- \property Thread.devNullThread = #'() s8
- \property Thread.devNullThread = #'allways s8*7
-}
-
-lowerOctave = \notes <<
- \context Thread=lowerOne { \transpose c' c \lowerOne }
- \context Thread=lowerOne {
- \repeat "unfold" 4 { \firstEight }
- }
->>
-
-\score {
- <<
- \context PianoStaff <<
- \context Staff=upper <<
- \context Voice=upperOne <<
- \upperOne
- \upperOctave
- >>
- >>
- \context Staff=lower <<
- \clef bass
- \context Voice=lowerOne <<
- \lowerOne
- \lowerOctave
- >>
- >>
- >>
- >>
- \paper { }
-}
-