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