release: 1.3.12

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

diff --git a/input/test/hara-kiri.ly b/input/test/hara-kiri.ly
index 4a63bd93674d402b970a7f31e22858a568673119..dc0bcd1f983a6a3590666a30ec376c8dd0e754c9 100644 (file)
--- a/input/test/hara-kiri.ly
+++ b/input/test/hara-kiri.ly
@@ -1,36 +1,89 @@
+\version "1.3.5";
+
+toeter_i = \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 
+       \context Voice = upper {
+               e4 e e e \break }
+       f f f f
+       g g g g 
+}>
+
+toeter_ii = \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 = \context Staff = toeters <
+       \toeter_i
+       \toeter_ii
+>
+ 
+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 = \context Staff = zoger \notes \relative c'' {
+       \clef treble;
+       \property Staff.instrument = "Zoger"
+       \property Staff.instr = "Zog."
+       c4^"zog" d e f 
+       \skip 1*2;
+
+       \translator Staff=zager
+       \stemdown 
+       c2 g2
+       
+       a4 b c d 
+       \skip 1*1;
+}
+
+zagers = \context GrandStaff <
+       \zager
+       \zoger
+>
+ 
 \score{
-       \melodic{
-               c4 c c c \break
-               d d d d \break
-               R1*4 \break
-               e4 e e e \break
-               f f f f \break
-       }
+       <
+               \context StaffGroup = toeters <
+                       \toeters
+               >
+               \context StaffGroup = zagers <
+                       \zagers
+               >
+       >
        \paper{
-               linewidth = 40.0\mm;
-
-% this is broken: edit init/engraver.ly
-%
-%{
-Staff = \translator {
-       \type "Engraver_group_engraver";
-       defaultclef = violin;
-
-       \consists "Bar_engraver";
-       \consists "Clef_engraver";
-       \consists "Key_engraver";
-       \consists "Meter_engraver";
-       \consists "Local_key_engraver";
-       \consists "Staff_sym_engraver";
-       \consists "Collision_engraver";
-       \consists "Rest_collision_engraver";
-       \consists "Bar_column_engraver";
-       \consists "Bar_number_engraver";
-
-       \consists "Separating_line_group_engraver";
-%      \consists "Line_group_engraver";
-       \consists "Hara_kiri_line_group_engraver";
-%}
-       }
+               linewidth = 80.0\mm;
+               \translator { \HaraKiriStaffContext }
+%uh?
+               \translator { \OrchestralScoreContext }
+%              \translator { \OrchestralPartStaffContext }
        }
 }
+
+