input/test/hara-kiri.ly

   1 \version "1.7.6"
   2
   3 \header {
   4 texidoc = "Hara kiri staves disappear when empty "
   5 }
   6
   7
   8 % todo: use partcombine?, junk?
   9
  10 toeterI =  \notes\relative c <{
  11                 \property Staff.instrument = #"Toeters"
  12                 \property Staff.instr = #"Ttr." }
  13         \context Voice = lower { \stemDown s1*6 }
  14         \context Voice = upper { \stemUp s1*6 }
  15         \context Voice = together  {
  16
  17         c'''4^"toet I" c c c
  18         d d d d \break
  19         R1
  20         \context Voice = upper {
  21                 e4 e e e \break }
  22         f f f f
  23         g g g g
  24 }>
  25
  26 toeterIi =  \notes \relative c \context Voice = together {
  27         c''4^"toet II" c c c
  28         d d d d
  29         R1
  30         \context Voice = lower {
  31                 \stemDown
  32                 e4 e e e
  33         }
  34         f f f f
  35         g g g g
  36 }
  37
  38 toeters =  \context Staff = toeters <
  39         \toeterI
  40         \toeterIi
  41 >
  42
  43 zager =  \context Staff = zager \notes \relative c'' {
  44         \clef treble
  45         \property Staff.instrument = #"Zager"
  46         \property Staff.instr = #"Zag."
  47         c4^"zag" d e f
  48         \property Staff.instr = #"Zag. \\& Zog."
  49         f e d c
  50         c d e f
  51         \property Staff.instr = #"Zag."
  52         \stemUp
  53         f e d c
  54         c d e f
  55         f e d c
  56 }
  57
  58 zoger =  \context Staff = zoger \notes \relative c'' {
  59         % Hmm
  60         \property Staff.HaraKiriVerticalGroup \override
  61             #'items-worth-living = #'(#t #t)
  62
  63
  64         \clef treble
  65         \property Staff.instrument = #"Zoger"
  66         \property Staff.instr = #"Zog."
  67         c4^"zog" d e f
  68         \skip 1*2
  69         \translator Staff=zager
  70         \stemDown
  71         c2 g2
  72
  73         a4 b c d
  74         \skip 1*1
  75 }
  76
  77 zagers =  \context GrandStaff <
  78         \zager
  79         \zoger
  80 >
  81
  82 \score{
  83         <
  84                 \context StaffGroup = toeters <
  85                         \toeters
  86                 >
  87                 \context StaffGroup = zagers <
  88                         \zagers
  89                 >
  90         >
  91         \paper{
  92                 linewidth = 100.0\mm
  93                 \translator { \HaraKiriStaffContext }
  94 %uh?
  95                 \translator { \OrchestralScoreContext }
  96 %               \translator { \OrchestralPartStaffContext }
  97         }
  98 }
  99
 100
 101 %% new-chords-done %%