]> git.donarmstrong.com Git - lilypond.git/blobdiff - ly/engraver-init.ly
* scm/define-grobs.scm (all-grob-descriptions): new grob
[lilypond.git] / ly / engraver-init.ly
index 73afe8ccf2b09c88d4656a4740fc70599ea5debf..90bfa08c87ee16b6323bd3c7b87245cc72f7d0a4 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.4.0"
+\version "2.7.14"
 
 \context {
   \name Global
@@ -11,7 +11,7 @@
 }
 
 \context {
-  \type "Engraver_group_engraver"
+  \type "Engraver_group"
   \name Staff
   
   \consists "Output_property_engraver" 
@@ -39,7 +39,7 @@
   \consists "String_number_engraver"
   \consists "Axis_group_engraver"
 
-  minimumVerticalExtent = #'(-4 . 4)
+  \override VerticalAxisGroup #'minimum-Y-extent = #'(-4 . 4)
   extraVerticalExtent = ##f
   verticalExtent = ##f 
   localKeySignature = #'()
@@ -63,7 +63,7 @@
 
 \context {
   \Staff
-  \type "Engraver_group_engraver"
+  \type "Engraver_group"
   \name DrumStaff
   \alias Staff
   \remove "Accidental_engraver"
@@ -85,7 +85,7 @@
 
 
 \context {
-  \type "Engraver_group_engraver"
+  \type "Engraver_group"
   \name InnerChoirStaff
   \consists "System_start_delimiter_engraver"
   systemStartDelimiter = #'SystemStartBracket
   \InnerChoirStaff
   \name ChoirStaff
   
-  \defaultchild "InnerChoirStaff"
+  \defaultchild "Staff"
   \accepts "InnerChoirStaff"
   \accepts "InnerStaffGroup"
   \description "Identical to @code{StaffGroup} except that the
@@ -114,40 +114,42 @@ contained staves are not connected vertically."
 
 
 \context{
-  \type "Engraver_group_engraver"
+  \type "Engraver_group"
   
-  \consists "Output_property_engraver" 
-
-  minimumVerticalExtent = ##f
+  \override VerticalAxisGroup #'minimum-Y-extent = ##f
   extraVerticalExtent = ##f
   verticalExtent = ##f 
   localKeySignature = #'()
+  createSpacing = ##t
 
-  \consists "Pitch_squash_engraver"
   squashedPosition = #0
-  \consists "Separating_line_group_engraver"   
   \name RhythmicStaff
   \alias "Staff"
   
   \override BarLine #'bar-size = #4
-  \override VoltaBracket #'minimum-space = #15
-  \override VoltaBracket #'padding = #5
+  \override VoltaBracket #'staff-padding = #3
   \override StaffSymbol #'line-count = #1      
 
-  \override Stem  #'neutral-direction = #1
-  \override Beam  #'neutral-direction = #1     
-  %%   \consists "Repeat_engraver"
-  \consists "Dot_column_engraver"
+  \override Stem  #'neutral-direction = #UP
+  \override Beam  #'neutral-direction = #UP
+  
+  \consists "Output_property_engraver"
+  \consists "Font_size_engraver"
   \consists "Volta_engraver"
+  \consists "Separating_line_group_engraver"   
+  \consists "Dot_column_engraver"
   \consists "Bar_engraver"
-  \consists "Time_signature_engraver"
-  \consists "Staff_symbol_engraver"
   \consists "Ledger_line_engraver" 
+  \consists "Staff_symbol_engraver"
+  \consists "Pitch_squash_engraver"
+  \consists "Time_signature_engraver"
   \consists "Instrument_name_engraver"
   \consists "Axis_group_engraver"
+  
   \accepts "Voice"
   \accepts "CueVoice"
   \defaultchild "Voice"
+
   \description  "
     A context like @code{Staff} but for printing rhythms.  Pitches are
     ignored; the notes are printed on one line.  
@@ -156,7 +158,7 @@ contained staves are not connected vertically."
 
 
 \context {
-  \type "Engraver_group_engraver"
+  \type "Engraver_group"
   \name Voice
 
   \description "
@@ -169,7 +171,8 @@ contained staves are not connected vertically."
 
   localKeySignature = #'()
   \consists "Font_size_engraver"
-  
+
+  \consists "Pitched_trill_engraver"
   \consists "Output_property_engraver" 
   \consists "Arpeggio_engraver"
   \consists "Multi_measure_rest_engraver"
@@ -177,7 +180,7 @@ contained staves are not connected vertically."
   \consists "Trill_spanner_engraver"
   \consists "Grob_pq_engraver"
   \consists "Forbid_line_break_engraver"
-
+  \consists "Laissez_vibrer_engraver"
   \consists "Note_head_line_engraver"
   \consists "Glissando_engraver"
   \consists "Ligature_bracket_engraver"
@@ -220,7 +223,8 @@ contained staves are not connected vertically."
   \name CueVoice
   \alias Voice
   fontSize = #-4
-  \override Stem #'lengths = #'(2.5 2.5 3.0 3.0)
+  \override Stem #'length-fraction = #(magstep -4)
+  \override Beam #'length-fraction = #(magstep -4)
 }
 
 \context {
@@ -238,7 +242,6 @@ contained staves are not connected vertically."
   \remove "Glissando_engraver"
   \remove "Ligature_bracket_engraver"
   \remove "Note_heads_engraver"
-  \consists "Rest_engraver"
   \consists "Drum_notes_engraver"
   \remove "New_fingering_engraver"
 
@@ -251,7 +254,7 @@ contained staves are not connected vertically."
 }
 
 \context{
-  \type "Engraver_group_engraver"
+  \type "Engraver_group"
   \name GrandStaff
   localKeySignature = #'()
   
@@ -276,7 +279,6 @@ contained staves are not connected vertically."
   "Just like @code{GrandStaff} but with a forced distance between
     the staves, so cross staff beaming and slurring can be used."
   
-  verticalAlignmentChildCallback = #Align_interface::fixed_distance_alignment_callback
   \override VerticalAlignment #'forced-distance = #12
   \override VerticalAlignment #'self-alignment-Y = #0
 
@@ -288,7 +290,7 @@ contained staves are not connected vertically."
 }
 
 \context {
-  \type "Engraver_group_engraver"
+  \type "Engraver_group"
   \name InnerStaffGroup
 
   \consists "Span_bar_engraver"
@@ -327,8 +329,8 @@ connected vertically.  "
 
 
 \context{
-  \type "Engraver_group_engraver"
-  minimumVerticalExtent = #'(-1.2 . 2.4)
+  \type "Engraver_group"
+  \override VerticalAxisGroup #'minimum-Y-extent = #'(-1.2 . 2.4)
   extraVerticalExtent = ##f
   verticalExtent = ##f
 
@@ -345,15 +347,17 @@ printing of a single line of lyrics.  "
   \consists "Skip_event_swallow_translator"
   \consists "Font_size_engraver"
   \consists "Hara_kiri_engraver"
+  \override VerticalAxisGroup #'remove-first = ##t
+  \override VerticalAxisGroup #'remove-empty = ##t
   \override SeparationItem #'padding = #0.2
 }
 
 \context {
-  \type "Engraver_group_engraver"
+  \type "Engraver_group"
   \name NoteNames
   \consists "Axis_group_engraver"
 
-  minimumVerticalExtent = ##f
+  \override VerticalAxisGroup #'minimum-Y-extent = ##f
   extraVerticalExtent = ##f
   verticalExtent = ##f 
 
@@ -366,7 +370,7 @@ printing of a single line of lyrics.  "
 }
 
 \context {
-  \type "Engraver_group_engraver"
+  \type "Engraver_group"
   \name ChordNames
   \description "Typesets chord names."
 
@@ -380,9 +384,11 @@ printing of a single line of lyrics.  "
   \consists "Hara_kiri_engraver"
   
   voltaOnThisStaff = ##f
-  minimumVerticalExtent = #'(0 . 2.5)
+  \override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 2.5)
   extraVerticalExtent = ##f
   \override SeparatingGroupSpanner #'padding = #0.8
+  \override VerticalAxisGroup #'remove-first = ##t
+  \override VerticalAxisGroup #'remove-empty = ##t
   verticalExtent = ##f 
 }
 
@@ -392,6 +398,7 @@ RemoveEmptyStaffContext= \context {
   \remove "Axis_group_engraver"
   \consists "Hara_kiri_engraver"
   \override Beam #'auto-knee-gap = #'()
+  \override VerticalAxisGroup #'remove-empty = ##t
 }
 
 AncientRemoveEmptyStaffContext = \context {
@@ -417,14 +424,17 @@ AncientRemoveEmptyStaffContext = \context {
     not contained in any other context).  It is instantiated
     automatically when an output definition (a @code{\score} or
     @code{\layout} block) is processed."
-  
+
+
+  \consists "Paper_column_engraver"
+  \consists "Vertically_spaced_contexts_engraver"
   \consists "Repeat_acknowledge_engraver"
   \consists "Staff_collecting_engraver"
 
   %% move the alias along with the engraver.
 
-  \consists "Timing_engraver"
-  
+  \consists "Timing_translator"
+  \consists "Default_bar_line_engraver"
   \consists "Output_property_engraver"
   \consists "System_start_delimiter_engraver"
   \consists "Mark_engraver"    
@@ -470,7 +480,7 @@ AncientRemoveEmptyStaffContext = \context {
   firstClef = ##t
   
   defaultBarType = #"|"
-  barNumberVisibility = #default-bar-number-visibility
+  barNumberVisibility = #first-bar-number-invisible
   automaticBars = ##t
   
   explicitClefVisibility = #all-visible
@@ -480,8 +490,6 @@ AncientRemoveEmptyStaffContext = \context {
   autoBeamCheck = #default-auto-beam-check
   scriptDefinitions = #default-script-alist
 
-  verticalAlignmentChildCallback = #Align_interface::alignment_callback
-
   pedalSustainStrings = #'("Ped." "*Ped." "*")
   pedalSustainStyle = #'text
   pedalUnaCordaStrings = #'("una corda" "" "tre corde")
@@ -508,7 +516,7 @@ AncientRemoveEmptyStaffContext = \context {
   autoCautionaries = #'()  
 
   printKeyCancellation = ##t
-  keyAccidentalOrder = #`(
+  keyAlterationOrder = #`(
     (6 . ,FLAT) (2  . ,FLAT) (5 . ,FLAT ) (1  . ,FLAT) (4  . ,FLAT) (0  . ,FLAT) (3  . ,FLAT)
     (3  . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
     (6 . ,DOUBLE-FLAT) (2  . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1  . ,DOUBLE-FLAT) (4  . ,DOUBLE-FLAT) (0  . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
@@ -542,30 +550,17 @@ AncientRemoveEmptyStaffContext = \context {
   tablatureFormat = #fret-number-tablature-format
 
 %%
-  bassFigureFormatFunction = #format-bass-figure
+  figuredBassFormatter = #format-bass-figure
   metronomeMarkFormatter = #format-metronome-markup
   graceSettings = #`(
     (Voice Stem direction 1)
-    ;; TODO: should take from existing definition.
-    ;; c&p from define-grobs.scm
-    
-    (Voice Stem lengths ,(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0)))
-    (Voice Stem stem-shorten (0.4 0.4))
-    (Voice Stem  font-size -3)
-    (Voice NoteHead  font-size -3)
-    (Voice Dots  font-size -3)
-    (Voice Stem beamed-lengths  
-     ,(map (lambda (x) (* 0.8 x)) '(3.3 3.3 4.0)))
-    (Voice Stem beamed-minimum-free-lengths  
-     ,(map (lambda (x) (* 0.8 x)) '(2.5 2.0 1.5)))
-    (Voice Stem beamed-extreme-minimum-free-lengths  
-     ,(map (lambda (x) (* 0.8 x)) '(1.83 1.5)))
-
+    (Voice Stem font-size -3)
+    (Voice NoteHead font-size -3)
+    (Voice Dots font-size -3)
+    (Voice Stem length-fraction 0.8)
     (Voice Stem no-stem-extend #t)
     (Voice Beam thickness 0.384)
-    (Voice Beam space-function ,(lambda (beam mult)
-                                (* 0.8 (Beam::space_function
-                                        beam mult))))
+    (Voice Beam length-fraction 0.8)
     (Voice Accidental font-size -4)
     (Voice Slur direction -1)
   )
@@ -575,26 +570,31 @@ AncientRemoveEmptyStaffContext = \context {
   instrumentTransposition = #(ly:make-pitch 0 0 0)
 
   verticallySpacedContexts = #'(Staff)
+
+  timing = ##t
 }
 
 
 
 
 \context {
-  \type "Engraver_group_engraver"
-  \name FiguredBass 
+  \type "Engraver_group"
+  \name "FiguredBass"
 
   \consists "Figured_bass_engraver"
-  \consists "Rest_swallow_translator"
   \consists "Note_swallow_translator"
   \consists "Skip_event_swallow_translator"
   \consists "Separating_line_group_engraver"
   \consists "Hara_kiri_engraver"
+
+  \override VerticalAxisGroup #'remove-empty = ##t
+  \override VerticalAxisGroup #'remove-first = ##t
+  \override VerticalAxisGroup #'minimum-Y-extent = #'(-0.5 . 2.5)
 }
 
 \context {
   \name "Devnull"
-  \type "Engraver_group_engraver"
+  \type "Engraver_group"
 
 %% don't want to route anything out of here: 
   \alias "Staff"
@@ -606,15 +606,13 @@ AncientRemoveEmptyStaffContext = \context {
 \context {
   \Voice
   \name "TabVoice"
+  \alias "Voice"
   \consists "Tab_note_heads_engraver"
   \remove "Note_heads_engraver"
   \remove "Fingering_engraver"
   \remove "New_fingering_engraver"
 
   \description "Context for drawing notes in a Tab staff. "
-  \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.
@@ -625,8 +623,7 @@ AncientRemoveEmptyStaffContext = \context {
   %% increases beam thickness and spacing; beams are
   %% too big. We have to adjust the beam settings:
   \override Beam #'thickness = #0.32
-  \override Beam #'space-function =
-  #(lambda (beam mult) (* 0.62 (Beam::space_function beam mult)))
+  \override Beam #'length-fraction = #0.62
 
   %% No accidental in tablature !
   \remove Accidental_engraver
@@ -747,7 +744,7 @@ AncientRemoveEmptyStaffContext = \context {
   \override Accidental #'style = #'vaticana
   \override Custos #'style = #'vaticana
   \override Custos #'neutral-position = #3
-  \override Custos #'neutral-direction = #-1
+  \override Custos #'neutral-direction = #DOWN
 
   %% Score.timing = ##f
   %% Score.barAlways = ##t
@@ -852,7 +849,7 @@ AncientRemoveEmptyStaffContext = \context {
   \override Accidental #'style = #'mensural
   \override Custos #'style = #'mensural
   \override Custos #'neutral-position = #3
-  \override Custos #'neutral-direction = #-1
+  \override Custos #'neutral-direction = #DOWN
 
   %% Score.timing = ##f
   %% Score.barAlways = ##t
@@ -862,5 +859,6 @@ AncientRemoveEmptyStaffContext = \context {
 RemoveEmptyRhythmicStaffContext= \context {
   \RhythmicStaff
   \remove "Axis_group_engraver"
+  \override VerticalAxisGroup #'remove-empty = ##t
   \consists "Hara_kiri_engraver"
 }