1 ;;;; This file is part of LilyPond, the GNU music typesetter.
3 ;;;; Copyright (C) 1998--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
4 ;;;; Jan Nieuwenhuizen <janneke@gnu.org>
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.
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.
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/>.
19 ;;;; distances are given in line-thickness (thicknesses) and
20 ;;;; staff-space (distances)
22 ;;;; WARNING: the meta field should be the last one.
23 ;;;; WARNING: don't use anonymous functions for initialization.
25 ;; TODO: junk the meta field in favor of something more compact?
28 (define-session-public all-grob-descriptions
32 (after-line-breaking . ,ly:accidental-interface::remove-tied)
33 (alteration . ,accidental-interface::calc-alteration)
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
50 (after-line-breaking . ,ly:accidental-interface::remove-tied)
51 (alteration . ,accidental-interface::calc-alteration)
53 (glyph-name-alist . ,standard-alteration-glyph-name-alist)
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
66 (positioning-done . ,ly:accidental-placement::calc-positioning-done)
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)
72 ;; for horizontally stacked scripts.
73 (script-priority . -100)
75 (X-extent . ,ly:axis-group-interface::width)
76 (meta . ((class . Item)
77 (interfaces . (accidental-placement-interface))))))
81 (after-line-breaking . ,ly:accidental-interface::remove-tied)
82 (alteration . ,accidental-interface::calc-alteration)
85 (glyph-name-alist . ,standard-alteration-glyph-name-alist)
86 (outside-staff-priority . 0)
87 (parent-alignment-X . ,CENTER)
89 (self-alignment-X . ,CENTER)
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
100 outside-staff-interface
102 self-alignment-interface
103 side-position-interface))))))
108 (break-align-symbol . ambitus)
109 (break-visibility . ,begin-of-line-visible)
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
126 break-aligned-interface))))))
131 (glyph-name-alist . ,standard-alteration-glyph-name-alist)
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
141 side-position-interface))))))
145 (gap . ,ambitus-line::calc-gap)
146 (length-fraction . 0.7)
148 (stencil . ,ambitus::print)
150 (X-offset . ,ly:self-alignment-interface::centered-on-x-parent)
151 (meta . ((class . Item)
152 (interfaces . (ambitus-interface
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
168 rhythmic-head-interface
169 staff-symbol-referencer-interface))))))
173 (cross-staff . ,ly:arpeggio::calc-cross-staff)
177 (positions . ,ly:arpeggio::calc-positions)
179 (script-priority . 0)
181 (staff-position . 0.0)
182 (stencil . ,ly:arpeggio::print)
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
191 side-position-interface
192 staff-symbol-referencer-interface))))))
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
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)
219 (glyph-name . ,bar-line::calc-glyph-name)
222 ;; Ross. page 151 lists other values, we opt for a leaner look
225 ;; kern should scale with line-thickness too.
228 (hair-thickness . 1.9)
229 (thick-thickness . 6.0)
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
251 pure-from-neighbor-interface))))))
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))
259 (break-visibility . ,begin-of-line-visible)
261 (extra-spacing-width . (+inf.0 . -inf.0))
262 (font-family . roman)
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)
270 (self-alignment-X . ,RIGHT)
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)
278 (interfaces . (break-alignable-interface
280 outside-staff-interface
281 self-alignment-interface
282 side-position-interface
287 (stencil . ,ly:text-interface::print)
288 (Y-extent . ,grob::always-Y-extent-from-stencil)
289 (meta . ((class . Item)
290 (interfaces . (bass-figure-interface
292 rhythmic-grob-interface
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
308 bass-figure-alignment-interface))))))
310 (BassFigureAlignmentPositioning
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))))))
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))))))
335 (BassFigureContinuation
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))))))
344 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights)
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))))))
358 ;; todo: clean this up a bit: the list is getting
360 (auto-knee-gap . 5.5)
361 (beam-segments . ,ly:beam::calc-beam-segments)
362 (beam-thickness . 0.48) ; in staff-space
364 ;; We have some unreferenced problems here.
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).
371 ;; But if we shorten 16th beams as much as 8th beams, a single
372 ;; forced 16th beam looks *very* short.
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))
380 (beaming . ,ly:beam::calc-beaming)
382 (collision-interfaces . (beam-interface
384 clef-modifier-interface
386 inline-accidental-interface
387 key-signature-interface
390 time-signature-interface))
391 (cross-staff . ,ly:beam::calc-cross-staff)
395 (secondary-beam-demerit . 10)
396 (stem-length-demerit-factor . 5)
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)
409 (normalized-endpoints . ,ly:spanner::calc-normalized-endpoints)
410 ;; only for debugging.
411 (font-family . roman)
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
420 ;; this is a hack to set stem lengths, if positions is set.
421 (quantized-positions . ,ly:beam::set-stem-lengths)
423 (shorten . ,ly:beam::calc-stem-shorten)
424 (vertical-skylines . ,grob::unpure-vertical-skylines-from-stencil)
425 (stencil . ,ly:beam::print)
427 (meta . ((class . Spanner)
428 (object-callbacks . ((normal-stems . ,ly:beam::calc-normal-stems)))
429 (interfaces . (beam-interface
431 staff-symbol-referencer-interface
432 unbreakable-spanner-interface))))))
436 (minimum-length . 0.5)
437 (stencil . ,bend::print)
439 (meta . ((class . Spanner)
440 (interfaces . (bend-after-interface
441 spanner-interface))))))
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))))))
456 (break-align-orders . ;; end of line
497 (positioning-done . ,ly:break-alignment-interface::calc-positioning-done)
499 (X-extent . ,ly:axis-group-interface::width)
500 (meta . ((class . Item)
501 (interfaces . (axis-group-interface
502 break-alignment-interface))))))
506 (break-align-symbol . breathing-sign)
507 (break-visibility . ,begin-of-line-invisible)
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
528 outside-staff-interface
533 (after-line-breaking . ,ly:chord-name::after-line-breaking)
536 (stencil . ,ly:text-interface::print)
537 (extra-spacing-height . (0.2 . -0.2))
538 (extra-spacing-width . (-0.5 . 0.5))
540 (Y-extent . ,grob::always-Y-extent-from-stencil)
541 (meta . ((class . Item)
542 (interfaces . (chord-name-interface
544 outside-staff-interface
545 rhythmic-grob-interface
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)
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
576 pure-from-neighbor-interface
577 staff-symbol-referencer-interface))))))
581 (break-visibility . ,(grob::inherit-parent-property
582 X 'break-visibility))
583 (clef-alignments . ((G . (-0.2 . 0.1))
586 (color . ,(grob::inherit-parent-property
588 (font-shape . italic)
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
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
603 outside-staff-interface
604 self-alignment-interface
605 side-position-interface
610 (cross-staff . ,ly:cluster::calc-cross-staff)
611 (minimum-length . 0.0)
613 (springs-and-rods . ,ly:spanner::set-spacing-rods)
614 (stencil . ,ly:cluster::print)
616 (meta . ((class . Spanner)
617 (interfaces . (cluster-interface))))))
619 (ClusterSpannerBeacon
621 (Y-extent . ,ly:cluster-beacon::height)
622 (meta . ((class . Item)
623 (interfaces . (cluster-beacon-interface
624 rhythmic-grob-interface))))))
628 (avoid-slur . outside)
631 (extra-spacing-width . (+inf.0 . -inf.0))
633 (outside-staff-priority . 450)
635 (parent-alignment-X . #f)
636 (script-priority . 200)
637 (self-alignment-X . #f)
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
650 text-script-interface))))))
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)
660 (glyph-name . ,ly:clef::calc-glyph-name)
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
681 pure-from-neighbor-interface
682 staff-symbol-referencer-interface))))))
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)
692 (glyph-name . ,ly:clef::calc-glyph-name)
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
713 pure-from-neighbor-interface
714 staff-symbol-referencer-interface))))))
718 (break-align-symbol . custos)
719 (break-visibility . ,end-of-line-visible)
720 (neutral-direction . ,DOWN)
723 (first-note . (minimum-fixed-space . 0.0))
724 (right-edge . (extra-space . 0.1))))
725 (stencil . ,ly:custos::print)
727 (Y-offset . ,staff-symbol-referencer::callback)
728 (meta . ((class . Item)
729 (interfaces . (break-aligned-interface
732 staff-symbol-referencer-interface))))))
737 (chord-dots-limit . 3)
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))))))
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
757 staff-symbol-referencer-interface))))))
761 (break-align-symbol . staff-bar)
762 (break-visibility . ,begin-of-line-invisible)
763 (dot-negative-kern . 0.75)
764 (font-encoding . fetaMusic)
766 (slash-negative-kern . 1.6)
768 (stencil . ,ly:percent-repeat-item-interface::double-percent)
769 (Y-extent . ,grob::always-Y-extent-from-stencil)
771 (meta . ((class . Item)
772 (interfaces . (break-aligned-interface
774 percent-repeat-interface
775 percent-repeat-item-interface))))))
777 (DoublePercentRepeatCounter
780 (font-encoding . fetaText)
783 (parent-alignment-X . ,CENTER)
784 (self-alignment-X . ,CENTER)
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
802 (dot-negative-kern . 0.75)
803 (font-encoding . fetaMusic)
804 (slash-negative-kern . 1.6)
806 (stencil . ,ly:percent-repeat-item-interface::beat-slash)
807 (Y-extent . ,grob::always-Y-extent-from-stencil)
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))))))
819 (cross-staff . ,ly:side-position-interface::calc-cross-staff)
821 (minimum-space . 1.2)
822 (outside-staff-priority . 250)
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
836 dynamic-line-spanner-interface
837 outside-staff-interface
838 side-position-interface))))))
845 (direction . ,ly:script-interface::calc-direction)
846 (extra-spacing-width . (+inf.0 . -inf.0))
847 (font-encoding . fetaText)
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
864 outside-staff-interface
866 self-alignment-interface
871 (before-line-breaking . ,dynamic-text-spanner::before-line-breaking)
872 (bound-details . ((right . ((attach-dir . ,LEFT)
876 (right-broken . ((attach-dir . ,RIGHT)
880 (left . ((attach-dir . ,LEFT)
882 (stencil-offset . (-0.75 . -0.5))
885 (left-broken . ((attach-dir . ,RIGHT)
888 (dash-fraction . 0.2)
891 ;; rather ugh with NCSB
892 ;; (font-series . bold)
893 (font-shape . italic)
895 ;; need to blend with dynamic texts.
898 (left-bound-info . ,ly:line-spanner::calc-left-bound-info-and-text)
900 (minimum-length . 2.0)
901 ;; make sure the spanner doesn't get too close to notes
902 (minimum-Y-extent . (-1 . 1))
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
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
927 (bound-details . ((left . ((Y . 0)
933 (attach-dir . ,RIGHT)
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)
941 (stencil . ,ly:line-spanner::print)
943 (Y-offset . ,side-position-interface::y-aligned-side)
944 (meta . ((class . Spanner)
945 (interfaces . (episema-interface
948 line-spanner-interface
949 side-position-interface))))))
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.
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)
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
977 outside-staff-interface
978 self-alignment-interface
979 side-position-interface
981 text-script-interface))))))
986 (positioning-done . ,ly:fingering-column::calc-positioning-done)
988 (meta . ((class . Item)
989 (interfaces . (fingering-column-interface))))))
993 (glyph-name . ,ly:flag::glyph-name)
994 (stencil . ,ly:flag::print)
995 (transparent . ,(grob::inherit-parent-property
997 (color . ,(grob::inherit-parent-property
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))))))
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))
1016 (footnote-text . ,(grob::calc-property-by-copy 'footnote-text))
1017 (stencil . ,ly:balloon-interface::print)
1018 (text . ,(grob::calc-property-by-copy 'text))
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
1027 text-interface))))))
1031 (annotation-balloon . #f)
1032 (annotation-line . #t)
1033 (automatically-numbered . ,(grob::calc-property-by-copy 'automatically-numbered))
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))
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
1046 footnote-spanner-interface
1048 text-interface))))))
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
1061 fret-diagram-interface
1062 outside-staff-interface
1063 rhythmic-grob-interface))))))
1068 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time)
1069 (bound-details . ((right . ((attach-dir . ,LEFT)
1070 (end-on-accidental . #t)
1073 (left . ((attach-dir . ,RIGHT)
1078 (cross-staff . ,ly:line-spanner::calc-cross-staff)
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)
1084 (stencil . ,ly:line-spanner::print)
1086 (vertical-skylines . ,grob::unpure-vertical-skylines-from-stencil)
1089 (zigzag-width . 0.75)
1090 (meta . ((class . Spanner)
1091 (interfaces . (glissando-interface
1093 line-spanner-interface
1094 unbreakable-spanner-interface))))))
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))))))
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))))))
1120 (X-extent . (0 . 0))
1121 (Y-extent . (0 . 0))
1122 (meta . ((class . Item)
1123 (interfaces . (grid-point-interface))))))
1128 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time)
1129 (bound-padding . 1.0)
1130 (broken-bound-padding . ,ly:hairpin::broken-bound-padding)
1132 (grow-direction . ,hairpin::calc-grow-direction)
1134 (minimum-length . 2.0)
1135 (self-alignment-Y . ,CENTER)
1136 (springs-and-rods . ,ly:spanner::set-spacing-rods)
1137 (stencil . ,ly:hairpin::print)
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
1147 outside-staff-interface
1148 self-alignment-interface
1149 spanner-interface))))))
1153 (bracket-flare . (0.5 . 0.5))
1154 (connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors)
1158 (staff-padding . 0.2)
1159 (stencil . ,ly:horizontal-bracket::print)
1161 (Y-offset . ,side-position-interface::y-aligned-side)
1162 (meta . ((class . Spanner)
1163 (interfaces . (horizontal-bracket-interface
1165 outside-staff-interface
1166 side-position-interface
1167 spanner-interface))))))
1169 (HorizontalBracketText
1171 (direction . ,ly:horizontal-bracket-text::calc-direction)
1174 (parent-alignment-X . ,CENTER)
1175 (self-alignment-X . ,CENTER)
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))))))
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))))))
1207 (extra-spacing-width . (+inf.0 . -inf.0))
1208 (outside-staff-priority . 500)
1210 (parent-alignment-X . #f)
1211 (self-alignment-X . ,LEFT)
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))))))
1228 (break-align-symbol . key-cancellation)
1229 (break-visibility . ,begin-of-line-invisible)
1230 (glyph-name-alist . ,cancellation-glyph-name-alist)
1232 (flat-positions . (2 3 4 2 1 2 1))
1233 (sharp-positions . (4 5 4 2 3 2 3))
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
1253 key-cancellation-interface
1254 key-signature-interface
1255 pure-from-neighbor-interface
1256 staff-symbol-referencer-interface))))))
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)
1267 (flat-positions . (2 3 4 2 1 2 1))
1268 (sharp-positions . (4 5 4 2 3 2 3))
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
1286 key-signature-interface
1287 pure-from-neighbor-interface
1288 staff-symbol-referencer-interface))))))
1292 (springs-and-rods . ,ly:spanner::set-spacing-rods)
1293 (stencil . ,ly:kievan-ligature::print)
1295 (meta . ((class . Spanner)
1296 (interfaces . (font-interface
1297 kievan-ligature-interface))))))
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)
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))))))
1315 (LaissezVibrerTieColumn
1317 (head-direction . ,ly:semi-tie-column::calc-head-direction)
1318 (positioning-done . ,ly:semi-tie-column::calc-positioning-done)
1321 (meta . ((class . Item)
1322 (interfaces . (semi-tie-column-interface))))))
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)
1334 (meta . ((class . Spanner)
1335 (interfaces . (ledger-line-spanner-interface))))))
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)
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))
1357 (X-extent . (0 . 0))
1358 (Y-extent . (0 . 0))
1359 (meta . ((class . Item)
1360 (interfaces . (break-aligned-interface))))))
1364 ;; ugh. A ligature bracket is totally different from
1365 ;; a tuplet bracket.
1367 (bracket-visibility . #t)
1368 (connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors)
1370 (edge-height . (0.7 . 0.7))
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)
1377 (X-positions . ,ly:tuplet-bracket::calc-x-positions)
1378 (meta . ((class . Spanner)
1379 (interfaces . (line-interface
1380 tuplet-bracket-interface))))))
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))))))
1394 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time)
1395 (dash-period . 10.0)
1398 (minimum-distance . 0.1)
1399 (minimum-length . 0.3)
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)
1405 (Y-extent . (0 . 0))
1406 (meta . ((class . Spanner)
1407 (interfaces . (font-interface
1408 lyric-hyphen-interface
1410 spanner-interface))))))
1414 (minimum-distance . 0.45)
1416 (springs-and-rods . ,ly:lyric-hyphen::set-spacing-rods)
1419 (meta . ((class . Spanner)
1420 (interfaces . (lyric-hyphen-interface
1421 spanner-interface))))))
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)
1431 (parent-alignment-X . ())
1432 (self-alignment-X . ,CENTER)
1433 (stencil . ,lyric-text::print)
1434 (text . ,(grob::calc-property-by-copy 'text))
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))))))
1452 (font-encoding . fetaText)
1454 (outside-staff-horizontal-padding . 0.5)
1455 (outside-staff-priority . 750)
1456 (self-alignment-X . ,CENTER)
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))))))
1477 (stencil . ,ly:measure-grouping::print)
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))))))
1487 (neutral-direction . ,DOWN)
1488 (meta . ((class . Item)
1489 (interfaces . (melody-spanner-interface))))))
1493 (springs-and-rods . ,ly:spanner::set-spacing-rods)
1494 (stencil . ,ly:mensural-ligature::print)
1496 (meta . ((class . Spanner)
1497 (interfaces . (font-interface
1498 mensural-ligature-interface))))))
1502 (after-line-breaking . ,ly:side-position-interface::move-to-extremal-staff)
1503 (break-visibility . ,end-of-line-invisible)
1505 (extra-spacing-width . (+inf.0 . -inf.0))
1506 (flag-style . default)
1507 (outside-staff-horizontal-padding . 0.2)
1508 (outside-staff-priority . 1000)
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
1522 metronome-mark-interface
1523 outside-staff-interface
1524 self-alignment-interface
1525 side-position-interface
1526 text-interface))))))
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
1551 staff-symbol-referencer-interface))))))
1553 (MultiMeasureRestNumber
1555 (bound-padding . 1.0)
1557 (font-encoding . fetaText)
1559 (parent-alignment-X . ,CENTER)
1560 (self-alignment-X . ,CENTER)
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))))))
1577 (MultiMeasureRestText
1580 (outside-staff-priority . 450)
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))))))
1600 (NonMusicalPaperColumn
1602 (allow-loose-spacing . #t)
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:
1608 (full-measure-extra-space . 1.0)
1609 (horizontal-skylines . ,ly:separation-item::calc-skylines)
1610 ;; (stencil . ,ly:paper-column::print)
1612 (keep-inside-line . #t)
1613 ;; used by Paper_column::print when debugging columns:
1615 (line-break-permission . allow)
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
1624 paper-column-interface
1625 separation-item-interface
1626 spaceable-grob-interface))))))
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))))))
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))))))
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
1674 ligature-head-interface
1675 mensural-ligature-interface
1677 rhythmic-grob-interface
1678 rhythmic-head-interface
1679 staff-symbol-referencer-interface
1680 vaticana-ligature-interface))))))
1684 (stencil . ,ly:text-interface::print)
1685 (Y-extent . ,grob::always-Y-extent-from-stencil)
1686 (meta . ((class . Item)
1687 (interfaces . (font-interface
1689 text-interface))))))
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))))))
1705 (dash-fraction . 0.3)
1707 (edge-height . (0 . 0.8))
1708 (font-shape . italic)
1709 (minimum-length . 0.3)
1710 (outside-staff-priority . 400)
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
1722 outside-staff-interface
1723 ottava-bracket-interface
1724 side-position-interface
1725 text-interface))))))
1730 (allow-loose-spacing . #t)
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:
1736 (horizontal-skylines . ,ly:separation-item::calc-skylines)
1737 (keep-inside-line . #t)
1738 ;; used by Paper_column::print when debugging columns:
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
1750 paper-column-interface
1751 separation-item-interface
1752 spaceable-grob-interface))))))
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))))))
1771 (dot-negative-kern . 0.75)
1772 (font-encoding . fetaMusic)
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)
1778 (meta . ((class . Spanner)
1779 (interfaces . (font-interface
1780 multi-measure-rest-interface
1781 percent-repeat-interface))))))
1783 (PercentRepeatCounter
1786 (font-encoding . fetaText)
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))))))
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)
1813 (springs-and-rods . ,ly:spanner::set-spacing-rods)
1814 (stencil . ,ly:slur::print)
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))))))
1822 ;; an example of a text spanner
1825 (bound-padding . 1.0)
1826 (bracket-flare . (0.5 . 0.5))
1828 (edge-height . (1.0 . 1.0))
1829 (shorten-pair . (0.0 . 0.0))
1830 (stencil . ,ly:piano-pedal-bracket::print)
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))))))
1842 (after-line-breaking . ,ly:side-position-interface::move-to-extremal-staff)
1844 (break-align-symbols . (staff-bar key-signature clef))
1845 (break-visibility . ,end-of-line-invisible)
1847 (extra-spacing-width . (+inf.0 . -inf.0))
1850 (outside-staff-horizontal-padding . 0.2)
1851 (outside-staff-priority . 1500)
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
1863 outside-staff-interface
1864 self-alignment-interface
1865 side-position-interface
1866 text-interface))))))
1870 (slash-negative-kern . 0.85)
1872 (stencil . ,ly:percent-repeat-item-interface::beat-slash)
1873 (Y-extent . ,grob::always-Y-extent-from-stencil)
1875 (meta . ((class . Item)
1876 (interfaces . (percent-repeat-interface
1877 percent-repeat-item-interface
1878 rhythmic-grob-interface))))))
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)
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))))))
1898 (head-direction . ,ly:semi-tie-column::calc-head-direction)
1899 (positioning-done . ,ly:semi-tie-column::calc-positioning-done)
1902 (meta . ((class . Item)
1903 (interfaces . (semi-tie-column-interface))))))
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
1920 rhythmic-grob-interface
1921 rhythmic-head-interface
1922 staff-symbol-referencer-interface))))))
1926 (minimum-distance . 0.75)
1927 (positioning-done . ,ly:rest-collision::calc-positioning-done)
1928 (meta . ((class . Item)
1929 (interfaces . (rest-collision-interface))))))
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)
1943 ;; padding set in script definitions.
1944 (slur-padding . 0.2)
1945 (staff-padding . 0.25)
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
1956 self-alignment-interface
1957 side-position-interface))))))
1961 (before-line-breaking . ,ly:script-column::before-line-breaking)
1962 (meta . ((class . Item)
1963 (interfaces . (script-column-interface))))))
1967 (before-line-breaking . ,ly:script-column::row-before-line-breaking)
1968 (meta . ((class . Item)
1969 (interfaces . (script-column-interface))))))
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)
1982 (springs-and-rods . ,ly:spanner::set-spacing-rods)
1983 (stencil . ,ly:slur::print)
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))))))
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))))))
2009 (SostenutoPedalLineSpanner
2013 (minimum-space . 1.0)
2014 (outside-staff-priority . 1000)
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))))))
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))))))
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)
2049 (glyph-name . ,ly:span-bar::calc-glyph-name)
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
2058 span-bar-interface))))))
2062 (X-extent . ,(grob::inherit-parent-property
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))))))
2075 (staff-staff-spacing . ((basic-distance . 9)
2076 (minimum-distance . 7)
2078 (stretchability . 5)))
2079 (staffgroup-staff-spacing . ((basic-distance . 10.5)
2080 (minimum-distance . 8)
2082 (stretchability . 9)))
2083 (meta . ((class . Spanner)
2084 (interfaces . (staff-grouper-interface))))))
2089 (stem-spacing-correction . 0.4)
2090 (meta . ((class . Item)
2091 (interfaces . (spacing-interface
2092 staff-spacing-interface))))))
2096 (break-align-symbols . (staff-bar break-alignment))
2098 (ledger-line-thickness . (1.0 . 0.1))
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))))))
2108 (font-series . bold)
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))))))
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)
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))
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.
2137 ;; FIXME this should come from 'lengths
2138 (beamed-lengths . (3.26 3.5 3.6))
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))
2144 ;; The 'extreme case' minima
2145 (beamed-extreme-minimum-free-lengths . (2.0 1.25))
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))
2154 ;; We use the normal minima as minimum for the ideal lengths,
2155 ;; and the extreme minima as abolute minimum length.
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)
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))))))
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 . ())))))
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))))))
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)
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
2222 string-number-interface
2224 text-script-interface))))))
2228 (digit-names . #("p" "i" "m" "a" "x"))
2229 (font-shape . italic)
2230 (font-size . -4) ; don't overlap when next to heads.
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
2247 text-script-interface))))))
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))))))
2266 (SustainPedalLineSpanner
2270 (minimum-space . 1.0)
2271 (outside-staff-priority . 1000)
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))))))
2289 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights)
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
2305 outside-staff-axis-group-interface))))))
2309 (collapse-height . 5.0)
2313 (padding . -0.1) ;; bar must cover rounded ending of staff line.
2314 (stencil . ,ly:system-start-delimiter::print)
2317 (X-offset . ,ly:side-position-interface::x-aligned-side)
2318 (meta . ((class . Spanner)
2319 (interfaces . (side-position-interface
2320 system-start-delimiter-interface))))))
2324 (collapse-height . 5.0)
2326 (font-encoding . fetaBraces)
2328 (stencil . ,ly:system-start-delimiter::print)
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))))))
2338 (collapse-height . 5.0)
2341 (stencil . ,ly:system-start-delimiter::print)
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))))))
2352 (collapse-height . 5.0)
2354 (stencil . ,ly:system-start-delimiter::print)
2355 (style . line-bracket)
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))))))
2366 (details . ((cautionary-properties . ((angularity . 0.4)
2367 (half-thickness . 0.075)
2369 (procedure . ,parenthesize-stencil)
2372 (harmonic-properties . ((angularity . 2)
2373 (half-thickness . 0.075)
2375 (procedure . ,parenthesize-stencil)
2377 (repeat-tied-properties . ((note-head-visible . #t)
2378 (parenthesize . #t)))
2379 (tied-properties . ((break-visibility . ,begin-of-line-visible)
2380 (parenthesize . #t)))))
2382 (direction . ,CENTER)
2383 (duration-log . ,note-head::calc-duration-log)
2384 (font-series . bold)
2386 (parenthesis-friends . (dot))
2387 (stem-attachment . (0.0 . 1.35))
2388 (stencil . ,tab-note-head::print)
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
2396 rhythmic-grob-interface
2397 rhythmic-head-interface
2398 staff-symbol-referencer-interface
2399 tab-note-head-interface
2400 text-interface))))))
2404 (avoid-slur . around)
2407 (extra-spacing-width . (+inf.0 . -inf.0))
2408 (outside-staff-horizontal-padding . 0.2)
2409 (outside-staff-priority . 450)
2411 ;; sync with Fingering ?
2414 (parent-alignment-X . #f)
2415 (script-priority . 200)
2416 ;; self-alignment cannot be LEFT because of fingering diagrams.
2417 (self-alignment-X . #f)
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
2434 text-script-interface))))))
2438 (bound-details . ((left . ((Y . 0)
2440 (attach-dir . ,LEFT)
2442 (left-broken . ((attach-dir . ,RIGHT)))
2447 (dash-fraction . 0.2)
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)
2455 (staff-padding . 0.8)
2456 (stencil . ,ly:line-spanner::print)
2457 (style . dashed-line)
2458 (Y-offset . ,side-position-interface::y-aligned-side)
2460 (meta . ((class . Spanner)
2461 (interfaces . (font-interface
2463 line-spanner-interface
2464 outside-staff-interface
2465 side-position-interface))))))
2469 (avoid-slur . inside)
2470 (control-points . ,ly:tie::calc-control-points)
2472 ;; for a full list, see tie-details.cc
2474 (center-staff-line-clearance . 0.6)
2475 (tip-staff-line-clearance . 0.45)
2476 (note-head-gap . 0.2)
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)))
2493 (direction . ,ly:tie::calc-direction)
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)
2501 (meta . ((class . Spanner)
2502 (interfaces . (tie-interface))))))
2506 (before-line-breaking . ,ly:tie-column::before-line-breaking)
2507 (positioning-done . ,ly:tie-column::calc-positioning-done)
2510 (meta . ((class . Spanner)
2511 (interfaces . (tie-column-interface))))))
2515 (avoid-slur . inside)
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))
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)
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
2537 pure-from-neighbor-interface
2538 time-signature-interface))))))
2540 (TrillPitchAccidental
2544 (glyph-name-alist . ,standard-alteration-glyph-name-alist)
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
2553 inline-accidental-interface
2554 side-position-interface
2555 trill-pitch-accidental-interface))))))
2560 (direction . ,RIGHT)
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
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
2575 parentheses-interface
2576 side-position-interface))))))
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
2588 pitched-trill-interface
2589 rhythmic-head-interface
2590 staff-symbol-referencer-interface))))))
2594 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time)
2595 (bound-details . ((left . ((text . ,(make-musicglyph-markup "scripts.trill"))
2597 (stencil-offset . (-0.5 . -1))
2599 (attach-dir . ,CENTER)
2601 (left-broken . ((end-on-note . #t)))
2605 (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
2606 (outside-staff-priority . 50)
2608 (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
2610 (staff-padding . 1.0)
2611 (stencil . ,ly:line-spanner::print)
2613 (Y-offset . ,side-position-interface::y-aligned-side)
2614 (meta . ((class . Spanner)
2615 (interfaces . (font-interface
2617 line-spanner-interface
2618 outside-staff-interface
2619 side-position-interface
2620 trill-spanner-interface))))))
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)
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)
2636 (vertical-skylines . ,grob::unpure-vertical-skylines-from-stencil)
2637 (X-positions . ,ly:tuplet-bracket::calc-x-positions)
2639 (meta . ((class . Spanner)
2640 (interfaces . (line-interface
2641 outside-staff-interface
2642 tuplet-bracket-interface))))))
2646 (avoid-slur . inside)
2647 (cross-staff . ,ly:tuplet-number::calc-cross-staff)
2648 (direction . ,tuplet-number::calc-direction)
2649 (font-shape . italic)
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
2660 tuplet-number-interface))))))
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))))))
2681 (UnaCordaPedalLineSpanner
2685 (minimum-space . 1.0)
2686 (outside-staff-priority . 1000)
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))))))
2706 (stencil . ,ly:vaticana-ligature::print)
2708 (meta . ((class . Spanner)
2709 (interfaces . (font-interface
2710 vaticana-ligature-interface))))))
2715 (positioning-done . ,ly:align-interface::align-to-ideal-distances)
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))))))
2729 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights)
2731 (default-staff-staff-spacing . ((basic-distance . 9)
2732 (minimum-distance . 8)
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)))
2749 (interfaces . (axis-group-interface
2750 hara-kiri-group-spanner-interface
2751 outside-staff-axis-group-interface))))))
2755 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time)
2756 (bound-details . ((right . ((attach-dir . ,CENTER)
2759 (left . ((attach-dir . ,CENTER)
2765 (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
2767 (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
2768 (stencil . ,ly:line-spanner::print)
2772 (meta . ((class . Spanner)
2773 (interfaces . (line-interface
2774 line-spanner-interface))))))
2778 (baseline-skip . 1.7)
2780 (edge-height . (2.0 . 2.0)) ;; staff-space;
2781 (font-encoding . fetaText)
2783 (shorten-pair . ,ly:volta-bracket::calc-shorten-pair)
2784 (stencil . ,ly:volta-bracket-interface::print)
2785 (thickness . 1.6) ;; line-thickness
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
2793 side-position-interface
2795 volta-bracket-interface
2796 volta-interface))))))
2798 (VoltaBracketSpanner
2800 (after-line-breaking . ,ly:side-position-interface::move-to-extremal-staff)
2804 (outside-staff-priority . 600)
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))))))
2821 (define (completize-grob-entry x)
2822 "Transplant assoc key into 'name entry of 'meta of X. Set interfaces for Item, Spanner etc.
2824 ;; (display (car x))
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))
2831 (assoc-get 'interfaces meta-entry)))
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))))
2845 (ly:warning "Unknown class ~a" class)))
2847 (set! ifaces-entry (uniq-list (sort ifaces-entry symbol<?)))
2848 (set! ifaces-entry (cons 'grob-interface ifaces-entry))
2850 (set! meta-entry (assoc-set! meta-entry 'name name-sym))
2851 (set! meta-entry (assoc-set! meta-entry 'interfaces
2853 (set! grob-entry (assoc-set! grob-entry 'meta meta-entry))
2854 (cons name-sym grob-entry)))
2856 (set! all-grob-descriptions (map completize-grob-entry all-grob-descriptions))
2858 ;; (display (map pair? all-grob-descriptions))
2860 ;; make sure that \property Foo.Bar =\turnOff doesn't complain
2862 (for-each (lambda (x)
2863 ;; (display (car x)) (newline)
2865 (set-object-property! (car x) 'translation-type? ly:grob-properties?)
2866 (set-object-property! (car x) 'is-grob? #t))
2867 all-grob-descriptions)
2869 (set! all-grob-descriptions (sort all-grob-descriptions alist<?))