patch::: 1.3.99.jcn1

[lilypond.git] / scm / element-descriptions.scm

diff --git a/scm/element-descriptions.scm b/scm/element-descriptions.scm
index 0f4ddf4e385aca3460bc62dcc7f6920c812f8f86..da872eb5677a5ec6bbbde92e78fa59f13de5dbd5 100644 (file)
--- a/scm/element-descriptions.scm
+++ b/scm/element-descriptions.scm
@@ -156,7 +156,7 @@
                (break-align-symbol . Left_edge_item)
                (X-offset-callbacks . (,Break_align_interface::alignment_callback))
                (breakable . #t)
-m              (meta . ,(element-description "LeftEdge" break-aligned-interface))
+               (meta . ,(element-description "LeftEdge" break-aligned-interface))
        ))
        
        (Fingering . (
@@ -251,6 +251,8 @@ m           (meta . ,(element-description "LeftEdge" break-aligned-interface))
                (style-to-font-name . ,style-to-font-name)
                (markup-to-properties . ,markup-to-properties)
                (font-family . roman)
+               (font-shape . upright)
+               (font-relative-size . 0)
                 
                (meta . ,(element-description "LyricText" lyric-syllable-interface text-interface))
        ))
@@ -302,11 +304,12 @@ m         (meta . ,(element-description "LeftEdge" break-aligned-interface))
                 (style-to-font-name . ,style-to-font-name)
                 (markup-to-properties . ,markup-to-properties)
                (font-family . roman)
+               (font-shape . upright)
                (font-relative-size . 0)
                (meta . ,(element-description  "NoteName"
-                       note-name-interface
-                       general-element-interface))
-       ))
+                                              note-name-interface
+                                              general-element-interface))
+               ))
 
        (OctavateEight . (
                (self-alignment-X . 0)
@@ -325,12 +328,14 @@ m         (meta . ,(element-description "LeftEdge" break-aligned-interface))
        
        (PaperColumn . (
                (axes 0)
+               (before-grace-spacing-factor . 1.2)
                 (before-musical-spacing-factor . 0.4)
                (meta . ,(element-description "PaperColumn" paper-column-interface axis-group-interface spaceable-element-interface))
        ))
        (NonMusicalPaperColumn . (
                 (axes 0)
                 (before-musical-spacing-factor . 1.0)
+               (column-space-strength . 2.0)
                (meta . ,(element-description "NonMusicalPaperColumn" paper-column-interface axis-group-interface spaceable-element-interface))
         ))
        
@@ -361,7 +366,9 @@ m           (meta . ,(element-description "LeftEdge" break-aligned-interface))
        (Slur . ,default-basic-slur-properties)
        (SpacingSpanner . (
                (spacing-procedure . ,Spacing_spanner::set_springs)
-
+               (stem-spacing-correction . 0.5)
+               (arithmetic-basicspace . 2.0)
+               (arithmetic-multiplier . ,(* 0.9 1.32))
                ;; assume that notes at least this long are present.
                (maximum-duration-for-spacing . ,(make-moment 1 8))
                (meta . ,(element-description "SpacingSpanner"  spacing-spanner-interface))
@@ -495,6 +502,8 @@ m           (meta . ,(element-description "LeftEdge" break-aligned-interface))
                (style-to-font-name . ,style-to-font-name)
                (markup-to-properties . ,markup-to-properties)
                (font-family . roman)
+               (font-shape . italic)
+               (font-relative-size . 0)
                (meta . ,(element-description "TextScript" text-script-interface text-interface side-position-interface ))
        ))
        (TextSpanner . (
@@ -545,12 +554,12 @@ m         (meta . ,(element-description "LeftEdge" break-aligned-interface))
                 (properties-to-font-name . ,properties-to-font-name)
                 (style-to-font-name . ,style-to-font-name)
                 (markup-to-properties . ,markup-to-properties)
-                (font-shape . italic)
+                (font-style . tuplet)
                (meta .  ,(element-description "TupletBracket" text-interface
                           tuplet-bracket-interface))
        ))
 
-       (UnaChordaPdeal . (
+       (UnaChordaPedal . (
                (molecule-callback . ,Text_item::brew_molecule)
                 (font-shape . italic)
                 (properties-to-font-name . ,properties-to-font-name)