scm/define-grobs.scm

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