input/test/octave-duplicate.ly

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