scm/define-grobs.scm

   1 ;;;; define-grobs.scm --
   2 ;;;;
   3 ;;;;  source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
   6 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
   7
   8 ;;;; distances are given in line-thickness (thicknesses) and
   9 ;;;; staff-space (distances)
  10
  11 ;;;; WARNING: the meta field should be the last one.
  12 ;;;; WARNING: don't use anonymous functions for initialization.
  13
  14 ;; TODO: junk the meta field in favor of something more compact?
  15
  16 ;;; todo:: reorder sensibly.
  17
  18 (define-public all-grob-descriptions
  19   `(
  20     (Accidental
  21      . (
  22         (avoid-slur . inside)
  23         (glyph-name-alist . ,standard-alteration-glyph-name-alist)
  24         (alteration . ,accidental-interface::calc-alteration)
  25         (stencil . ,ly:accidental-interface::print)
  26         (Y-extent . ,ly:accidental-interface::height)
  27         (meta . ((class . Item)
  28                  (interfaces . (accidental-interface
  29                                 font-interface))))))
  30     (AccidentalCautionary
  31      . (
  32         (avoid-slur . inside)
  33         (parenthesized . #t)
  34         (glyph-name-alist . ,standard-alteration-glyph-name-alist)
  35         (alteration . ,accidental-interface::calc-alteration)
  36         (stencil . ,ly:accidental-interface::print)
  37         (Y-extent . ,ly:accidental-interface::height)
  38         (meta . ((class . Item)
  39                  (interfaces . (accidental-interface
  40                                 font-interface))))))
  41
  42
  43     (AccidentalSuggestion
  44      . (
  45         (stencil . ,ly:accidental-interface::print)
  46         (Y-extent . ,ly:accidental-interface::height)
  47         (X-offset . ,(ly:make-simple-closure
  48                       `(,+
  49                         ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-x-parent))
  50                         ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
  51         (self-alignment-X . ,CENTER)
  52         (font-size . -2)
  53         (glyph-name-alist . ,standard-alteration-glyph-name-alist)
  54         (alteration . ,accidental-interface::calc-alteration)
  55         (Y-offset . ,ly:side-position-interface::y-aligned-side)
  56         (direction . ,UP)
  57         (staff-padding . 0.25)
  58         (outside-staff-priority . 0)
  59         (script-priority . 0)
  60         (side-axis . ,X)
  61         (meta . ((class . Item)
  62                  (interfaces . (side-position-interface
  63                                 script-interface
  64                                 accidental-interface
  65                                 accidental-suggestion-interface
  66                                 self-alignment-interface
  67                                 font-interface))))))
  68
  69     (AccidentalPlacement
  70      . (
  71         (left-padding . 0.2)
  72
  73         ;; for horizontally stacked scripts.
  74         (script-priority .  -100)
  75         (direction .  ,LEFT)
  76
  77         (positioning-done . ,ly:accidental-placement::calc-positioning-done)
  78         (X-extent . ,ly:axis-group-interface::width)
  79
  80         ;; this is quite small, but it is very ugly to have
  81         ;; accs closer to the previous note than to the next one.
  82         (right-padding . 0.15)
  83         (meta . ((class . Item)
  84                  (interfaces . (accidental-placement-interface))))))
  85
  86     (Ambitus
  87      . (
  88         (axes . (0 1))
  89         (X-extent . ,ly:axis-group-interface::width)
  90         (Y-extent . ,ly:axis-group-interface::height)
  91         (space-alist . (
  92                         (clef . (extra-space . 0.5))
  93                         (key-signature . (extra-space . 0.0))
  94                         (staff-bar . (extra-space . 0.0))
  95                         (time-signature . (extra-space . 0.0))
  96                         (first-note . (fixed-space . 0.0))))
  97         (non-musical . #t)
  98         (break-align-symbol . ambitus)
  99         (break-visibility . ,begin-of-line-visible)
 100         (meta . ((class . Item)
 101                  (interfaces . (axis-group-interface
 102                                 break-aligned-interface
 103                                 ambitus-interface))))))
 104
 105     (AmbitusLine
 106      . (
 107         (stencil . ,ly:ambitus::print)
 108         (join-heads . #t)
 109         (thickness . 2)
 110         (X-offset . ,ly:self-alignment-interface::centered-on-x-parent)
 111         (meta . ((class . Item)
 112                  (interfaces . (ambitus-interface
 113                                 staff-symbol-referencer-interface
 114                                 font-interface))))))
 115     (AmbitusAccidental
 116      . (
 117         (font-family . music)
 118         (padding . 0.5)
 119         (X-offset . ,ly:side-position-interface::x-aligned-side)
 120         (direction . ,LEFT)
 121         (stencil . ,ly:accidental-interface::print)
 122         (Y-extent . ,ly:accidental-interface::height)
 123         (glyph-name-alist . ,standard-alteration-glyph-name-alist)
 124         (side-axis . ,X)
 125         (meta . ((class . Item)
 126                  (interfaces . (
 127                                 accidental-interface
 128                                 break-aligned-interface
 129                                 side-position-interface
 130                                 font-interface))))))
 131
 132     (AmbitusNoteHead
 133      . (
 134         (duration-log . 2)
 135         (stencil . ,ly:note-head::print)
 136         (glyph-name . ,note-head::calc-glyph-name)
 137         (Y-offset . ,ly:staff-symbol-referencer::callback)
 138         (meta . ((class . Item)
 139                  (interfaces . (font-interface
 140                                 note-head-interface
 141                                 ambitus-interface
 142                                 staff-symbol-referencer-interface
 143                                 rhythmic-head-interface
 144                                 ledgered-interface))))))
 145
 146     (Arpeggio
 147      . ((X-extent . ,ly:arpeggio::width)
 148         (stencil . ,ly:arpeggio::print)
 149         (Y-offset . ,ly:staff-symbol-referencer::callback)
 150         (X-offset . ,ly:side-position-interface::x-aligned-side)
 151         (direction . ,LEFT)
 152         (padding . 0.5)
 153         (script-priority . 0)
 154         (side-axis . ,X)
 155         (staff-position . 0.0)
 156         (Y-extent . ,ly:arpeggio::height)
 157         (meta . ((class . Item)
 158                  (interfaces . (arpeggio-interface
 159                                 staff-symbol-referencer-interface
 160                                 side-position-interface
 161                                 font-interface))))))
 162
 163     (BalloonTextItem
 164      . ((stencil . ,ly:balloon-interface::print)
 165         (text . ,(grob::calc-property-by-copy 'text))
 166         (X-offset . ,(grob::calc-property-by-copy 'X-offset))
 167         (Y-offset . ,(grob::calc-property-by-copy 'Y-offset))
 168         (meta . ((class . Item)
 169                  (interfaces . (text-interface
 170                                 font-interface))))))
 171     (BarLine
 172      . (
 173         (break-align-symbol . staff-bar)
 174         (break-align-anchor . ,ly:bar-line::calc-anchor)
 175         (glyph . "|")
 176         (gap . 0.4)
 177         (layer . 0)
 178         (break-visibility . ,all-visible)
 179         (non-musical . #t)
 180         (stencil . ,ly:bar-line::print)
 181         (glyph-name . ,bar-line::calc-glyph-name)
 182         (bar-size .  ,ly:bar-line::calc-bar-size)
 183
 184         (space-alist . (
 185                         (time-signature . (extra-space . 0.75))
 186                         (custos . (minimum-space . 2.0))
 187                         (clef . (minimum-space . 1.0))
 188                         (key-signature . (extra-space . 1.0))
 189                         (key-cancellation . (extra-space . 1.0))
 190                         (first-note . (fixed-space . 1.3))
 191                         (next-note . (semi-fixed-space . 0.9))
 192                         (right-edge . (extra-space . 0.0))))
 193
 194         ;;
 195         ;; Ross. page 151 lists other values, we opt for a leaner look
 196         ;;
 197         ;; TODO:
 198         ;; kern should scale with line-thickness too.
 199         (kern . 3.0)
 200         (thin-kern . 3.0)
 201         (hair-thickness . 1.9)
 202         (thick-thickness . 6.0)
 203         (meta . ((class . Item)
 204                  (interfaces . (bar-line-interface
 205                                 break-aligned-interface
 206                                 font-interface))))))
 207
 208     (BarNumber
 209      . (
 210         (stencil . ,ly:text-interface::print)
 211         (non-musical . #t)
 212         (break-visibility . ,begin-of-line-visible)
 213         (padding . 1.0)
 214         (direction . ,UP)
 215         (font-family . roman)
 216         (font-size . -2)
 217         (Y-offset . ,ly:side-position-interface::y-aligned-side)
 218         (side-axis . ,Y)
 219         (X-offset . ,(ly:make-simple-closure
 220                       `(,+
 221                         ,(ly:make-simple-closure
 222                           (list ly:break-alignable-interface::self-align-callback))
 223                         ,(ly:make-simple-closure
 224                           (list ly:self-alignment-interface::x-aligned-on-self)))))
 225
 226         (self-alignment-X . 1)
 227
 228         ;; want the bar number before the clef at line start.
 229         (break-align-symbol . left-edge)
 230         (meta .
 231               ((class . Item)
 232                (interfaces . (side-position-interface
 233                               text-interface
 234                               break-alignable-interface
 235                               self-alignment-interface
 236                               font-interface
 237                               ))))
 238         ))
 239
 240     (BassFigure
 241      . (
 242         (stencil . ,ly:text-interface::print)
 243         (meta . ((class . Item)
 244                  (interfaces . (text-interface
 245                                 rhythmic-grob-interface
 246                                 bass-figure-interface
 247                                 font-interface))))))
 248
 249     (BassFigureAlignment
 250      . (
 251         (axes . (,Y))
 252         (threshold . (2 . 1000))
 253         (positioning-done . ,ly:align-interface::calc-positioning-done)
 254         (Y-extent . ,ly:axis-group-interface::height)
 255         (stacking-dir . -1)
 256         (padding . 0.2)
 257         (meta . ((class . Spanner)
 258                  (interfaces . (align-interface
 259                                 bass-figure-alignment-interface
 260                                 axis-group-interface))))))
 261
 262     (BassFigureAlignmentPositioning
 263      . ((Y-offset . ,ly:side-position-interface::y-aligned-side)
 264         (side-axis . ,Y)
 265         (direction . ,UP)
 266         (Y-extent . ,ly:axis-group-interface::height)
 267         (axes . (,Y))
 268         (staff-padding . 1.0)
 269         (padding . 0.5)
 270         (meta . ((class . Spanner)
 271                  (interfaces . (side-position-interface
 272                                 axis-group-interface
 273                              ))))))
 274
 275     (BassFigureBracket
 276      . (
 277         (stencil . ,ly:enclosing-bracket::print)
 278         (X-extent . ,ly:enclosing-bracket::width)
 279         (edge-height . (0.2 . 0.2))
 280         (meta . ((class . Item)
 281                  (interfaces . (enclosing-bracket-interface)) ))
 282         ))
 283     (BassFigureContinuation
 284      . (
 285         (stencil . ,ly:figured-bass-continuation::print)
 286         (Y-offset . ,ly:figured-bass-continuation::center-on-figures)
 287         (meta . ((class . Spanner)
 288                  (interfaces . (figured-bass-continuation-interface))
 289                  ))))
 290     (BassFigureLine
 291      . (
 292         (axes . (,Y))
 293         (Y-extent . ,ly:axis-group-interface::height)
 294         (vertical-skylines . ,ly:axis-group-interface::calc-skylines)
 295         (meta . ((class . Spanner)
 296                  (interfaces . (axis-group-interface
 297                                 ))))))
 298
 299
 300     (Beam
 301      . (
 302         ;; todo: clean this up a bit: the list is getting
 303         ;; rather long.
 304         (gap . 0.8)
 305         (positions .  ,(ly:make-simple-closure
 306                         (ly:make-simple-closure
 307                          (list chain-grob-member-functions
 308                            `(,cons 0 0)
 309                            ly:beam::calc-least-squares-positions
 310                            ly:beam::slope-damping
 311                            ly:beam::shift-region-to-valid
 312                            ly:beam::quanting
 313                            ))))
 314
 315         ;; this is a hack to set stem lengths, if positions is set.
 316         (quantized-positions . ,ly:beam::set-stem-lengths)
 317         (concaveness . ,ly:beam::calc-concaveness)
 318         (direction . ,ly:beam::calc-direction)
 319         (shorten . ,ly:beam::calc-stem-shorten)
 320         (beaming . ,ly:beam::calc-beaming)
 321         (stencil . ,ly:beam::print)
 322         (clip-edges . #t)
 323         (cross-staff . ,ly:beam::calc-cross-staff)
 324
 325         (details .  ((hint-direction-penalty . 20)))
 326         ;; TODO: should be in SLT.
 327         (thickness . 0.48) ; in staff-space
 328         (neutral-direction . ,DOWN)
 329
 330         ;; Whe have some unreferenced problems here.
 331         ;;
 332         ;; If we shorten beamed stems less than normal stems (1 staff-space),
 333         ;; or high order less than 8th beams, patterns like
 334         ;;     c''4 [c''8 c''] c''4 [c''16 c]
 335         ;; are ugly (different stem lengths).
 336         ;;
 337         ;; But if we shorten 16th beams as much as 8th beams, a single
 338         ;; forced 16th beam looks *very* short.
 339
 340         ;; We choose to shorten 8th beams the same as single stems,
 341         ;; and high order beams less than 8th beams, so that all
 342         ;; isolated shortened beams look nice and a bit shortened,
 343         ;; sadly possibly breaking patterns with high order beams.
 344         (beamed-stem-shorten . (1.0 0.5 0.25))
 345         (damping . 1)
 346         (auto-knee-gap . 5.5)
 347
 348         ;; only for debugging.
 349         (font-family . roman)
 350         (meta . ((class . Spanner)
 351                  (object-callbacks . ((normal-stems . ,ly:beam::calc-normal-stems)))
 352                  (interfaces . (staff-symbol-referencer-interface
 353                                 unbreakable-spanner-interface
 354                                 beam-interface))))))
 355
 356     (BendAfter
 357      . (
 358         (stencil . ,bend::print)
 359         (thickness . 2.0)
 360         (meta . ((class . Spanner)
 361                  (interfaces . (spanner-interface
 362                                 bend-after-interface))))))
 363
 364     (BreakAlignment
 365      . (
 366         (non-musical . #t)
 367         (stacking-dir . 1)
 368         (positioning-done . ,ly:break-alignment-interface::calc-positioning-done)
 369         (X-extent . ,ly:axis-group-interface::width)
 370         (break-align-orders . ;; end of line
 371                             #((
 372                                left-edge
 373                                ambitus
 374                                breathing-sign
 375                                clef
 376                                staff-bar
 377                                key-cancellation
 378                                key-signature
 379                                time-signature
 380                                custos)
 381
 382                               ;; unbroken
 383                               (
 384                                left-edge
 385                                ambitus
 386                                breathing-sign
 387                                clef
 388                                staff-bar
 389                                key-cancellation
 390                                key-signature
 391                                staff
 392                                time-signature custos)
 393
 394                               ;; begin of line
 395                               (
 396                                left-edge
 397                                ambitus
 398                                breathing-sign
 399                                clef
 400                                key-cancellation
 401                                key-signature
 402                                staff-bar
 403                                time-signature
 404                                custos)))
 405         (axes . (0))
 406         (meta . ((class . Item)
 407                  (interfaces . (break-alignment-interface
 408                                 axis-group-interface))))))
 409
 410     (BreakAlignGroup
 411      . (
 412         (axes . (0))
 413         (X-extent . ,ly:axis-group-interface::width)
 414         (break-align-anchor . ,ly:break-aligned-interface::calc-average-anchor)
 415         (meta . ((class . Item)
 416                  (interfaces . (break-aligned-interface
 417                                 axis-group-interface))))))
 418
 419     (BreathingSign
 420      . (
 421         (break-align-symbol . breathing-sign)
 422         (non-musical . #t)
 423         (space-alist . (
 424                         (ambitus . (extra-space . 2.0))
 425                         (custos . (minimum-space . 1.0))
 426                         (key-signature . (minimum-space . 1.5))
 427                         (time-signature . (minimum-space . 1.5))
 428                         (staff-bar . (minimum-space . 1.5))
 429                         (clef . (minimum-space . 2.0))
 430                         (first-note . (fixed-space . 1.0)) ;huh?
 431                         (right-edge . (extra-space . 0.1))))
 432         (stencil . ,ly:text-interface::print)
 433         (text . ,(make-musicglyph-markup "scripts.rcomma"))
 434         (Y-offset . ,ly:breathing-sign::offset-callback)
 435         (break-visibility . ,begin-of-line-invisible)
 436         (meta . ((class . Item)
 437                  (interfaces . (break-aligned-interface
 438                                 breathing-sign-interface
 439                                 text-interface
 440                                 font-interface))))))
 441
 442     (Clef
 443      . (
 444         (stencil . ,ly:clef::print)
 445         (glyph-name . ,ly:clef::calc-glyph-name)
 446         (non-musical . #t)
 447         (avoid-slur . inside)
 448         (font-family . music)
 449         (break-align-symbol . clef)
 450         (break-align-anchor . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
 451         (break-visibility . ,begin-of-line-visible)
 452         (space-alist . ((ambitus . (extra-space . 2.0))
 453                         (staff-bar . (extra-space . 0.7))
 454                         (key-cancellation . (minimum-space . 3.5))
 455                         (key-signature . (minimum-space . 3.5))
 456                         (time-signature . (minimum-space . 4.2))
 457                         (first-note . (minimum-fixed-space . 5.0))
 458                         (next-note . (extra-space . 0.5))
 459                         (right-edge . (extra-space . 0.5))))
 460         (Y-offset . ,ly:staff-symbol-referencer::callback)
 461         (meta . ((class . Item)
 462                  (interfaces . (clef-interface
 463                                 staff-symbol-referencer-interface
 464                                 font-interface
 465                                 break-aligned-interface))))))
 466
 467     (ClusterSpannerBeacon
 468      . (
 469         (Y-extent . ,ly:cluster-beacon::height)
 470         (meta . ((class . Item)
 471                  (interfaces . (rhythmic-grob-interface
 472                                 cluster-beacon-interface))))))
 473
 474     (ClusterSpanner
 475      . (
 476         (springs-and-rods . ,ly:spanner::set-spacing-rods)
 477         (stencil . ,ly:cluster::print)
 478         (minimum-length . 0.0)
 479         (padding . 0.25)
 480         (style . ramp)
 481         (meta . ((class . Spanner)
 482                  (interfaces . (cluster-interface))))))
 483
 484     (ChordName
 485      . (
 486         (stencil . ,ly:text-interface::print)
 487         (after-line-breaking . ,ly:chord-name::after-line-breaking)
 488         (word-space . 0.0)
 489         (font-family . sans)
 490         (font-size . 1.5)
 491         (meta . ((class . Item)
 492                  (interfaces . (font-interface
 493                                 rhythmic-grob-interface
 494                                 text-interface
 495                                 chord-name-interface
 496                                 ))))))
 497
 498     (CombineTextScript
 499      . (
 500         (stencil . ,ly:text-interface::print)
 501         (extra-spacing-width . (+inf.0 . -inf.0))
 502         (Y-offset . ,ly:side-position-interface::y-aligned-side)
 503         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
 504         (direction . ,UP)
 505         (padding . 0.5)
 506         (staff-padding . 0.5)
 507         (script-priority . 200)
 508         ;; todo: add X self alignment?
 509         (baseline-skip . 2)
 510         (side-axis . ,Y)
 511         (font-series . bold)
 512         (meta . ((class . Item)
 513                  (interfaces . (text-script-interface
 514                                 text-interface
 515                                 side-position-interface
 516                                 font-interface))))))
 517
 518     (Custos
 519      . (
 520         (break-align-symbol . custos)
 521         (non-musical . #t)
 522         (stencil . ,ly:custos::print)
 523         (break-visibility . ,end-of-line-visible)
 524         (style . vaticana)
 525         (neutral-direction . ,DOWN)
 526         (Y-offset . ,ly:staff-symbol-referencer::callback)
 527         (space-alist . (
 528                         (first-note . (minimum-fixed-space . 0.0))
 529                         (right-edge . (extra-space . 0.1))))
 530         (meta . ((class . Item)
 531                  (interfaces
 532                   . (custos-interface
 533                      staff-symbol-referencer-interface
 534                      font-interface
 535                      break-aligned-interface))))))
 536
 537     (DotColumn
 538      . (
 539         (axes . (0))
 540         (direction . ,RIGHT)
 541         (positioning-done . ,ly:dot-column::calc-positioning-done)
 542         (X-extent . ,ly:axis-group-interface::width)
 543         (meta . ((class . Item)
 544                  (interfaces . (dot-column-interface
 545                                 axis-group-interface))))))
 546
 547     (Dots
 548      . (
 549         (stencil . ,ly:dots::print)
 550         (dot-count . ,dots::calc-dot-count)
 551         (staff-position . ,dots::calc-staff-position)
 552         (meta . ((class . Item)
 553                  (interfaces . (font-interface
 554                                 staff-symbol-referencer-interface
 555                                 dots-interface))))))
 556
 557     (DoublePercentRepeat
 558      . (
 559         (stencil . ,ly:percent-repeat-item-interface::double-percent)
 560         (non-musical . #t)
 561         (slope . 1.0)
 562         (font-encoding . fetaMusic)
 563         (width . 2.0)
 564         (thickness . 0.48)
 565         (break-align-symbol . staff-bar)
 566         (break-visibility . ,begin-of-line-invisible)
 567         (meta . ((class . Item)
 568                  (interfaces . (font-interface
 569                                 break-aligned-interface
 570                                 percent-repeat-item-interface))))))
 571
 572     (DoublePercentRepeatCounter
 573      . (
 574         (stencil . ,ly:text-interface::print)
 575         (X-offset . ,(ly:make-simple-closure `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-y-parent))
 576                                                   ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
 577         (Y-offset . ,ly:side-position-interface::y-aligned-side)
 578         (font-encoding . fetaNumber)
 579         (self-alignment-X . 0)
 580         (font-size . -2)
 581         (direction . ,UP)
 582         (padding . 0.2)
 583         (staff-padding . 0.25)
 584         (side-axis . ,Y)
 585         (meta . ((class . Item)
 586                  (interfaces . (side-position-interface
 587                                 self-alignment-interface
 588                                 percent-repeat-item-interface
 589                                 font-interface
 590                                 text-interface))))))
 591     (DynamicLineSpanner
 592      . (
 593         (axes . (1))
 594         (Y-offset . ,ly:side-position-interface::y-aligned-side)
 595         (staff-padding . 0.1)
 596         (padding . 0.6)
 597         (slur-padding . 0.3)
 598         (minimum-space . 1.2)
 599         (direction . ,DOWN)
 600         (side-axis . ,Y)
 601         (outside-staff-priority . 250)
 602         (Y-extent . ,ly:axis-group-interface::height)
 603         (X-extent . ,ly:axis-group-interface::width)
 604         (meta . ((class . Spanner)
 605                  (interfaces . (axis-group-interface
 606                                 dynamic-interface
 607                                 dynamic-line-spanner-interface
 608                                 side-position-interface))))))
 609
 610     (DynamicText
 611      . (
 612
 613         ;; todo.
 614
 615         (stencil . ,ly:text-interface::print)
 616         (direction . ,ly:script-interface::calc-direction)
 617         (positioning-done . ,ly:script-interface::calc-positioning-done)
 618
 619         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
 620         (self-alignment-X . 0)
 621         (Y-offset . ,ly:self-alignment-interface::y-aligned-on-self)
 622         (self-alignment-Y . 0)
 623         (font-series . bold)
 624         (font-encoding . fetaDynamic)
 625         (font-shape . italic)
 626         (extra-spacing-width . (+inf.0 . -inf.0))
 627         (outside-staff-priority . 250)
 628         (meta . ((class . Item)
 629                  (interfaces . (font-interface
 630                                 text-interface
 631                                 self-alignment-interface
 632                                 dynamic-interface
 633                                 script-interface))))))
 634
 635     (DynamicTextSpanner
 636      . (
 637         ;; rather ugh with NCSB
 638         ;; (font-series . bold)
 639         (font-shape . italic)
 640         (style . dashed-line)
 641
 642         ;; make sure the spanner doesn't get too close to notes
 643         (minimum-Y-extent . (-1 . 1))
 644         (bound-details . ((right . ((attach-dir .  ,LEFT)
 645                                     (Y . 0)
 646                                     (padding . 0.75)
 647                                     ))
 648                           (right-broken . ((attach-dir .  ,RIGHT)
 649                                     (padding . 0.0)
 650                                     ))
 651
 652                           (left . ((attach-dir .  ,LEFT)
 653                                    (Y . 0)
 654                                    (stencil-offset . (0 . -0.5))
 655                                    (padding . 0.5)
 656                                    ))
 657                           (left-broken . ((attach-dir .  ,RIGHT)
 658                                    ))
 659                           ))
 660         (stencil . ,ly:line-spanner::print)
 661         (left-bound-info . ,ly:line-spanner::calc-left-bound-info-and-text)
 662         (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
 663
 664         ;; need to blend with dynamic texts.
 665         (font-size . 1)
 666         (dash-fraction . 0.2)
 667         (dash-period . 3.0)
 668         (meta . ((class . Spanner)
 669                  (interfaces . (font-interface
 670                                 text-interface
 671                                 line-spanner-interface
 672                                 line-interface
 673                                 dynamic-interface
 674                                 dynamic-text-spanner-interface
 675                                 spanner-interface))))))
 676
 677
 678     (Fingering
 679      . (
 680
 681         ;; sync with TextScript (?)
 682
 683         (padding . 0.5)
 684         (avoid-slur . around)
 685         (slur-padding . 0.2)
 686         (staff-padding . 0.5)
 687         (self-alignment-X . 0)
 688         (self-alignment-Y . 0)
 689         (script-priority . 100)
 690         (stencil . ,ly:text-interface::print)
 691         (direction . ,ly:script-interface::calc-direction)
 692         (positioning-done . ,ly:script-interface::calc-positioning-done)
 693
 694         (text . ,fingering::calc-text)
 695         (font-encoding . fetaNumber)
 696         (font-size . -5)                ; don't overlap when next to heads.
 697         (meta . ((class . Item)
 698                  (interfaces . (finger-interface
 699                                 font-interface
 700                                 text-script-interface
 701                                 text-interface
 702                                 side-position-interface
 703                                 self-alignment-interface
 704                                 ))))))
 705     (FretBoard
 706      . ((stencil . ,fret-board::calc-stencil)
 707         (finger-code . below-string)
 708         (meta . ((class . Item)
 709                  (interfaces . (fret-diagram-interface
 710                                 font-interface
 711                                 ))))
 712               ))
 713     (Glissando
 714      . (
 715         (style . line)
 716         (gap . 0.5)
 717         (zigzag-width . 0.75)
 718         (X-extent . #f)
 719         (Y-extent . #f)
 720         (bound-details . ((right . ((attach-dir .  ,CENTER)
 721                                     (padding . 1.5)
 722                                       ))
 723                           (left . ((attach-dir .  ,CENTER)
 724                                    (padding . 1.5)
 725                                       ))
 726                           ))
 727         (stencil . ,ly:line-spanner::print)
 728         (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
 729         (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
 730         (meta . ((class . Spanner)
 731                  (interfaces . (line-interface
 732                                 unbreakable-spanner-interface
 733                                 line-spanner-interface))))))
 734
 735     (GraceSpacing
 736      . (
 737         (common-shortest-duration . ,grace-spacing::calc-shortest-duration)
 738         (spacing-increment . 0.8)
 739         (shortest-duration-space . 1.6)
 740         (meta . ((class . Spanner)
 741                  (interfaces . (grace-spacing-interface
 742
 743                                 spacing-options-interface
 744                                 spanner-interface))))))
 745     (GridPoint
 746      . (
 747         (X-extent . (0 . 0))
 748         (Y-extent . (0 . 0))
 749         (meta . ((class . Item)
 750                  (interfaces . (grid-point-interface))))))
 751
 752     (GridLine
 753      . (
 754         (X-extent  . ,ly:grid-line-interface::width)
 755         (stencil . ,ly:grid-line-interface::print)
 756         (self-alignment-X . ,CENTER)
 757         (X-offset . ,(ly:make-simple-closure
 758                       `(,+  ,(ly:make-simple-closure
 759                               (list ly:self-alignment-interface::centered-on-x-parent))
 760                             ,(ly:make-simple-closure
 761                               (list ly:self-alignment-interface::x-aligned-on-self)))))
 762         (layer . 0)
 763         (meta . ((class . Item)
 764                  (interfaces . (self-alignment-interface
 765                                 grid-line-interface))))))
 766
 767     (Hairpin
 768      . (
 769         (stencil . ,ly:hairpin::print)
 770         (springs-and-rods . ,ly:spanner::set-spacing-rods)
 771         (after-line-breaking . ,ly:hairpin::after-line-breaking)
 772         (grow-direction . ,hairpin::calc-grow-direction)
 773         (circled-tip . #f)
 774         (thickness . 1.0)
 775         (height . 0.6666)
 776         (minimum-length . 2.0)
 777         (bound-padding . 1.0)
 778         (self-alignment-Y . 0)
 779         (Y-offset . ,ly:self-alignment-interface::y-aligned-on-self)
 780         (meta . ((class . Spanner)
 781                  (interfaces . (hairpin-interface
 782                                 line-interface
 783                                 self-alignment-interface
 784                                 dynamic-interface
 785                                 spanner-interface))))))
 786
 787     (HorizontalBracket
 788      . (
 789         (thickness . 1.0)
 790         (stencil . ,ly:horizontal-bracket::print)
 791         (Y-offset . ,ly:side-position-interface::y-aligned-side)
 792         (connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors)
 793
 794         (padding . 0.2)
 795         (staff-padding . 0.2)
 796         (direction . ,DOWN)
 797         (side-axis . ,Y)
 798         (bracket-flare . (0.5 . 0.5))
 799         (meta . ((class . Spanner)
 800                  (interfaces . (horizontal-bracket-interface
 801                                 side-position-interface
 802                                 line-interface
 803                                 spanner-interface))))))
 804     (InstrumentName
 805      . (
 806         (padding . 0.3)
 807         (stencil . ,ly:system-start-text::print)
 808         (X-offset . ,ly:side-position-interface::x-aligned-side)
 809         (direction . ,LEFT)
 810         (self-alignment-Y . ,CENTER)
 811         (meta . ((class . Spanner)
 812                  (interfaces . (system-start-text-interface
 813                                 side-position-interface
 814                                 font-interface))))))
 815
 816     (InstrumentSwitch
 817      . (
 818         (padding . 0.3)
 819         (stencil . ,ly:text-interface::print)
 820         (Y-offset . ,ly:side-position-interface::y-aligned-side)
 821         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
 822         (staff-padding . 2)
 823         (direction . ,UP)
 824         (self-alignment-X . ,CENTER)
 825         (meta . ((class . Item)
 826                  (interfaces . (system-start-text-interface
 827                                 side-position-interface
 828                                 font-interface))))))
 829
 830     (KeyCancellation
 831      . (
 832         (stencil . ,ly:key-signature-interface::print)
 833         (glyph-name-alist . ,cancellation-glyph-name-alist)
 834         (space-alist . (
 835                         (time-signature . (extra-space . 1.25))
 836                         (staff-bar . (extra-space . 0.6))
 837                         (key-signature . (extra-space . 0.5))
 838                         (right-edge . (extra-space . 0.5))
 839                         (first-note . (fixed-space . 2.5))))
 840         (Y-offset . ,ly:staff-symbol-referencer::callback)
 841         (break-align-symbol . key-cancellation)
 842         (break-visibility . ,begin-of-line-invisible)
 843         (non-musical . #t)
 844         (meta . ((class . Item)
 845                  (interfaces . (key-cancellation-interface
 846                                 key-signature-interface
 847                                 font-interface
 848                                 break-aligned-interface))))))
 849     (KeySignature
 850      . (
 851         (stencil . ,ly:key-signature-interface::print)
 852         (avoid-slur . inside)
 853         (glyph-name-alist . ,standard-alteration-glyph-name-alist)
 854         (space-alist . (
 855                         (time-signature . (extra-space . 1.15))
 856                         (staff-bar . (extra-space . 1.1))
 857                         (right-edge . (extra-space . 0.5))
 858                         (first-note . (fixed-space . 2.5))))
 859         (Y-offset . ,ly:staff-symbol-referencer::callback)
 860         (break-align-symbol . key-signature)
 861         (break-align-anchor . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
 862         (break-visibility . ,begin-of-line-visible)
 863         (non-musical . #t)
 864         (meta . ((class . Item)
 865                  (interfaces . (key-signature-interface
 866                                 font-interface
 867                                 break-aligned-interface))))))
 868
 869
 870    (LaissezVibrerTie
 871      . (
 872         (stencil  . ,ly:tie::print)
 873         (control-points . ,ly:semi-tie::calc-control-points)
 874         (direction . ,ly:tie::calc-direction)
 875         (details . ((ratio . 0.333)
 876                     (height-limit . 1.0)))
 877         (head-direction . ,LEFT)
 878         (thickness . 1.0)
 879         (meta . ((class . Item)
 880                  (interfaces . (semi-tie-interface))
 881                  ))
 882         ))
 883
 884     (LaissezVibrerTieColumn
 885      . (
 886         (X-extent . #f)
 887         (Y-extent . #f)
 888         (head-direction . ,LEFT)
 889         (positioning-done . ,ly:semi-tie-column::calc-positioning-done)
 890         (meta . ((class . Item)
 891                  (interfaces . (semi-tie-column-interface))
 892                  ))
 893         ))
 894
 895     (LedgerLineSpanner
 896      . (
 897         (springs-and-rods . ,ly:ledger-line-spanner::set-spacing-rods)
 898         (stencil . ,ly:ledger-line-spanner::print)
 899         (X-extent . #f)
 900         (Y-extent . #f)
 901         (minimum-length-fraction . 0.25)
 902         (length-fraction . 0.25)
 903         (layer . 0)
 904         (meta . ((class . Spanner)
 905                  (interfaces . (ledger-line-spanner-interface))))))
 906
 907     (LeftEdge
 908      . (
 909         (break-align-symbol . left-edge)
 910         (break-align-anchor . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
 911         (X-extent . (0 . 0))
 912         (non-musical . #t)
 913         (break-visibility . ,center-invisible)
 914         (space-alist . (
 915                         (custos . (extra-space . 0.0))
 916                         (ambitus . (extra-space . 2.0))
 917                         (time-signature . (extra-space . 1.0))
 918                         (staff-bar . (extra-space . 0.0))
 919                         (breathing-sign . (minimum-space . 0.0))
 920                         (clef . (extra-space . 0.8))
 921                         (first-note . (fixed-space . 2.0))
 922                         (right-edge . (extra-space . 0.0))
 923                         (key-signature . (extra-space . 0.0))
 924                         (key-cancellation . (extra-space . 0.0))
 925                         ))
 926         (meta . ((class . Item)
 927                  (interfaces . (break-aligned-interface))))))
 928
 929     (LigatureBracket
 930      . (
 931         ;; ugh.  A ligature bracket is totally different from
 932         ;; a tuplet bracket.
 933
 934         (padding . 2.0)
 935         (thickness . 1.6)
 936         (edge-height . (0.7 . 0.7))
 937         (shorten-pair . (-0.2 . -0.2))
 938         (direction . ,UP)
 939         (positions . ,ly:tuplet-bracket::calc-positions)
 940         (stencil . ,ly:tuplet-bracket::print)
 941         (staff-padding . 0.25)
 942         (connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors)
 943         (control-points . ,ly:tuplet-bracket::calc-control-points)
 944         (meta . ((class . Spanner)
 945                  (interfaces . (line-interface
 946                                 tuplet-bracket-interface))))))
 947
 948
 949     (LyricExtender
 950      . (
 951         (stencil . ,ly:lyric-extender::print)
 952         (thickness . 0.8) ; line-thickness
 953         (minimum-length . 1.5)
 954         (Y-extent . (0 . 0))
 955         (meta . ((class . Spanner)
 956                  (interfaces . (lyric-interface
 957                                 lyric-extender-interface))))))
 958
 959     (LyricHyphen
 960      . (
 961         (thickness . 1.3)
 962         (height . 0.42)
 963         (dash-period . 10.0)
 964         (length . 0.66)
 965         (minimum-length . 0.3)
 966         (minimum-distance . 0.1)
 967         (padding . 0.07)
 968         (springs-and-rods . ,ly:lyric-hyphen::set-spacing-rods)
 969         (stencil . ,ly:lyric-hyphen::print)
 970         (Y-extent . (0 . 0))
 971         (meta . ((class . Spanner)
 972                  (interfaces . (lyric-interface
 973                                 font-interface
 974                                 lyric-hyphen-interface
 975                                 spanner-interface))))))
 976
 977     (LyricSpace
 978      . ((minimum-distance . 0.45)
 979         (springs-and-rods . ,ly:lyric-hyphen::set-spacing-rods)
 980         (padding . 0.0)
 981         (Y-extent . #f)
 982         (X-extent . #f)
 983         (meta . ((class . Spanner)
 984                  (interfaces . (spanner-interface
 985                                 lyric-hyphen-interface ))
 986                  ))
 987         ))
 988
 989     (LyricText
 990      . (
 991         (stencil . ,lyric-text::print)
 992         (text . ,(grob::calc-property-by-copy 'text))
 993         (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent)
 994         (self-alignment-X . 0)
 995         (word-space . 0.6)
 996         (font-series . bold-narrow)
 997         (font-size . 1.0)
 998         (meta . ((class . Item)
 999                  (interfaces . (rhythmic-grob-interface
1000                                 lyric-syllable-interface
1001                                 self-alignment-interface
1002                                 text-interface
1003                                 font-interface))))))
1004
1005
1006     (MeasureGrouping
1007      . (
1008         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1009         (side-axis . ,Y)
1010         (stencil . ,ly:measure-grouping::print)
1011         (padding . 2)
1012         (direction . ,UP)
1013         (thickness . 1)
1014         (height . 2.0)
1015         (staff-padding . 3)
1016         (meta . ((class . Spanner)
1017                  (interfaces . (side-position-interface
1018                                 measure-grouping-interface))))))
1019
1020     (MelodyItem
1021      . (
1022         (neutral-direction . ,DOWN)
1023         (meta . ((class . Item)
1024                  (interfaces . (melody-spanner-interface ))))))
1025     (MensuralLigature
1026      . (
1027         (thickness . 1.4)
1028         (flexa-width . 2.0)
1029         (stencil . ,ly:mensural-ligature::print)
1030         (meta . ((class . Spanner)
1031                  (interfaces . (mensural-ligature-interface
1032                                 font-interface))))))
1033
1034     (MetronomeMark
1035      . (
1036         (stencil . ,ly:text-interface::print)
1037         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1038         (direction . ,UP)
1039         (padding . 0.8)
1040         (side-axis . ,Y)
1041         (outside-staff-priority . 1000)
1042         (meta . ((class . Item)
1043                  (interfaces . (text-interface
1044                                 side-position-interface
1045                                 font-interface
1046                                 metronome-mark-interface))))))
1047
1048
1049     (MultiMeasureRest
1050      . (
1051         (stencil . ,ly:multi-measure-rest::print)
1052         (springs-and-rods . ,ly:multi-measure-rest::set-spacing-rods)
1053         (Y-offset . ,ly:staff-symbol-referencer::callback)
1054         (staff-position . 0)
1055         (expand-limit . 10)
1056         (thick-thickness . 6.6)
1057         (hair-thickness . 2.0)
1058         (padding . 1)
1059         (meta . ((class . Spanner)
1060                  (interfaces . (multi-measure-rest-interface
1061                                 multi-measure-interface
1062                                 rest-interface
1063                                 font-interface
1064                                 staff-symbol-referencer-interface))))))
1065
1066
1067     (MultiMeasureRestNumber
1068      . (
1069         (bound-padding  . 2.0)
1070         (springs-and-rods . ,ly:multi-measure-rest::set-text-rods)
1071         (stencil . ,ly:text-interface::print)
1072         (X-offset . ,(ly:make-simple-closure
1073                       `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self))
1074                            ,(ly:make-simple-closure (list ly:self-alignment-interface::x-centered-on-y-parent)))))
1075         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1076         (side-axis . ,Y)
1077         (self-alignment-X . 0)
1078         (direction . ,UP)
1079         (padding . 0.4)
1080         (staff-padding . 0.4)
1081         (font-encoding . fetaNumber)
1082         (meta . ((class . Spanner)
1083                  (interfaces . (side-position-interface
1084                                 multi-measure-interface
1085                                 self-alignment-interface
1086                                 font-interface
1087                                 text-interface))))
1088               ))
1089
1090     (MultiMeasureRestText
1091      . (
1092         (stencil . ,ly:text-interface::print)
1093         (X-offset . ,(ly:make-simple-closure
1094                       `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::x-centered-on-y-parent))
1095                            ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
1096
1097         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1098         (self-alignment-X . 0)
1099         (direction . ,UP)
1100         (padding . 0.2)
1101         (staff-padding . 0.25)
1102         (meta . ((class . Spanner)
1103                  (interfaces . (side-position-interface
1104                                 multi-measure-interface
1105                                 self-alignment-interface
1106                                 font-interface
1107                                 text-interface))))))
1108
1109     (NonMusicalPaperColumn
1110      . (
1111         (allow-loose-spacing . #t)
1112         (axes . (0))
1113         (before-line-breaking . ,ly:paper-column::before-line-breaking)
1114         (X-extent . ,ly:axis-group-interface::width)
1115         ;;                    (stencil . ,ly:paper-column::print)
1116
1117         (non-musical . #t)
1118         (line-break-permission . allow)
1119         (page-break-permission . allow)
1120
1121         ;; debugging stuff: print column number.
1122         ;;               (font-size . -6) (font-name . "sans")  (Y-extent . #f)
1123
1124         (meta . ((class . Paper_column)
1125                  (interfaces . (paper-column-interface
1126                                 axis-group-interface
1127                                 spaceable-grob-interface))))))
1128
1129     (NoteCollision
1130      . (
1131         (axes . (0 1))
1132         (X-extent . ,ly:axis-group-interface::width)
1133         (Y-extent . ,ly:axis-group-interface::height)
1134         (positioning-done . ,ly:note-collision-interface::calc-positioning-done)
1135         (meta . ((class . Item)
1136                  (interfaces . (note-collision-interface
1137                                 axis-group-interface))))))
1138
1139     (NoteColumn
1140      . (
1141         (axes . (0 1))
1142         (X-extent . ,ly:axis-group-interface::width)
1143         (Y-extent . ,ly:axis-group-interface::height)
1144         (meta . ((class . Item)
1145                  (interfaces . (axis-group-interface
1146                                 note-column-interface))))))
1147
1148     (NoteHead
1149      . (
1150         (stencil . ,ly:note-head::print)
1151         (duration-log . ,note-head::calc-duration-log)
1152         (stem-attachment . ,ly:note-head::calc-stem-attachment)
1153         (glyph-name . ,note-head::calc-glyph-name)
1154         (Y-offset . ,ly:staff-symbol-referencer::callback)
1155         (X-offset . ,ly:note-head::stem-x-shift)
1156         (meta . ((class . Item)
1157                  (interfaces . (rhythmic-grob-interface
1158                                 rhythmic-head-interface
1159                                 font-interface
1160                                 note-head-interface
1161                                 ledgered-interface
1162                                 staff-symbol-referencer-interface))))))
1163
1164     (NoteSpacing
1165      . (
1166         (stem-spacing-correction . 0.5)
1167         (same-direction-correction . 0.25)
1168         ;; Changed this from 0.75.
1169         ;; If you ever change this back, please document! --hwn
1170         (knee-spacing-correction . 1.0)
1171         (meta . ((class . Item)
1172                  (interfaces . (
1173                                 note-spacing-interface))))))
1174
1175     (NoteName
1176      . (
1177         (stencil . ,ly:text-interface::print)
1178         (meta . ((class . Item)
1179                  (interfaces . (note-name-interface
1180                                 text-interface
1181                                 font-interface))))))
1182
1183     (OctavateEight
1184      . (
1185         (self-alignment-X . 0)
1186         (break-visibility . ,begin-of-line-visible)
1187         (X-offset . ,(ly:make-simple-closure
1188                       `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self))
1189                            ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-x-parent)))))
1190
1191         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1192         (stencil . ,ly:text-interface::print)
1193         (font-shape . italic)
1194         (staff-padding . 0.2)
1195         (font-size . -4)
1196         (meta . ((class . Item)
1197                  (interfaces . (text-interface
1198                                 self-alignment-interface
1199                                 side-position-interface
1200                                 font-interface))))))
1201
1202     (OttavaBracket
1203      . (
1204         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1205         (stencil . ,ly:ottava-bracket::print)
1206         (font-shape . italic)
1207         (shorten-pair . (0.0 . -0.6))
1208         (staff-padding . 1.0)
1209         (padding . 0.5)
1210         (minimum-length . 1.0)
1211         (dash-fraction . 0.3)
1212         (edge-height . (0 . 1.2))
1213         (direction . ,UP)
1214         (outside-staff-priority . 400)
1215         (meta . ((class . Spanner)
1216                  (interfaces . (ottava-bracket-interface
1217                                 horizontal-bracket-interface
1218                                 line-interface
1219                                 side-position-interface
1220                                 font-interface
1221                                 text-interface))))))
1222
1223     (PaperColumn
1224      . (
1225         (axes . (0))
1226         (allow-loose-spacing . #t)
1227         (before-line-breaking . ,ly:paper-column::before-line-breaking)
1228         ;; (stencil . ,ly:paper-column::print)
1229         (X-extent . ,ly:axis-group-interface::width)
1230
1231         ;; debugging
1232         ;;                       (font-size . -6) (font-name . "sans") (Y-extent . #f)
1233         (meta . ((class . Paper_column)
1234                  (interfaces . (paper-column-interface
1235                                 axis-group-interface
1236                                 spaceable-grob-interface))))))
1237
1238     (ParenthesesItem
1239      . ((stencil . ,parentheses-item::print)
1240         (stencils . ,parentheses-item::calc-parenthesis-stencils)
1241         (font-size . -6)
1242         (padding . 0.2)
1243         (meta . ((class . Item)
1244                  (interfaces . (parentheses-interface font-interface))))
1245         ))
1246
1247     (HarmonicParenthesesItem
1248      . ((stencil . ,parentheses-item::print)
1249         (padding . 0)
1250         (stencils . ,parentheses-item::calc-angled-bracket-stencils)
1251         (meta . ((class . Item)
1252                  (interfaces . (parentheses-interface font-interface))))
1253         ))
1254
1255     (PhrasingSlur
1256      . ((details . ,default-slur-details)
1257         (control-points . ,ly:slur::calc-control-points)
1258         (direction . ,ly:slur::calc-direction)
1259         (springs-and-rods . ,ly:spanner::set-spacing-rods)
1260         (Y-extent . ,ly:slur::height)
1261         (stencil . ,ly:slur::print)
1262         (thickness . 1.1)
1263         (minimum-length . 1.5)
1264         (height-limit . 2.0)
1265         (ratio . 0.333)
1266         (cross-staff . ,ly:slur::calc-cross-staff)
1267         (meta . ((class . Spanner)
1268                  (interfaces . (slur-interface))))))
1269
1270
1271
1272     (PercentRepeat
1273      . (
1274         (springs-and-rods . ,ly:multi-measure-rest::set-spacing-rods)
1275         (stencil . ,ly:multi-measure-rest::percent)
1276         (slope . 1.0)
1277         (thickness . 0.48)
1278         (font-encoding . fetaMusic)
1279         (meta . ((class . Spanner)
1280                  (interfaces . (multi-measure-rest-interface
1281                                 font-interface
1282                                 percent-repeat-item-interface))))))
1283     (PercentRepeatCounter
1284      . (
1285         (stencil . ,ly:text-interface::print)
1286         (X-offset . ,(ly:make-simple-closure
1287                       `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::x-centered-on-y-parent))
1288                            ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
1289         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1290         (self-alignment-X . 0)
1291         (direction . ,UP)
1292         (padding . 0.2)
1293         (staff-padding . 0.25)
1294         (font-size . -2)
1295         (font-encoding . fetaNumber)
1296         (meta . ((class . Spanner)
1297                  (interfaces . (side-position-interface
1298                                 self-alignment-interface
1299                                 percent-repeat-item-interface
1300                                 font-interface
1301                                 text-interface))))))
1302
1303     ;; an example of a text spanner
1304     (PianoPedalBracket
1305      . (
1306         (stencil . ,ly:piano-pedal-bracket::print)
1307         (style . line)
1308         (bound-padding . 1.0)
1309         (direction . ,DOWN)
1310         (bracket-flare . (0.5 . 0.5))
1311         (edge-height . (1.0 . 1.0))
1312         (shorten-pair . (0.0 . 0.0))
1313         (thickness .  1.0)
1314         (meta . ((class . Spanner)
1315                  (interfaces . (line-interface
1316                                 piano-pedal-interface
1317                                 piano-pedal-bracket-interface))))))
1318
1319     (RehearsalMark
1320      . (
1321         (stencil . ,ly:text-interface::print)
1322         (X-offset . ,(ly:make-simple-closure
1323                       `(,+
1324                         ,(ly:make-simple-closure
1325                           (list ly:break-alignable-interface::self-align-callback))
1326                         ,(ly:make-simple-closure
1327                           (list ly:self-alignment-interface::x-aligned-on-self)))))
1328
1329         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1330         (self-alignment-X . 0)
1331         (direction . ,UP)
1332         (non-musical . #t)
1333         (font-size . 2)
1334         (baseline-skip . 2)
1335         (break-visibility . ,end-of-line-invisible)
1336         (break-align-symbol . clef)
1337         (padding . 0.8)
1338         (outside-staff-priority . 1500)
1339         (meta . ((class . Item)
1340                  (interfaces . (text-interface
1341                                 side-position-interface
1342                                 break-alignable-interface
1343                                 font-interface
1344                                 mark-interface
1345                                 self-alignment-interface))))))
1346
1347     (RepeatSlash
1348      . (
1349         (stencil . ,ly:percent-repeat-item-interface::beat-slash)
1350         (thickness . 0.48)
1351         (slope . 1.7)
1352         (meta . ((class . Item)
1353                  (interfaces . (rhythmic-grob-interface
1354                                 percent-repeat-item-interface))))))
1355
1356     (RepeatTie
1357      . (
1358         (stencil  . ,ly:tie::print)
1359         (control-points . ,ly:semi-tie::calc-control-points)
1360         (direction . ,ly:tie::calc-direction)
1361         (details . ((ratio . 0.333)
1362                     (height-limit . 1.0)))
1363         (thickness . 1.0)
1364         (head-direction . ,RIGHT)
1365         (meta . ((class . Item)
1366                  (interfaces . (semi-tie-interface))
1367                  ))
1368         ))
1369
1370     (RepeatTieColumn
1371      . (
1372         (X-extent . #f)
1373         (Y-extent . #f)
1374         (direction . ,ly:tie::calc-direction)
1375         (head-direction . ,ly:semi-tie-column::calc-head-direction)
1376
1377         (positioning-done . ,ly:semi-tie-column::calc-positioning-done)
1378         (meta . ((class . Item)
1379                  (interfaces . (semi-tie-column-interface))
1380                  ))
1381         ))
1382
1383     (Rest
1384      . (
1385         (stencil . ,ly:rest::print)
1386         (duration-log . ,stem::calc-duration-log)
1387         (X-extent . ,ly:rest::width)
1388         (Y-extent . ,ly:rest::height)
1389         (Y-offset . ,ly:rest::y-offset-callback)
1390         (minimum-distance . 0.25)
1391         (meta . ((class . Item)
1392                  (interfaces . (font-interface
1393                                 rhythmic-head-interface
1394                                 rhythmic-grob-interface
1395                                 staff-symbol-referencer-interface
1396                                 rest-interface))))))
1397
1398     (RestCollision
1399      . (
1400         (minimum-distance . 0.75)
1401         (positioning-done . ,ly:rest-collision::calc-positioning-done)
1402         (meta . ((class . Item)
1403                  (interfaces . (rest-collision-interface))))))
1404
1405     (Script
1406      . (
1407         ;; don't set direction here: it breaks staccato.
1408
1409         ;; padding set in script definitions.
1410         (staff-padding . 0.25)
1411         (X-offset . ,script-interface::calc-x-offset)
1412         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1413         (side-axis . ,Y)
1414
1415         (stencil . ,ly:script-interface::print)
1416         (direction . ,ly:script-interface::calc-direction)
1417         (positioning-done . ,ly:script-interface::calc-positioning-done)
1418         (font-encoding . fetaMusic)
1419         (cross-staff . ,ly:script-interface::calc-cross-staff)
1420         (meta . ((class . Item)
1421                  (interfaces . (script-interface
1422                                 side-position-interface
1423                                 font-interface))))))
1424
1425     (ScriptColumn
1426      . (
1427         (before-line-breaking . ,ly:script-column::before-line-breaking)
1428         (meta . ((class . Item)
1429                  (interfaces . (script-column-interface))))))
1430     (ScriptRow
1431      . (
1432         (before-line-breaking . ,ly:script-column::row-before-line-breaking)
1433         (meta . ((class . Item)
1434                  (interfaces . (script-column-interface))))))
1435
1436     (SeparationItem
1437      . (
1438         (avoid-slur . inside)
1439         (X-extent . ,ly:axis-group-interface::width)
1440         (Y-extent . ,ly:axis-group-interface::height)
1441         (horizontal-skylines . ,ly:separation-item::calc-skylines)
1442         (stencil . ,ly:separation-item::print)
1443         (meta . ((class . Item)
1444                  (interfaces . (
1445                                 separation-item-interface))))))
1446
1447     (SeparatingGroupSpanner
1448      . (
1449         (springs-and-rods . ,ly:separating-group-spanner::set-spacing-rods)
1450         (meta . ((class . Spanner)
1451                  (interfaces . (only-prebreak-interface
1452
1453                                 separating-group-spanner-interface))))))
1454
1455     (Slur
1456      . ((details . ,default-slur-details)
1457         (control-points . ,ly:slur::calc-control-points)
1458         (direction . ,ly:slur::calc-direction)
1459         (springs-and-rods . ,ly:spanner::set-spacing-rods)
1460         (Y-extent . ,ly:slur::height)
1461         (stencil . ,ly:slur::print)
1462         (thickness . 1.2)
1463         (line-thickness . 0.8)
1464         (minimum-length . 1.5)
1465         (height-limit . 2.0)
1466         (ratio . 0.25)
1467         (avoid-slur . inside)
1468         (cross-staff . ,ly:slur::calc-cross-staff)
1469         (meta . ((class . Spanner)
1470                  (interfaces . (slur-interface))))))
1471
1472     (SostenutoPedal
1473      . (
1474         (stencil . ,ly:text-interface::print)
1475         (direction . ,RIGHT)
1476         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
1477         (extra-spacing-width . (+inf.0 . -inf.0))
1478         (padding . 0.0) ;; padding relative to SostenutoPedalLineSpanner
1479         (font-shape . italic)
1480         (self-alignment-X . 0)
1481         (meta . ((class . Item)
1482                  (interfaces . (text-interface
1483                                 self-alignment-interface
1484                                 piano-pedal-script-interface
1485                                 font-interface))))))
1486
1487     (SostenutoPedalLineSpanner
1488      . (
1489         (axes . (1))
1490         (Y-extent . ,ly:axis-group-interface::height)
1491         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1492         (side-axis . ,Y)
1493         (staff-padding . 1.0)
1494         (padding . 1.2)
1495         (minimum-space . 1.0)
1496         (direction . ,DOWN)
1497         (meta . ((class . Spanner)
1498                  (interfaces . (piano-pedal-interface
1499                                 axis-group-interface
1500                                 side-position-interface))))))
1501     (SpacingSpanner
1502      . (
1503         (springs-and-rods . ,ly:spacing-spanner::set-springs)
1504         (common-shortest-duration . ,ly:spacing-spanner::calc-common-shortest-duration)
1505         (average-spacing-wishes . #t)
1506         (shortest-duration-space . 2.0)
1507         (spacing-increment . 1.2)
1508
1509         (base-shortest-duration . ,(ly:make-moment 3 16))
1510         (meta . ((class . Spanner)
1511                  (interfaces . (
1512                                 spacing-options-interface
1513                                 spacing-spanner-interface))))))
1514
1515     (SpanBar
1516      . (
1517         (break-align-symbol . staff-bar)
1518         (Y-extent . ())
1519         (layer . 0)
1520         (non-musical . #t)
1521         (stencil . ,ly:span-bar::print)
1522         (bar-size . ,ly:span-bar::calc-bar-size)
1523         (X-extent . ,ly:span-bar::width)
1524         (glyph-name . ,ly:span-bar::calc-glyph-name)
1525         (before-line-breaking . ,ly:span-bar::before-line-breaking)
1526
1527         ;; ugh duplication!
1528
1529         ;;
1530         ;; Ross. page 151 lists other values, we opt for a leaner look
1531         ;;
1532         (kern . 3.0)
1533         (thin-kern . 3.0)
1534         (hair-thickness . 1.6)
1535         (thick-thickness . 6.0)
1536         (meta . ((class . Item)
1537                  (interfaces . (span-bar-interface
1538                                 font-interface
1539                                 bar-line-interface))))))
1540
1541     (StanzaNumber
1542      . (
1543         (stencil . ,ly:text-interface::print)
1544         (font-series . bold)
1545         (padding . 1.0)
1546         (X-offset . ,ly:side-position-interface::x-aligned-side)
1547         (side-axis . ,X)
1548         (direction . ,LEFT)
1549         (meta . ((class . Item)
1550                  (interfaces . (side-position-interface
1551                                 stanza-number-interface
1552                                 text-interface
1553                                 font-interface))))))
1554
1555
1556     (StaffSpacing
1557      . (
1558         (non-musical . #t)
1559         (stem-spacing-correction . 0.4)
1560         (meta . ((class . Item)
1561                  (interfaces . (staff-spacing-interface))))))
1562
1563
1564     (StaffSymbol
1565      . (
1566         (Y-extent . ,ly:staff-symbol::height)
1567         (stencil . ,ly:staff-symbol::print)
1568         (line-count . 5)
1569         (ledger-line-thickness . (1.0 . 0.1))
1570         (layer . 0)
1571         (meta . ((class . Spanner)
1572                  (interfaces . (staff-symbol-interface))))))
1573
1574     (Stem
1575      . (
1576         (direction . ,ly:stem::calc-direction)
1577         (duration-log . ,stem::calc-duration-log)
1578         (default-direction . ,ly:stem::calc-default-direction)
1579         (stem-end-position . ,ly:stem::calc-stem-end-position)
1580
1581         (neutral-direction . ,DOWN)
1582         (stem-info . ,ly:stem::calc-stem-info)
1583         (positioning-done . ,ly:stem::calc-positioning-done)
1584         (stencil . ,ly:stem::print)
1585         (X-extent . ,ly:stem::width)
1586         (Y-extent . ,ly:stem::height)
1587         (length . ,ly:stem::calc-length)
1588         (thickness . 1.3)
1589         (cross-staff . ,ly:stem::calc-cross-staff)
1590         (details
1591          . (
1592             ;; 3.5 (or 3 measured from note head) is standard length
1593             ;; 32nd, 64th flagged stems should be longer
1594             (lengths . (3.5 3.5 3.5 4.5 5.0))
1595
1596             ;; FIXME.  3.5 yields too long beams (according to Ross and
1597             ;; looking at Baerenreiter examples) for a number of common
1598             ;; boundary cases.  Subtracting half a beam thickness fixes
1599             ;; this, but the bug may well be somewhere else.
1600
1601             ;; FIXME this should come from 'lengths
1602             (beamed-lengths . (3.26 3.5 3.6))
1603
1604             ;; The 'normal' minima
1605             (beamed-minimum-free-lengths . (1.83 1.5 1.25))
1606                                         ;(beamed-minimum-free-lengths . (2.0 1.83 1.25))
1607
1608             ;; The 'extreme case' minima
1609             (beamed-extreme-minimum-free-lengths . (2.0 1.25))
1610
1611             ;; Stems in unnatural (forced) direction should be shortened by
1612             ;; one staff space, according to [Roush & Gourlay].
1613             ;; Flagged stems we shorten only half a staff space.
1614             (stem-shorten . (1.0 0.5))
1615
1616             ))
1617
1618         ;; We use the normal minima as minimum for the ideal lengths,
1619         ;; and the extreme minima as abolute minimum length.
1620
1621         (X-offset . ,ly:stem::offset-callback)
1622         (Y-offset . ,ly:staff-symbol-referencer::callback)
1623         (meta . ((class . Item)
1624                  (interfaces . (stem-interface
1625                                 font-interface))))))
1626
1627     (StemTremolo
1628      . (
1629         (Y-extent . ,ly:stem-tremolo::height)
1630         (X-extent . ,ly:stem-tremolo::width)
1631         (stencil . ,ly:stem-tremolo::print)
1632         (slope . ,ly:stem-tremolo::calc-slope)
1633         (beam-width . ,ly:stem-tremolo::calc-width) ; staff-space
1634         (style . ,ly:stem-tremolo::calc-style)
1635         (beam-thickness . 0.48) ; staff-space
1636         (meta . ((class . Item)
1637                  (interfaces . (stem-tremolo-interface))))))
1638
1639     (StringNumber
1640      . (
1641         (stencil . ,print-circled-text-callback)
1642         (text . ,string-number::calc-text)
1643         (padding . 0.5)
1644         (staff-padding . 0.5)
1645         (self-alignment-X . 0)
1646         (self-alignment-Y . 0)
1647         (script-priority . 100)
1648         (font-encoding . fetaNumber)
1649         (font-size . -5)                ; don't overlap when next to heads.
1650         (meta . ((class . Item)
1651                  (interfaces . (string-number-interface
1652                                 font-interface
1653                                 text-script-interface
1654                                 text-interface
1655                                 side-position-interface
1656                                 self-alignment-interface
1657                                 ))))))
1658
1659     (StrokeFinger
1660      . (
1661         (stencil . ,ly:text-interface::print)
1662         (text . ,stroke-finger::calc-text)
1663         (digit-names . #("p" "i" "m" "a" "x"))
1664         (padding . 0.5)
1665         (staff-padding . 0.5)
1666         (self-alignment-X . 0)
1667         (self-alignment-Y . 0)
1668         (script-priority . 100)
1669         (font-shape . italic)
1670         (font-size . -4)                ; don't overlap when next to heads.
1671         (meta . ((class . Item)
1672                  (interfaces . (stroke-finger-interface
1673                                 font-interface
1674                                 text-script-interface
1675                                 text-interface
1676                                 side-position-interface
1677                                 self-alignment-interface
1678                                 ))))))
1679
1680
1681     (SustainPedal
1682      . (
1683         (extra-spacing-width . (+inf.0 . -inf.0))
1684         (stencil . ,ly:sustain-pedal::print)
1685         (self-alignment-X . 0)
1686         (direction . ,RIGHT)
1687         (padding . 0.0)  ;; padding relative to SustainPedalLineSpanner
1688         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
1689         (meta . ((class . Item)
1690                  (interfaces . (piano-pedal-interface
1691                                 text-interface
1692                                 self-alignment-interface
1693                                 piano-pedal-script-interface
1694                                 font-interface))))))
1695
1696     (SustainPedalLineSpanner
1697      . (
1698         (axes . (1))
1699         (Y-extent . ,ly:axis-group-interface::height)
1700         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1701         (side-axis . ,Y)
1702         (padding . 1.2)
1703         (staff-padding . 1.2)
1704         (minimum-space . 1.0)
1705         (direction . ,DOWN)
1706         (meta . ((class . Spanner)
1707                  (interfaces . (piano-pedal-interface
1708                                 axis-group-interface
1709                                 side-position-interface))))))
1710
1711     (System
1712      . (
1713         (axes . (0 1))
1714         (X-extent . ,ly:axis-group-interface::width)
1715         (Y-extent . ,ly:axis-group-interface::height)
1716         (vertical-skylines . ,ly:axis-group-interface::calc-skylines)
1717         (max-stretch . ,ly:axis-group-interface::calc-max-stretch)
1718         (skyline-horizontal-padding . 1.0)
1719         (meta . ((class . System)
1720                  (interfaces . (system-interface
1721                                 axis-group-interface))))))
1722
1723     (SystemStartBrace
1724      . (
1725         (style . brace)
1726         (padding . 0.3)
1727         (stencil . ,ly:system-start-delimiter::print)
1728         (collapse-height . 5.0)
1729         (X-offset . ,ly:side-position-interface::x-aligned-side)
1730         (direction . ,LEFT)
1731         (font-encoding . fetaBraces)
1732         (Y-extent . #f)
1733         (meta . ((class . Spanner)
1734                  (interfaces . (system-start-delimiter-interface
1735                                 side-position-interface
1736                                 font-interface))))))
1737
1738
1739     (SystemStartSquare
1740      . (
1741         (Y-extent . #f)
1742         (X-offset . ,ly:side-position-interface::x-aligned-side)
1743         (direction . ,LEFT)
1744         (stencil . ,ly:system-start-delimiter::print)
1745         (style . line-bracket)
1746         (thickness . 1.0)
1747         (meta . ((class . Spanner)
1748                  (interfaces . (font-interface
1749                                 side-position-interface
1750                                 system-start-delimiter-interface))))))
1751     (SystemStartBracket
1752      . (
1753         (Y-extent . #f)
1754         (padding . 0.8)
1755         (X-offset . ,ly:side-position-interface::x-aligned-side)
1756         (direction . ,LEFT)
1757         (stencil . ,ly:system-start-delimiter::print)
1758         (style . bracket)
1759         (collapse-height . 5.0)
1760         (thickness . 0.45)
1761         (meta . ((class . Spanner)
1762                  (interfaces . (font-interface
1763                                 side-position-interface
1764                                 system-start-delimiter-interface))))))
1765
1766     (SystemStartBar
1767      . (
1768         (Y-extent . #f)
1769
1770         ;; ugh--hardcoded.
1771         (padding . -0.1)  ;; bar must cover rounded ending of staff line.
1772         (X-offset . ,ly:side-position-interface::x-aligned-side)
1773         (direction . ,LEFT)
1774         (style . bar-line)
1775         (thickness . 1.6)
1776         (stencil . ,ly:system-start-delimiter::print)
1777         (meta . ((class . Spanner)
1778                  (interfaces . (side-position-interface
1779                                 system-start-delimiter-interface))))))
1780
1781     (TabNoteHead
1782      . (
1783         (stencil . ,ly:text-interface::print)
1784         (Y-offset . ,ly:staff-symbol-referencer::callback)
1785         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
1786         (direction . 0)
1787         (font-size . -2)
1788         (stem-attachment . (0.0 . 1.35))
1789         (font-series . bold)
1790         (meta . ((class . Item)
1791                  (interfaces
1792                   . (rhythmic-head-interface
1793                      font-interface rhythmic-grob-interface
1794                      note-head-interface
1795                      staff-symbol-referencer-interface
1796                      text-interface))))))
1797
1798     (TextScript
1799      . (
1800         (extra-spacing-width . (+inf.0 . -inf.0))
1801         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
1802         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1803         (side-axis . ,Y)
1804         (direction . ,DOWN)
1805
1806         ;; sync with Fingering ?
1807         (padding . 0.5)
1808         (staff-padding . 0.5)
1809
1810         (stencil . ,ly:text-interface::print)
1811         (direction . ,ly:script-interface::calc-direction)
1812         (positioning-done . ,ly:script-interface::calc-positioning-done)
1813
1814         (outside-staff-priority . 450)
1815         (avoid-slur . around)
1816         (slur-padding . 0.5)
1817         (script-priority . 200)
1818         ;; todo: add X self alignment?
1819         (meta . ((class . Item)
1820                  (interfaces . (text-script-interface
1821                                 text-interface
1822                                 side-position-interface
1823                                 font-interface))))))
1824
1825     (TextSpanner
1826      . (
1827         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1828         (font-shape . italic)
1829         (style . dashed-line)
1830         (staff-padding . 0.8)
1831         (dash-fraction . 0.2)
1832         (dash-period . 3.0)
1833         (side-axis . ,Y)
1834         (direction . ,UP)
1835         (outside-staff-priority . 350)
1836
1837         (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
1838         (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
1839         (bound-details . ((left . ((Y . 0)
1840                                    (padding . 0.25)
1841                                    (attach-dir . ,LEFT)
1842                                    ))
1843                           (right . ((Y . 0)
1844                                     (padding . 0.25)
1845                                    ))
1846                           ))
1847         (stencil . ,ly:line-spanner::print)
1848
1849         (meta . ((class . Spanner)
1850                  (interfaces . (line-spanner-interface
1851                                 side-position-interface
1852                                 font-interface))))))
1853
1854     (Tie
1855      . (
1856         (control-points . ,ly:tie::calc-control-points)
1857         (springs-and-rods . ,ly:spanner::set-spacing-rods)
1858         (avoid-slur . inside)
1859         (direction . ,ly:tie::calc-direction)
1860         (stencil . ,ly:tie::print)
1861         (font-size . -6)
1862         (details . (
1863                     ;; for a full list, see tie-details.cc
1864                     (ratio . 0.333)
1865                     (center-staff-line-clearance . 0.6)
1866                     (tip-staff-line-clearance . 0.45)
1867                     (note-head-gap . 0.2)
1868                     (stem-gap . 0.35)
1869                     (height-limit . 1.0)
1870                     (horizontal-distance-penalty-factor . 10)
1871                     (same-dir-as-stem-penalty . 8)
1872                     (min-length-penalty-factor . 26)
1873                     (tie-tie-collision-distance . 0.45)
1874                     (tie-tie-collision-penalty . 25.0)
1875                     (intra-space-threshold . 1.25)
1876                     (outer-tie-vertical-distance-symmetry-penalty-factor . 10)
1877                     (outer-tie-length-symmetry-penalty-factor . 10)
1878                     (vertical-distance-penalty-factor . 7)
1879                     (outer-tie-vertical-gap . 0.25)
1880                     (multi-tie-region-size . 1)
1881                     (single-tie-region-size . 4)
1882                     (between-length-limit . 1.0)))
1883
1884         (thickness . 1.2)
1885         (line-thickness . 0.8)
1886         (meta . ((class . Spanner)
1887                  (interfaces . (tie-interface))))
1888         ))
1889
1890     (TieColumn
1891      . (
1892         (positioning-done . ,ly:tie-column::calc-positioning-done)
1893         (before-line-breaking . ,ly:tie-column::before-line-breaking)
1894         (X-extent . #f)
1895         (Y-extent . #f)
1896         (meta . ((class . Spanner)
1897                  (interfaces . (tie-column-interface))))))
1898
1899     (TimeSignature
1900      . (
1901         (stencil . ,ly:time-signature::print)
1902         (break-align-symbol . time-signature)
1903         (break-align-anchor . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
1904         (break-visibility . ,all-visible)
1905         (avoid-slur . inside)
1906         (space-alist . (
1907                         (first-note . (fixed-space . 2.0))
1908                         (right-edge . (extra-space . 0.5))
1909                         (staff-bar . (minimum-space . 2.0))))
1910         (non-musical . #t)
1911         (style . C)
1912         (meta . ((class . Item)
1913                  (interfaces . (time-signature-interface
1914                                 break-aligned-interface
1915                                 font-interface))))))
1916
1917     (TrillSpanner
1918      . (
1919         (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
1920         (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
1921
1922         (bound-details . ((left . ((text . ,(make-translate-scaled-markup
1923                                              '(0.5 . -0.6)
1924                                              (make-musicglyph-markup "scripts.trill")))
1925                                    (Y . 0)
1926                                    (padding . 0.25)
1927                                    (attach-dir . ,LEFT)
1928                                    ))
1929                           (right . ((Y . 0)))
1930                           ))
1931
1932         (stencil . ,ly:line-spanner::print)
1933
1934         (style . trill)
1935         (staff-padding . 1.0)
1936         (padding . 0.5)
1937         (direction . ,UP)
1938         (Y-offset . ,ly:side-position-interface::y-aligned-side)
1939         (side-axis . ,Y)
1940         (outside-staff-priority . 50)
1941         (meta . ((class . Spanner)
1942                  (interfaces . (line-spanner-interface
1943                                 line-interface
1944                                 trill-spanner-interface
1945                                 side-position-interface
1946                                 font-interface))))))
1947
1948     (TrillPitchAccidental
1949      . ((X-offset . ,ly:side-position-interface::x-aligned-side)
1950         (padding . 0.2)
1951         (direction . ,LEFT)
1952         (font-size . -4)
1953         (side-axis . ,X)
1954         (stencil . ,ly:accidental-interface::print)
1955         (Y-extent . ,ly:accidental-interface::height)
1956         (glyph-name-alist . ,standard-alteration-glyph-name-alist)
1957         (meta . ((class . Item)
1958                  (interfaces . (trill-pitch-accidental-interface
1959                                 accidental-interface
1960                                 side-position-interface
1961                                 font-interface))))))
1962
1963     (TrillPitchGroup
1964      . ((X-offset . ,ly:side-position-interface::x-aligned-side)
1965         (axes . (,X))
1966         (font-size . -4)
1967         (stencil . ,parenthesize-elements)
1968         (stencils . ,parentheses-item::calc-parenthesis-stencils)
1969         (direction . ,RIGHT)
1970         (side-axis . ,X)
1971         (padding . 0.3)
1972         (meta . ((class . Item)
1973                  (interfaces . (side-position-interface
1974                                 parentheses-interface
1975                                 note-head-interface
1976                                 rhythmic-head-interface
1977                                 font-interface
1978                                 axis-group-interface))))))
1979
1980     (TrillPitchHead
1981      . (
1982         (stencil . ,ly:note-head::print)
1983         (duration-log . 2)
1984         (Y-offset . ,ly:staff-symbol-referencer::callback)
1985         (font-size . -4)
1986         (meta . ((class . Item)
1987                  (interfaces . (rhythmic-head-interface
1988                                 font-interface
1989                                 pitched-trill-interface
1990                                 ledgered-interface
1991                                 staff-symbol-referencer-interface))))))
1992
1993     (TupletBracket
1994      . (
1995         (padding . 1.1)
1996         (thickness . 1.6)
1997         (edge-height . (0.7 . 0.7))
1998         (shorten-pair . (-0.2 . -0.2))
1999         (staff-padding . 0.25)
2000         (direction  . ,ly:tuplet-bracket::calc-direction)
2001         (positions . ,ly:tuplet-bracket::calc-positions)
2002         (connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors)
2003         (control-points . ,ly:tuplet-bracket::calc-control-points)
2004         (stencil . ,ly:tuplet-bracket::print)
2005         (cross-staff . ,ly:tuplet-bracket::calc-cross-staff)
2006
2007         (meta . ((class . Spanner)
2008                  (interfaces . (line-interface
2009                                 tuplet-bracket-interface))))))
2010
2011     (TupletNumber
2012      . (
2013         (stencil . ,ly:tuplet-number::print)
2014         (text . ,tuplet-number::calc-denominator-text)
2015         (font-shape . italic)
2016         (font-size . -2)
2017         (avoid-slur . inside)
2018         (cross-staff . ,ly:tuplet-number::calc-cross-staff)
2019         (meta . ((class . Spanner)
2020                  (interfaces . (text-interface tuplet-number-interface
2021                                 font-interface))))))
2022
2023     (UnaCordaPedal
2024      . (
2025         (stencil . ,ly:text-interface::print)
2026         (font-shape . italic)
2027         (extra-spacing-width . (+inf.0 . -inf.0))
2028         (self-alignment-X . 0)
2029         (direction . ,RIGHT)
2030         (padding . 0.0)  ;; padding relative to UnaCordaPedalLineSpanner
2031         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
2032         (meta . ((class . Item)
2033                  (interfaces . (text-interface
2034                                 piano-pedal-script-interface
2035                                 self-alignment-interface
2036                                 font-interface))))))
2037
2038     (UnaCordaPedalLineSpanner
2039      . (
2040         (axes . (1))
2041         (Y-extent . ,ly:axis-group-interface::height)
2042         (Y-offset . ,ly:side-position-interface::y-aligned-side)
2043         (side-axis . ,Y)
2044         (padding . 1.2)
2045         (staff-padding . 1.2)
2046         (minimum-space . 1.0)
2047         (direction . ,DOWN)
2048         (meta . ((class . Spanner)
2049                  (interfaces . (piano-pedal-interface
2050                                 axis-group-interface
2051                                 side-position-interface))))))
2052
2053     (VaticanaLigature
2054      . (
2055         (thickness . 0.6)
2056         (flexa-width . 2.0)
2057         (stencil . ,ly:vaticana-ligature::print)
2058         (meta . ((class . Spanner)
2059                  (interfaces . (vaticana-ligature-interface
2060                                 font-interface))))))
2061
2062     (VerticalAlignment
2063      . (
2064         (axes . (1))
2065         (positioning-done . ,ly:align-interface::calc-positioning-done)
2066         (after-line-breaking . ,ly:align-interface::stretch-after-break)
2067         (Y-extent . ,ly:axis-group-interface::height)
2068         (X-extent . ,ly:axis-group-interface::width)
2069         (stacking-dir . -1)
2070         (padding . 0.5)
2071         (vertical-skylines . ,ly:axis-group-interface::combine-skylines)
2072         (max-stretch . ,ly:align-interface::calc-max-stretch)
2073         (meta . ((class . Spanner)
2074                  (object-callbacks . ((Y-common . ,ly:axis-group-interface::calc-y-common)))
2075                  (interfaces . (align-interface
2076                                 axis-group-interface))))))
2077     (VerticalAxisGroup
2078      . (
2079         (axes . (1))
2080         (Y-offset . ,ly:hara-kiri-group-spanner::force-hara-kiri-callback)
2081         (Y-extent . ,ly:hara-kiri-group-spanner::y-extent)
2082         (X-extent . ,ly:axis-group-interface::width)
2083         (vertical-skylines . ,ly:hara-kiri-group-spanner::calc-skylines)
2084         (max-stretch . ,ly:axis-group-interface::calc-max-stretch)
2085         (stencil . ,ly:axis-group-interface::print)
2086         (meta . ((class . Spanner)
2087                  (object-callbacks . ((X-common . ,ly:axis-group-interface::calc-x-common)))
2088                  (interfaces . (axis-group-interface
2089                                 hara-kiri-group-spanner-interface
2090                                 vertically-spaceable-interface))))))
2091
2092
2093     (VoltaBracket
2094      . (
2095         (stencil . ,ly:volta-bracket-interface::print)
2096         (direction . ,UP)
2097         (padding . 1)
2098         (font-encoding . fetaNumber)
2099         (minimum-Y-extent . (0 . 2))
2100         (Y-offset . ,ly:side-position-interface::y-aligned-side)
2101         (side-axis . ,Y)
2102         (thickness . 1.6)  ;;  line-thickness
2103         (edge-height . (2.0 . 2.0)) ;; staff-space;
2104         (minimum-space . 5)
2105         (font-size . -4)
2106         (outside-staff-priority . 100)
2107         (meta . ((class . Spanner)
2108                  (interfaces . (volta-bracket-interface
2109                                 horizontal-bracket-interface
2110                                 line-interface
2111                                 text-interface
2112                                 side-position-interface
2113                                 font-interface)))
2114               )))
2115
2116
2117     (VoiceFollower
2118      . (
2119         (style . line)
2120         (gap . 0.5)
2121         (non-musical . #t)
2122         (X-extent . #f)
2123         (Y-extent . #f)
2124         (bound-details . ((right . ((attach-dir .  ,CENTER)
2125                                     (padding . 1.5)
2126                                       ))
2127                           (left . ((attach-dir .  ,CENTER)
2128                                    (padding . 1.5)
2129                                       ))
2130                           ))
2131         (stencil . ,ly:line-spanner::print)
2132         (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
2133         (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
2134         (meta . ((class . Spanner)
2135                  (interfaces . (line-spanner-interface
2136                                 line-interface))))
2137         ))
2138
2139 ))
2140
2141 (define (completize-grob-entry x)
2142   "Transplant assoc key into 'name entry of 'meta of X.  Set interfaces for Item, Spanner etc.
2143 "
2144   ;;  (display (car x))
2145   ;;  (newline)
2146   (let* ((name-sym  (car x))
2147          (grob-entry (cdr x))
2148          (meta-entry (cdr (assoc 'meta grob-entry)))
2149          (class (cdr (assoc 'class meta-entry)))
2150          (ifaces-entry
2151           (cdr (assoc 'interfaces meta-entry))))
2152
2153     (cond
2154      ((eq? 'Item class)
2155       (set! ifaces-entry (cons 'item-interface ifaces-entry)))
2156      ((eq? 'Spanner class)
2157       (set! ifaces-entry (cons 'spanner-interface ifaces-entry)))
2158      ((eq? 'Paper_column class)
2159       (set! ifaces-entry (cons 'item-interface
2160                                (cons 'paper-column-interface ifaces-entry))))
2161      ((eq? 'System class)
2162       (set! ifaces-entry (cons 'system-interface
2163                                (cons 'spanner-interface ifaces-entry))))
2164      (else
2165       (ly:warning "Unknown class ~a" class)))
2166
2167     (set! ifaces-entry (uniq-list (sort ifaces-entry symbol<?)))
2168     (set! ifaces-entry (cons 'grob-interface ifaces-entry))
2169
2170     (set! meta-entry (assoc-set! meta-entry 'name name-sym))
2171     (set! meta-entry (assoc-set! meta-entry 'interfaces
2172                                  ifaces-entry))
2173     (set! grob-entry (assoc-set! grob-entry 'meta meta-entry))
2174     (cons name-sym grob-entry)))
2175
2176 (set! all-grob-descriptions (map completize-grob-entry all-grob-descriptions))
2177
2178 ;;  (display (map pair? all-grob-descriptions))
2179
2180 ;; make sure that \property Foo.Bar =\turnOff doesn't complain
2181
2182 (map (lambda (x)
2183        ;; (display (car x)) (newline)
2184
2185        (set-object-property! (car x) 'translation-type? list?)
2186        (set-object-property! (car x) 'is-grob? #t))
2187      all-grob-descriptions)
2188
2189 (set! all-grob-descriptions (sort all-grob-descriptions alist<?))
2190
2191 (define pure-print-callbacks
2192   (list
2193    print-circled-text-callback
2194    lyric-text::print
2195    ly:arpeggio::print
2196    ly:arpeggio::brew-chord-bracket
2197    ly:bar-line::print
2198    ly:note-head::print
2199    ly:dots::print
2200    ly:clef::print
2201    ly:text-interface::print
2202    ly:script-interface::print))
2203
2204 ;; ly:grob::stencil-extent is safe iff the print callback is safe too
2205 (define (pure-stencil-height grob start stop)
2206   (let ((sten (ly:grob-property-data grob 'stencil)))
2207     (if (or
2208          (ly:stencil? sten)
2209          (memq sten pure-print-callbacks))
2210         (ly:grob::stencil-height grob)
2211         '(0 . 0))))
2212
2213 (define pure-conversions-alist
2214   `(
2215     (,ly:accidental-interface::height . ,ly:accidental-interface::pure-height)
2216     (,ly:arpeggio::height . ,ly:arpeggio::pure-height)
2217     (,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback)
2218     (,ly:stem::height . ,ly:stem::pure-height)
2219     (,ly:rest::height . ,ly:rest::pure-height)
2220     (,ly:grob::stencil-height . ,pure-stencil-height)
2221     (,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::pure-y-aligned-side)
2222     (,ly:axis-group-interface::height . ,ly:axis-group-interface::pure-height)
2223     (,ly:hara-kiri-group-spanner::y-extent . ,ly:hara-kiri-group-spanner::pure-height)
2224     (,ly:slur::height . ,ly:slur::pure-height)
2225     (,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::pure-y-aligned-side)))
2226
2227 (define pure-functions
2228   (list
2229    ly:staff-symbol-referencer::callback
2230    ly:staff-symbol::height))
2231
2232 (define-public (pure-relevant? grob)
2233   (let ((extent-callback (ly:grob-property-data grob 'Y-extent)))
2234     (not (eq? #f
2235               (or
2236                (pair? extent-callback)
2237                (memq extent-callback pure-functions)
2238                (and
2239                 (pair? (assq extent-callback pure-conversions-alist))
2240                 (begin
2241                   (or
2242                    (not (eq? extent-callback ly:grob::stencil-height))
2243                    (memq (ly:grob-property-data grob 'stencil) pure-print-callbacks)
2244                    (ly:stencil? (ly:grob-property-data grob 'stencil))
2245
2246                    ))))))))
2247
2248 (define-public (call-pure-function unpure args start end)
2249   (if (ly:simple-closure? unpure)
2250       (ly:eval-simple-closure (car args) unpure start end)
2251       (if (not (procedure? unpure))
2252           unpure
2253           (if (memq unpure pure-functions)
2254               (apply unpure args)
2255               (let ((pure (assq unpure pure-conversions-alist)))
2256                 (if pure
2257                     (apply (cdr pure)
2258                            (append
2259                             (list (car args) start end)
2260                             (cdr args)))))))))