]> git.donarmstrong.com Git - lilypond.git/blobdiff - ly/engraver.ly
release: 1.3.111
[lilypond.git] / ly / engraver.ly
index 383bb18c8c7541cbc97034cb4b522c626acb7394..e6cca6f7ecd31c4e7bf35dd94ff0b2d1d25c551e 100644 (file)
@@ -1,5 +1,5 @@
 
-\version "1.3.96"
+\version "1.3.110"
        %
 % setup for Request->Element conversion. Guru-only
 %
@@ -55,7 +55,7 @@ ChoirStaffContext = \translator {
        \name ChoirStaff;
        alignmentReference = \center;
        \consists "System_start_delimiter_engraver";
-       SystemStartDelimiter \push #'glyph = #'bracket
+       SystemStartDelimiter \override #'glyph = #'bracket
 
        \accepts "Staff";
        \accepts "RhythmicStaff";
@@ -77,10 +77,10 @@ RhythmicStaffContext=\translator{
        \consists "Pitch_squash_engraver";
        \consists "Separating_line_group_engraver";     
        \name RhythmicStaff;
-       Bar \push #'bar-size = #4
-       VoltaBracket \push #'minimum-space =  #15  % urg, in \pt
-       VoltaBracket \push #'padding =  #5  % urg, in \pt
-       StaffSymbol \push #'line-count = #1     
+       Bar \override #'bar-size = #4
+       VoltaBracket \override #'minimum-space =  #15  % urg, in \pt
+       VoltaBracket \override #'padding =  #5  % urg, in \pt
+       StaffSymbol \override #'line-count = #1 
 
 %      \consists "Repeat_engraver";
        \consists "Volta_engraver";
@@ -153,25 +153,24 @@ GraceContext=\translator {
 
        \consists "Property_engraver";
 
-       Stem \push  #'style = #"grace"
-       Stem \push  #'flag-style = #"grace"
-       Stem \push  #'stem-length = #6.0
-       Stem \push  #'direction = #1
-
-       NoteHead \push #'font-relative-size = #-1
-       Stem \push #'font-relative-size = #-1
-       Stem \push #'stem-shorten = #'(0)
-       Beam \push #'font-relative-size = #-1
-       TextScript \push #'font-relative-size = #-1
-       Slur \push #'font-relative-size = #-1
-       Accidentals \push #'font-relative-size = #-1
-       Beam \push #'thickness = #0.3
-       Beam \push #'space-function = #(lambda (x) 0.5)
-
-       Stem \push #'lengths = #(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0))
-       Stem \push #'beamed-lengths =
+       Stem \override  #'flag-style = #"grace"
+       Stem \override  #'stem-length = #6.0
+       Stem \override  #'direction = #1
+
+       NoteHead \override #'font-relative-size = #-1
+       Stem \override #'font-relative-size = #-1
+       Stem \override #'stem-shorten = #'(0)
+       Beam \override #'font-relative-size = #-1
+       TextScript \override #'font-relative-size = #-1
+       Slur \override #'font-relative-size = #-1
+       Accidentals \override #'font-relative-size = #-1
+       Beam \override #'thickness = #0.3
+       Beam \override #'space-function = #(lambda (x) 0.5)
+
+       Stem \override #'lengths = #(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0))
+       Stem \override #'beamed-lengths =
                #'(0.0 2.5 2.0 1.5)
-       Stem \push #'beamed-minimum-lengths
+       Stem \override #'beamed-minimum-lengths
                 = #(map (lambda (x) (* 0.8 x)) '(0.0 2.5 2.0 1.5))
 
        weAreGraceContext = ##t   
@@ -194,7 +193,7 @@ GrandStaffContext=\translator{
        \consists "Span_bar_engraver";
        \consists "Span_arpeggio_engraver";
        \consists "System_start_delimiter_engraver";
-       SystemStartDelimiter \push #'glyph = #'brace
+       SystemStartDelimiter \override #'glyph = #'brace
        
        \consists "Property_engraver";  
        Generic_property_list = #generic-grand-staff-properties
@@ -208,7 +207,7 @@ PianoStaffContext = \translator{
        \consists "Vertical_align_engraver";
 
        alignmentReference = \center;
-       VerticalAlignment \push #'threshold = #'(12 . 12) 
+       VerticalAlignment \override #'threshold = #'(12 . 12) 
 
 %      \consistsend "Axis_group_engraver";
 }
@@ -220,7 +219,7 @@ StaffGroupContext= \translator {
        \consists "Span_bar_engraver";
        \consists "Span_arpeggio_engraver";
        \consists "Output_property_engraver";   
-       SystemStartDelimiter \push #'glyph = #'bracket
+       SystemStartDelimiter \override #'glyph = #'bracket
 
        \consists "System_start_delimiter_engraver";
        \accepts "Staff";
@@ -286,7 +285,7 @@ ChordNamesContext = \translator {
        \consists "Output_property_engraver";   
        \accepts "ChordNamesVoice";
 
-       VerticalAxisGroup \push #'invisible-staff = ##t
+       VerticalAxisGroup \override #'invisible-staff = ##t
        \consistsend "Axis_group_engraver";
        }
 
@@ -366,59 +365,11 @@ ScoreContext = \translator {
        splitInterval = #'(0 . 1)
        changeMoment = #`(,(make-moment 0 0) . ,(make-moment 1 512))
 
-       defaultClef = #"treble"
-
        StaffMinimumVerticalExtent = #(cons -4.0 4.0)
 
        barAuto = ##t
        voltaVisibility = ##t
        %  name, glyph id, clef position 
-       supportedClefTypes = #'(
-         ("treble" . ("clefs-G" -2))
-         ("violin" . ("clefs-G" -2))
-         ("G" . ("clefs-G" -2))
-         ("G2" . ("clefs-G" -2))
-         ("french" . ("clefs-G" -4 ))
-         ("soprano" . ("clefs-C" -4 ))
-         ("mezzosoprano" . ("clefs-C" -2 ))
-         ("alto" . ("clefs-C" 0 ))
-         ("tenor" . ("clefs-C" 2 ))
-         ("baritone" . ("clefs-C" 4 ))
-         ("varbaritone"  . ("clefs-F" 0))
-         ("bass" . ("clefs-F" 2 ))
-         ("F" . ( "clefs-F" 2))
-         ("subbass" . ("clefs-F" 4))
-         ("vaticana_do1" . ("clefs-vaticana_do" -1))
-         ("vaticana_do2" . ("clefs-vaticana_do" 1))
-         ("vaticana_do3" . ("clefs-vaticana_do" 3))
-         ("vaticana_fa1" . ("clefs-vaticana_fa" -1))
-         ("vaticana_fa2" . ("clefs-vaticana_fa" 1))
-         ("medicaea_do1" . ("clefs-medicaea_do" -1))
-         ("medicaea_do2" . ("clefs-medicaea_do" 1))
-         ("medicaea_do3" . ("clefs-medicaea_do" 3))
-         ("medicaea_fa1" . ("clefs-medicaea_fa" -1))
-         ("medicaea_fa2" . ("clefs-medicaea_fa" 1))
-         ("hufnagel_do1" . ("clefs-hufnagel_do" -1))
-         ("hufnagel_do2" . ("clefs-hufnagel_do" 1))
-         ("hufnagel_do3" . ("clefs-hufnagel_do" 3))
-         ("hufnagel_fa1" . ("clefs-hufnagel_fa" -1))
-         ("hufnagel_fa2" . ("clefs-hufnagel_fa" 1))
-         ("hufnagel" . ("clefs-hufnagel_do_fa" 4))
-         ("mensural1_c1" . ("clefs-mensural1_c" -4))
-         ("mensural1_c2" . ("clefs-mensural1_c" -2))
-         ("mensural1_c3" . ("clefs-mensural1_c" 0))
-         ("mensural1_c4" . ("clefs-mensural1_c" 2))
-         ("mensural2_c1" . ("clefs-mensural2_c" -4))
-         ("mensural2_c2" . ("clefs-mensural2_c" -2))
-         ("mensural2_c3" . ("clefs-mensural2_c" 0))
-         ("mensural2_c4" . ("clefs-mensural2_c" 2))
-         ("mensural2_c5" . ("clefs-mensural2_c" 4))
-         ("mensural3_c1" . ("clefs-mensural3_c" -2))
-         ("mensural3_c2" . ("clefs-mensural3_c" 0))
-         ("mensural3_c3" . ("clefs-mensural3_c" 2))
-         ("mensural3_c4" . ("clefs-mensural3_c" 4))
-         ("mensural_f" . ("clefs-mensural_f" 2))
-       )
        % where is c0 in this clef?
        clefPitches = #'(("clefs-G" . -4)
          ("clefs-C" . 0)
@@ -435,9 +386,11 @@ ScoreContext = \translator {
          ("clefs-mensural3_c" . 0)
          ("clefs-mensural_f" . 0))
 
+       clefGlyph = #"clefs-G"
+       clefPosition = #-2
+
         automaticPhrasing = ##t;
        alignmentReference = \down;
-       defaultClef = #"treble"
        defaultBarType = #"|"
 
        explicitClefVisibility = #all-visible