]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/engraver-one-by-one.ly
Fix #362 (2)
[lilypond.git] / input / test / engraver-one-by-one.ly
index 9c3dcc587eeea254db9fad4cb6d36eb808f0e169..1fdb502d1cf0e68098bf78b5375e03b4f6a386e6 100644 (file)
@@ -1,84 +1,84 @@
-#(ly:set-option 'old-relative)
 
-\version "1.9.6"
+\version "2.10.0"
 \header {
-    
-texidoc = "The notation problem, @emph{what} symbols to create,
+  
+  texidoc = "The notation problem, creating a certain symbol,
     is handled by plugins. Each plugin is called Engraver. In this example,
-  we switch on engravers  one by one, in the following order
+engravers are switched on one by one, in the following order:
 
 @itemize
-@item Note heads
-@item Staff symbol
-@item Clef
-@item Stem
-@item Beams, slurs, accents
-@item Accidentals, bar lines, time signature, and key signature.
+@item note heads,
+@item staff symbol,
+@item clef,
+@item stem,
+@item beams, slurs, accents,
+@item accidentals, bar lines, time signature, and key signature.
 @end itemize
 
 Engravers are grouped. For example, note heads, slurs, beams etc. form
-a Voice context. Engravers for key, accidental, bar, etc. form the
+a Voice context. Engravers for key, accidental, bar, etc. form a
 Staff context.
 
 "
 
-    }
-\paper { raggedright = ##t }
-\include "engraver-example.ly"
+}
+\layout { ragged-right = ##t }
+
+\include "engraver-example.ily"
 
 
 %
 % setup for Request->Element conversion. Guru-only
 %
 
-MyStaffContext=\translator {
-       \type "Engraver_group_engraver"
-       \name Staff
+MyStaff =\context {
+  \type "Engraver_group"
+  \name Staff
 
-       \description "Handles clefs, bar lines, keys, accidentals.  It can contain
+  \description "Handles clefs, bar lines, keys, accidentals.  It can contain
 @code{Voice} contexts."
 
-       
-       \consists "Output_property_engraver"    
-       
-       \consists "Font_size_engraver"
-
-       \consists "Volta_engraver"
-       \consists "Separating_line_group_engraver"      
-       SeparatingGroupSpanner \override #'spacing-procedure
-         =  #Separating_group_spanner::set_spacing_rods_and_seqs
-       \consists "Dot_column_engraver"
-
-       \consists "Ottava_spanner_engraver"
-       \consists "Rest_collision_engraver"
-       \consists "Piano_pedal_engraver"
-       \consists "Instrument_name_engraver"
-       \consists "Grob_pq_engraver"
-       \consists "Forbid_line_break_engraver"
-       \consistsend "Axis_group_engraver"
-\consists "Pitch_squash_engraver"
-
-       minimumVerticalExtent = #'(-6 . 6)
-       extraVerticalExtent = ##f
-       verticalExtent = ##f 
-       localKeySignature = #'()
-
-       % explicitly set instrument, so we don't get 
-       % weird effects when doing instrument names for
-       % piano staves
-
-       instrument = #'()
-       instr = #'()
-         
-       \accepts "Voice"
+  
+  \consists "Output_property_engraver" 
+  
+  \consists "Font_size_engraver"
+
+  \consists "Volta_engraver"
+  \consists "Separating_line_group_engraver"   
+  \consists "Dot_column_engraver"
+
+  \consists "Ottava_spanner_engraver"
+  \consists "Rest_collision_engraver"
+  \consists "Piano_pedal_engraver"
+  \consists "Piano_pedal_align_engraver"
+  \consists "Instrument_name_engraver"
+  \consists "Grob_pq_engraver"
+  \consists "Forbid_line_break_engraver"
+  \consists "Axis_group_engraver"
+
+  \consists "Pitch_squash_engraver"
+
+  \override VerticalAxisGroup #'minimum-Y-extent = #'(-6 . 6)
+  extraVerticalExtent = ##f
+  verticalExtent = ##f 
+  localKeySignature = #'()
+
+                               % explicitly set instrument, so we don't get 
+                               % weird effects when doing instrument names for
+                               % piano staves
+
+  instrumentName = #'()
+  shortInstrumentName = #'()
+  
+  \accepts "Voice"
 }
 
 
-MyVoiceContext = \translator {
-       \type "Engraver_group_engraver"
-       \name Voice
+MyVoice = \context {
+  \type "Engraver_group"
+  \name Voice
 
-\description "
+  \description "
     Corresponds to a voice on a staff.  This context handles the
     conversion of dynamic signs, stems, beams, super- and subscripts,
     slurs, ties, and rests.
@@ -86,180 +86,148 @@ MyVoiceContext = \translator {
     You have to instantiate this explicitly if you want to have
     multiple voices on the same staff."
 
-       localKeySignature = #'()
-       \consists "Font_size_engraver"
-       
-       % must come before all
-       \consists "Voice_devnull_engraver"
-       \consists "Output_property_engraver"    
-       \consists "Arpeggio_engraver"
-       \consists "Multi_measure_rest_engraver"
-       \consists "Text_spanner_engraver"
-       \consists "Grob_pq_engraver"
-       \consists "Note_head_line_engraver"
-       \consists "Glissando_engraver"
-       \consists "Ligature_bracket_engraver"
-       \consists "Breathing_sign_engraver"
-       % \consists "Rest_engraver"
-       \consists "Grace_beam_engraver"
-       \consists "New_fingering_engraver"
-       \consists "Chord_tremolo_engraver"
-       \consists "Percent_repeat_engraver"
-       \consists "Slash_repeat_engraver"
-       \consists "Melisma_engraver"
+  localKeySignature = #'()
+  \consists "Font_size_engraver"
+  
+                               % must come before all
+  \consists "Output_property_engraver" 
+  \consists "Arpeggio_engraver"
+  \consists "Multi_measure_rest_engraver"
+  \consists "Text_spanner_engraver"
+  \consists "Grob_pq_engraver"
+  \consists "Note_head_line_engraver"
+  \consists "Glissando_engraver"
+  \consists "Ligature_bracket_engraver"
+  \consists "Breathing_sign_engraver"
+                               % \consists "Rest_engraver"
+  \consists "Grace_beam_engraver"
+  \consists "New_fingering_engraver"
+  \consists "Chord_tremolo_engraver"
+  \consists "Percent_repeat_engraver"
+  \consists "Slash_repeat_engraver"
 
 %{
- Must come before text_engraver, but after note_column engraver.
 Must come before text_engraver, but after note_column engraver.
 
 %}
-       \consists "Text_engraver"
-       \consists "Dynamic_engraver"
-       \consists "Fingering_engraver"
-
-       \consists "Script_column_engraver"
-       \consists "Rhythmic_column_engraver"
-       \consists "Cluster_spanner_engraver"
-       \consists "Tie_engraver"
-       \consists "Tie_engraver"
-       \consists "Tuplet_engraver"
-       \consists "A2_engraver"
-
-       \consists "Skip_event_swallow_translator"
-       \accepts Thread % bug if you leave out this!
-}
-
-MyThreadContext = \translator{
-       \type Engraver_group_engraver
-       \name Thread
-       localKeySignature = #'()
-\description "
-    Handles note heads, and is contained in the Voice context.  You
-    have to instantiate this explicitly if you want to adjust the
-    style of individual note heads.
-"
-       \consists "Font_size_engraver"  
-       \consists "Thread_devnull_engraver"
-       \consists "Note_heads_engraver"
-       \consists "Rest_engraver"
+  \consists "Text_engraver"
+  \consists "Dynamic_engraver"
+  \consists "Fingering_engraver"
 
-       % why here ? 
-       \consists "Output_property_engraver"    
+  \consists "Script_column_engraver"
+  \consists "Rhythmic_column_engraver"
+  \consists "Cluster_spanner_engraver"
+  \consists "Tie_engraver"
+  \consists "Tie_engraver"
+  \consists "Tuplet_engraver"
+  \consists "Note_heads_engraver"
+  \consists "Rest_engraver"
 
+  \consists "Skip_event_swallow_translator"
 }
 
 
-
-
 \score {
   \topVoice
-  \paper {
-      \translator { \MyStaffContext }
-      \translator { \MyVoiceContext }
-      \translator { \MyThreadContext }
-      }
+  \layout {
+    \context { \MyStaff }
+    \context { \MyVoice }
+  }
 }
 
 
-MyStaffContext = \translator {
-    \MyStaffContext
+MyStaff = \context {
+    \MyStaff
     \consists "Staff_symbol_engraver"
 }
 
 \score {
   \topVoice
-  \paper {
-      \translator { \MyStaffContext }
-      \translator { \MyVoiceContext }
-      \translator { \MyThreadContext }
-      }
+  \layout {
+      \context { \MyStaff }
+      \context { \MyVoice }
+            }
 }
 
-MyStaffContext = \translator {
-    \MyStaffContext
-      \consists "Clef_engraver"
+MyStaff = \context {
+    \MyStaff
+    \consists "Clef_engraver"
     \remove "Pitch_squash_engraver"
 }
 
 \score {
   \topVoice
-  \paper {
-      \translator { \MyStaffContext }
-      \translator { \MyVoiceContext }
-      \translator { \MyThreadContext }
-      }
+  \layout {
+    \context { \MyStaff }
+    \context { \MyVoice }
+  }
 }
 
-MyVoiceContext = \translator {
-    \MyVoiceContext
-    \consists "Stem_engraver"
-    }
+MyVoice = \context {
+  \MyVoice
+  \consists "Stem_engraver"
+}
 
 \score {
   \topVoice
-  \paper {
-      \translator { \MyStaffContext }
-      \translator { \MyVoiceContext }
-      \translator { \MyThreadContext }
-      }
+  \layout {
+    \context { \MyStaff }
+    \context { \MyVoice }
+  }
 }
 
-MyVoiceContext = \translator {
-    \MyVoiceContext
-       \consists "Beam_engraver"
+MyVoice = \context {
+  \MyVoice
+  \consists "Beam_engraver"
 }
 
 \score {
   \topVoice
-  \paper {
-      \translator { \MyStaffContext }
-      \translator { \MyVoiceContext }
-      \translator { \MyThreadContext }
-      }
+  \layout {
+    \context { \MyStaff }
+    \context { \MyVoice }
+  }
 }
 
-MyVoiceContext= \translator {
-    \MyVoiceContext
-    \consists "Phrasing_slur_engraver"
-    \consists "Slur_engraver"
-    \consists "Script_engraver"
+MyVoice= \context {
+  \MyVoice
+  \consists "Phrasing_slur_engraver"
+  \consists "Slur_engraver"
+  \consists "Script_engraver"
 }
 
 
 \score {
   \topVoice
-  \paper {
-      \translator { \MyStaffContext }
-      \translator { \MyVoiceContext }
-      \translator { \MyThreadContext }
-      }
+  \layout {
+    \context { \MyStaff }
+    \context { \MyVoice }
+  }
 }
 
-MyStaffContext = \translator {
-    \MyStaffContext
- \consists "Bar_engraver"
-    \consists "Time_signature_engraver"
-      
+MyStaff = \context {
+  \MyStaff
+  \consists "Bar_engraver"
+  \consists "Time_signature_engraver"
 }
 
 \score {
   \topVoice
-  \paper {
-      \translator { \MyStaffContext }
-      \translator { \MyVoiceContext }
-      \translator { \MyThreadContext }
-      }
+  \layout {
+    \context { \MyStaff }
+    \context { \MyVoice }
+  }
 }
 
-MyStaffContext = \translator
- { \MyStaffContext
- \consists "Accidental_engraver"    
-     \consists "Key_engraver"
+MyStaff = \context {
+  \MyStaff
 \consists "Accidental_engraver"    
+  \consists "Key_engraver"
 }
 \score {
   \topVoice
-  \paper {
-      \translator { \MyStaffContext }
-      \translator { \MyVoiceContext }
-      \translator { \MyThreadContext }
-      }
+  \layout {
+    \context { \MyStaff }
+    \context { \MyVoice }
+  }
 }