* lily/beam.cc (set_stem_lengths): extend stems for gapped tremolo

[lilypond.git] / input / test / hara-kiri.ly

diff --git a/input/test/hara-kiri.ly b/input/test/hara-kiri.ly
index c1956b1b807143f242f262faf93e55d6d346d0a3..a8365be09f65c018c353f78eae745317cc2f35ec 100644 (file)
--- a/input/test/hara-kiri.ly
+++ b/input/test/hara-kiri.ly
@@ -1,6 +1,13 @@
-\version "1.3.110";
+\version "1.5.68"
 
-toeter_i = \notes\relative c <{
+\header {
+texidoc = "Hara kiri staves disappear when empty "
+}
+
+
+% todo: use partcombine?, junk?
+
+toeterI =  \notes\relative c <{
                \property Staff.instrument = #"Toeters"
                \property Staff.instr = #"Ttr." }
        \context Voice = lower { \stemDown s1*6 }
@@ -16,7 +23,7 @@ toeter_i = \notes\relative c <{
        g g g g 
 }>
 
-toeter_ii = \notes \relative c \context Voice = together { 
+toeterIi =  \notes \relative c \context Voice = together { 
        c''4^"toet II" c c c 
        d d d d 
        R1 
@@ -28,13 +35,13 @@ toeter_ii = \notes \relative c \context Voice = together {
        g g g g
 }
 
-toeters = \context Staff = toeters <
-       \toeter_i
-       \toeter_ii
+toeters =  \context Staff = toeters <
+       \toeterI
+       \toeterIi
 >
  
-zager = \context Staff = zager \notes \relative c'' {
-       \clef treble;
+zager =  \context Staff = zager \notes \relative c'' {
+       \clef treble
        \property Staff.instrument = #"Zager"
        \property Staff.instr = #"Zag."
        c4^"zag" d e f 
@@ -48,22 +55,26 @@ zager = \context Staff = zager \notes \relative c'' {
        f e d c
 }
 
-zoger = \context Staff = zoger \notes \relative c'' {
-       \clef treble;
+zoger =  \context Staff = zoger \notes \relative c'' {
+       % Hmm
+        \property Staff.HaraKiriVerticalGroup \override
+           #'items-worth-living = #'(#t #t)
+
+
+       \clef treble
        \property Staff.instrument = #"Zoger"
        \property Staff.instr = #"Zog."
        c4^"zog" d e f 
-       \skip 1*2;
-
+       \skip 1*2
        \translator Staff=zager
        \stemDown 
        c2 g2
        
        a4 b c d 
-       \skip 1*1;
+       \skip 1*1
 }
 
-zagers = \context GrandStaff <
+zagers =  \context GrandStaff <
        \zager
        \zoger
 >
@@ -78,7 +89,7 @@ zagers = \context GrandStaff <
                >
        >
        \paper{
-               linewidth = 80.0\mm;
+               linewidth = 100.0\mm
                \translator { \HaraKiriStaffContext }
 %uh?
                \translator { \OrchestralScoreContext }