* 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 1981674bcd06ec807fbb9790c423b2147fac297f..a8365be09f65c018c353f78eae745317cc2f35ec 100644 (file)
--- a/input/test/hara-kiri.ly
+++ b/input/test/hara-kiri.ly
@@ -1,10 +1,17 @@
-\version "1.3.5";
+\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 }
-       \context Voice = upper { \stemup s1*6 }
+       \context Voice = lower { \stemDown s1*6 }
+       \context Voice = upper { \stemUp s1*6 }
        \context Voice = together  { 
 
        c'''4^"toet I" c c c 
@@ -16,25 +23,25 @@ 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 
        \context Voice = lower {
-               \stemdown 
+               \stemDown 
                e4 e e e 
         }
        f f f f 
        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 
@@ -42,28 +49,32 @@ zager = \context Staff = zager \notes \relative c'' {
        f e d c 
        c d e f 
        \property Staff.instr = #"Zag."
-       \stemup
+       \stemUp
        f e d c 
        c d e f 
        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 
+       \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 }