]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/define-grobs.scm
* lily/tie-formatting-problem.cc (score_configuration): use
[lilypond.git] / scm / define-grobs.scm
index 4ba3869e69c13c0161762c99af842c1999cecbc7..5435161434d54eaa31b97e845a2814a5864d0e3f 100644 (file)
@@ -5,8 +5,8 @@
 ;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
-;;;; distances are given in linethickness (thicknesses) and
-;;;; staffspace (distances)
+;;;; distances are given in line-thickness (thicknesses) and
+;;;; staff-space (distances)
 
 ;;;; WARNING: the meta field should be the last one.
 ;;;; WARNING: don't use anonymous functions for initialization.
        ;; Ross. page 151 lists other values, we opt for a leaner look
        ;;
        ;; TODO:
-       ;; kern should scale with linethickness too.
+       ;; kern should scale with line-thickness too.
        (kern . 3.0)
        (thin-kern . 3.0)
        (hair-thickness . 1.9)
                                font-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
                                ))))))
      . (
        (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
 
        ;; Whe have some unreferenced problems here.
        ;;
-       ;; If we shorten beamed stems less than normal stems (1 staffspace),
+       ;; If we shorten beamed stems less than normal stems (1 staff-space),
        ;; or high order less than 8th beams, patterns like
        ;;     c''4 [c''8 c''] c''4 [c''16 c]
        ;; are ugly (different stem lengths).
                        (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)
        (font-family . music)
        (break-align-symbol . clef)
 
     (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)
      . (
        (break-align-symbol . custos)
        (breakable . #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
 
     (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
 
     (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))
 
     (Hairpin
      . (
-
-
        (stencil . ,ly:hairpin::print)
        (springs-and-rods . ,ly:spanner::set-spacing-rods)
        (after-line-breaking . ,ly:hairpin::after-line-breaking)
-
        (thickness . 1.0)
        (height . 0.6666)
        (minimum-length . 2.0)
                                spanner-interface))))))
     (InstrumentName
      . (
-       (style . text)
        (padding . 0.3)
-       (stencil . ,ly:system-start-delimiter::print)
-       (collapse-height . 5.0)
+       (stencil . ,ly:system-start-text::print)
        (X-offset . ,ly:side-position-interface::x-aligned-side)
        (direction . ,LEFT)
-       (Y-offset . -0.75)
-       (Y-extent . #f)
+       (self-alignment-Y . ,CENTER)
        (meta . ((class . Spanner)
                 (interfaces . (system-start-text-interface
                                side-position-interface
 
     (KeyCancellation
      . (
-
        (stencil . ,ly:key-signature-interface::print)
-
        (space-alist . (
                        (time-signature . (extra-space . 1.25))
                        (staff-bar . (extra-space . 0.6))
        (break-align-symbol . key-cancellation)
        (break-visibility . ,begin-of-line-invisible)
        (breakable . #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))
        (break-align-symbol . key-signature)
        (break-visibility . ,begin-of-line-visible)
        (breakable . #t)
-
        (meta . ((class . Item)
                 (interfaces . (key-signature-interface
                                font-interface
                                break-aligned-interface))))))
     (LaissezVibrerTie
      . (
-
        (stencil  . ,ly:tie::print)
        (control-points . ,ly:laissez-vibrer-tie::calc-control-points)
        (direction . ,ly:laissez-vibrer-tie::calc-direction)
-       
        (details . ((ratio . 0.333)
                    (height-limit . 1.0)))
        (thickness . 1.0)
 
     (LedgerLineSpanner
      . (
-
        (springs-and-rods . ,ly:ledger-line-spanner::set-spacing-rods)
 
        (stencil . ,ly:ledger-line-spanner::print)
        (direction . ,UP)
        (positions . ,ly:tuplet-bracket::calc-positions)
        (stencil . ,ly:tuplet-bracket::print)
-       
+       (staff-padding . 0.25)
+       (connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors)
+       (control-points . ,ly:tuplet-bracket::calc-control-points)
        (meta . ((class . Spanner)
-                (interfaces . (tuplet-bracket-interface
-                               line-interface))))))
+                (interfaces . (line-interface
+                               tuplet-bracket-interface))))))
 
     (LyricHyphen
      . (
 
        (stencil . ,ly:lyric-extender::print)
 
-       (thickness . 0.8) ; linethickness
+       (thickness . 0.8) ; line-thickness
        (minimum-length . 1.5)
        (Y-extent . (0 . 0))
        (meta . ((class . Spanner)
        ))
     (LyricText
      . (
-
        (stencil . ,ly:text-interface::print)
-
        (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent)
        (self-alignment-X . 0)
        (word-space . 0.6)
                                axis-group-interface
                                spaceable-grob-interface))))))
 
+    (ParenthesesItem
+     . (
+       (stencil . ,parentheses-item::print)
+       (font-size . -6)
+       (padding . 0.2)
+       (meta . ((class . Item)
+                (interfaces . (parentheses-interface font-interface))))
+       
+             ))
     (PhrasingSlur
      . ((details . ,default-slur-details)
 
        (Y-extent . ,ly:slur::height)
        (stencil . ,ly:slur::print)
        
-       (thickness . 1.0)
+       (thickness . 1.2)
+       (line-thickness . 0.8)
        (minimum-length . 1.5)
                                        ; ly:slur::height)
        (height-limit . 2.0)
        (Y-extent . ,ly:stem-tremolo::height)
        (stencil . ,ly:stem-tremolo::print)
        (X-extent . #f)
+       (slope . ,ly:stem-tremolo::calc-slope)
        (beam-width . 1.6) ; staff-space
        (beam-thickness . 0.48) ; staff-space
        (meta . ((class . Item)
                    (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)
                    (between-length-limit . 1.0)))
-       (thickness . 1.0)
+       (thickness . 1.2)
+       (line-thickness . 0.8)
        (meta . ((class . Spanner)
                 (interfaces . (tie-interface))))
        ))
        (font-encoding . fetaNumber)
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
-       (thickness . 1.6)  ;;  linethickness
-       (edge-height . (2.0 . 2.0)) ;; staffspace;
+       (thickness . 1.6)  ;;  line-thickness
+       (edge-height . (2.0 . 2.0)) ;; staff-space;
        (minimum-space . 5)
        (font-size . -4)
        (meta . ((class . Spanner)