]> git.donarmstrong.com Git - lilypond.git/blobdiff - ly/engraver-init.ly
(get_line): Fix between-systems (NOT).
[lilypond.git] / ly / engraver-init.ly
index a1de8962d3721a148e8cd62be953ba9479a730f9..2c1469b1f4f47cf6a4f6e763c84d80e5fd34d372 100644 (file)
@@ -1,30 +1,33 @@
-\version "1.9.8"
+\version "2.1.29"
 
+\context {
+    \name Global
+
+    \accepts Score
+    \description "Hard coded entry point for LilyPond. Cannot be tuned."
+    \grobdescriptions #all-grob-descriptions    
+
+}
 
 %
 % setup for Request->Element conversion. Guru-only
 %
 
-\translator {
+\context {
        \type "Engraver_group_engraver"
        \name Staff
 
-       \description "Handles clefs, bar lines, keys, accidentals.  It can contain
-@code{Voice} contexts."
-
        
        \consists "Output_property_engraver"    
        
        \consists "Bar_engraver"
 % Bar_engraver must be first so default bars aren't overwritten
 % with empty ones.
+       
        \consists "Font_size_engraver"
 
-%      \consists "Repeat_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"
 
        % perhaps move to Voice context?
@@ -38,8 +41,6 @@
        \consists "Accidental_engraver"
        \consists "Piano_pedal_engraver"
        \consists "Instrument_name_engraver"
-       \consists "Grob_pq_engraver"
-       \consists "Forbid_line_break_engraver"
        \consists "String_number_engraver"
        \consistsend "Axis_group_engraver"
 
        instr = #'()
          
        \accepts "Voice"
+       \description "Handles clefs, bar lines, keys, accidentals.  It can contain
+@code{Voice} contexts."
+
 }
 
-\translator {
+\context {
     \StaffContext
     \type "Engraver_group_engraver"
     \name DrumStaff
 
     clefGlyph = #"clefs-percussion"
     clefPosition = #0
-    Script \set #'staff-padding = #0.75 
+    \override Script #'staff-padding = #0.75 
 }
 
 
-\translator {
-    \type Engraver_group_engraver
-    \consists "Axis_group_engraver"
-    minimumVerticalExtent = ##f
-    extraVerticalExtent = ##f
-    verticalExtent = ##f 
-    localKeySignature = #'()
-
-    \accepts Staff
-    \name StaffContainer
-}
-
-\translator {
+\context {
     \type "Engraver_group_engraver"
     \name InnerChoirStaff
     \consists "System_start_delimiter_engraver"
     \accepts "ChordNames"
 }
 
-\translator {
+\context {
        \InnerChoirStaffContext
        \name ChoirStaff
        
+       \accepts "InnerChoirStaff"
+       \accepts "InnerStaffGroup"
        \description "Identical to @code{StaffGroup} except that the
     contained staves are not connected vertically."
        
-       \accepts "InnerChoirStaff"
-       \accepts "InnerStaffGroup"
 }
 
 
-\translator{
+\context{
     \type "Engraver_group_engraver"
     
     \consists "Output_property_engraver"       
 
-    \description  "
-    A context like @code{Staff} but for printing rhythms.  Pitches are
-    ignored; the notes are printed on one line.  
-"
     minimumVerticalExtent = ##f
     extraVerticalExtent = ##f
     verticalExtent = ##f 
     localKeySignature = #'()
 
     \consists "Pitch_squash_engraver"
+    squashedPosition = #0
     \consists "Separating_line_group_engraver" 
     \name RhythmicStaff
     \alias "Staff"
     
-    BarLine \override #'bar-size = #4
-    VoltaBracket \override #'minimum-space =  #15
-    VoltaBracket \override #'padding =  #5
-    StaffSymbol \override #'line-count = #1    
+    \override BarLine #'bar-size = #4
+    \override VoltaBracket #'minimum-space = #15
+    \override VoltaBracket #'padding = #5
+    \override StaffSymbol #'line-count = #1    
 
-    Stem \override #'neutral-direction = #1
-    Beam \override #'neutral-direction = #1    
+    \override Stem  #'neutral-direction = #1
+    \override Beam  #'neutral-direction = #1   
                                %       \consists "Repeat_engraver"
     \consists "Dot_column_engraver"
     \consists "Volta_engraver"
     \consists "Instrument_name_engraver"
     \consistsend "Axis_group_engraver"
     \accepts "Voice"
+    \description  "
+    A context like @code{Staff} but for printing rhythms.  Pitches are
+    ignored; the notes are printed on one line.  
+"
 }
 
 
-\translator {
+\context {
     \type "Engraver_group_engraver"
     \name Voice
 
     \consists "Multi_measure_rest_engraver"
     \consists "Text_spanner_engraver"
     \consists "Grob_pq_engraver"
+    \consists "Forbid_line_break_engraver"
 
     \consists "Note_head_line_engraver"
     \consists "Glissando_engraver"
     \consists "Chord_tremolo_engraver"
     \consists "Percent_repeat_engraver"
     \consists "Slash_repeat_engraver"
-    \consists "Melisma_engraver"
+    \consists "Melisma_translator"
     \consists "Part_combine_engraver"
 
 %{
     \consists "Skip_event_swallow_translator"
 }
 
-\translator {
+\context {
     \VoiceContext
     \name DrumVoice
     \alias Voice
 
-    \description " A voice on a percussion staff."
-    
-    
+    \description "A voice on a percussion staff."
     \remove "Arpeggio_engraver"
     \consists "Multi_measure_rest_engraver"
     \consists "Text_spanner_engraver"
 
     \remove "Fingering_engraver"
 
-    \remove "Phrasing_slur_engraver"
     \remove "Cluster_spanner_engraver"
-    \remove "Slur_engraver"
     \consists "Tuplet_engraver"
 
     \consists "Skip_event_swallow_translator"
 }
 
-\translator{
+\context{
     \type "Engraver_group_engraver"
     \name GrandStaff
     localKeySignature = #'()
     \accepts "Staff"
 }
 
-\translator{
+\context{
     \GrandStaffContext
     \name "PianoStaff"
     \alias "GrandStaff"
     the staves, so cross staff beaming and slurring can be used."
     
     verticalAlignmentChildCallback = #Align_interface::fixed_distance_alignment_callback
-    VerticalAlignment \override #'forced-distance = #12
-    VerticalAlignment \override #'self-alignment-Y = #0
+    \override VerticalAlignment #'forced-distance = #12
+    \override VerticalAlignment #'self-alignment-Y = #0
 
     \consists "Vertical_align_engraver"
     \consists "Instrument_name_engraver"
     instr = #'()
 }
 
-\translator {
+\context {
     \type "Engraver_group_engraver"
     \name InnerStaffGroup
     localKeySignature = #'()
     \accepts "ChordNames"
 }
 
-\translator {
+\context {
     \InnerStaffGroupContext
     \name StaffGroup
     
@@ -325,7 +315,7 @@ connected vertically.  "
 }
 
 
-\translator{
+\context{
     \type "Engraver_group_engraver"
     \consistsend "Hara_kiri_engraver"
     minimumVerticalExtent = #'(-1.2 . 2.4)
@@ -335,7 +325,7 @@ connected vertically.  "
     \description " Corresponds to a voice with lyrics.  Handles the
 printing of a single line of lyrics.  "
     
-    \name LyricsVoice 
+    \name Lyrics 
     \consists "Separating_line_group_engraver"
     \consists "Lyric_engraver"
     \consists "Extender_engraver"
@@ -343,10 +333,11 @@ printing of a single line of lyrics.  "
     \consists "Stanza_number_engraver"
     \consists "Vocal_name_engraver"
     \consists "Skip_event_swallow_translator"
-    SeparationItem \set #'padding = #0.5
+    \consists "Font_size_engraver"
+    \override SeparationItem #'padding = #0.2
 }
 
-\translator {
+\context {
     \type "Engraver_group_engraver"
     \name NoteNames
     \consistsend "Axis_group_engraver"
@@ -359,12 +350,11 @@ printing of a single line of lyrics.  "
     \consists "Rest_swallow_translator" 
     \consists "Skip_event_swallow_translator"
     \consists "Tie_engraver"
-    \consists "Note_swallow_translator"
     \consists "Note_name_engraver"
     \consists "Separating_line_group_engraver"
 }
 
-\translator {
+\context {
     \type "Engraver_group_engraver"
     \name ChordNames
     \description "Typesets chord names."
@@ -378,22 +368,19 @@ printing of a single line of lyrics.  "
     
     minimumVerticalExtent = #'(0 . 2.5)
     extraVerticalExtent = ##f
-    SeparatingGroupSpanner \override #'padding = #0.8
+    \override SeparatingGroupSpanner #'padding = #0.8
     verticalExtent = ##f 
 }
 
 
-RemoveEmptyStaffContext= \translator {
+RemoveEmptyStaffContext= \context {
     \StaffContext
     \remove "Axis_group_engraver"
     \consistsend "Hara_kiri_engraver"
-    \accepts "Voice"
-
-                               % hara kiri & auto knee don't work together.
-    Beam \override #'auto-knee-gap = #'()
+    \override Beam #'auto-knee-gap = #'()
 }
 
-AncientRemoveEmptyStaffContext = \translator {
+AncientRemoveEmptyStaffContext = \context {
     %% why not add by default?
     
     \RemoveEmptyStaffContext
@@ -401,7 +388,7 @@ AncientRemoveEmptyStaffContext = \translator {
     \accepts "GregorianTranscriptionVoice"
 }
 
-\translator {
+\context {
     \type Score_engraver
     \name Score
     localKeySignature = #'()
@@ -433,7 +420,7 @@ AncientRemoveEmptyStaffContext = \translator {
     \consists "Break_align_engraver"
     \consists "Spacing_engraver"
     \consists "Vertical_align_engraver"
-    \consists "Lyric_phrasing_engraver"
+    \consists "Stanza_number_align_engraver"
     \consists "Bar_number_engraver"
     \consists "Span_arpeggio_engraver"
 
@@ -441,7 +428,6 @@ AncientRemoveEmptyStaffContext = \translator {
     \accepts "TabStaff"
     \accepts "VaticanaStaff"
     \accepts "GregorianTranscriptionStaff"
-    \accepts "StaffContainer"
     \accepts "StaffGroup"
     \accepts "RhythmicStaff"
     \accepts "DrumStaff"
@@ -538,7 +524,7 @@ AncientRemoveEmptyStaffContext = \translator {
 
     %% One may change the strings tuning as following :
     %% The lenght of the list must be equal to the number of string
-    stringTunings   = #guitar-tunings
+    stringTunings = #guitar-tunings
     tablatureFormat = #fret-number-tablature-format
 
     %%
@@ -570,38 +556,38 @@ AncientRemoveEmptyStaffContext = \translator {
        (Voice Beam position-callbacks (,Beam::least_squares
                                        ,Beam::check_concave
                                        ,Beam::slope_damping))
-       (Staff Accidental font-size -4)
+       (Voice Accidental font-size -4)
        (Voice Slur direction -1)
     )
     
-    \grobdescriptions #all-grob-descriptions
 }
 
-OrchestralScoreContext = \translator {
+OrchestralScoreContext = \context {
        \ScoreContext
 }
 
-EasyNotation = \translator {
+EasyNotation = \context {
        \ScoreContext
-       NoteHead \override #'molecule-callback = #Note_head::brew_ez_molecule
-       NoteHead \override #'Y-extent-callback = #'()
-       NoteHead \override #'X-extent-callback = #'()
+       \override NoteHead #'print-function = #Note_head::brew_ez_stencil
+       \override NoteHead #'Y-extent-callback = #'()
+       \override NoteHead #'X-extent-callback = #'()
 }
 
 
 
-\translator {
+\context {
        \type "Engraver_group_engraver"
        \name FiguredBass 
        \consists "Figured_bass_engraver"
        \consists "Rest_swallow_translator"
        \consists "Note_swallow_translator"
+       \consists "Skip_event_swallow_translator"
        \consists "Separating_line_group_engraver"
        
        \consistsend "Hara_kiri_engraver"
 }
 
-\translator {
+\context {
     \name "Devnull"
     \type "Engraver_group_engraver"
 
@@ -613,7 +599,7 @@ EasyNotation = \translator {
     \description "Silently discards all musical information given to this context. "
     }
 
-\translator {
+\context {
       \VoiceContext
       \name "TabVoice"
       \consists "Tab_note_heads_engraver"
@@ -622,42 +608,36 @@ EasyNotation = \translator {
       \remove "New_fingering_engraver"
 
       \description "Context for drawing notes in a Tab staff. "
-      Slur \override #'font-family       = #'roman
-      Slur \override #'molecule-callback = #hammer-molecule-callback
-      Slur \override #'direction    = #-1
+      \override Slur #'font-family    = #'roman
+      \override Slur #'print-function = #hammer-print-function
+      \override Slur #'direction = #-1
 
       % Draws all stems/beams out of the staff (and not in the middle of the staff !)
       % This feature is now disabled because most of the tab does not use it.
-      %Beam \override #'damping = #100000
-      %Stem \override #'up-to-staff = ##t
+      %\override Beam #'damping = #100000
+      %\override Stem #'up-to-staff = ##t
 
       % No accidental in tablature !
       \remove Accidental_engraver
 }
 
-\translator {
+\context {
       \StaffContext
       \alias "Staff"
       \name "TabStaff"
       \denies "Voice"
-
+      \remove "Staff_symbol_engraver"
+      \consists "Tab_staff_symbol_engraver"
+      
       \description "Context for generating tablature. [DOCME]"
 
-%{
-      TODO: this context should use a special staff_symbol engraver that
-      takes the line count out of the stringTunings property.
-
-%}
-      
-      
       \accepts "TabVoice"
       
       % 6 strings
-      StaffSymbol \override #'line-count  = #6
-      StaffSymbol \override #'staff-space = #1.5
+      \override StaffSymbol #'staff-space = #1.5
 
      % Don't draw stems over the tablature figures !
-      Stem \override #'avoid-note-head = ##t
+      \override Stem #'avoid-note-head = ##t
       
       % No accidental in tablature !
       \remove "Accidental_engraver"
@@ -673,12 +653,12 @@ EasyNotation = \translator {
 %
 % If I try to do so, I get "error: unknown escaped string:
 % `\VaticanaStaffContext'" in params-init.ly.  If I also move
-% "\translator { \Vaticana*Context }" from params-init.ly to the end
+% "\context { \Vaticana*Context }" from params-init.ly to the end
 % of gregorian-init.ly, then I get "error: parse error, unexpected
-% TRANSLATOR: \translator { \VaticanaStaffContext }" in
+% TRANSLATOR: \context { \VaticanaStaffContext }" in
 % gregorian-init.ly. --jr
 
-\translator {
+\context {
   \VoiceContext
   \name "VaticanaVoice"
   \alias "Voice"
@@ -690,24 +670,24 @@ EasyNotation = \translator {
   \consists "Vaticana_ligature_engraver"
 
   % Set default head for notes outside of \[ \].
-  NoteHead \set #'style = #'vaticana_punctum
+  \override NoteHead #'style = #'vaticana_punctum
 
   % Put some space before and after divisiones.
   % FIXME: This does not seem to show any effect.
-  Script \set #'padding = #0.5
+  \override Script #'padding = #0.5
 
   % There are no beams in Gregorian Chant notation.
   autobeaming = ##f
 
   % Prepare TextSpanner for \episem{Initium|Finis} use.
-  TextSpanner \set #'style = #'line
-  TextSpanner \set #'edge-height = #'(0 . 0)
-  TextSpanner \set #'padding = #0.5
-  TextSpanner \set #'enclose-bounds = #1
-  TextSpanner \set #'edge-text = #'("" . "")
+  \override TextSpanner #'style = #'line
+  \override TextSpanner #'edge-height = #'(0 . 0)
+  \override TextSpanner #'padding = #0.5
+  \override TextSpanner #'enclose-bounds = #1
+  \override TextSpanner #'edge-text = #'("" . "")
 }
 
-\translator {
+\context {
   \StaffContext
   \name "VaticanaStaff"
   \alias "Staff"
@@ -721,13 +701,13 @@ EasyNotation = \translator {
   % We can not remove Bar_engraver; otherwise clefs and custodes will
   % not show up any more among other line breaking issues.
   % Instead, we make the grob transparent.
-  BarLine \set #'transparent = ##t
+  \override BarLine #'transparent = ##t
 
-  StaffSymbol \set #'line-count = #4
-  StaffSymbol \set #'thickness = #0.6
+  \override StaffSymbol #'line-count = #4
+  \override StaffSymbol #'thickness = #0.6
 
   % FIXME: unit on StaffSymbol's width should be \linewidth.
-  % StaffSymbol \set #'width = #60.0
+  % \override StaffSymbol #'width = #60.0
 
   % Choose vaticana do clef on 3rd line as default.
   clefGlyph = #"clefs-vaticana_do"
@@ -736,18 +716,18 @@ EasyNotation = \translator {
   clefOctavation = #0
 
   % Select vaticana style font.
-  KeySignature \set #'style = #'vaticana
-  Accidental \set #'style = #'vaticana
-  Custos \set #'style = #'vaticana
-  Custos \set #'neutral-position = #3
-  Custos \set #'neutral-direction = #-1
-  Custos \set #'adjust-if-on-staffline = ##t
+  \override KeySignature #'style = #'vaticana
+  \override Accidental #'style = #'vaticana
+  \override Custos #'style = #'vaticana
+  \override Custos #'neutral-position = #3
+  \override Custos #'neutral-direction = #-1
+  \override Custos #'adjust-if-on-staffline = ##t
 
   % Score.timing = ##f
   % Score.barAlways = ##t
 }
 
-\translator {
+\context {
   \VoiceContext
   \name "GregorianTranscriptionVoice"
   \alias "Voice"
@@ -756,23 +736,23 @@ EasyNotation = \translator {
   % other ligature engraver would cause a "Junking event: `LigatureEvent'"
   % warning for every "\[" and "\]".  Therefore, we make the grob
   % transparent instead.
-  LigatureBracket \set #'transparent = ##t
+  \override LigatureBracket #'transparent = ##t
 
   % Put some space before and after divisiones.
   % FIXME: This does not seem to show any effect.
-  Script \set #'padding = #0.5
+  \override Script #'padding = #0.5
 
   % There are no beams in Gregorian Chant notation.
   autobeaming = ##f
 
   % Prepare TextSpanner for \episem{Initium|Finis} use.
-  TextSpanner \set #'style = #'line
-  TextSpanner \set #'edge-height = #'(0 . 0)
-  TextSpanner \set #'padding = #0.5
-  TextSpanner \set #'enclose-bounds = #1
-  TextSpanner \set #'edge-text = #'("" . "")
+  \override TextSpanner #'style = #'line
+  \override TextSpanner #'edge-height = #'(0 . 0)
+  \override TextSpanner #'padding = #0.5
+  \override TextSpanner #'enclose-bounds = #1
+  \override TextSpanner #'edge-text = #'("" . "")
 }
- \translator {
+ \context {
   \StaffContext
   \name "GregorianTranscriptionStaff"
   \alias "Staff"
@@ -782,5 +762,5 @@ EasyNotation = \translator {
   % We can not remove Bar_engraver; otherwise clefs and custodes will
   % not show up any more among other line breaking issues.
   % Instead, we make the grob transparent.
-  BarLine \set #'transparent = ##t
+  \override BarLine #'transparent = ##t
 }