* lily/my-lily-lexer.cc: add \accacciatura and \appoggiatura

[lilypond.git] / ly / engraver-init.ly

diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 67e827de2670838a85502ccca113e1b73b906270..2001c605dc9969c9ef036abb0e5459d6d3119b29 100644 (file)
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -1,5 +1,4 @@
-\version "1.7.18"
-
+\version "1.9.1"
 
 
 %
@@ -189,7 +188,6 @@ VoiceContext = \translator {
        \consists "Cluster_spanner_engraver"
        \consists "Slur_engraver"
        \consists "Tie_engraver"
-       \consists "New_tie_engraver"
        \consists "Tuplet_engraver"
        \consists "A2_engraver"
 
@@ -213,7 +211,6 @@ ThreadContext = \translator{
 
        % why here ? 
        \consists "Output_property_engraver"    
-
 }
 
 
@@ -368,14 +365,13 @@ RemoveEmptyStaffContext = \translator {
        \StaffContext
        \remove "Axis_group_engraver"
        \consistsend "Hara_kiri_engraver"
-       \consists "Instrument_name_engraver"
        \accepts "Voice"
 
        % hara kiri & auto knee don't work together.
        Beam \override #'auto-knee-gap = #'()
 }
 
-HaraKiriStaffContext = \translator {
+RemoveEmptyStaffContext = \translator {
        \RemoveEmptyStaffContext
        \accepts "VaticanaVoice"
        \accepts "GregorianTranscriptionVoice"
@@ -524,6 +520,32 @@ ScoreContext = \translator {
        bassFigureFormatFunction = #make-bass-figure-markup
        metronomeMarkFormatter = #make-metronome-markup
 
+       graceSettings = #`#(
+                ("Voice" Stem direction 1)
+                ("Voice" Stem lengths ,(map (lambda (x) (* 0.8 x)) '(2.5 2.5 3.0 4.0 5.0)))
+                ("Voice" Stem stem-shorten (0.4 0))
+                ("Voice" Stem font-relative-size -1)
+                ("Voice" NoteHead font-relative-size -1)
+                ("Voice" Dots font-relative-size -1)
+                ("Voice" Stem beamed-lengths  
+                 ,(map (lambda (x) (* 0.8 x)) '(3.26)))
+                ("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 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 position-callbacks (,Beam::least_squares
+                                                   ,Beam::check_concave
+                                                   ,Beam::slope_damping))
+                ("Staff" Accidental font-relative-size -2)
+                ("Voice" Slur direction -1)
+       )
+       
        \grobdescriptions #all-grob-descriptions
 }