]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/define-grobs.scm
* stepmake/GNUmakefile.in: remove nested stepmake packaging stuff.
[lilypond.git] / scm / define-grobs.scm
index de352b2d256dcfa5717a7b21178aba69a278f1a5..aca39f17bb4e2a45f5a542ef6f327ac52cdafa70 100644 (file)
@@ -77,6 +77,7 @@
                        (time-signature . (extra-space . 0.75)) 
                        (custos . (minimum-space . 2.0))
                        (clef .   (minimum-space . 1.0))
+                       (key-signature . (extra-space . 1.0))
                        (first-note . (extra-space . 1.3))
                        (right-edge . (extra-space . 0.0))
                        ))
 
     (BassFigure
      . (
-       (molecule-callback . ,brew-new-markup-molecule)
+       (molecule-callback . ,Text_item::brew_molecule)
        (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
        (direction . 1)
        (font-family . number)
-       (font-relative-size . -1)
+       (font-relative-size . -3)
        (kern . 0.2)
        (meta . ((interfaces . (text-interface                                                  rhythmic-grob-interface
                                                                                                bass-figure-interface item-interface
        (molecule-callback . ,Beam::brew_molecule)
        (concaveness-gap . 2.0)
        (concaveness-threshold . 0.08)
+       
        (positions . (#f . #f))
        (position-callbacks . (,Beam::least_squares
                               ,Beam::check_concave
        (flag-width-function . ,beam-flag-width-function)
        (damping . 1)
        (auto-knee-gap . 5.5)
-       (font-name . "cmr10")
+
+       ;; only for debugging.
+;      (font-name . "cmr10")
+       
        (space-function . ,Beam::space_function)
        (meta . ((interfaces . (staff-symbol-referencer-interface beam-interface spanner-interface))))
        ))
                        (first-note . (minimum-space . 1.0))
                        (right-edge . (extra-space . 0.1))
                        ))
-       (molecule-callback . ,Breathing_sign::brew_molecule)
-       (lookup . name)
-       (font-family . music)
-       (text . "scripts-rcomma")
+       (molecule-callback . ,Text_item::brew_molecule)
+       (text . ,(make-musicglyph-markup "scripts-rcomma"))
        (Y-offset-callbacks . (,Breathing_sign::offset_callback))
        (break-visibility . ,begin-of-line-invisible)
        (meta . ((interfaces . (break-aligned-interface breathing-sign-interface text-interface font-interface item-interface ))))
        (Y-offset-callbacks  . (,Staff_symbol_referencer::callback)) 
        (meta . ((interfaces . (clef-interface staff-symbol-referencer-interface font-interface break-aligned-interface item-interface ))))
        ))
-
-    (Cluster
+    
+    (ClusterSpannerBeacon
+     . (
+       (molecule-callback . #f)
+       (meta . ((interfaces . (cluster-beacon-interface item-interface))))
+       ))
+    
+    (ClusterSpanner
      . (
        (molecule-callback . ,Cluster::brew_molecule)
        (spacing-procedure . ,Spanner::set_spacing_rods)                
        (minimum-length . 0.0)
        (padding . 0.25)
-       (shape . leftsided-stairs)
+       (style . ramp)
        (meta . ((interfaces . (cluster-interface spanner-interface))))
        ))
 
                        (time-signature . (extra-space . 0.0)) 
                        (staff-bar . (extra-space . 0.0))
                        (breathing-sign . (minimum-space  . 0.0))
-                       (clef . (extra-space . 1.0))
+                       (clef . (extra-space . 0.85))
                        (first-note . (extra-space . 1.0))
                        (right-edge . (extra-space . 0.0))
                        (key-signature . (extra-space . 0.0))
        ))
 
 
-    (HaraKiriVerticalGroup
+    (RemoveEmptyVerticalGroup
      . (
        (Y-offset-callbacks . (,Hara_kiri_group_spanner::force_hara_kiri_callback))
        (Y-extent-callback . ,Hara_kiri_group_spanner::y_extent)
+       (remove-first . #t)
        (axes . (1))
        (meta . ((interfaces . (axis-group-interface hara-kiri-group-interface item-interface  spanner-interface))))
        ))
        (breakable . #t)
        (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self
                               ,Side_position_interface::aligned_on_support_refpoints))
-       ;; huh? what's this for?
+       ;; This direction is for aligned_on_support_refpoints
+       ;; (?) --hwn
        (direction . 0)
        (space-alist . (
                        (left-edge . (extra-space . 1.0))
        (gap . 0.0)
        (padding . 2.0)
        (thickness . 1.6)
-       (edge-widen . (0.0 . 0.0))
        (edge-height . (0.7 . 0.7))
        (shorten-pair . (-0.2 . -0.2))
        (before-line-breaking-callback . ,Tuplet_bracket::before_line_breaking)
        (height . 0.4)
        (minimum-length .  0.5) 
        (maximum-length .  100)
+       (spacing-procedure . ,Hyphen_spanner::set_spacing_rods)
        (molecule-callback . ,Hyphen_spanner::brew_molecule)
        (Y-extent-callback . ,Grob::point_dimension_callback)
        (meta . ((interfaces . (lyric-hyphen-interface spanner-interface))))
        (font-family . roman)
        (font-shape . upright)
        
-       ;; duh, side-position-interface?
        (meta . ((interfaces . (rhythmic-grob-interface lyric-syllable-interface self-alignment-interface text-interface font-interface item-interface ))))
        ))
 
 
     (RehearsalMark
      . (
-       (molecule-callback . ,brew-new-markup-molecule)
+       (molecule-callback . ,Text_item::brew_molecule)
        (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
        (Y-offset-callbacks . (,Side_position_interface::aligned_side)) 
        (self-alignment-X . 0)
        (break-align-symbol . time-signature)
        (direction . 1)
        (breakable . #t)
+       (font-relative-size . 1)
        (font-family . roman)
        (baseline-skip . 2)
        (break-visibility . ,end-of-line-invisible)
        ))
      (MetronomeMark
      . (
-       (molecule-callback . ,brew-new-markup-molecule)
+       (molecule-callback . ,Text_item::brew_molecule)
        (Y-offset-callbacks . (,Side_position_interface::aligned_side)) 
        (direction . 1)
        (breakable . #t)
     
     (MultiMeasureRestNumber
      . (
-       (molecule-callback . ,brew-new-markup-molecule)
+       (molecule-callback . ,Text_item::brew_molecule)
        (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
                               ,Self_alignment_interface::centered_on_other_axis_parent))
        (Y-offset-callbacks . (,Side_position_interface::aligned_side))
        ))
     (MultiMeasureRestText
      . (
-       (molecule-callback . ,brew-new-markup-molecule)
+       (molecule-callback . ,Text_item::brew_molecule)
        (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
                               ,Self_alignment_interface::centered_on_other_axis_parent))
        (Y-offset-callbacks . (,Side_position_interface::aligned_side))
 
     (Glissando
      . (
-       (type . line)
+       (style . line)
        (gap . 0.5)
        (zigzag-width . 0.75)
        (breakable . #t)
        (X-extent-callback . #f)
        (Y-extent-callback . #f)                         
+       (after-line-breaking-callback . ,Line_spanner::after_line_breaking)
        (molecule-callback . ,Line_spanner::brew_molecule)
        (meta . ((interfaces . (line-spanner-interface spanner-interface))))
        ))
 
     (VoiceFollower
      . (
-       (type . line)
+       (style . line)
        (gap . 0.5)
        (breakable . #t)
        (X-extent-callback . #f)
        (Y-extent-callback . #f)                         
        (molecule-callback . ,Line_spanner::brew_molecule)
+       (after-line-breaking-callback . ,Line_spanner::after_line_breaking)
        (meta . ((interfaces . (line-spanner-interface spanner-interface))))
        ))
 
     (PianoPedalBracket   ;; an example of a text spanner
      . (
        (molecule-callback . ,Text_spanner::brew_molecule)
+       (after-line-breaking-callback . ,Piano_pedal_bracket::after_line_breaking)
        (font-family . roman)
-       (type . line)
+       (style . line)
        (if-text-padding . 1.0)
        (width-correct . 0)
-       (outer . #t)
+       (enclose-bounds . #t)
        (direction . -1)
-       (edge-widen . (0.5 . 0.5))
+       (bracket-flare . (0.5 . 0.5))
        (edge-height . (1.0 . 1.0))
        (shorten-pair . (0.0 . 0.0))
        (thickness .  1.0)
-       (meta . ((interfaces . (text-spanner-interface piano-pedal-interface spanner-interface))))
+       (meta . ((interfaces . (text-spanner-interface piano-pedal-interface piano-pedal-bracket-interface spanner-interface))))
        ))
 
     (RepeatSlash
      . (
        (breakable . #t)
        (stem-spacing-correction . 0.4)
-       (knee-spacing-correction . 0.75)
+
        (meta . ((interfaces . (spacing-interface staff-spacing-interface item-interface ))))
        ))
     (NoteSpacing
      . (
        (stem-spacing-correction . 0.5)
-       (knee-spacing-correction . 0.75)
+
+       ;; Changed this from 0.75.
+       ;; If you ever change this back, please document! --hwn
+       (knee-spacing-correction . 1.0)
+       
        (meta . ((interfaces . (spacing-interface note-spacing-interface item-interface ))))
        ))
 
        (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
        (no-spacing-rods . #t)
        (padding . 0.0) ;; padding relative to SostenutoPedalLineSpanner
-       (pedal-type . mixed)
        (font-family . roman)
        (font-shape . italic)
        (self-alignment-X . 0)
        
     (Stem
      . (
+
+       ;; this list is rather long. Trim --hwn
        (before-line-breaking-callback . ,Stem::before_line_breaking)
        (molecule-callback . ,Stem::brew_molecule)
        (thickness . 1.3)
        ;; looking at Baerenreiter examples) for a number of common
        ;; boundary cases.  Subtracting half a beam thickness fixes
        ;; this, but the bug may well be somewhere else.
-       (beamed-lengths . (3.26))
-
+       (beamed-lengths . (3.26 3.26 1.5))
+       
        ;; [Wanske] lists three sets of minimum lengths.  One
        ;; set for the nomal case, and one set for beams with `der
        ;; Balkenendpunkt weiter "uber bzw. unter die Systemgrenze
        ;; and the extreme minima as abolute minimum length.
        
        ;; The 'normal' minima
-       (beamed-minimum-free-lengths . (2.5 2.0 1.5))
-       
-       ;; The 'far outside staff' minima, not used
-       ;(beamed-far-minimum-free-lengths . (1.83))
+       (beamed-minimum-free-lengths . (2.5 2.0 1.0))
        
        ;; The 'extreme case' minima
-       (beamed-extreme-minimum-free-lengths . (1.83 1.5))
+       (beamed-extreme-minimum-free-lengths . (1.83 1.5 1.25))
 
        (X-offset-callbacks . (,Stem::off_callback))
        (X-extent-callback . ,Stem::dim_callback)       
        (self-alignment-X . 0)
        (direction . 1)
        (padding . 0.0)  ;; padding relative to SustainPedalLineSpanner
-       (pedal-type . text)
        (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
        (meta . ((interfaces . (piano-pedal-interface text-spanner-interface text-interface self-alignment-interface font-interface item-interface))))
        ))
      . (
        (molecule-callback . ,Text_spanner::brew_molecule)
        (font-family . roman)
-       (type . line)
+       (style . line)
 
        ;; urg, only for (de)cresc. text spanners
        (if-text-padding . 1.0)
        (width-correct . -1)
-
        (direction . 1)
        (meta . ((interfaces . (text-spanner-interface side-position-interface font-interface spanner-interface))))             
        ))
        (Y-offset-callbacks . (,Side_position_interface::aligned_side))
        (molecule-callback . ,Text_spanner::brew_molecule)
        (font-family . roman)
-       (outer . #t)
+       (enclose-bounds . #t)
        (width-correct . 0.0)
-       (type . dotted-line)
+       (style . dashed-line)
        (edge-height . (0 . 1.5))
        (direction . 1)
        (meta . ((interfaces . (text-spanner-interface side-position-interface font-interface spanner-interface))))             
        (gap . 2.0)
        (padding . 0.9)
        (thickness . 1.6)
-       (edge-widen . (0.0 . 0.0))
        (edge-height . (0.7 . 0.7))
        (shorten-pair . (-0.2 . -0.2))
        (before-line-breaking-callback . ,Tuplet_bracket::before_line_breaking)
        (molecule-callback . ,Tuplet_bracket::brew_molecule)
        (font-family . roman)
        (font-shape . italic)
+       (font-series . bold)
 
        (font-relative-size . -1)
        (meta .  ((interfaces . (text-interface tuplet-bracket-interface font-interface spanner-interface))))
        (no-spacing-rods . #t)
        (self-alignment-X . 0)
        (direction . 1)
-       (pedal-type . text)
        (padding . 0.0)  ;; padding relative to UnaCordaPedalLineSpanner
        (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
        (meta . ((interfaces . (text-interface self-alignment-interface font-interface item-interface ))))
 
     (VaticanaLigature
      . (
-       (thickness . 1.0)
+       (thickness . 0.6)
        (flexa-width . 2.0)
        (ligature-primitive-callback . ,Vaticana_ligature::brew_ligature_primitive)
        (molecule-callback . ,Vaticana_ligature::brew_molecule)
        (molecule-callback . ,Volta_bracket_interface::brew_molecule)
        (direction . 1)
        (padding . 1)
-       (font-style . volta)
+       (font-family . number)
        (Y-offset-callbacks . (,Side_position_interface::aligned_side))
        (thickness . 1.6)  ;  stafflinethickness
        (height . 2.0) ; staffspace;