* input/test/ambitus-mixed.ly (texidoc): new file.

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

diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 09b78356b873f49866a0dc2bff173dddb6d8eddd..be3dda204cc69df90ae726e82cc102a6e4861055 100644 (file)
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -1,7 +1,6 @@
 \version "1.9.1"
 
 
-
 %
 % setup for Request->Element conversion. Guru-only
 %
@@ -336,7 +335,7 @@ LyricsContext = \translator {
        %% To get folded repeats right.
        \consists Vertical_align_engraver 
 
-       \consistsend "Hara_kiri_engraver"
+%      \consistsend "Hara_kiri_engraver"
        minimumVerticalExtent = ##f
        extraVerticalExtent = ##f
        verticalExtent = ##f 
@@ -348,7 +347,7 @@ LyricsContext = \translator {
 ChordNamesContext = \translator {
        \type "Engraver_group_engraver"
        \name ChordNames
-\description "    Typesets chord names."
+       \description "Typesets chord names."
        
        \consists "Rest_swallow_translator" 
        \consists "Output_property_engraver"    
@@ -356,6 +355,7 @@ ChordNamesContext = \translator {
        \consists "Chord_name_engraver"
        \consists "Skip_event_swallow_translator"
        \consistsend "Hara_kiri_engraver"
+       
        minimumVerticalExtent = #'(0 . 2.5)
        extraVerticalExtent = ##f
        verticalExtent = ##f 
@@ -366,7 +366,6 @@ 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.
@@ -470,7 +469,7 @@ ScoreContext = \translator {
        pedalSostenutoStrings = #'("Sost. Ped." "*Sost. Ped." "*") 
        pedalSostenutoStyle = #'mixed
 
-       
+       fingeringOrientations = #'(up down)
        tupletNumberFormatFunction = #denominator-tuplet-formatter
        
        subdivideBeams = ##f
@@ -497,7 +496,7 @@ ScoreContext = \translator {
          custos
        )
        barCheckSynchronize = ##t
-
+       
        %% chord names:
        chordNameFunction = #ignatzek-chord-names
        majorSevenSymbol = #whiteTriangleMarkup
@@ -522,6 +521,37 @@ ScoreContext = \translator {
        bassFigureFormatFunction = #make-bass-figure-markup
        metronomeMarkFormatter = #make-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))
+                (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
 }
 
@@ -668,6 +698,7 @@ VaticanaStaffContext = \translator {
   BarLine \set #'transparent = ##t
 
   StaffSymbol \set #'line-count = #4
+  StaffSymbol \set #'thickness = #0.6
 
   % FIXME: unit on StaffSymbol's width should be \linewidth.
   % StaffSymbol \set #'width = #60.0