scm/define-grobs.scm

   1 ;;;; define-grobs.scm --
   2 ;;;;
   3 ;;;;  source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c)  1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   6 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
   7
   8 ;;;; distances are given in linethickness (thicknesses) and
   9 ;;;; staffspace (distances)
  10
  11 ;;;; WARNING: the meta field should be the last one.
  12 ;;;; WARNING: don't use anonymous functions for initialization.
  13
  14 ;; TODO: junk the meta field in favor of something more compact?
  15 (define-public all-grob-descriptions
  16   `(
  17     (Accidental
  18      . (
  19         (print-function . ,Accidental_interface::print)
  20         (inside-slur . #t)
  21         (cautionary-style . parentheses)
  22         (after-line-breaking-callback . ,Accidental_interface::after_line_breaking)             (meta . ((interfaces . (item-interface accidental-interface
  23                                                                                                                                        font-interface))))
  24         ))
  25
  26     (AccidentalPlacement
  27      . ((X-extent-callback . ,Axis_group_interface::group_extent_callback)
  28         (left-padding . 0.2)
  29
  30         ;; this is quite small, but it is very ugly to have
  31         ;; accs closer to the previous note than to the next one.
  32         (right-padding . 0.15)
  33         (meta . ((interfaces . (item-interface accidental-placement-interface))))
  34         ))
  35     (Ambitus
  36      . (
  37         (axes . (0 1))
  38         (X-extent-callback . ,Axis_group_interface::group_extent_callback)
  39         (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
  40         (space-alist . (
  41                         (clef . (extra-space . 0.5))
  42                         (key-signature . (extra-space . 0.0))
  43                         (staff-bar . (extra-space . 0.0))
  44                         (time-signature . (extra-space . 0.0))
  45                         (first-note . (fixed-space . 0.0))
  46                         ))
  47         (breakable . #t)
  48         (break-align-symbol . ambitus)
  49         (break-visibility . ,begin-of-line-visible)
  50         (meta . ((interfaces . (axis-group-interface break-aligned-interface ambitus-interface item-interface  ))))
  51         ))
  52
  53     (AmbitusLine
  54      . (
  55        (print-function . ,Ambitus::print)
  56        (join-heads . #t)
  57        (thickness . 2)
  58        (X-offset-callbacks . (,Self_alignment_interface::centered_on_parent))
  59
  60        (meta . ((interfaces . (ambitus-interface staff-symbol-referencer-interface item-interface  font-interface))))
  61        ))
  62     (AmbitusAccidental
  63      . (
  64         (print-function . ,Accidental_interface::print)
  65         (font-family . music)
  66         (padding . 0.5)
  67         (X-offset-callbacks . (,Side_position_interface::aligned_side))
  68         (direction . -1)
  69         (cautionary-style . parentheses)
  70         (after-line-breaking-callback . ,Accidental_interface::after_line_breaking)             (meta . ((interfaces . (item-interface accidental-interface break-aligned-interface side-position-interface font-interface))))
  71         ))
  72
  73     (AmbitusNoteHead
  74      . (
  75         (duration-log . 2)
  76         (style . default)
  77         (print-function . ,Note_head::print)
  78         (glyph-name-procedure . ,find-notehead-symbol)
  79         (X-extent-callback . ,Note_head::extent)
  80         (Y-extent-callback . ,Note_head::extent)
  81         (Y-offset-callbacks  . (,Staff_symbol_referencer::callback))
  82         (meta . ((interfaces . (font-interface note-head-interface
  83                                                ambitus-interface
  84                                                staff-symbol-referencer-interface
  85                                                rhythmic-head-interface
  86                                                ledgered-interface
  87                                                item-interface ))))
  88         ))
  89
  90     (Arpeggio
  91      . (
  92         (X-extent-callback . ,Arpeggio::width_callback)
  93         (Y-extent-callback . #f)
  94         (print-function . ,Arpeggio::print)
  95         (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
  96         (X-offset-callbacks . (,Side_position_interface::aligned_side))
  97         (direction . -1)
  98         (padding . 0.5)
  99         (staff-position . 0.0)
 100         (meta . ((interfaces . (arpeggio-interface staff-symbol-referencer-interface side-position-interface item-interface font-interface))))
 101         ))
 102
 103     (BarLine
 104      . (
 105         (break-align-symbol . staff-bar)
 106         (glyph . "|")
 107         (break-glyph-function . ,default-break-barline)
 108         (bar-size-procedure . ,Bar_line::get_staff_bar_size)
 109         (print-function . ,Bar_line::print)
 110         (break-visibility . ,all-visible)
 111         (breakable . #t)
 112         (before-line-breaking-callback . ,Bar_line::before_line_breaking)
 113         (space-alist . (
 114                         (time-signature . (extra-space . 0.75))
 115                         (custos . (minimum-space . 2.0))
 116                         (clef .   (minimum-space . 1.0))
 117                         (key-signature . (extra-space . 1.0))
 118                         (key-cancellation . (extra-space . 1.0))
 119                         (first-note . (fixed-space . 1.3))
 120                         (next-note . (semi-fixed-space . 1.3))
 121                         (right-edge . (extra-space . 0.0))
 122                         ))
 123
 124         ;;
 125         ;; Ross. page 151 lists other values, we opt for a leaner look
 126         ;;
 127         ;; TODO:
 128         ;; kern should scale with linethickness too.
 129         (kern . 3.0)
 130         (thin-kern . 3.0)
 131         (hair-thickness . 1.9)
 132         (thick-thickness . 6.0)
 133         (meta . ((interfaces . (bar-line-interface item-interface   break-aligned-interface font-interface))))
 134         ))
 135
 136
 137     (BarNumber
 138      . (
 139         (print-function . ,Text_interface::print)
 140         (breakable . #t)
 141         (break-visibility . ,begin-of-line-visible)
 142         (padding . 1.0)
 143         (direction . 1)
 144         (font-family . roman)
 145         (font-size . -2)
 146         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
 147         (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
 148         (self-alignment-X . 1)
 149
 150         ;; hmm. why did we do this: ?
 151         (extra-offset . (1.3 . 0))
 152         (meta .
 153               ((interfaces . (side-position-interface
 154                               text-interface
 155                               self-alignment-interface
 156                               font-interface item-interface  break-aligned-interface))))
 157
 158              ))
 159
 160     (BassFigure
 161      . (
 162         (print-function . ,Text_interface::print)
 163         (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
 164         (direction . 1)
 165         (font-family . number)
 166
 167         ;; We must do this, other BFs in
 168         ;; paper16 become too small.
 169         (font-size . -4)
 170         (kern . 0.2)
 171         (meta . ((interfaces . (text-interface                                                  rhythmic-grob-interface
 172                                                                                                 bass-figure-interface item-interface
 173                                                                                                 self-alignment-interface font-interface))))
 174         ))
 175     (Beam
 176      . (
 177         ;; todo: clean this up a bit: the list is getting
 178         ;; rather long.
 179         (print-function . ,Beam::print)
 180         (gap . 0.8)
 181         (positions . (#f . #f))
 182         (position-callbacks . (,Beam::least_squares
 183                                ,Beam::check_concave
 184                                ,Beam::slope_damping
 185                                ,Beam::shift_region_to_valid
 186                                ,Beam::quanting
 187                               ))
 188
 189         ;; TODO: should be in SLT.
 190         (thickness . 0.48) ; in staff-space
 191         (before-line-breaking-callback . ,Beam::before_line_breaking)
 192         (after-line-breaking-callback . ,Beam::after_line_breaking)
 193         (neutral-direction . -1)
 194         (dir-function . ,beam-dir-majority-median)
 195
 196         ;; Whe have some unreferenced problems here.
 197         ;;
 198         ;; If we shorten beamed stems less than normal stems (1 staffspace),
 199         ;; or high order less than 8th beams, patterns like
 200         ;;     c''4 [c''8 c''] c''4 [c''16 c]
 201         ;; are ugly (different stem lengths).
 202         ;;
 203         ;; But if we shorten 16th beams as much as 8th beams, a single
 204         ;; forced 16th beam looks *very* short.
 205
 206         ;; We choose to shorten 8th beams the same as single stems,
 207         ;; and high order beams less than 8th beams, so that all
 208         ;; isolated shortened beams look nice and a bit shortened,
 209         ;; sadly possibly breaking patterns with high order beams.
 210         (beamed-stem-shorten . (1.0 0.5 0.25))
 211
 212         (flag-width-function . ,beam-flag-width-function)
 213         (damping . 1)
 214         (auto-knee-gap . 5.5)
 215
 216         ;; only for debugging.
 217         (font-family . roman)
 218
 219         (space-function . ,Beam::space_function)
 220         (meta . ((interfaces . (staff-symbol-referencer-interface beam-interface spanner-interface))))
 221         ))
 222
 223     (BreakAlignment
 224      . (
 225         (breakable . #t)
 226         (stacking-dir . 1)
 227         (break-align-orders . #(; end-of-line:
 228                                 (instrument-name
 229                                  left-edge ambitus breathing-sign
 230                                  clef staff-bar key-cancellation key-signature
 231                                  time-signature custos)
 232
 233                                 ; unbroken
 234                                 (instrument-name left-edge ambitus breathing-sign
 235                                                  clef staff-bar key-cancellation key-signature
 236                                                  staff
 237                                                  time-signature custos)
 238                                 ; begin of line
 239                                 (instrument-name left-edge ambitus breathing-sign
 240                                                  clef key-cancellation key-signature staff-bar
 241                                                  time-signature custos)
 242
 243                                 ))
 244         (axes . (0))
 245         (X-extent-callback . ,Axis_group_interface::group_extent_callback)
 246         (meta . ((interfaces . (break-alignment-interface item-interface axis-group-interface)))))
 247         )
 248
 249     (BreakAlignGroup
 250      . (
 251         (axes  . (0))
 252         (X-offset-callbacks . (,Break_align_interface::alignment_callback))
 253         (X-extent-callback . ,Axis_group_interface::group_extent_callback)
 254         (meta . ((interfaces . (break-aligned-interface item-interface axis-group-interface item-interface ))))
 255         ))
 256
 257     (BreathingSign
 258      . (
 259         (break-align-symbol . breathing-sign)
 260         (breakable . #t)
 261         (space-alist . (
 262                         (ambitus . (extra-space . 2.0))
 263                         (custos . (minimum-space . 1.0))
 264                         (key-signature . (minimum-space . 1.5))
 265                         (staff-bar . (minimum-space . 1.5))
 266                         (clef . (minimum-space . 2.0))
 267                         (first-note . (fixed-space . 1.0)) ;huh?
 268                         (right-edge . (extra-space . 0.1))
 269                         ))
 270         (print-function . ,Text_interface::print)
 271         (text . ,(make-musicglyph-markup "scripts-rcomma"))
 272         (Y-offset-callbacks . (,Breathing_sign::offset_callback))
 273         (break-visibility . ,begin-of-line-invisible)
 274         (meta . ((interfaces . (break-aligned-interface breathing-sign-interface text-interface font-interface item-interface ))))
 275         ))
 276
 277     (Clef
 278      . (
 279         (print-function . ,Clef::print)
 280         (before-line-breaking-callback . ,Clef::before_line_breaking)
 281         (breakable . #t)
 282         (font-family . music)
 283         (break-align-symbol . clef)
 284         (break-visibility . ,begin-of-line-visible)
 285         (space-alist . ((ambitus . (extra-space . 2.0))
 286                         (staff-bar . (extra-space . 0.7))
 287                         (key-cancellation . (minimum-space . 4.0))
 288                         (key-signature . (minimum-space . 4.0))
 289                         (time-signature . (minimum-space . 4.2))
 290                         (first-note . (minimum-fixed-space . 5.0))
 291                         (next-note . (extra-space . 0.5))
 292                         (right-edge . (extra-space . 0.5))
 293                         ))
 294         (Y-offset-callbacks  . (,Staff_symbol_referencer::callback))
 295         (meta . ((interfaces . (clef-interface staff-symbol-referencer-interface font-interface break-aligned-interface item-interface ))))
 296         ))
 297
 298     (ClusterSpannerBeacon
 299      . (
 300         (print-function . #f)
 301         (Y-extent-callback . ,Cluster_beacon::height)
 302         (meta . ((interfaces . (cluster-beacon-interface item-interface))))
 303         ))
 304
 305     (ClusterSpanner
 306      . (
 307         (print-function . ,Cluster::print)
 308         (spacing-procedure . ,Spanner::set_spacing_rods)
 309         (minimum-length . 0.0)
 310         (padding . 0.25)
 311         (style . ramp)
 312         (meta . ((interfaces . (cluster-interface spanner-interface))))
 313         ))
 314
 315     (ChordName
 316      . (
 317         (print-function . ,Text_interface::print)
 318         (after-line-breaking-callback . ,Chord_name::after_line_breaking)
 319         (word-space . 0.0)
 320         (font-family . sans)
 321         (font-size . 1.5)
 322         (meta . ((interfaces . (font-interface                                                  rhythmic-grob-interface
 323                                                                                                 text-interface chord-name-interface item-interface ))))
 324         ))
 325
 326     (Custos
 327      . (
 328         (break-align-symbol . custos)
 329         (breakable . #t)
 330         (print-function . ,Custos::print)
 331         (break-visibility . ,end-of-line-visible)
 332         (style . vaticana)
 333         (neutral-direction . -1)
 334         (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
 335         (space-alist . (
 336                         (first-note . (minimum-fixed-space . 0.0))
 337                         (right-edge . (extra-space . 0.1))
 338                         ))
 339         (meta . ((interfaces
 340                   . (custos-interface staff-symbol-referencer-interface
 341                                       font-interface
 342                                       break-aligned-interface item-interface ))))
 343         ))
 344
 345
 346     (DotColumn
 347      . (
 348         (axes . (0))
 349         (direction . ,RIGHT)
 350         (X-extent-callback . ,Axis_group_interface::group_extent_callback)
 351         (X-offset-callbacks . (,Dot_column::side_position))
 352         (meta . ((interfaces . (dot-column-interface axis-group-interface item-interface ))))
 353         ))
 354
 355     (Dots
 356      . (
 357         (print-function . ,Dots::print)
 358         (dot-count . 1)
 359         (meta . ((interfaces . (font-interface staff-symbol-referencer-interface dots-interface item-interface ))))
 360         ))
 361
 362     (DoublePercentRepeat
 363      . (
 364         (print-function . ,Percent_repeat_item_interface::double_percent)
 365         (breakable . #t)
 366         (slope . 1.0)
 367         (font-encoding . fetaMusic)
 368         (width . 2.0)
 369         (thickness . 0.48)
 370         (break-align-symbol . staff-bar)
 371         (break-visibility . ,begin-of-line-invisible)
 372         (meta . ((interfaces . (font-interface
 373                                 break-aligned-interface
 374                                 percent-repeat-interface item-interface ))))
 375         ))
 376     (DynamicText
 377      . (
 378         (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
 379         (print-function . ,Text_interface::print)
 380         (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
 381                                ,Self_alignment_interface::centered_on_parent))
 382         (self-alignment-X . 0)
 383         (no-spacing-rods . #t)
 384         (script-priority . 100)
 385         (font-series . bold)
 386         (font-encoding . fetaDynamic)
 387         (font-shape . italic)
 388         (self-alignment-Y . 0)
 389         (meta . ((interfaces . (font-interface text-interface self-alignment-interface
 390                                                dynamic-interface script-interface item-interface))))
 391         ))
 392     (DynamicTextSpanner
 393      . ((print-function . ,Dynamic_text_spanner::print)
 394         (font-series . bold)
 395         (font-shape . italic)
 396         (style . dashed-line)
 397
 398         ; need to blend with dynamic texts.
 399         (font-size . 2)
 400         (bound-padding . 0.75)
 401         (dash-fraction . 0.2)
 402         (dash-period . 3.0)
 403         (meta . ((interfaces . (font-interface
 404                                 text-interface
 405                                 dynamic-interface dynamic-text-spanner-interface
 406                                 item-interface))))
 407          ))
 408
 409     (DynamicLineSpanner
 410      . (
 411         (axes . (1))
 412         (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
 413         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
 414         (staff-padding . 0.1)
 415         (padding . 0.6)
 416         (minimum-space . 1.2)
 417         (direction . -1)
 418
 419         (meta . ((interfaces . (dynamic-interface axis-group-interface
 420                                                   side-position-interface spanner-interface)))) ))
 421
 422     (LeftEdge
 423      . (
 424         (break-align-symbol . left-edge)
 425         (X-extent .  (0 . 0))
 426         (breakable . #t)
 427         (space-alist . (
 428                         (custos . (extra-space . 0.0))
 429                         (ambitus . (extra-space . 2.0))
 430                         (time-signature . (extra-space . 0.0))
 431                         (staff-bar . (extra-space . 0.0))
 432                         (breathing-sign . (minimum-space  . 0.0))
 433                         (clef . (extra-space . 0.85))
 434                         (first-note . (fixed-space . 1.0))
 435                         (right-edge . (extra-space . 0.0))
 436                         (key-signature . (extra-space . 0.0))
 437                         (key-cancellation . (extra-space . 0.0))
 438
 439                         ))
 440         (meta . ((interfaces . (break-aligned-interface item-interface ))))
 441         ))
 442
 443     (Fingering
 444      . (
 445         (print-function . ,Text_interface::print)
 446
 447         ; sync with TextScript (?)
 448         (padding . 0.5)
 449         (staff-padding . 0.5)
 450         (self-alignment-X . 0)
 451         (self-alignment-Y . 0)
 452         (script-priority . 100)
 453         (font-encoding . fetaNumber)
 454         (font-size . -5)                ; don't overlap when next to heads.
 455         (meta . ((interfaces . (finger-interface
 456                                 font-interface text-script-interface text-interface
 457                                 side-position-interface self-alignment-interface
 458                                 item-interface))))
 459         ))
 460
 461     (Glissando
 462      . (
 463         (style . line)
 464         (gap . 0.5)
 465         (zigzag-width . 0.75)
 466         (breakable . #t)
 467         (X-extent-callback . #f)
 468         (Y-extent-callback . #f)
 469         (after-line-breaking-callback . ,Line_spanner::after_line_breaking)
 470         (print-function . ,Line_spanner::print)
 471         (meta . ((interfaces . (line-spanner-interface spanner-interface))))
 472         ))
 473
 474     (Hairpin
 475      . (
 476         (print-function . ,Hairpin::print)
 477         (thickness . 1.0)
 478         (height . 0.6666)
 479         (spacing-procedure . ,Spanner::set_spacing_rods)
 480         (minimum-length . 2.0)
 481         (bound-padding . 1.0)
 482         (self-alignment-Y . 0)
 483         (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
 484         (meta . ((interfaces . (hairpin-interface line-interface self-alignment-interface dynamic-interface spanner-interface))))
 485         ))
 486
 487     (HorizontalBracket
 488      . (
 489         (thickness . 1.0)
 490         (print-function . ,Horizontal_bracket::print)
 491         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
 492         (padding . 0.2)
 493         (direction . -1)
 494         (bracket-flare . (0.5 . 0.5))
 495         (meta . ((interfaces . (horizontal-bracket-interface
 496                                 side-position-interface
 497                                 line-interface
 498                                 spanner-interface))))
 499         ))
 500     (InstrumentName
 501      . (
 502         (breakable . #t)
 503         (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self
 504                                ,Side_position_interface::aligned_on_support_refpoints))
 505         ;; This direction is for aligned_on_support_refpoints
 506         ;; (?) --hwn
 507         (direction . 0)
 508         (space-alist . (
 509                         (left-edge . (extra-space . 1.0))
 510                         ))
 511
 512         (self-alignment-Y . 0)
 513         (print-function . ,Text_interface::print)
 514         (break-align-symbol . instrument-name)
 515         (break-visibility . ,begin-of-line-visible)
 516         (baseline-skip . 2)
 517         (meta . ((interfaces . (font-interface self-alignment-interface side-position-interface text-interface break-aligned-interface item-interface ))))
 518         ))
 519
 520     (VocalName
 521      . (
 522         (breakable . #t)
 523         (Y-offset-callbacks . (,Side_position_interface::aligned_on_support_refpoints))
 524         (direction . 0)
 525         (space-alist . ((left-edge . (extra-space . 1.0))
 526                         ))
 527         (break-align-symbol . instrument-name)
 528         (print-function . ,Text_interface::print)
 529         (break-align-symbol . clef)
 530         (break-visibility . ,begin-of-line-visible)
 531         (baseline-skip . 2)
 532         (meta . ((interfaces . (font-interface
 533                                 self-alignment-interface
 534                                 side-position-interface text-interface
 535                                 break-aligned-interface item-interface ))))
 536         ))
 537     (KeyCancellation
 538      . (
 539         (print-function . ,Key_signature_interface::print)
 540         (space-alist . (
 541                         (time-signature . (extra-space . 1.25))
 542                         (staff-bar .  (extra-space . 0.6))
 543                         (key-signature . (extra-space . 0.5))
 544                         (right-edge . (extra-space . 0.5))
 545                         (first-note . (fixed-space . 2.5))
 546                         ))
 547         (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
 548         (break-align-symbol . key-cancellation)
 549         (break-visibility . ,begin-of-line-invisible)
 550         (breakable . #t)
 551
 552         (meta . ((interfaces . (key-signature-interface font-interface
 553                                                         break-aligned-interface item-interface ))))
 554         ))
 555     (KeySignature
 556      . (
 557         (print-function . ,Key_signature_interface::print)
 558         (space-alist . (
 559                         (time-signature . (extra-space . 1.25))
 560                         (staff-bar .  (extra-space . 1.1))
 561                         (right-edge . (extra-space . 0.5))
 562                         (first-note . (fixed-space . 2.5))
 563                         ))
 564         (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
 565         (break-align-symbol . key-signature)
 566         (break-visibility . ,begin-of-line-visible)
 567         (breakable . #t)
 568
 569         (meta . ((interfaces . (key-signature-interface font-interface
 570                                                         break-aligned-interface item-interface ))))
 571         ))
 572     (LedgerLineSpanner
 573      . (
 574         (print-function . ,Ledger_line_spanner::print)
 575         (X-extent-callback . #f)
 576         (Y-extent-callback . #f)
 577         (print-function . ,Ledger_line_spanner::print)
 578         (meta . ((interfaces . (spanner-interface ledger-line-interface))))
 579         ))
 580
 581     (LigatureBracket
 582      . (
 583         (ligature-primitive-callback . ,Note_head::print)
 584         (direction . 1)
 585         (gap . 0.0)
 586         (padding . 2.0)
 587         (thickness . 1.6)
 588         (edge-height . (0.7 . 0.7))
 589         (shorten-pair . (-0.2 . -0.2))
 590         (before-line-breaking-callback . ,Tuplet_bracket::before_line_breaking)
 591         (after-line-breaking-callback . ,Tuplet_bracket::after_line_breaking)
 592         (print-function . ,Tuplet_bracket::print)
 593         (meta .  ((interfaces . (tuplet-bracket-interface spanner-interface))))
 594         ))
 595
 596     (LyricHyphen
 597      . (
 598         (thickness . 1.3)
 599         (height . 0.42)
 600         (dash-period . 10.0)
 601         (length . 0.66)
 602         (spacing-procedure . ,Hyphen_spanner::set_spacing_rods)
 603         (print-function . ,Hyphen_spanner::print)
 604         (Y-extent  . (0 . 0))
 605         (meta . ((interfaces . (lyric-interface lyric-hyphen-interface
 606                                                 spanner-interface))))
 607         ))
 608
 609     (LyricExtender
 610      . (
 611         (print-function . ,Lyric_extender::print)
 612         (thickness . 0.8) ; linethickness
 613         (minimum-length . 1.5)
 614         (Y-extent . (0 . 0))
 615         (meta . ((interfaces . (lyric-interface
 616                                 lyric-extender-interface spanner-interface))))
 617         ))
 618
 619     (LyricText
 620      . ((print-function . ,Text_interface::print)
 621         (X-offset-callbacks . (,Self_alignment_interface::aligned_on_parent))
 622         (self-alignment-X . 0)
 623         (word-space . 0.6)
 624         (font-series . bold-narrow)
 625         (font-size . 1.0)
 626         (meta . ((interfaces . (rhythmic-grob-interface lyric-syllable-interface self-alignment-interface text-interface font-interface item-interface ))))
 627         ))
 628
 629     (MensuralLigature
 630      . (
 631         (thickness . 1.4)
 632         (flexa-width . 2.0)
 633         (ligature-primitive-callback . ,Mensural_ligature::brew_ligature_primitive)
 634         (print-function . ,Mensural_ligature::print)
 635         (meta . ((interfaces . (mensural-ligature-interface font-interface))))
 636         ))
 637
 638     (RehearsalMark
 639      . (
 640         (print-function . ,Text_interface::print)
 641         (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
 642         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
 643         (after-line-breaking-callback . ,shift-right-at-line-begin)
 644         (self-alignment-X . 0)
 645         (direction . 1)
 646         (breakable . #t)
 647         (font-size . 2)
 648         (baseline-skip . 2)
 649         (break-visibility . ,end-of-line-invisible)
 650         (padding . 0.8)
 651         (meta . ((interfaces . (text-interface
 652                                 side-position-interface font-interface mark-interface
 653                                 self-alignment-interface item-interface ))))
 654         ))
 655      (MetronomeMark
 656      . (
 657         (print-function . ,Text_interface::print)
 658         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
 659         (direction . 1)
 660         (padding . 0.8)
 661         (meta . ((interfaces . (text-interface
 662                                 side-position-interface font-interface
 663                                 metronome-mark-interface item-interface))))
 664         ))
 665     (MeasureGrouping
 666      . (
 667         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
 668         (print-function . ,Measure_grouping::print)
 669         (padding . 2)
 670         (direction . 1)
 671         (thickness . 1)
 672         (height . 2.0)
 673         (staff-padding . 3)
 674         (meta . ((interfaces . (spanner-interface side-position-interface measure-grouping-interface))))
 675         ))
 676     (MultiMeasureRest
 677      . (
 678         (spacing-procedure . ,Multi_measure_rest::set_spacing_rods)
 679         (print-function . ,Multi_measure_rest::print)
 680         (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
 681         (staff-position . 0)
 682         (expand-limit . 10)
 683         (thick-thickness . 6.6)
 684         (hair-thickness . 2.0)
 685         (padding . 1)
 686         (meta . ((interfaces . (multi-measure-rest-interface multi-measure-interface rest-interface font-interface staff-symbol-referencer-interface))))
 687         ))
 688
 689     (MultiMeasureRestNumber
 690      . (
 691         (print-function . ,Text_interface::print)
 692         (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
 693                                ,Self_alignment_interface::centered_on_other_axis_parent))
 694         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
 695         (self-alignment-X . 0)
 696         (direction . 1)
 697         (padding . 0.4)
 698         (staff-padding . 0.4)
 699         (font-encoding . fetaNumber)
 700         (meta . ((interfaces . (side-position-interface multi-measure-interface self-alignment-interface font-interface spanner-interface text-interface))))
 701         ))
 702     (MultiMeasureRestText
 703      . (
 704         (print-function . ,Text_interface::print)
 705         (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
 706                                ,Self_alignment_interface::centered_on_other_axis_parent))
 707         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
 708         (self-alignment-X . 0)
 709         (direction . 1)
 710         (padding . 0.2)
 711         (staff-padding . 0.25)
 712         (meta . ((interfaces . (side-position-interface multi-measure-interface self-alignment-interface font-interface spanner-interface text-interface))))
 713         ))
 714  (NoteCollision
 715      . (
 716         (axes . (0 1))
 717         (X-extent-callback . ,Axis_group_interface::group_extent_callback)
 718         (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
 719         (meta . ((interfaces . (note-collision-interface axis-group-interface item-interface ))))
 720         ))
 721
 722     (NoteColumn
 723      . (
 724         (axes . (0 1))
 725         (X-extent-callback . ,Axis_group_interface::group_extent_callback)
 726         (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
 727         (meta . ((interfaces . (axis-group-interface note-column-interface item-interface ))))
 728         ))
 729
 730     (NoteHead
 731      . (
 732         (style . default)
 733         (print-function . ,Note_head::print)
 734         (ligature-primitive-callback . ,Note_head::print)
 735         (glyph-name-procedure . ,find-notehead-symbol)
 736         (X-extent-callback . ,Note_head::extent)
 737         (Y-extent-callback . ,Note_head::extent)
 738         (Y-offset-callbacks  . (,Staff_symbol_referencer::callback))
 739         (stem-attachment-function . ,note-head-style->attachment-coordinates)
 740         (meta . ((interfaces . (rhythmic-grob-interface
 741                                 rhythmic-head-interface font-interface note-head-interface
 742                                 ledgered-interface
 743                                 staff-symbol-referencer-interface item-interface ))))
 744         ))
 745
 746     (NoteSpacing
 747      . (
 748         (stem-spacing-correction . 0.5)
 749
 750         ;; Changed this from 0.75.
 751         ;; If you ever change this back, please document! --hwn
 752         (knee-spacing-correction . 1.0)
 753
 754         (meta . ((interfaces . (spacing-interface note-spacing-interface item-interface ))))
 755         ))
 756
 757     (VoiceFollower
 758      . (
 759         (style . line)
 760         (gap . 0.5)
 761         (breakable . #t)
 762         (X-extent-callback . #f)
 763         (Y-extent-callback . #f)
 764         (print-function . ,Line_spanner::print)
 765         (after-line-breaking-callback . ,Line_spanner::after_line_breaking)
 766         (meta . ((interfaces . (line-spanner-interface line-interface spanner-interface))))
 767         ))
 768
 769     (NoteName
 770      . (
 771         (print-function . ,Text_interface::print)
 772         (meta . ((interfaces . (note-name-interface
 773                                 text-interface font-interface item-interface ))))
 774         ))
 775
 776     (OctavateEight
 777      . (
 778         (self-alignment-X . 0)
 779         (break-visibility . ,begin-of-line-visible)
 780         (X-offset-callbacks . (,Self_alignment_interface::centered_on_parent ,Self_alignment_interface::aligned_on_self))
 781         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
 782         (print-function . ,Text_interface::print)
 783
 784         ;; no Y dimensions, because of lyrics under tenor clef.
 785         (Y-extent . (0 . 0))
 786         (font-shape . italic)
 787         (padding . 0.6)
 788         (staff-padding . 0.2)
 789         (font-size . -4)
 790         (meta . ((interfaces . (text-interface self-alignment-interface side-position-interface font-interface item-interface ))))
 791         ))
 792
 793     (PaperColumn
 794      . (
 795         (axes . (0))
 796         (before-line-breaking-callback . ,Paper_column::before_line_breaking)
 797         (X-extent-callback . ,Axis_group_interface::group_extent_callback)
 798
 799 ;               (print-function . ,Paper_column::print) (font-name . "ecrm8") (Y-extent-callback . #f)
 800         (meta . ((interfaces . (paper-column-interface axis-group-interface spaceable-grob-interface item-interface ))))
 801         ))
 802
 803     (PhrasingSlur
 804      . ((slur-details . ,default-slur-details)
 805         (print-function . ,Slur::print)
 806         (thickness . 1.2)
 807         (spacing-procedure . ,Spanner::set_spacing_rods)
 808         (minimum-length . 1.5)
 809         (after-line-breaking-callback . ,Slur::after_line_breaking)
 810         (Y-extent-callback . ,Slur::height)
 811         (height-limit . 2.0)
 812         (ratio . 0.333)
 813         (meta . ((interfaces . (slur-interface spanner-interface))))
 814         ))
 815
 816     (NonMusicalPaperColumn
 817      . (
 818         (axes . (0))
 819         (X-extent-callback . ,Axis_group_interface::group_extent_callback)
 820         (before-line-breaking-callback . ,Paper_column::before_line_breaking)
 821         (breakable . #t)
 822         ;; debugging stuff: print column number.
 823 ;       (print-function . ,Paper_column::print) (font-name . "ecrm8")   (Y-extent-callback . #f)
 824
 825
 826         (meta .  ((interfaces . (paper-column-interface axis-group-interface spaceable-grob-interface item-interface ))))
 827         ))
 828
 829     (PercentRepeat
 830      . (
 831         (spacing-procedure . ,Multi_measure_rest::set_spacing_rods)
 832         (print-function . ,Multi_measure_rest::percent)
 833         (slope . 1.0)
 834         (thickness . 0.48)
 835         (font-encoding . fetaMusic)
 836         (meta . ((interfaces . (multi-measure-rest-interface  spanner-interface font-interface percent-repeat-interface))))
 837         ))
 838
 839     (PianoPedalBracket   ;; an example of a text spanner
 840      . (
 841         (print-function . ,Piano_pedal_bracket::print)
 842         (style . line)
 843         (bound-padding . 1.0)
 844         (direction . -1)
 845         (bracket-flare . (0.5 . 0.5))
 846         (edge-height . (1.0 . 1.0))
 847         (shorten-pair . (0.0 . 0.0))
 848         (thickness .  1.0)
 849         (meta . ((interfaces . (line-interface piano-pedal-interface piano-pedal-bracket-interface spanner-interface))))
 850         ))
 851
 852
 853     (RemoveEmptyVerticalGroup
 854      . (
 855         (Y-offset-callbacks . (,Hara_kiri_group_spanner::force_hara_kiri_callback))
 856         (Y-extent-callback . ,Hara_kiri_group_spanner::y_extent)
 857         (remove-first . #t)
 858         (axes . (1))
 859         (meta . ((interfaces . (axis-group-interface hara-kiri-group-interface item-interface  spanner-interface))))
 860         ))
 861
 862     (RepeatSlash
 863      . (
 864         (print-function . ,Percent_repeat_item_interface::beat_slash)
 865         (thickness . 0.48)
 866         (slope . 1.7)
 867         (meta . ((interfaces . (percent-repeat-interface item-interface ))))
 868         ))
 869     (Rest
 870      . (
 871         (after-line-breaking-callback . ,Rest::after_line_breaking)
 872         (X-extent-callback . ,Rest::extent_callback)
 873         (Y-extent-callback . ,Rest::extent_callback)
 874         (print-function . ,Rest::print)
 875         (Y-offset-callbacks . (,Staff_symbol_referencer::callback
 876                                ,Rest::polyphonic_offset_callback
 877                                ))
 878         (minimum-distance . 0.25)
 879         (meta . (
 880                  (interfaces . (font-interface
 881                                 rhythmic-head-interface
 882                                 rhythmic-grob-interface
 883                                 staff-symbol-referencer-interface
 884                                 rest-interface item-interface ))
 885                 ))))
 886
 887     (RestCollision
 888      . (
 889         (minimum-distance . 0.75)
 890         (meta . ((interfaces . (rest-collision-interface item-interface ))))
 891         ))
 892
 893     (Script
 894      . (
 895         ;; don't set direction here: it breaks staccato.
 896         (print-function . ,Script_interface::print)
 897
 898         ;; This value is sensitive: if too large, staccato dots will move a
 899         ;; space a away.
 900         (padding . 0.20)
 901         (staff-padding . 0.25)
 902         ;; (script-priority . 0) priorities for scripts, see script.scm
 903         (X-offset-callbacks . (,Self_alignment_interface::centered_on_parent))
 904         (before-line-breaking-callback . ,Script_interface::before_line_breaking)
 905         (font-encoding . fetaMusic)
 906         (meta . ((interfaces . (script-interface side-position-interface font-interface item-interface ))))
 907         ))
 908
 909     (ScriptColumn
 910      . (
 911         (before-line-breaking-callback . ,Script_column::before_line_breaking)
 912         (meta . ((interfaces . (script-column-interface item-interface ))))
 913         ))
 914
 915     (Slur
 916      . ((slur-details . ,default-slur-details)
 917         (print-function . ,Slur::print)
 918         (thickness . 1.2)
 919         (spacing-procedure . ,Spanner::set_spacing_rods)
 920         (minimum-length . 1.5)
 921         (after-line-breaking-callback . ,Slur::after_line_breaking)
 922         (Y-extent-callback . ,Slur::height)
 923                                         ; Slur::height)
 924         (height-limit . 2.0)
 925         (ratio . 0.25)
 926         (meta . ((interfaces . (slur-interface spanner-interface))))
 927         ))
 928
 929     (SpacingSpanner
 930      . (
 931         (spacing-procedure .  ,Spacing_spanner::set_springs)
 932         (grace-space-factor . 0.6)
 933         (shortest-duration-space . 2.0)
 934         (spacing-increment . 1.2)
 935         (base-shortest-duration . ,(ly:make-moment 3 16))
 936         (meta . ((interfaces . (spacing-interface spacing-spanner-interface spanner-interface))))
 937         ))
 938
 939     (SpanBar
 940      . (
 941         (break-align-symbol . staff-bar)
 942         (bar-size-procedure . ,Span_bar::get_bar_size)
 943         (print-function . ,Span_bar::print)
 944         (X-extent-callback . ,Span_bar::width_callback)
 945         (Y-extent-callback . ())
 946         (breakable . #t)
 947         (before-line-breaking-callback . ,Span_bar::before_line_breaking)
 948         ;; ugh duplication!
 949
 950         ;;
 951         ;; Ross. page 151 lists other values, we opt for a leaner look
 952         ;;
 953         (kern . 3.0)
 954         (thin-kern . 3.0)
 955         (hair-thickness . 1.6)
 956         (thick-thickness . 6.0)
 957         (meta . ((interfaces . (span-bar-interface font-interface
 958                                                    bar-line-interface item-interface ))))
 959         ))
 960
 961     (StanzaNumber
 962      . ((print-function . ,Text_interface::print)
 963         (font-series . bold)
 964         (padding . 1.0)
 965         (X-offset-callbacks . (,Side_position_interface::aligned_side))
 966         (direction . ,LEFT)
 967         (meta . ((interfaces . (side-position-interface stanza-number-interface text-interface font-interface item-interface ))))
 968         ))
 969
 970     (StaffSpacing
 971      . (
 972         (breakable . #t)
 973         (stem-spacing-correction . 0.4)
 974
 975         (meta . ((interfaces . (spacing-interface staff-spacing-interface item-interface ))))
 976         ))
 977
 978     (SostenutoPedal
 979      . (
 980         (print-function . ,Text_interface::print)
 981         (direction . 1)
 982         (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
 983         (no-spacing-rods . #t)
 984         (padding . 0.0) ;; padding relative to SostenutoPedalLineSpanner
 985         (font-shape . italic)
 986         (self-alignment-X . 0)
 987         (meta . ((interfaces . (text-interface  self-alignment-interface font-interface item-interface))))
 988         ))
 989
 990     (SostenutoPedalLineSpanner
 991      . (
 992         (axes . (1))
 993         (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
 994         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
 995
 996
 997         (padding . 1.2)
 998         (minimum-space . 1.0)
 999         (direction . -1)
1000         (meta . ((interfaces . (piano-pedal-interface axis-group-interface side-position-interface  spanner-interface))))
1001         ))
1002
1003     (StaffSymbol
1004      . (
1005         (print-function . ,Staff_symbol::print)
1006         (line-count . 5)
1007         (ledger-line-thickness  . (1.0 . 0.1))
1008         (layer . 0)
1009         (meta . ((interfaces . (staff-symbol-interface spanner-interface))))
1010         ))
1011
1012     (Stem
1013      . (
1014         ;; this list is rather long. Trim --hwn
1015         (before-line-breaking-callback . ,Stem::before_line_breaking)
1016         (print-function . ,Stem::print)
1017         (thickness . 1.3)
1018
1019         ;; 3.5 (or 3 measured from note head) is standard length
1020         ;; 32nd, 64th flagged stems should be longer
1021         (lengths . (3.5 3.5 3.5 4.5 5.0))
1022
1023         ;; Stems in unnatural (forced) direction should be shortened by
1024         ;; one staff space, according to [Roush & Gourlay].
1025         ;; Flagged stems we shorten only half a staff space.
1026         (stem-shorten . (1.0 0.5))
1027
1028         ;; default stem direction for note on middle line
1029         (neutral-direction . -1)
1030
1031
1032
1033         ;; FIXME.  3.5 yields too long beams (according to Ross and
1034         ;; looking at Baerenreiter examples) for a number of common
1035         ;; boundary cases.  Subtracting half a beam thickness fixes
1036         ;; this, but the bug may well be somewhere else.
1037
1038         ;; FIXME this should come from 'lengths
1039
1040         (beamed-lengths . (3.26 3.5 3.6))
1041
1042         ;; We use the normal minima as minimum for the ideal lengths,
1043         ;; and the extreme minima as abolute minimum length.
1044
1045         ;; The 'normal' minima
1046         (beamed-minimum-free-lengths . (1.83 1.5 1.25))
1047         ;(beamed-minimum-free-lengths . (2.0 1.83 1.25))
1048
1049         ;; The 'extreme case' minima
1050         (beamed-extreme-minimum-free-lengths . (2.0 1.25))
1051
1052         (X-offset-callbacks . (,Stem::off_callback))
1053         (X-extent-callback . ,Stem::dim_callback)
1054         (Y-extent-callback . ,Stem::height)
1055         (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
1056         (meta . ((interfaces . (stem-interface font-interface item-interface ))))
1057         ))
1058
1059     (StemTremolo
1060      . (
1061         (print-function . ,Stem_tremolo::print)
1062         (Y-extent-callback . ,Stem_tremolo::height)
1063         (X-extent-callback . #f)
1064
1065         (beam-width . 1.6) ; staff-space
1066         (beam-thickness . 0.48) ; staff-space
1067         (meta . ((interfaces . (stem-tremolo-interface item-interface ))))
1068         ))
1069
1070     (SeparationItem
1071      . (
1072         (X-extent-callback . #f)
1073         (Y-extent-callback . #f)
1074         (meta . ((interfaces . (spacing-interface separation-item-interface item-interface ))))
1075         ))
1076
1077     (SeparatingGroupSpanner
1078      . (
1079         (spacing-procedure . ,Separating_group_spanner::set_spacing_rods)
1080         (meta . ((interfaces . (only-prebreak-interface spacing-interface separation-spanner-interface spanner-interface))))
1081         ))
1082
1083     (SustainPedal
1084      . (
1085         (no-spacing-rods . #t)
1086         (print-function . ,Sustain_pedal::print)
1087         (self-alignment-X . 0)
1088         (direction . 1)
1089         (padding . 0.0)  ;; padding relative to SustainPedalLineSpanner
1090         (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
1091         (meta . ((interfaces . (piano-pedal-interface text-spanner-interface text-interface self-alignment-interface font-interface item-interface))))
1092         ))
1093
1094     (SustainPedalLineSpanner
1095      . (
1096         (axes . (1))
1097         (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
1098         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
1099
1100         (padding . 1.2)
1101         (staff-padding . 1.2)
1102         (minimum-space . 1.0)
1103         (direction . -1)
1104         (meta . ((interfaces . (piano-pedal-interface axis-group-interface side-position-interface spanner-interface))))
1105         ))
1106
1107     (System
1108      . (
1109         (axes . (0 1))
1110         (X-extent-callback . ,Axis_group_interface::group_extent_callback)
1111         (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
1112         (meta . ((interfaces . (system-interface axis-group-interface spanner-interface))))
1113         ))
1114
1115     (SystemStartBrace
1116      . (
1117         (glyph . "brace")
1118         (print-function . ,System_start_delimiter::print)
1119         (collapse-height . 5.0)
1120         (font-encoding . fetaBraces)
1121         (Y-extent-callback . #f)
1122         (meta . ((interfaces . (system-start-delimiter-interface font-interface))))
1123         ))
1124
1125     (SystemStartBracket
1126      . (
1127         (Y-extent-callback . #f)
1128         (print-function . ,System_start_delimiter::print)
1129         (glyph . "bracket")
1130         (arch-height . 1.5)
1131         (arch-angle . 50.0)
1132         (arch-thick . 0.25)
1133         (arch-width . 1.5)
1134         (collapse-height . 1)
1135         (thickness . 0.25)
1136         (meta . ((interfaces . (system-start-delimiter-interface spanner-interface))))
1137         ))
1138
1139     (SystemStartBar
1140      . (
1141         (Y-extent-callback . #f)
1142         (print-function . ,System_start_delimiter::print)
1143         (glyph . "bar-line")
1144         (thickness . 1.6)
1145         (after-line-breaking-callback . ,System_start_delimiter::after_line_breaking)
1146         (meta . ((interfaces . (system-start-delimiter-interface spanner-interface))))
1147         ))
1148
1149     (TextScript
1150      . (
1151         (print-function . ,Text_interface::print)
1152         (no-spacing-rods . #t)
1153         (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
1154         (direction . -1)
1155
1156         ; sync with Fingering ?
1157         (padding . 0.5)
1158         (staff-padding . 0.5)
1159         (script-priority . 200)
1160         ;; todo: add X self alignment?
1161         (meta . ((interfaces . (text-script-interface text-interface side-position-interface font-interface item-interface ))))
1162         ))
1163     (CombineTextScript
1164      . (
1165         (print-function . ,Text_interface::print)
1166         (no-spacing-rods . #t)
1167         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
1168         (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
1169         (direction . 1)
1170         (extra-offset . (-1 . 0))
1171         (padding . 0.5)
1172         (staff-padding . 0.5)
1173         (script-priority . 200)
1174         ;; todo: add X self alignment?
1175         (baseline-skip . 2)
1176         (font-series . bold)
1177         (meta . ((interfaces . (text-script-interface text-interface  side-position-interface font-interface item-interface ))))
1178         ))
1179     (TextSpanner
1180      . (
1181         (print-function . ,Text_spanner::print)
1182         (font-shape . italic)
1183         (style . dashed-line)
1184         (staff-padding . 0.1)
1185         (dash-fraction . 0.2)
1186         (dash-period . 3.0)
1187         (direction . 1)
1188         (meta . ((interfaces . (text-spanner-interface side-position-interface font-interface spanner-interface))))
1189         ))
1190     (TrillSpanner
1191      . (
1192         (print-function . ,Dynamic_text_spanner::print)
1193         (edge-text . ,(cons (make-musicglyph-markup "scripts-trill")
1194                             ""))
1195         (style . trill)
1196         (staff-padding . 1.0)
1197         (padding . 0.5)
1198         (direction . 1)
1199         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
1200         (meta . ((interfaces . (text-spanner-interface side-position-interface font-interface spanner-interface))))
1201         ))
1202
1203     (OttavaBracket
1204      . (
1205         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
1206         (print-function . ,Ottava_bracket::print)
1207         (font-shape . italic)
1208         (shorten-pair . (0.0 . -0.6))
1209         (staff-padding . 1.0)
1210         (padding  . 0.5)
1211         (minimum-length . 1.0)
1212         (dash-fraction . 0.3)
1213         (edge-height . (0 . 1.2))
1214         (direction . 1)
1215         (meta . ((interfaces . (ottava-bracket-interface
1216                                 line-interface side-position-interface
1217                                 font-interface text-interface spanner-interface))))
1218         ))
1219
1220     (TabNoteHead
1221      . (
1222         (style . default)
1223         (print-function . ,Text_interface::print)
1224         (Y-offset-callbacks  . (,Staff_symbol_referencer::callback))
1225         (extra-offset . (0 . -0.65)) ;; UGH! TODO: Clean this up!
1226         (stem-attachment-function . ,tablature-stem-attachment-function)
1227         (meta . ((interfaces
1228                   . (rhythmic-head-interface
1229                      font-interface
1230                      note-head-interface staff-symbol-referencer-interface
1231                      text-interface item-interface ))))
1232         ))
1233
1234
1235     (Tie
1236      . (
1237         (print-function . ,Tie::print)
1238         (spacing-procedure . ,Spanner::set_spacing_rods)
1239         (staffline-clearance . 0.35)
1240         (details . ((ratio . 0.333) (height-limit . 1.0)))
1241         (thickness . 1.2)
1242         (x-gap . -0.1)
1243         (y-offset . 0.6)
1244         (minimum-length  . 2.5)
1245         (meta . ((interfaces . (tie-interface spanner-interface))))
1246         ))
1247
1248     (TieColumn
1249      . (
1250         (after-line-breaking-callback . ,Tie_column::after_line_breaking)
1251         (X-extent-callback . #f)
1252         (Y-extent-callback . #f)
1253         (meta . ((interfaces . (tie-column-interface spanner-interface))))
1254         ))
1255
1256     (TimeSignature
1257      . (
1258         (print-function . ,Time_signature::print)
1259 ;       (print-function . ,Text_interface::print)
1260         (break-align-symbol . time-signature)
1261         (break-visibility . ,all-visible)
1262         (space-alist . (
1263                         (first-note . (fixed-space . 2.0))
1264                         (right-edge . (extra-space . 0.5))
1265                         (staff-bar .  (minimum-space . 2.0))
1266                         ))
1267         (breakable . #t)
1268         (style . C)
1269 ;       (text . (,time-signature-glue-markup))
1270         (meta . ((interfaces . (time-signature-interface break-aligned-interface font-interface item-interface ))))
1271         ))
1272
1273     (TupletBracket
1274      . (
1275         (padding . 1.1)
1276         (thickness . 1.6)
1277         (edge-height . (0.7 . 0.7))
1278         (shorten-pair . (-0.2 . -0.2))
1279         (before-line-breaking-callback . ,Tuplet_bracket::before_line_breaking)
1280         (after-line-breaking-callback . ,Tuplet_bracket::after_line_breaking)
1281         (print-function . ,Tuplet_bracket::print)
1282         (font-shape . italic)
1283         (font-series . bold)
1284
1285         (font-size . -2)
1286         (meta .  ((interfaces . (text-interface line-interface tuplet-bracket-interface font-interface spanner-interface))))
1287         ))
1288
1289     (UnaCordaPedal
1290      . (
1291         (print-function . ,Text_interface::print)
1292         (font-shape . italic)
1293         (no-spacing-rods . #t)
1294         (self-alignment-X . 0)
1295         (direction . 1)
1296         (padding . 0.0)  ;; padding relative to UnaCordaPedalLineSpanner
1297         (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
1298         (meta . ((interfaces . (text-interface self-alignment-interface font-interface item-interface ))))
1299         ))
1300
1301     (UnaCordaPedalLineSpanner
1302      . (
1303         (axes . (1))
1304         (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
1305         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
1306         (padding . 1.2)
1307         (staff-padding . 1.2)
1308         (minimum-space . 1.0)
1309         (direction . -1)
1310         (meta . ((interfaces . (piano-pedal-interface axis-group-interface side-position-interface spanner-interface))))
1311         ))
1312
1313     (VaticanaLigature
1314      . (
1315         (thickness . 0.6)
1316         (flexa-width . 2.0)
1317         (ligature-primitive-callback . ,Vaticana_ligature::brew_ligature_primitive)
1318         (print-function . ,Vaticana_ligature::print)
1319         (meta . ((interfaces . (vaticana-ligature-interface font-interface))))
1320         ))
1321
1322     (VoltaBracket
1323      . (
1324         (print-function . ,Volta_bracket_interface::print)
1325         (direction . 1)
1326         (padding . 1)
1327         (font-encoding . fetaNumber)
1328         (Y-offset-callbacks . (,Side_position_interface::aligned_side))
1329         (thickness . 1.6)  ;  linethickness
1330         (height . 2.0) ; staffspace;
1331         (minimum-space . 5)
1332         (font-size . -4)
1333         (meta . ((interfaces . (volta-bracket-interface line-interface text-interface side-position-interface font-interface spanner-interface))))
1334         ))
1335
1336     (VerticalAlignment
1337      . (
1338         (axes . (1))
1339         (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
1340         (X-extent-callback . ,Axis_group_interface::group_extent_callback)
1341         (stacking-dir . -1)
1342 ;       (threshold .  (6 . 1000))
1343         (meta . ((interfaces . (align-interface axis-group-interface spanner-interface))))
1344         ))
1345
1346     (VerticalAxisGroup
1347      . (
1348         (axes . (1))
1349         (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
1350         (X-extent-callback . ,Axis_group_interface::group_extent_callback)
1351
1352         (meta . ((interfaces . (axis-group-interface spanner-interface))))
1353         ))
1354    )
1355  )
1356
1357
1358
1359
1360 (define (completize-grob-entry x)
1361   "transplant assoc key into 'name entry of 'meta of X
1362 "
1363   (let* ((name-sym  (car x))
1364          (grob-entry (cdr x))
1365          (metaentry (cdr (assoc 'meta grob-entry)))
1366          (ifaces-entry
1367           (cdr (assoc 'interfaces metaentry)))
1368
1369         )
1370     (set! metaentry (assoc-set! metaentry 'name name-sym))
1371     (set! metaentry (assoc-set! metaentry 'interfaces
1372                                 (cons 'grob-interface ifaces-entry)))
1373     (set! grob-entry (assoc-set! grob-entry 'meta metaentry))
1374     (cons name-sym grob-entry)))
1375
1376 (set! all-grob-descriptions (map completize-grob-entry all-grob-descriptions))
1377
1378
1379
1380                                         ;  (display  (map pair? all-grob-descriptions))
1381
1382
1383 ;; make sure that \property Foo.Bar =\turnOff doesn't complain
1384
1385 (map (lambda (x)
1386                                         ; (display (car x)) (newline)
1387
1388        (set-object-property! (car x) 'translation-type? list?)
1389        (set-object-property! (car x) 'is-grob? #t))
1390      all-grob-descriptions)
1391
1392
1393 (set! all-grob-descriptions (sort all-grob-descriptions alist<?))