scm/define-grobs.scm

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