scm/define-grobs.scm

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