release: 1.0.8

[lilypond.git] / input / rhythm.ly

diff --git a/input/rhythm.ly b/input/rhythm.ly
index c74c9d8dcd69f66e587b81224b05c6aa81bf7a6b..1ef9d13d0a37ee438b7fba52bb3a0dae79ae0abb 100644 (file)
--- a/input/rhythm.ly
+++ b/input/rhythm.ly
@@ -1,60 +1,116 @@
-%
-%      I've got rhythm!
-%
-% add any impressive examples here, please
+\header{
+filename =      "rhythm.ly";
+enteredby =     "HWN";
+copyright =     "public domain";
+TestedFeatures =        "multiple meters, beaming, unsynced bars, userdefd engravers";
+}
 
-ritme = staff {
-       melodic
 
-       music { $
-       c8                                      |
 
-       [a8() a8. a8 a16 a16 a16] c4.           |       % watch the beams!
+\version "1.0.2";
+
+ritme = \melodic\transpose c'' {
+       \partial 8;
+
+       \time  4/4;
+       c8                                      |
+       
+       [a8~  a8. a8 a16 a16 a16] c4.           |       % watch the beams!
         r32 r32 r16 r8 r4 r2                   |
-       \meter{  5*16}
+       \time   5/16;
 
        % divide measure in 5 equal parts. Usually it 2+3 or 3+2
-       \grouping { 5*16 }      
+       \grouping  16*5 ;       
        [c8 c16 c8 ]                            |       % watch THIS!
-       \plet{5/4} [c16 c16 c16 c16]\plet{1/1} |
-       \meter{  2*8}
+        [5/4 c16 c16 c16 c16]1/1 |
+       \time   2/8;
        c4                              |
        c4      c4      c4      c4
-       \meter {4*4}
+       \time 4/4;
        c1 c1 c1
        
 %      [c16 c16 c16 c16 ]                      |
 %      [c16 c16 c16 c16 c16 ]                  |
 %      [c16 c16 c16 c16 c16 ]                  |       
        
-       $ }
+        }
+       
 
-       commands {      % override "commands" section of Score.
-               partial 1*8
-               meter{ 4*4}
-       }
-}
-another = staff {
-       melodic
-       music { $
-               c1 c1 c1 c4 c4 c4 c4  {\meter 4*4} c1 c1 c1
-       $ }
-}
+another = 
+       \melodic{ \time 4/4; 
+               c1.  c1. c4 c4 c4 c4  \time  4/4; c1 c1 c1
+        }
 
-yanother = staff {
-       melodic
-       music { $
+
+yanother = 
+       \melodic{ \time 4/4; 
                c1 c1 c1 c4 c4 c4 c4  c1 c1 c1
-       $ }
+        }
+
+
+\score{
+       \type StaffGroup <
+               \ritme
+               \another
+               \type RhythmicStaff {
+                       \yanother
+               }
+       >
+       
+       \paper{
+
+       %% remove Timing_engraver and Bar_number_engraver
+       Score = \translator {
+       \type Score_engraver;
+
+       %\consists "Timing_engraver";
+
+       \consists "Span_score_bar_engraver";
+       \consists "Score_priority_engraver";
+       \consists "Priority_horizontal_align_engraver";
+       \consists "Vertical_align_engraver";
+
+
+       \accepts "StaffGroup";
+       \accepts "Staff";
+       \accepts "Lyrics";
+       \accepts "GrandStaff";
 }
 
-score {
-       staff{ritme}
-       staff { another }
-       staff { yanother }
-       commands { meter {4*4 }}
-       paper {
-               unitspace 2cm
-               geometric 1.3
+RhythmicStaff = \translator
+{
+         \type "Engraver_group_engraver";
+       nolines  = "1";
+         \consists "Pitch_squash_engraver";
+
+       \consists "Bar_column_engraver";
+       \consists "Bar_number_engraver";
+         \consists "Bar_engraver";
+         \consists "Meter_engraver";
+         \consists "Staff_sym_engraver";
+         \consists "Line_group_engraver";
+         \consists "Timing_engraver";
+         \accepts "Voice";
+}
+       %% add Timing_engraver to the staff
+       Staff = \translator {
+         \type "Engraver_group_engraver";
+       defaultclef=    violin;
+
+       \consists "Bar_column_engraver";
+       \consists "Bar_number_engraver";
+       \consists "Timing_engraver";
+         \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 "Line_group_engraver";
+         \accepts "Voice";
+       }
        }
-}
\ No newline at end of file
+}