]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/define-grobs.scm
release commit
[lilypond.git] / scm / define-grobs.scm
index 702f5c424d3d982f7f1221f10fa162ebeace9aec..a132929ac94aa07dd31d58c1f21480c978328aca 100644 (file)
        (padding . 1.0)
        (direction . 1)
        (font-family . roman)
-       (font-relative-size . -1)
+       (font-size . -2)
        (Y-offset-callbacks . (,Side_position_interface::aligned_side))
        (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
        (self-alignment-X . 1)
 
     (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)
+
+       ;; We must do this, other BFs in
+       ;; paper16 become too small.
+       (font-size . -4)
+       (font-magnification . 0.8) 
        (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)
-       
+       (gap . 0.8)
        (positions . (#f . #f))
        (position-callbacks . (,Beam::least_squares
                               ,Beam::check_concave
                        (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 ))))
        (font-family . music)      
        (break-align-symbol . clef)
        (break-visibility . ,begin-of-line-visible)
-       (space-alist . (
-                       (ambitus . (extra-space . 2.0))
+       (space-alist . ((ambitus . (extra-space . 2.0))
                        (staff-bar . (minimum-space .  3.7))
                        (key-signature . (minimum-space . 4.0))
                        (time-signature . (minimum-space . 4.2))
        (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))))
        ))
 
     (ChordName
      . (
-       (molecule-callback . ,new-chord-name-brew-molecule)
+       (molecule-callback . ,Text_item::brew_molecule)
        (after-line-breaking-callback . ,Chord_name::after_line_breaking)
-       (word-space . 1.0)
-       (font-family . roman)
+       (word-space . 0.0)
+       (font-family . sans)
        (meta . ((interfaces . (font-interface                                                  rhythmic-grob-interface
                                                                                                text-interface chord-name-interface item-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))
      . (
        (molecule-callback . ,Text_item::brew_molecule)
        (padding . 0.6)
-       ;;              (direction . -1)
        (self-alignment-X . 0)
        (self-alignment-Y . 0)
        (script-priority . 100)
        (font-family . number)
-       (font-relative-size . -3)
+       (font-size . -4)
        (font-shape . upright)
        (meta . ((interfaces . (finger-interface font-interface text-script-interface text-interface side-position-interface self-alignment-interface item-interface ))))
        ))
 
 
-    (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-size . 2)
        (font-family . roman)
        (baseline-skip . 2)
        (break-visibility . ,end-of-line-invisible)
        (padding . 0.8)
-       (meta . ((interfaces . (text-interface side-position-interface font-interface mark-interface self-alignment-interface item-interface ))))
+       (meta . ((interfaces . (break-aligned-interface text-interface side-position-interface font-interface mark-interface self-alignment-interface item-interface ))))
        ))
      (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))
        (self-alignment-X . 0)
        (direction . 1)
-       (padding . 2)
+       (padding . 1.3)
        (font-family . number)
        (meta . ((interfaces . (side-position-interface self-alignment-interface font-interface spanner-interface text-interface))))
        ))
     (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))
        (self-alignment-X . 0)
        (direction . 1)
-       (padding . 2)
+       (padding . 1.5)
        (font-family . roman)
        (meta . ((interfaces . (side-position-interface self-alignment-interface font-interface spanner-interface text-interface))))
        ))
        (molecule-callback . ,Note_head::brew_molecule)
        (ligature-primitive-callback . ,Note_head::brew_molecule)
        (glyph-name-procedure . ,find-notehead-symbol)
+       (X-extent-callback . ,Note_head::extent)
+       (Y-extent-callback . ,Note_head::extent)
        (Y-offset-callbacks  . (,Staff_symbol_referencer::callback))
        (stem-attachment-function . ,note-head-style->attachment-coordinates)
        (meta . ((interfaces . (rhythmic-grob-interface rhythmic-head-interface font-interface note-head-interface staff-symbol-referencer-interface item-interface ))))
 
     (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))))
        ))
 
     (OctavateEight
      . (
        (self-alignment-X . 0)
-       (text . "8")
        (break-visibility . ,begin-of-line-visible)
        (X-offset-callbacks . (,Self_alignment_interface::centered_on_parent ,Self_alignment_interface::aligned_on_self))
        (Y-offset-callbacks . (,Side_position_interface::aligned_side))
        (molecule-callback . ,Text_item::brew_molecule)
        (font-shape . italic)
        (padding . 0.4)
-       (font-relative-size . -2)
+       (font-size . -4)
        (font-family . roman)
        (meta . ((interfaces . (text-interface self-alignment-interface side-position-interface font-interface item-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)
        (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
      . (
-       (molecule-callback . , Percent_repeat_item_interface::beat_slash)
+       (molecule-callback . ,Percent_repeat_item_interface::beat_slash)
        (thickness . 0.48)
        (slope . 1.7)
        (meta . ((interfaces . (percent-repeat-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)
        (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
-       ;; hinaus (bei Gruppen mit grossem Tonumfang)' and the extreme
+       ;; set for the nomal case, and one set for beams with "der
+       ;; Balkenendpunkt weiter uber bzw. unter die Systemgrenze
+       ;; hinaus (bei Gruppen mit grossem Tonumfang)" and the extreme
        ;; case.
 
        ;; Note that Wanske lists numbers lengths starting from top of
        ;; and the extreme minima as abolute minimum length.
        
        ;; The 'normal' minima
-       (beamed-minimum-free-lengths . (2.5 2.0 1.0))
+       (beamed-minimum-free-lengths . (1.83 1.5 1.25))
        
        ;; The 'extreme case' minima
-       (beamed-extreme-minimum-free-lengths . (1.83 1.5 1.25))
+       (beamed-extreme-minimum-free-lengths . (2.5 2.0 1.0))
 
        (X-offset-callbacks . (,Stem::off_callback))
        (X-extent-callback . ,Stem::dim_callback)       
        (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
        (adjust-if-on-staffline . #t)
        (font-family . music)      
-       (avoid-note-head . #f)
-       (up-to-staff . #f)
        (meta . ((interfaces . (stem-interface  font-interface item-interface ))))
        ))
 
        (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 . dashed-line)
 
        ;; urg, only for (de)cresc. text spanners
        (if-text-padding . 1.0)
        (width-correct . -1)
-
+       (dash-fraction . 0.2)
+       (dash-period . 3.0)
        (direction . 1)
        (meta . ((interfaces . (text-spanner-interface side-position-interface font-interface spanner-interface))))             
        ))
        (font-family . roman)
        (enclose-bounds . #t)
        (width-correct . 0.0)
-       (type . dashed-line)
+       (style . dashed-line)
+       (dash-fraction . 0.3)
        (edge-height . (0 . 1.5))
        (direction . 1)
        (meta . ((interfaces . (text-spanner-interface side-position-interface font-interface spanner-interface))))             
      . (
        (font-family . roman)
        (style . default)
-       (molecule-callback . ,tablature-molecule-callback)
+       (molecule-callback . ,Text_item::brew_molecule)
        (Y-offset-callbacks  . (,Staff_symbol_referencer::callback))
        (extra-offset . (0 . -0.65)) ;; UGH! TODO: Clean this up!
        (stem-attachment-function . ,tablature-stem-attachment-function)
     (TimeSignature
      . (
        (molecule-callback . ,Time_signature::brew_molecule)
+;      (molecule-callback . ,Text_item::brew_molecule) 
        (break-align-symbol . time-signature)
        (break-visibility . ,all-visible)
        (space-alist . (
                        ))
        (breakable . #t)
        (style . C)
+;      (text . (,time-signature-glue-markup)) 
        (font-family . number)
        (meta . ((interfaces . (time-signature-interface break-aligned-interface font-interface item-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)
+       (font-size . -2)
        (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;
        (minimum-space . 5)
        (font-family . number)
-       (font-relative-size . -2)
+       (font-size . -4)
        (meta . ((interfaces . (volta-bracket-interface text-interface side-position-interface font-interface spanner-interface))))
        ))
     
      . (
        (axes . (1))
        (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
+       (X-extent-callback . ,Axis_group_interface::group_extent_callback)
        (stacking-dir . -1)
        (meta . ((interfaces . (align-interface axis-group-interface spanner-interface))))
        ))
      . (
        (axes . (1))
        (Y-extent-callback . ,Axis_group_interface::group_extent_callback)      
+       (X-extent-callback . ,Axis_group_interface::group_extent_callback)
        
        (meta . ((interfaces . (axis-group-interface spanner-interface))))
        ))