input/test/hara-kiri.ly

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