scm/define-grobs.scm

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