release: 1.3.142

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

diff --git a/input/test/hara-kiri.ly b/input/test/hara-kiri.ly
index 49af9b64fdbcb6cfa6b9c2a85e45493ae469b240..579935774021218e55191f23211bf0aae419f149 100644 (file)
--- a/input/test/hara-kiri.ly
+++ b/input/test/hara-kiri.ly
@@ -1,85 +1,94 @@
-\version "1.0.7";
 
-toeter_i = \notes\relative c {
-       \property Staff.instrument = "Toeters"
-       \property Staff.instr = "Ttr."
-       c'''4 c c c \break
-       d d d d \break
-       R1 \break
-       \voiceone
-       e4 e e e \break
-       \onevoice
-       f f f f \break
-       g g g g
+\header {
+texidoc = "Hara kiri staffs disappear when empty ";
 }
 
-toeter_ii = \notes \relative c {
-       c''4 c c c \break
+
+% 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 = together  { 
+
+       c'''4^"toet I" c c c 
        d d d d \break
-       R1 \break
-       \voicetwo
-       e4 e e e \break
-       \onevoice
-       f f f f \break
+       R1 
+       \context Voice = upper {
+               e4 e e e \break }
+       f f f f
+       g g g g 
+}>
+
+toeterIi =  \notes \relative c \context Voice = together { 
+       c''4^"toet II" c c c 
+       d d d d 
+       R1 
+       \context Voice = lower {
+               \stemDown 
+               e4 e e e 
+        }
+       f f f f 
        g g g g
 }
 
-toeters = \type StaffGroup = xtoeters <
-       \type Staff = toeters <
-       \toeter_i
-       \toeter_ii
-       >
+toeters =  \context Staff = toeters <
+       \toeterI
+       \toeterIi
 >
  
-zager = \type Staff = zager \notes \relative c {
-       \clef bass;
-       \property Staff.instrument = "Zager"
-       \property Staff.instr = "Zag."
-       c4 d e f \break
-       \property Staff.instr = "Zag. \& Zog."
-       f e d c \break
-       c d e f \break
-       \property Staff.instr = "Zag."
-       \voiceone
-       f e d c \break
-       \onevoice
-       c d e f \break
+zager =  \context Staff = zager \notes \relative c'' {
+       \clef treble;
+       \property Staff.instrument = #"Zager"
+       \property Staff.instr = #"Zag."
+       c4^"zag" d e f 
+       \property Staff.instr = #"Zag. \\& Zog."
+       f e d c 
+       c d e f 
+       \property Staff.instr = #"Zag."
+       \stemUp
+       f e d c 
+       c d e f 
        f e d c
 }
 
-zoger = \type Staff = zoger \notes \relative c {
-       \clef bass;
-       \property Staff.instrument = "Zoger"
-       \property Staff.instr = "Zog."
-       c4 d e f \break
+zoger =  \context Staff = zoger \notes \relative c'' {
+       \clef treble;
+       \property Staff.instrument = #"Zoger"
+       \property Staff.instr = #"Zog."
+       c4^"zog" d e f 
        \skip 1*2;
-%      \staffone
+
        \translator Staff=zager
-       \voicetwo
-       c2 g2\break
-       \onevoice
-       a4 b c d \break
+       \stemDown 
+       c2 g2
+       
+       a4 b c d 
        \skip 1*1;
 }
 
- \include "score-paper.ly";
-
-zagers = \type GrandStaff <
+zagers =  \context GrandStaff <
        \zager
        \zoger
 >
  
 \score{
        <
-               \type StaffGroup = toeters <
+               \context StaffGroup = toeters <
                        \toeters
                >
-               \type StaffGroup = zagers <
+               \context StaffGroup = zagers <
                        \zagers
                >
        >
        \paper{
-               linewidth = 40.0\mm;
+               linewidth = 80.0\mm;
+               \translator { \HaraKiriStaffContext }
+%uh?
+               \translator { \OrchestralScoreContext }
+%              \translator { \OrchestralPartStaffContext }
        }
 }