input/test/octave-duplicate.ly

   1 \version "1.7.18"
   2 \header { texidoc="@cindex Octave Doubling
   3 Octave doubling parts of music. "
   4 }
   5
   6 upperOne = \notes\relative c'' {
   7   a4 a a a
   8   a4 a a a
   9   a4 a a a
  10   a4 a a a
  11 }
  12
  13 upperOctave = \notes <
  14   \context Thread=upperOne { \transpose c' c \upperOne }
  15   \context Thread=upperOne {
  16     \property Thread.devNullThread = #'allways s1*2
  17     \property Thread.devNullThread = #'() s1*2
  18   }
  19 >
  20
  21 lowerOne = \notes\relative c {
  22   a8 a a a  a a a a
  23   a8 a a a  a a a a
  24   a8 a a a  a a a a
  25   a8 a a a  a a a a
  26 }
  27
  28 firstEight = \notes {
  29   \property Thread.devNullThread = #'() s8
  30   \property Thread.devNullThread = #'allways s8*7
  31 }
  32
  33 lowerOctave = \notes <
  34   \context Thread=lowerOne { \transpose c' c  \lowerOne }
  35   \context Thread=lowerOne {
  36     \repeat "unfold" 4 { \firstEight }
  37   }
  38 >
  39
  40 \score {
  41   <
  42     \context PianoStaff <
  43       \context Staff=upper <
  44         \context Voice=upperOne <
  45           \upperOne
  46           \upperOctave
  47         >
  48       >
  49       \context Staff=lower <
  50         \clef bass
  51         \context Voice=lowerOne <
  52           \lowerOne
  53           \lowerOctave
  54         >
  55       >
  56     >
  57   >
  58   \paper { }
  59 }
  60 %% new-chords-done %%