release: 1.5.32

[lilypond.git] / scm / grob-description.scm

diff --git a/scm/grob-description.scm b/scm/grob-description.scm
index 3938da7413f5b62d9a08930efee1018ccb45bea1..7076f11149aa73bd86f9f87526056ac3e36f502f 100644 (file)
--- a/scm/grob-description.scm
+++ b/scm/grob-description.scm
@@ -1,4 +1,3 @@
-
 ;;;; grob-description.scm -- part of generated backend documentation
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
@@ -19,7 +18,9 @@
     ))
 
 
-;;; WARNING: the meta field should be the last one. 
+;;; WARNING: the meta field should be the last one.
+
+;; TODO: junk the meta field in favor of something more compact?
 (define all-grob-descriptions
   `(
     (Accidentals . (
@@ -135,10 +136,13 @@
        (BreathingSign . (
                (break-align-symbol . Breathing_sign)
                (breakable . #t )
-               (molecule-callback . ,Breathing_sign::brew_molecule)
+               (molecule-callback . ,Text_item::brew_molecule)
+               (lookup . name)
+               (font-family . music)
+               (text . "scripts-rcomma")
                (Y-offset-callbacks . (,Breathing_sign::offset_callback))
                (visibility-lambda . ,begin-of-line-invisible)
-               (meta . ,(grob-description  break-aligned-interface))
+               (meta . ,(grob-description  break-aligned-interface text-interface font-interface))
        ))
 
        (Clef . (
@@ -167,6 +171,7 @@
                (visibility-lambda . ,end-of-line-visible)
               (style .  vaticana)
               (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
+              (font-family . music)
                (meta . ,(grob-description custos-interface staff-symbol-referencer-interface break-aligned-interface) )
        ))
        
@@ -425,8 +430,7 @@
        
        (PaperColumn . (
                (axes 0)
-               (before-grace-spacing-factor . 1.2)
-                (before-musical-spacing-factor . 0.4)
+;              (molecule-callback . ,Paper_column::brew_molecule) (font-name . "cmr8")
                (meta . ,(grob-description paper-column-interface axis-group-interface spaceable-element-interface))
        ))
        (PhrasingSlur . (
@@ -453,8 +457,7 @@
        
        (NonMusicalPaperColumn . (
                 (axes 0)
-                (before-musical-spacing-factor . 1.0)
-               (column-space-strength . 2.0)
+;      (molecule-callback . ,Paper_column::brew_molecule) (font-name . "cmr8")
                (meta . ,(grob-description paper-column-interface axis-group-interface spaceable-element-interface))
         ))
 
@@ -529,15 +532,13 @@
                 ))
              
        (SpacingSpanner . (
-               (spacing-procedure . ;; ,Third_spacing_spanner::set_springs
-                                       ,Spacing_spanner::set_springs
-                                  )
-               (stem-spacing-correction . 0.5)
+               (spacing-procedure .  ,Third_spacing_spanner::set_springs)
                (grace-space-factor . 0.8)
 
                ;; TODO: change naming -- unintuitive
                (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 . ,(grob-description  spacing-spanner-interface))
@@ -582,7 +583,8 @@
        (NoteSpacing . (
                (X-extent-callback . #f)
                (Y-extent-callback . #f)
-
+               (stem-spacing-correction . 0.)
+               (space-factor . 1.0)
                (meta . ,(grob-description note-spacing-interface))
        ))
 
@@ -624,6 +626,7 @@
                (X-offset-callbacks . (,Stem::off_callback))
                (X-extent-callback . ,Stem::dim_callback)       
                (Y-extent-callback . ,Stem::height)
+               (font-family . music)      
                (meta . ,(grob-description stem-interface  font-interface))
        ))
 
@@ -809,5 +812,12 @@
 
 (set! all-grob-descriptions (map completize-grob-entry all-grob-descriptions))
 
+
+
 ;  (display  (map pair? all-grob-descriptions))
 
+
+;; make sure that \property Foo.Bar =\turnOff doesn't complain
+
+(map (lambda (x) (set-object-property! (car x) 'translator-type? list?))
+     all-grob-descriptions)