]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/define-grobs.scm
Fix some bugs in the dynamic engraver and PostScript backend
[lilypond.git] / scm / define-grobs.scm
index 3ac61bc13d8308316da8a0799a6911b1a36ec8e1..02bc9cc8ad924c156ab73cf3cfde1ae2d024f3dd 100644 (file)
      . (
        (avoid-slur . inside)
        (cautionary-style . parentheses)
-
        (stencil . ,ly:accidental-interface::print)
        (after-line-breaking
         . ,ly:accidental-interface::after-line-breaking)
-                                       
        (meta . ((class . Item)
                 (interfaces . (accidental-interface
                                font-interface))))))
        (axes . (0 1))
        (X-extent . ,ly:axis-group-interface::width)
        (X-extent . ,ly:axis-group-interface::height)
-
        (space-alist . (
                        (clef . (extra-space . 0.5))
                        (key-signature . (extra-space . 0.0))
                        (staff-bar . (extra-space . 0.0))
                        (time-signature . (extra-space . 0.0))
                        (first-note . (fixed-space . 0.0))))
-       (breakable . #t)
+       (non-musical . #t)
        (break-align-symbol . ambitus)
        (break-visibility . ,begin-of-line-visible)
        (meta . ((class . Item)
 
     (AmbitusLine
      . (
-
        (stencil . ,ly:ambitus::print)
-
        (join-heads . #t)
        (thickness . 2)
        (X-offset . ,ly:self-alignment-interface::centered-on-x-parent)
-
        (meta . ((class . Item)
                 (interfaces . (ambitus-interface
                                staff-symbol-referencer-interface
        (X-offset . ,ly:side-position-interface::x-aligned-side)
        (direction . ,LEFT)
        (cautionary-style . parentheses)
-
        (stencil . ,ly:accidental-interface::print)
        (after-line-breaking . ,ly:accidental-interface::after-line-breaking)
        (side-axis . ,X)
-       
        (meta . ((class . Item)
                 (interfaces . (item-interface
                                accidental-interface
     (AmbitusNoteHead
      . (
        (duration-log . 2)
-
        (stencil . ,ly:note-head::print)
        (glyph-name . ,note-head::calc-glyph-name)
-       
        (Y-offset . ,ly:staff-symbol-referencer::callback)
        (meta . ((class . Item)
                 (interfaces . (font-interface
        (glyph . "|")
        (layer . 0)
        (break-visibility . ,all-visible)
-       (breakable . #t)
+       (non-musical . #t)
 
        (stencil . ,ly:bar-line::print)
        (glyph-name . ,bar-line::calc-glyph-name)
     (BarNumber
      . (
        (stencil . ,ly:text-interface::print)
-       (breakable . #t)
+       (non-musical . #t)
        (break-visibility . ,begin-of-line-visible)
        (padding . 1.0)
        (direction . ,UP)
        (font-size . -2)
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
-       (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
-       (self-alignment-X . 1)
+       (X-offset . ,(ly:make-simple-closure
+                     `(,+
+                       ,(ly:make-simple-closure
+                         (list ly:break-alignment-align-interface::self-align-callback))
+                       ,(ly:make-simple-closure
+                         (list ly:self-alignment-interface::x-aligned-on-self)))))
 
+       (self-alignment-X . 1)
+       (break-align-symbol . left-edge)
        (meta .
              ((class . Item)
               (interfaces . (side-position-interface
                              text-interface
+                             break-alignment-align-interface
                              self-alignment-interface
                              font-interface
-                             break-aligned-interface))))
+                             ))))
        ))
 
     (BassFigure
      . (
-       ;
        (stencil . ,ly:text-interface::print)
-
        (meta . ((class . Item)
                 (interfaces . (text-interface
                                rhythmic-grob-interface
                                bass-figure-interface
                                font-interface))))))
+
+    (BassFigureAlignment
+     . (
+       (axes . (,Y))
+       (threshold . (2 . 1000))
+       (positioning-done . ,ly:align-interface::calc-positioning-done)
+       (Y-extent . ,ly:axis-group-interface::height)
+       (stacking-dir . -1)
+       (meta . ((class . Spanner)
+                (interfaces . (align-interface
+                               bass-figure-alignment-interface
+                               axis-group-interface))))))
+
+    (BassFigureAlignmentPositioning
+     . ((Y-offset . ,ly:side-position-interface::y-aligned-side)
+       (side-axis . ,Y)
+       (direction . ,UP)
+       (Y-extent . ,ly:axis-group-interface::height)
+       (axes . (,Y))
+       (staff-padding . 1.0)
+       (padding . 0.5)
+       (meta . ((class . Spanner)
+                (interfaces . (side-position-interface
+                               axis-group-interface
+                            ))))))
+    
     (BassFigureBracket
      . (
-       ;
        (stencil . ,ly:enclosing-bracket::print)
-
+       (X-extent . ,ly:enclosing-bracket::width)
        (edge-height . (0.2 . 0.2))
        (meta . ((class . Item)
                 (interfaces . (enclosing-bracket-interface)) ))
        ))
     (BassFigureContinuation
      . (
-
        (stencil . ,ly:figured-bass-continuation::print)
-
        (Y-offset . ,ly:figured-bass-continuation::center-on-figures)
        (meta . ((class . Spanner)
                 (interfaces . (figured-bass-continuation-interface))
     (BassFigureLine
      . (
        (axes . (,Y))
-
        (Y-extent . ,ly:axis-group-interface::height)
-
        (meta . ((class . Spanner)
                 (interfaces . (axis-group-interface
                                ))))))
 
-    (BassFigureAlignment
-     . (
-       (axes . (,Y))
-       (threshold . (2 . 1000))
-
-       (positioning-done . ,ly:align-interface::calc-positioning-done)
-       (Y-extent . ,ly:axis-group-interface::height)
-                                       
-       (stacking-dir . -1)
-       (meta . ((class . Spanner)
-                (interfaces . (align-interface
-                               axis-group-interface))))))
 
     (Beam
      . (
        (shorten . ,ly:beam::calc-stem-shorten)
        (beaming . ,ly:beam::calc-beaming)
        (stencil . ,ly:beam::print)
-
+       (clip-edges . #t)
+       
        ;; TODO: should be in SLT.
        (thickness . 0.48) ; in staff-space
        (neutral-direction . ,DOWN)
 
     (BreakAlignment
      . (
-       (breakable . #t)
+       (non-musical . #t)
        (stacking-dir . 1)
        (positioning-done . ,ly:break-align-interface::calc-positioning-done)
        (X-extent . ,ly:axis-group-interface::width)
     (BreathingSign
      . (
        (break-align-symbol . breathing-sign)
-       (breakable . #t)
+       (non-musical . #t)
        (space-alist . (
                        (ambitus . (extra-space . 2.0))
                        (custos . (minimum-space . 1.0))
                        (clef . (minimum-space . 2.0))
                        (first-note . (fixed-space . 1.0)) ;huh?
                        (right-edge . (extra-space . 0.1))))
-
        (stencil . ,ly:text-interface::print)
-
        (text . ,(make-musicglyph-markup "scripts.rcomma"))
        (Y-offset . ,ly:breathing-sign::offset-callback)
        (break-visibility . ,begin-of-line-invisible)
 
     (Clef
      . (
-
        (stencil . ,ly:clef::print)
        (glyph-name . ,ly:clef::calc-glyph-name)
-                                       
-       (breakable . #t)
+       (non-musical . #t)
        (font-family . music)
        (break-align-symbol . clef)
        (break-visibility . ,begin-of-line-visible)
 
     (ClusterSpannerBeacon
      . (
-
        (Y-extent . ,ly:cluster-beacon::height)
-
        (meta . ((class . Item)
                 (interfaces . (cluster-beacon-interface))))))
 
     (ClusterSpanner
      . (
-
        (springs-and-rods . ,ly:spanner::set-spacing-rods)
        (stencil . ,ly:cluster::print)
-
-
        (minimum-length . 0.0)
        (padding . 0.25)
        (style . ramp)
 
     (ChordName
      . (
-
        (stencil . ,ly:text-interface::print)
        (after-line-breaking . ,ly:chord-name::after-line-breaking)
-       
        (word-space . 0.0)
        (font-family . sans)
        (font-size . 1.5)
 
     (CombineTextScript
      . (
-
        (stencil . ,ly:text-interface::print)
-
        (no-spacing-rods . #t)
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
     (Custos
      . (
        (break-align-symbol . custos)
-       (breakable . #t)
-
+       (non-musical . #t)
        (stencil . ,ly:custos::print)
-
        (break-visibility . ,end-of-line-visible)
        (style . vaticana)
        (neutral-direction . ,DOWN)
      . (
        (axes . (0))
        (direction . ,RIGHT)
-
        (positioning-done . ,ly:dot-column::calc-positioning-done) 
        (X-extent . ,ly:axis-group-interface::width)
-       
        (X-offset . ,ly:dot-column::side-position)
        (meta . ((class . Item)
                 (interfaces . (dot-column-interface
 
     (Dots
      . (
-
        (stencil . ,ly:dots::print)
-
        (dot-count . 1)
        (meta . ((class . Item)
                 (interfaces . (font-interface
     (DoublePercentRepeat
      . (
        (stencil . ,ly:percent-repeat-item-interface::double-percent)
-       (breakable . #t)
+       (non-musical . #t)
        (slope . 1.0)
        (font-encoding . fetaMusic)
        (width . 2.0)
 
     (DoublePercentRepeatCounter
      . (
-
        (stencil . ,ly:text-interface::print)
        (X-offset . ,(ly:make-simple-closure `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-y-parent))
                                                  ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
        (minimum-space . 1.2)
        (direction . ,DOWN)
        (side-axis . ,Y)
-
        (Y-extent . ,ly:axis-group-interface::height)
        (X-extent . ,ly:axis-group-interface::width)
-
-
        (meta . ((class . Spanner)
                 (interfaces . (axis-group-interface
                                dynamic-interface
 
     (DynamicTextSpanner
      . (
-
        (stencil . ,ly:dynamic-text-spanner::print)
 
        ;; rather ugh with NCSB
        (style . line)
        (gap . 0.5)
        (zigzag-width . 0.75)
-       (breakable . #t)
+       (non-musical . #t)
        (X-extent . #f)
        (Y-extent . #f)
-
        (stencil . ,ly:line-spanner::print)
        (after-line-breaking . ,ly:line-spanner::after-line-breaking)
-       
-
        (meta . ((class . Spanner)
                 (interfaces . (line-interface
                                line-spanner-interface))))))
 
     (GridLine
      . (
-
        (X-extent  . ,ly:grid-line-interface::width)
        (stencil . ,ly:grid-line-interface::print)
-
        (self-alignment-X . ,CENTER)
        (X-offset . ,(ly:make-simple-closure
-                     `(,+  ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-x-parent))
-                           ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
+                     `(,+  ,(ly:make-simple-closure
+                             (list ly:self-alignment-interface::centered-on-x-parent))
+                           ,(ly:make-simple-closure
+                             (list ly:self-alignment-interface::x-aligned-on-self)))))
        (layer . 0)
        (meta . ((class . Item)
                 (interfaces . (self-alignment-interface
 
     (Hairpin
      . (
-
-
        (stencil . ,ly:hairpin::print)
        (springs-and-rods . ,ly:spanner::set-spacing-rods)
        (after-line-breaking . ,ly:hairpin::after-line-breaking)
-
+       (circled-tip . #f)
        (thickness . 1.0)
        (height . 0.6666)
        (minimum-length . 2.0)
                                spanner-interface))))))
     (InstrumentName
      . (
-       (style . text)
        (padding . 0.3)
-       (stencil . ,ly:system-start-delimiter::print)
+       (stencil . ,ly:system-start-text::print)
        (X-offset . ,ly:side-position-interface::x-aligned-side)
        (direction . ,LEFT)
        (self-alignment-Y . ,CENTER)
        (meta . ((class . Spanner)
                 (interfaces . (system-start-text-interface
-                               system-start-delimiter-interface
                                side-position-interface
                                font-interface))))))
 
     (KeyCancellation
      . (
-
        (stencil . ,ly:key-signature-interface::print)
-
        (space-alist . (
                        (time-signature . (extra-space . 1.25))
                        (staff-bar . (extra-space . 0.6))
        (Y-offset . ,ly:staff-symbol-referencer::callback)
        (break-align-symbol . key-cancellation)
        (break-visibility . ,begin-of-line-invisible)
-       (breakable . #t)
-
+       (non-musical . #t)
        (meta . ((class . Item)
                 (interfaces . (key-signature-interface
                                font-interface
                                break-aligned-interface))))))
     (KeySignature
      . (
-
        (stencil . ,ly:key-signature-interface::print)
-
        (space-alist . (
                        (time-signature . (extra-space . 1.15))
                        (staff-bar . (extra-space . 1.1))
        (Y-offset . ,ly:staff-symbol-referencer::callback)
        (break-align-symbol . key-signature)
        (break-visibility . ,begin-of-line-visible)
-       (breakable . #t)
-
+       (non-musical . #t)
        (meta . ((class . Item)
                 (interfaces . (key-signature-interface
                                font-interface
                                break-aligned-interface))))))
-    (LaissezVibrerTie
+    
+    
+   (LaissezVibrerTie
      . (
-
        (stencil  . ,ly:tie::print)
-       (control-points . ,ly:laissez-vibrer-tie::calc-control-points)
-       (direction . ,ly:laissez-vibrer-tie::calc-direction)
-       
+       (control-points . ,ly:semi-tie::calc-control-points)
+       (direction . ,ly:semi-tie::calc-direction)
        (details . ((ratio . 0.333)
                    (height-limit . 1.0)))
        (thickness . 1.0)
        (meta . ((class . Item)
-                (interfaces . (laissez-vibrer-tie-interface))
+                (interfaces . (semi-tie-interface))
                 ))
        ))
 
      . (
        (X-extent . #f)
        (Y-extent . #f)
-       (positioning-done . ,ly:laissez-vibrer-tie-column::calc-positioning-done)
+       (head-direction . ,LEFT)
+       (positioning-done . ,ly:semi-tie-column::calc-positioning-done)
        (meta . ((class . Item)
-                (interfaces . (laissez-vibrer-tie-column-interface))
+                (interfaces . (semi-tie-column-interface))
                 ))
        ))
 
     (LedgerLineSpanner
      . (
-
        (springs-and-rods . ,ly:ledger-line-spanner::set-spacing-rods)
-
        (stencil . ,ly:ledger-line-spanner::print)
-
        (X-extent . #f)
        (Y-extent . #f)
        (minimum-length-fraction . 0.25)
      . (
        (break-align-symbol . left-edge)
        (X-extent . (0 . 0))
-       (breakable . #t)
+       (non-musical . #t)
        (break-visibility . ,center-invisible)
        (space-alist . (
                        (custos . (extra-space . 0.0))
                 (interfaces . (line-interface
                                tuplet-bracket-interface))))))
 
+
+    (LyricExtender
+     . (
+       (stencil . ,ly:lyric-extender::print)
+       (thickness . 0.8) ; line-thickness
+       (minimum-length . 1.5)
+       (Y-extent . (0 . 0))
+       (meta . ((class . Spanner)
+                (interfaces . (lyric-interface
+                               lyric-extender-interface))))))
+
     (LyricHyphen
      . (
        (thickness . 1.3)
        (minimum-distance . 0.1)
        (padding . 0.07)
        (springs-and-rods . ,ly:hyphen-spanner::set-spacing-rods)
-       
        (stencil . ,ly:hyphen-spanner::print)
-
        (Y-extent . (0 . 0))
        (meta . ((class . Spanner)
                 (interfaces . (lyric-interface
                                lyric-hyphen-interface
                                spanner-interface))))))
 
-    (LyricExtender
-     . (
-
-       (stencil . ,ly:lyric-extender::print)
-
-       (thickness . 0.8) ; line-thickness
-       (minimum-length . 1.5)
-       (Y-extent . (0 . 0))
-       (meta . ((class . Spanner)
-                (interfaces . (lyric-interface
-                               lyric-extender-interface))))))
-
     (LyricSpace
-     . ((minimum-distance . 0.3)
+     . ((minimum-distance . 0.45)
        (springs-and-rods . ,ly:hyphen-spanner::set-spacing-rods)
        (padding . 0.0)
        (Y-extent . #f)
      . (
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
-
        (stencil . ,ly:measure-grouping::print)
-
        (padding . 2)
        (direction . ,UP)
        (thickness . 1)
        (thickness . 1.4)
        (flexa-width . 2.0)
        (stencil . ,ly:mensural-ligature::print)
-
        (meta . ((class . Spanner)
                 (interfaces . (mensural-ligature-interface
                                font-interface))))))
 
     (MultiMeasureRestNumber
      . (
-       (springs-and-rods . ,ly:multi-measure-rest::set-spacing-rods)
+       (bound-padding  . 2.0)
+       (springs-and-rods . ,ly:multi-measure-rest::set-text-rods)
        (stencil . ,ly:text-interface::print)
        (X-offset . ,(ly:make-simple-closure
                      `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self))
                           ,(ly:make-simple-closure (list ly:self-alignment-interface::x-centered-on-y-parent)))))
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
-
        (self-alignment-X . 0)
        (direction . ,UP)
        (padding . 0.4)
     (NoteCollision
      . (
        (axes . (0 1))
-
        (X-extent . ,ly:axis-group-interface::width)
        (Y-extent . ,ly:axis-group-interface::height)
        (positioning-done . ,ly:note-collision-interface::calc-positioning-done)
-       
        (meta . ((class . Item)
                 (interfaces . (note-collision-interface
                                axis-group-interface))))))
        (axes . (0 1))
        (X-extent . ,ly:axis-group-interface::width)
        (Y-extent . ,ly:axis-group-interface::height)
-
        (meta . ((class . Item)
                 (interfaces . (axis-group-interface
                                note-column-interface))))))
 
     (NoteHead
      . (
-
        (stencil . ,ly:note-head::print)
        (stem-attachment . ,ly:note-head::calc-stem-attachment)
        (glyph-name . ,note-head::calc-glyph-name) 
        ;; Changed this from 0.75.
        ;; If you ever change this back, please document! --hwn
        (knee-spacing-correction . 1.0)
-
        (meta . ((class . Item)
                 (interfaces . (spacing-interface
                                note-spacing-interface))))))
 
     (NoteName
      . (
-
        (stencil . ,ly:text-interface::print)
-
        (meta . ((class . Item)
                 (interfaces . (note-name-interface
                                text-interface
                           ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-x-parent)))))
        
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
-
        (stencil . ,ly:text-interface::print)
 
-
        ;; no Y dimensions, because of lyrics under tenor clef.
        (Y-extent . (0 . 0))
        (font-shape . italic)
     (OttavaBracket
      . (
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
-
        (stencil . ,ly:ottava-bracket::print)
-
        (font-shape . italic)
        (shorten-pair . (0.0 . -0.6))
        (staff-padding . 1.0)
     (PaperColumn
      . (
        (axes . (0))
-
        (before-line-breaking . ,ly:paper-column::before-line-breaking)
        ;; (stencil . ,ly:paper-column::print)
        (X-extent . ,ly:axis-group-interface::width)
        
-
        ;; debugging
        ;;                       (font-size . -6) (font-name . "sans") (Y-extent . #f)
        (meta . ((class . Paper_column)
                                spaceable-grob-interface))))))
 
     (ParenthesesItem
-     . (
-       (stencil . ,parentheses-item::print)
+     . ((stencil . ,parentheses-item::print)
        (font-size . -6)
        (padding . 0.2)
        (meta . ((class . Item)
                 (interfaces . (parentheses-interface font-interface))))
-       
-             ))
+       ))
+    
     (PhrasingSlur
      . ((details . ,default-slur-details)
-
        (control-points . ,ly:slur::calc-control-points)
        (direction . ,ly:slur::calc-direction)
        (springs-and-rods . ,ly:spanner::set-spacing-rods)
        (Y-extent . ,ly:slur::height)
        (stencil . ,ly:slur::print)                   
-       
-
        (thickness . 1.1)
        (minimum-length . 1.5)
        (height-limit . 2.0)
     (NonMusicalPaperColumn
      . (
        (axes . (0))
-
        (before-line-breaking . ,ly:paper-column::before-line-breaking)
        (X-extent . ,ly:axis-group-interface::width)
        ;;                    (stencil . ,ly:paper-column::print)
        
-       (breakable . #t)
+       (non-musical . #t)
+       (line-break-permission . allow)
 
        ;; debugging stuff: print column number.
        ;;               (font-size . -6) (font-name . "sans")  (Y-extent . #f)
 
     (PercentRepeat
      . (
-
        (springs-and-rods . ,ly:multi-measure-rest::set-spacing-rods)
        (stencil . ,ly:multi-measure-rest::percent)
-
        (slope . 1.0)
        (thickness . 0.48)
        (font-encoding . fetaMusic)
     ;; an example of a text spanner
     (PianoPedalBracket
      . (
-
        (stencil . ,ly:piano-pedal-bracket::print)
-
        (style . line)
        (bound-padding . 1.0)
        (direction . ,DOWN)
      . (
        (stencil . ,ly:text-interface::print)
        (X-offset . ,(ly:make-simple-closure
-                     `(,+ ,(ly:make-simple-closure
-                            `(,ly:self-alignment-interface::x-aligned-on-self))
-                          ,(ly:make-simple-closure
-                            `(,ly:self-alignment-interface::centered-on-x-parent)))
-                     ))
+                     `(,+
+                       ,(ly:make-simple-closure
+                         (list ly:break-alignment-align-interface::self-align-callback))
+                       ,(ly:make-simple-closure
+                         (list ly:self-alignment-interface::x-aligned-on-self)))))
+
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (self-alignment-X . 0)
        (direction . ,UP)
-       (breakable . #t)
+       (non-musical . #t)
        (font-size . 2)
        (baseline-skip . 2)
        (break-visibility . ,end-of-line-invisible)
+       (break-align-symbol . staff-bar)
        (padding . 0.8)
        (meta . ((class . Item)
                 (interfaces . (text-interface
                                side-position-interface
+                               break-alignment-align-interface
                                font-interface
                                mark-interface
                                self-alignment-interface))))))
        (slope . 1.7)
        (meta . ((class . Item)
                 (interfaces . (percent-repeat-interface))))))
+    (RepeatTie
+     . (
+       (stencil  . ,ly:tie::print)
+       (control-points . ,ly:semi-tie::calc-control-points)
+       (direction . ,ly:semi-tie::calc-direction)
+       (details . ((ratio . 0.333)
+                   (height-limit . 1.0)))
+       (thickness . 1.0)
+       (meta . ((class . Item)
+                (interfaces . (semi-tie-interface))
+                ))
+       ))
+
+    (RepeatTieColumn
+     . (
+       (X-extent . #f)
+       (Y-extent . #f)
+       (head-direction . ,RIGHT)
+       (positioning-done . ,ly:semi-tie-column::calc-positioning-done)
+       (meta . ((class . Item)
+                (interfaces . (semi-tie-column-interface))
+                ))
+       ))
+
     (Rest
      . (
        (stencil . ,ly:rest::print)
      . (
        (minimum-distance . 0.75)
        (positioning-done . ,ly:rest-collision::calc-positioning-done)
-                                       
        (meta . ((class . Item)
                 (interfaces . (rest-collision-interface))))))
 
 
        (stencil . ,ly:script-interface::print)
        (direction . ,ly:script-interface::calc-direction)
-
        (font-encoding . fetaMusic)
        (meta . ((class . Item)
                 (interfaces . (script-interface
 
     (ScriptColumn
      . (
-
        (before-line-breaking . ,ly:script-column::before-line-breaking)
-
        (meta . ((class . Item)
                 (interfaces . (script-column-interface))))))
 
 
     (SeparatingGroupSpanner
      . (
-
        (springs-and-rods . ,ly:separating-group-spanner::set-spacing-rods)
-
        (meta . ((class . Spanner)
                 (interfaces . (only-prebreak-interface
                                spacing-interface
 
     (Slur
      . ((details . ,default-slur-details)
-
        (control-points . ,ly:slur::calc-control-points)
        (direction . ,ly:slur::calc-direction)
        (springs-and-rods . ,ly:spanner::set-spacing-rods)
        (Y-extent . ,ly:slur::height)
        (stencil . ,ly:slur::print)
-       
        (thickness . 1.2)
        (line-thickness . 0.8)
        (minimum-length . 1.5)
-                                       ; ly:slur::height)
        (height-limit . 2.0)
        (ratio . 0.25)
+       (avoid-slur . inside)
        (meta . ((class . Spanner)
                 (interfaces . (slur-interface))))))
 
-    (SpacingSpanner
+ (SostenutoPedal
      . (
+       (stencil . ,ly:text-interface::print)
+       (direction . ,RIGHT)
+       (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
+       (no-spacing-rods . #t)
+       (padding . 0.0) ;; padding relative to SostenutoPedalLineSpanner
+       (font-shape . italic)
+       (self-alignment-X . 0)
+       (meta . ((class . Item)
+                (interfaces . (text-interface
+                               self-alignment-interface
+                               font-interface))))))
 
+    (SostenutoPedalLineSpanner
+     . (
+       (axes . (1))
+       (Y-extent . ,ly:axis-group-interface::height)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
+       (side-axis . ,Y)
+       (staff-padding . 1.0)
+       (padding . 1.2)
+       (minimum-space . 1.0)
+       (direction . ,DOWN)
+       (meta . ((class . Spanner)
+                (interfaces . (piano-pedal-interface
+                               axis-group-interface
+                               side-position-interface))))))
+    (SpacingSpanner
+     . (
        (springs-and-rods . ,ly:spacing-spanner::set-springs)
        (average-spacing-wishes . #t)
        (grace-space-factor . 0.6)
        (break-align-symbol . staff-bar)
        (Y-extent . ())
        (layer . 0)
-       (breakable . #t)
-
+       (non-musical . #t)
        (stencil . ,ly:span-bar::print)
        (bar-size . ,ly:span-bar::calc-bar-size)
        (X-extent . ,ly:span-bar::width)
     (StanzaNumber
      . (
        (stencil . ,ly:text-interface::print)
-
        (font-series . bold)
        (padding . 1.0)
        (X-offset . ,ly:side-position-interface::x-aligned-side)
                                text-interface
                                font-interface))))))
 
-    (StringNumber
-     . (
-
-       (stencil . ,print-circled-text-callback)
-
-       (padding . 0.5)
-       (staff-padding . 0.5)
-       (self-alignment-X . 0)
-       (self-alignment-Y . 0)
-       (script-priority . 100)
-       (font-encoding . fetaNumber)
-       (font-size . -5)                ; don't overlap when next to heads.
-       (meta . ((class . Item)
-                (interfaces . (string-number-interface
-                               font-interface
-                               text-script-interface
-                               text-interface
-                               side-position-interface
-                               self-alignment-interface
-                               item-interface))))))
 
     (StaffSpacing
      . (
-       (breakable . #t)
+       (non-musical . #t)
        (stem-spacing-correction . 0.4)
        (meta . ((class . Item)
                 (interfaces . (spacing-interface
                                staff-spacing-interface))))))
 
-    (SostenutoPedal
-     . (
-
-       (stencil . ,ly:text-interface::print)
-
-       (direction . ,RIGHT)
-       (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
-       (no-spacing-rods . #t)
-       (padding . 0.0) ;; padding relative to SostenutoPedalLineSpanner
-       (font-shape . italic)
-       (self-alignment-X . 0)
-       (meta . ((class . Item)
-                (interfaces . (text-interface
-                               self-alignment-interface
-                               font-interface))))))
-
-    (SostenutoPedalLineSpanner
-     . (
-       (axes . (1))
-
-       (X-extent . ,ly:axis-group-interface::height)
-
-       (Y-offset . ,ly:side-position-interface::y-aligned-side)
-       (side-axis . ,Y)
-
-       (padding . 1.2)
-       (minimum-space . 1.0)
-       (direction . ,DOWN)
-       (meta . ((class . Spanner)
-                (interfaces . (piano-pedal-interface
-                               axis-group-interface
-                               side-position-interface))))))
-
+   
     (StaffSymbol
      . (
        (Y-extent . ,ly:staff-symbol::height)
        (direction . ,ly:stem::calc-direction)
        (default-direction . ,ly:stem::calc-default-direction)
        (stem-end-position . ,ly:stem::calc-stem-end-position)
+       (neutral-direction . ,DOWN)
        (stem-info . ,ly:stem::calc-stem-info)
        (positioning-done . ,ly:stem::calc-positioning-done)
        (stencil . ,ly:stem::print)
        (X-extent . ,ly:stem::width)
        (Y-extent . ,ly:stem::height)
        (length . ,ly:stem::calc-length)
-       
        (thickness . 1.3)
-
        (details
         . (
            ;; 3.5 (or 3 measured from note head) is standard length
 
            ))
 
-
-       ;; default stem direction for note on middle line
-       (neutral-direction . ,DOWN)
-
        ;; We use the normal minima as minimum for the ideal lengths,
        ;; and the extreme minima as abolute minimum length.
 
        (stencil . ,ly:stem-tremolo::print)
        (X-extent . #f)
        (slope . ,ly:stem-tremolo::calc-slope)
-       (beam-width . 1.6) ; staff-space
+       (beam-width . ,ly:stem-tremolo::calc-width) ; staff-space
+        (style . ,ly:stem-tremolo::calc-style)
        (beam-thickness . 0.48) ; staff-space
        (meta . ((class . Item)
                 (interfaces . (stem-tremolo-interface))))))
 
+    (StringNumber
+     . (
+       (stencil . ,print-circled-text-callback)
+       (padding . 0.5)
+       (staff-padding . 0.5)
+       (self-alignment-X . 0)
+       (self-alignment-Y . 0)
+       (script-priority . 100)
+       (font-encoding . fetaNumber)
+       (font-size . -5)                ; don't overlap when next to heads.
+       (meta . ((class . Item)
+                (interfaces . (string-number-interface
+                               font-interface
+                               text-script-interface
+                               text-interface
+                               side-position-interface
+                               self-alignment-interface
+                               item-interface))))))
+    
     (SustainPedal
      . (
        (no-spacing-rods . #t)
     (SustainPedalLineSpanner
      . (
        (axes . (1))
-       (X-extent . ,ly:axis-group-interface::height)
+       (Y-extent . ,ly:axis-group-interface::height)
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
        (padding . 1.2)
     (SystemStartBar
      . (
        (Y-extent . #f)
-       (padding . 0.0)
+
+       ;; ugh--hardcoded. 
+       (padding . -0.1)  ;; bar must cover rounded ending of staff line.
        (X-offset . ,ly:side-position-interface::x-aligned-side)
        (direction . ,LEFT)
        (style . bar-line)
 
     (TabNoteHead
      . (
-
        (stencil . ,ly:text-interface::print)
        (Y-offset . ,ly:staff-symbol-referencer::callback)
        (font-size . -2)
-       (stem-attachment . (1.0 . 1.35))
+       (stem-attachment . (0.0 . 1.35))
        (font-series . bold)
        (meta . ((class . Item)
                 (interfaces
        (avoid-slur . inside)
        (direction . ,ly:tie::calc-direction)
        (stencil . ,ly:tie::print)
+       (font-size . -6)
        (details . (
                    ;; for a full list, see tie-helper.cc
                    (ratio . 0.333)
                    (stem-gap . 0.35)
                    (height-limit . 1.0)
                    (horizontal-distance-penalty-factor . 10)
+                   (min-length-penalty-factor . 20)
                    (tie-tie-collision-distance . 0.45) 
                    (tie-tie-collision-penalty . 25.0)
                    (intra-space-threshold . 1.25)
                    (outer-tie-vertical-distance-symmetry-penalty-factor . 10)
                    (outer-tie-length-symmetry-penalty-factor . 10)
+                   (outer-tie-vertical-gap . 0.25)
+                   (multi-tie-region-size . 1)
                    (between-length-limit . 1.0)))
        (thickness . 1.2)
        (line-thickness . 0.8)
                        (first-note . (fixed-space . 2.0))
                        (right-edge . (extra-space . 0.5))
                        (staff-bar . (minimum-space . 2.0))))
-       (breakable . #t)
+       (non-musical . #t)
        (style . C)
        (meta . ((class . Item)
                 (interfaces . (time-signature-interface
     (UnaCordaPedalLineSpanner
      . (
        (axes . (1))
-       (X-extent . ,ly:axis-group-interface::height)
+       (Y-extent . ,ly:axis-group-interface::height)
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
        (padding . 1.2)
     (VoltaBracket
      . (
        (stencil . ,ly:volta-bracket-interface::print)
-       (after-line-breaking . ,ly:volta-bracket-interface::after-line-breaking)
        (direction . ,UP)
        (padding . 1)
        (font-encoding . fetaNumber)
      . (
        (style . line)
        (gap . 0.5)
-       (breakable . #t)
+       (non-musical . #t)
        (X-extent . #f)
        (Y-extent . #f)
        (stencil . ,ly:line-spanner::print)