]> git.donarmstrong.com Git - lilypond.git/blob - scm/define-grobs.scm
(all-grob-descriptions): add LyricSpace
[lilypond.git] / scm / define-grobs.scm
1 ;;;; define-grobs.scm --
2 ;;;;
3 ;;;;  source file of the GNU LilyPond music typesetter
4 ;;;;
5 ;;;; (c) 1998--2005 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
16 ;;; todo:: reorder sensibly.
17
18 (define-public all-grob-descriptions
19   `(
20     (Accidental
21      . (
22         (avoid-slur . inside)
23         (cautionary-style . parentheses)
24
25         (stencil . ,Accidental_interface::print)
26         (after-line-breaking
27          . ,Accidental_interface::after_line_breaking)
28                                         
29         (meta . ((class . Item)
30                  (interfaces . (accidental-interface
31                                 font-interface))))))
32     
33     (AccidentalSuggestion
34      . (
35         (stencil . ,Accidental_interface::print)
36         (X-offset . ,(ly:make-simple-closure
37                       `(,+
38                         ,(ly:make-simple-closure (list Self_alignment_interface::centered_on_x_parent))
39                         ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
40         (self-alignment-X . ,CENTER)
41         (cautionary . #t)
42         (cautionary-style . smaller)
43         (Y-offset . ,Side_position_interface::y_aligned_side)
44         (cautionary-style . parentheses)
45         (direction . ,UP)
46         (staff-padding . 0.25)
47         (script-priority . 0)
48         (side-axis . ,X)
49         (meta . ((class . Item)
50                  (interfaces . (side-position-interface
51                                 script-interface
52                                 accidental-interface
53                                 accidental-suggestion-interface
54                                 self-alignment-interface
55                                 font-interface))))))
56     (AccidentalPlacement
57      . (
58         (left-padding . 0.2)
59
60         (positioning-done . ,Accidental_placement::calc_positioning_done)
61         (X-extent . ,Axis_group_interface::width)                     
62         
63         ;; this is quite small, but it is very ugly to have
64         ;; accs closer to the previous note than to the next one.
65         (right-padding . 0.15)
66         (meta . ((class . Item)
67                  (interfaces . (accidental-placement-interface))))))
68     (Ambitus
69      . (
70         (axes . (0 1))
71         (X-extent . ,Axis_group_interface::width)
72         (X-extent . ,Axis_group_interface::height)
73
74         (space-alist . (
75                         (clef . (extra-space . 0.5))
76                         (key-signature . (extra-space . 0.0))
77                         (staff-bar . (extra-space . 0.0))
78                         (time-signature . (extra-space . 0.0))
79                         (first-note . (fixed-space . 0.0))))
80         (breakable . #t)
81         (break-align-symbol . ambitus)
82         (break-visibility . ,begin-of-line-visible)
83         (meta . ((class . Item)
84                  (interfaces . (axis-group-interface
85                                 break-aligned-interface
86                                 ambitus-interface))))))
87
88     (AmbitusLine
89      . (
90
91         (stencil . ,Ambitus::print)
92
93         (join-heads . #t)
94         (thickness . 2)
95         (X-offset . ,Self_alignment_interface::centered_on_x_parent)
96
97         (meta . ((class . Item)
98                  (interfaces . (ambitus-interface
99                                 staff-symbol-referencer-interface
100                                 font-interface))))))
101     (AmbitusAccidental
102      . (
103         (font-family . music)
104         (padding . 0.5)
105         (X-offset . ,Side_position_interface::x_aligned_side)
106         (direction . -1)
107         (cautionary-style . parentheses)
108
109         (stencil . ,Accidental_interface::print)
110         (after-line-breaking . ,Accidental_interface::after_line_breaking)
111         (side-axis . ,X)
112         
113         (meta . ((class . Item)
114                  (interfaces . (item-interface
115                                 accidental-interface
116                                 break-aligned-interface
117                                 side-position-interface
118                                 font-interface))))))
119
120     (AmbitusNoteHead
121      . (
122         (duration-log . 2)
123
124         (stencil . ,Note_head::print)
125         (glyph-name . ,note-head::calc-glyph-name)
126         
127         (Y-offset . ,Staff_symbol_referencer::callback)
128         (meta . ((class . Item)
129                  (interfaces . (font-interface
130                                 note-head-interface
131                                 ambitus-interface
132                                 staff-symbol-referencer-interface
133                                 rhythmic-head-interface
134                                 ledgered-interface))))))
135
136     (Arpeggio
137      . (
138
139         (X-extent . ,Arpeggio::width)
140         (stencil . ,Arpeggio::print)
141
142         (Y-offset . ,Staff_symbol_referencer::callback)
143         (X-offset . ,Side_position_interface::x_aligned_side)
144         (direction . -1)
145         (padding . 0.5)
146         (side-axis . ,X)
147         (staff-position . 0.0)
148         (meta . ((class . Item)
149                  (interfaces . (arpeggio-interface
150                                 staff-symbol-referencer-interface
151                                 side-position-interface
152                                 font-interface))))))
153
154     (BarLine
155      . (
156         (break-align-symbol . staff-bar)
157         (glyph . "|")
158         (layer . 0)
159         (break-visibility . ,all-visible)
160         (breakable . #t)
161
162         (stencil . ,Bar_line::print)
163         (glyph-name . ,bar-line::calc-glyph-name)
164         (bar-size .  ,Bar_line::calc_bar_size)
165         
166         (space-alist . (
167                         (time-signature . (extra-space . 0.75))
168                         (custos . (minimum-space . 2.0))
169                         (clef . (minimum-space . 1.0))
170                         (key-signature . (extra-space . 1.0))
171                         (key-cancellation . (extra-space . 1.0))
172                         (first-note . (fixed-space . 1.3))
173                         (next-note . (semi-fixed-space . 1.3))
174                         (right-edge . (extra-space . 0.0))))
175
176         ;;
177         ;; Ross. page 151 lists other values, we opt for a leaner look
178         ;;
179         ;; TODO:
180         ;; kern should scale with linethickness too.
181         (kern . 3.0)
182         (thin-kern . 3.0)
183         (hair-thickness . 1.9)
184         (thick-thickness . 6.0)
185         (meta . ((class . Item)
186                  (interfaces . (bar-line-interface
187                                 break-aligned-interface
188                                 font-interface))))))
189
190     (BarNumber
191      . (
192         (stencil . ,Text_interface::print)
193         (breakable . #t)
194         (break-visibility . ,begin-of-line-visible)
195         (padding . 1.0)
196         (direction . 1)
197         (font-family . roman)
198         (font-size . -2)
199         (Y-offset . ,Side_position_interface::y_aligned_side)
200         (side-axis . ,Y)
201         (X-offset . ,Self_alignment_interface::x_aligned_on_self)
202         (self-alignment-X . 1)
203
204         (meta .
205               ((class . Item)
206                (interfaces . (side-position-interface
207                               text-interface
208                               self-alignment-interface
209                               font-interface
210                               break-aligned-interface))))
211         ))
212
213     (BassFigure
214      . (
215         ;
216         (stencil . ,Text_interface::print)
217
218         (meta . ((class . Item)
219                  (interfaces . (text-interface
220                                 rhythmic-grob-interface
221                                 bass-figure-interface
222                                 font-interface))))))
223     (BassFigureBracket
224      . (
225         ;
226         (stencil . ,Enclosing_bracket::print)
227
228         (edge-height . (0.2 . 0.2))
229         (meta . ((class . Item)
230                  (interfaces . (enclosing-bracket-interface)) ))
231         ))
232     (BassFigureContinuation
233      . (
234
235         (stencil . ,Figured_bass_continuation::print)
236
237         (Y-offset . ,Figured_bass_continuation::center_on_figures)
238         (meta . ((class . Spanner)
239                  (interfaces . (figured-bass-continuation-interface))
240                  ))))
241     (BassFigureLine
242      . (
243         (axes . (,Y))
244
245         (Y-extent . ,Axis_group_interface::height)
246
247         (meta . ((class . Spanner)
248                  (interfaces . (axis-group-interface
249                                 ))))))
250
251     (BassFigureAlignment
252      . (
253         (axes . (,Y))
254         (threshold . (2 . 1000))
255
256         (positioning-done . ,Align_interface::calc_positioning_done)
257         (Y-extent . ,Axis_group_interface::height)
258                                         
259         (stacking-dir . -1)
260         (meta . ((class . Spanner)
261                  (interfaces . (align-interface
262                                 axis-group-interface))))))
263
264     (Beam
265      . (
266         ;; todo: clean this up a bit: the list is getting
267         ;; rather long.
268         (gap . 0.8)
269         (positions .  ,(ly:make-simple-closure
270                         (ly:make-simple-closure
271                          (list chain-grob-member-functions
272                            `(,cons 0 0)
273                            Beam::calc_least_squares_positions
274                            Beam::slope_damping
275                            Beam::shift_region_to_valid
276                            Beam::quanting
277                            ))))
278
279         ;; this is a hack to set stem lengths, if positions is set.
280         (quantized-positions . ,Beam::set_stem_lengths)
281         (concaveness . ,Beam::calc_concaveness)
282         (direction . ,Beam::calc_direction)
283         (shorten . ,Beam::calc_stem_shorten)
284         (beaming . ,Beam::calc_beaming)
285         (stencil . ,Beam::print)
286
287         ;; TODO: should be in SLT.
288         (thickness . 0.48) ; in staff-space
289         (neutral-direction . -1)
290
291         ;; Whe have some unreferenced problems here.
292         ;;
293         ;; If we shorten beamed stems less than normal stems (1 staffspace),
294         ;; or high order less than 8th beams, patterns like
295         ;;     c''4 [c''8 c''] c''4 [c''16 c]
296         ;; are ugly (different stem lengths).
297         ;;
298         ;; But if we shorten 16th beams as much as 8th beams, a single
299         ;; forced 16th beam looks *very* short.
300
301         ;; We choose to shorten 8th beams the same as single stems,
302         ;; and high order beams less than 8th beams, so that all
303         ;; isolated shortened beams look nice and a bit shortened,
304         ;; sadly possibly breaking patterns with high order beams.
305         (beamed-stem-shorten . (1.0 0.5 0.25))
306         (damping . 1)
307         (auto-knee-gap . 5.5)
308
309         ;; only for debugging.
310         (font-family . roman)
311         (meta . ((class . Spanner)
312                  (interfaces . (staff-symbol-referencer-interface
313                                 beam-interface))))))
314
315     (BreakAlignment
316      . (
317         (breakable . #t)
318         (stacking-dir . 1)
319
320         (positioning-done . ,Break_align_interface::calc_positioning_done)
321         (X-extent . ,Axis_group_interface::width)
322                                         
323         (break-align-orders . ;; end of line
324                             #((instrument-name
325                                left-edge
326                                ambitus
327                                breathing-sign
328                                clef
329                                staff-bar
330                                key-cancellation
331                                key-signature
332                                time-signature
333                                custos)
334
335                               ;; unbroken
336                               (instrument-name
337                                left-edge
338                                ambitus
339                                breathing-sign
340                                clef
341                                staff-bar
342                                key-cancellation
343                                key-signature
344                                staff
345                                time-signature custos)
346
347                               ;; begin of line
348                               (instrument-name
349                                left-edge
350                                ambitus
351                                breathing-sign
352                                clef
353                                key-cancellation
354                                key-signature
355                                staff-bar
356                                time-signature
357                                custos)))
358         (axes . (0))
359         (meta . ((class . Item)
360                  (interfaces . (break-alignment-interface
361                                 axis-group-interface))))))
362
363     (BreakAlignGroup
364      . (
365         (axes . (0))
366
367         (X-extent . ,Axis_group_interface::width)
368
369         (meta . ((class . Item)
370                  (interfaces . (break-aligned-interface
371                                 axis-group-interface))))))
372
373     (BreathingSign
374      . (
375         (break-align-symbol . breathing-sign)
376         (breakable . #t)
377         (space-alist . (
378                         (ambitus . (extra-space . 2.0))
379                         (custos . (minimum-space . 1.0))
380                         (key-signature . (minimum-space . 1.5))
381                         (time-signature . (minimum-space . 1.5))
382                         (staff-bar . (minimum-space . 1.5))
383                         (clef . (minimum-space . 2.0))
384                         (first-note . (fixed-space . 1.0)) ;huh?
385                         (right-edge . (extra-space . 0.1))))
386
387         (stencil . ,Text_interface::print)
388
389         (text . ,(make-musicglyph-markup "scripts.rcomma"))
390         (Y-offset . ,Breathing_sign::offset_callback)
391         (break-visibility . ,begin-of-line-invisible)
392         (meta . ((class . Item)
393                  (interfaces . (break-aligned-interface
394                                 breathing-sign-interface
395                                 text-interface
396                                 font-interface))))))
397
398     (Clef
399      . (
400
401         (stencil . ,Clef::print)
402         (glyph-name . ,Clef::calc_glyph_name)
403                                         
404         (breakable . #t)
405         (font-family . music)
406         (break-align-symbol . clef)
407         (break-visibility . ,begin-of-line-visible)
408         (space-alist . ((ambitus . (extra-space . 2.0))
409                         (staff-bar . (extra-space . 0.7))
410                         (key-cancellation . (minimum-space . 3.5))
411                         (key-signature . (minimum-space . 3.5))
412                         (time-signature . (minimum-space . 4.2))
413                         (first-note . (minimum-fixed-space . 5.0))
414                         (next-note . (extra-space . 0.5))
415                         (right-edge . (extra-space . 0.5))))
416         (Y-offset . ,Staff_symbol_referencer::callback)
417         (meta . ((class . Item)
418                  (interfaces . (clef-interface
419                                 staff-symbol-referencer-interface
420                                 font-interface
421                                 break-aligned-interface))))))
422
423     (ClusterSpannerBeacon
424      . (
425
426         (Y-extent . ,Cluster_beacon::height)
427
428         (meta . ((class . Item)
429                  (interfaces . (cluster-beacon-interface))))))
430
431     (ClusterSpanner
432      . (
433
434         (springs-and-rods . ,Spanner::set_spacing_rods)
435         (stencil . ,Cluster::print)
436
437
438         (minimum-length . 0.0)
439         (padding . 0.25)
440         (style . ramp)
441         (meta . ((class . Spanner)
442                  (interfaces . (cluster-interface))))))
443
444     (ChordName
445      . (
446
447         (stencil . ,Text_interface::print)
448         (after-line-breaking . ,Chord_name::after_line_breaking)
449         
450         (word-space . 0.0)
451         (font-family . sans)
452         (font-size . 1.5)
453         (meta . ((class . Item)
454                  (interfaces . (font-interface
455                                 rhythmic-grob-interface
456                                 text-interface
457                                 chord-name-interface
458                                 item-interface))))))
459
460     (CombineTextScript
461      . (
462
463         (stencil . ,Text_interface::print)
464
465         (no-spacing-rods . #t)
466         (Y-offset . ,Side_position_interface::y_aligned_side)
467         (X-offset . ,Self_alignment_interface::x_aligned_on_self)
468         (direction . 1)
469         (padding . 0.5)
470         (staff-padding . 0.5)
471         (script-priority . 200)
472         ;; todo: add X self alignment?
473         (baseline-skip . 2)
474         (side-axis . ,Y)
475         (font-series . bold)
476         (meta . ((class . Item)
477                  (interfaces . (text-script-interface
478                                 text-interface
479                                 side-position-interface
480                                 font-interface))))))
481
482     (Custos
483      . (
484         (break-align-symbol . custos)
485         (breakable . #t)
486
487         (stencil . ,Custos::print)
488
489         (break-visibility . ,end-of-line-visible)
490         (style . vaticana)
491         (neutral-direction . -1)
492         (Y-offset . ,Staff_symbol_referencer::callback)
493         (space-alist . (
494                         (first-note . (minimum-fixed-space . 0.0))
495                         (right-edge . (extra-space . 0.1))))
496         (meta . ((class . Item)
497                  (interfaces
498                   . (custos-interface
499                      staff-symbol-referencer-interface
500                      font-interface
501                      break-aligned-interface))))))
502
503     (DotColumn
504      . (
505         (axes . (0))
506         (direction . ,RIGHT)
507
508         (positioning-done . ,Dot_column::calc_positioning_done) 
509         (X-extent . ,Axis_group_interface::width)
510         
511         (X-offset . ,Dot_column::side_position)
512         (meta . ((class . Item)
513                  (interfaces . (dot-column-interface
514                                 axis-group-interface))))))
515
516     (Dots
517      . (
518
519         (stencil . ,Dots::print)
520
521         (dot-count . 1)
522         (meta . ((class . Item)
523                  (interfaces . (font-interface
524                                 staff-symbol-referencer-interface
525                                 dots-interface))))))
526
527     (DoublePercentRepeat
528      . (
529         (stencil . ,Percent_repeat_item_interface::double_percent)
530         (breakable . #t)
531         (slope . 1.0)
532         (font-encoding . fetaMusic)
533         (width . 2.0)
534         (thickness . 0.48)
535         (break-align-symbol . staff-bar)
536         (break-visibility . ,begin-of-line-invisible)
537         (meta . ((class . Item)
538                  (interfaces . (font-interface
539                                 break-aligned-interface
540                                 percent-repeat-interface))))))
541
542     (DoublePercentRepeatCounter
543      . (
544
545         (stencil . ,Text_interface::print)
546         (X-offset . ,(ly:make-simple-closure `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::centered_on_y_parent))
547                                                   ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
548         (Y-offset . ,Side_position_interface::y_aligned_side)
549         (font-encoding . fetaNumber)
550         (self-alignment-X . 0)
551         (font-size . -2) 
552         (direction . 1)
553         (padding . 0.2)
554         (staff-padding . 0.25)
555         (side-axis . ,Y)
556         (meta . ((class . Item)
557                  (interfaces . (side-position-interface
558                                 self-alignment-interface
559                                 percent-repeat-interface
560                                 font-interface
561                                 text-interface))))))
562     (DynamicLineSpanner
563      . (
564         (axes . (1))
565         (Y-offset . ,Side_position_interface::y_aligned_side)
566         (staff-padding . 0.1)
567         (padding . 0.6)
568         (avoid-slur . outside)
569         (slur-padding . 0.3)
570         (minimum-space . 1.2)
571         (direction . -1)
572         (side-axis . ,Y)
573
574         (Y-extent . ,Axis_group_interface::height)
575         (X-extent . ,Axis_group_interface::width)
576
577
578         (meta . ((class . Spanner)
579                  (interfaces . (axis-group-interface
580                                 dynamic-interface
581                                 dynamic-line-spanner-interface
582                                 side-position-interface))))))
583
584     (DynamicText
585      . (
586
587         ;; todo.
588
589         (stencil . ,Text_interface::print)
590         (direction . ,Script_interface::calc_direction)
591
592         (X-offset . ,Self_alignment_interface::x_aligned_on_self)
593         (self-alignment-X . 0)
594         (Y-offset . ,Self_alignment_interface::y_aligned_on_self)
595         (self-alignment-Y . 0)
596         (font-series . bold)
597         (font-encoding . fetaDynamic)
598         (font-shape . italic)
599         (no-spacing-rods . #t)
600         (script-priority . 100)
601         (meta . ((class . Item)
602                  (interfaces . (font-interface
603                                 text-interface
604                                 self-alignment-interface
605                                 dynamic-interface
606                                 script-interface))))))
607
608     (DynamicTextSpanner
609      . (
610
611         (stencil . ,Dynamic_text_spanner::print)
612
613         ;; rather ugh with NCSB
614         ;; (font-series . bold)
615         (font-shape . italic)
616         (style . dashed-line)
617
618         ;; need to blend with dynamic texts.
619         (font-size . 1)
620         (bound-padding . 0.75)
621         (dash-fraction . 0.2)
622         (dash-period . 3.0)
623         (meta . ((class . Spanner)
624                  (interfaces . (font-interface
625                                 text-interface
626                                 dynamic-interface
627                                 dynamic-text-spanner-interface
628                                 spanner-interface))))))
629
630     (Fingering
631      . (
632
633         ;; sync with TextScript (?)
634
635         (padding . 0.5)
636         (avoid-slur . around)
637         (slur-padding . 0.2)
638         (staff-padding . 0.5)
639         (self-alignment-X . 0)
640         (self-alignment-Y . 0)
641         (script-priority . 100)
642
643         (stencil . ,Text_interface::print)
644         (direction . ,Script_interface::calc_direction)
645
646         (font-encoding . fetaNumber)
647         (font-size . -5)                ; don't overlap when next to heads.
648         (meta . ((class . Item)
649                  (interfaces . (finger-interface
650                                 font-interface
651                                 text-script-interface
652                                 text-interface
653                                 side-position-interface
654                                 self-alignment-interface
655                                 item-interface))))))
656     (Glissando
657      . (
658         (style . line)
659         (gap . 0.5)
660         (zigzag-width . 0.75)
661         (breakable . #t)
662         (X-extent . #f)
663         (Y-extent . #f)
664
665         (stencil . ,Line_spanner::print)
666         (after-line-breaking . ,Line_spanner::after_line_breaking)
667         
668
669         (meta . ((class . Spanner)
670                  (interfaces . (line-interface
671                                 line-spanner-interface))))))
672
673     (GridPoint
674      . (
675         (X-extent . (0 . 0))
676         (Y-extent . (0 . 0))
677         (meta . ((class . Item)
678                  (interfaces . (grid-point-interface))))))
679
680     (GridLine
681      . (
682
683         (X-extent  . ,Grid_line_interface::width)
684         (stencil . ,Grid_line_interface::print)
685
686         (self-alignment-X . ,CENTER)
687         (X-offset . ,(ly:make-simple-closure
688                       `(,+  ,(ly:make-simple-closure (list Self_alignment_interface::centered_on_x_parent))
689                             ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
690         (layer . 0)
691         (meta . ((class . Item)
692                  (interfaces . (self-alignment-interface
693                                 grid-line-interface))))))
694
695     (Hairpin
696      . (
697
698
699         (stencil . ,Hairpin::print)
700         (springs-and-rods . ,Spanner::set_spacing_rods)
701         (after-line-breaking . ,Hairpin::after_line_breaking)
702
703         (thickness . 1.0)
704         (height . 0.6666)
705         (minimum-length . 2.0)
706         (bound-padding . 1.0)
707         (self-alignment-Y . 0)
708         (Y-offset . ,Self_alignment_interface::y_aligned_on_self)
709         (meta . ((class . Spanner)
710                  (interfaces . (hairpin-interface
711                                 line-interface
712                                 self-alignment-interface
713                                 dynamic-interface
714                                 spanner-interface))))))
715
716     (HorizontalBracket
717      . (
718         (thickness . 1.0)
719         (stencil . ,Horizontal_bracket::print)
720         (Y-offset . ,Side_position_interface::y_aligned_side)
721         (padding . 0.2)
722         (staff-padding . 0.2)
723         (direction . -1)
724         (side-axis . ,Y)
725         (bracket-flare . (0.5 . 0.5))
726         (meta . ((class . Spanner)
727                  (interfaces . (horizontal-bracket-interface
728                                 side-position-interface
729                                 line-interface
730                                 spanner-interface))))))
731     (InstrumentName
732      . (
733         (breakable . #t)
734         (Y-offset . ,(ly:make-simple-closure `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::y_aligned_on_self))
735                                                   ,(ly:make-simple-closure (list Side_position_interface::y_aligned_on_support_refpoints)))))
736         
737         ;; This direction is for aligned_on_support_refpoints
738         ;; (?) --hwn
739         (direction . 0)
740         (space-alist . (
741                         (left-edge . (extra-space . 1.0))))
742
743         (self-alignment-Y . 0)
744         (stencil . ,Text_interface::print)
745         (break-align-symbol . instrument-name)
746         (break-visibility . ,begin-of-line-visible)
747         (baseline-skip . 2)
748         (side-axis . ,X)
749         (meta . ((class . Item)
750                  (interfaces . (font-interface
751                                 self-alignment-interface
752                                 side-position-interface
753                                 text-interface
754                                 break-aligned-interface))))))
755
756     (KeyCancellation
757      . (
758
759         (stencil . ,Key_signature_interface::print)
760
761         (space-alist . (
762                         (time-signature . (extra-space . 1.25))
763                         (staff-bar . (extra-space . 0.6))
764                         (key-signature . (extra-space . 0.5))
765                         (right-edge . (extra-space . 0.5))
766                         (first-note . (fixed-space . 2.5))))
767         (Y-offset . ,Staff_symbol_referencer::callback)
768         (break-align-symbol . key-cancellation)
769         (break-visibility . ,begin-of-line-invisible)
770         (breakable . #t)
771
772         (meta . ((class . Item)
773                  (interfaces . (key-signature-interface
774                                 font-interface
775                                 break-aligned-interface))))))
776     (KeySignature
777      . (
778
779         (stencil . ,Key_signature_interface::print)
780
781         (space-alist . (
782                         (time-signature . (extra-space . 1.15))
783                         (staff-bar . (extra-space . 1.1))
784                         (right-edge . (extra-space . 0.5))
785                         (first-note . (fixed-space . 2.5))))
786         (Y-offset . ,Staff_symbol_referencer::callback)
787         (break-align-symbol . key-signature)
788         (break-visibility . ,begin-of-line-visible)
789         (breakable . #t)
790
791         (meta . ((class . Item)
792                  (interfaces . (key-signature-interface
793                                 font-interface
794                                 break-aligned-interface))))))
795     (LaissezVibrerTie
796      . (
797
798         (stencil  . ,Tie::print)
799         (control-points . ,Laissez_vibrer_tie::calc_control_points)
800         (direction . ,Laissez_vibrer_tie::calc_direction)
801         
802         (details . ((ratio . 0.333)
803                     (height-limit . 1.0)))
804         (thickness . 1.0)
805         (meta . ((class . Item)
806                  (interfaces . (laissez-vibrer-tie-interface))
807                  ))
808         ))
809
810     (LaissezVibrerTieColumn
811      . (
812         (X-extent . #f)
813         (Y-extent . #f)
814
815         (positioning-done . ,Laissez_vibrer_tie_column::calc_positioning_done)
816         
817         (meta . ((class . Item)
818                  (interfaces . (laissez-vibrer-tie-column-interface))
819                  ))
820         ))
821
822     (LedgerLineSpanner
823      . (
824
825         (springs-and-rods . ,Ledger_line_spanner::set_spacing_rods)
826
827         (stencil . ,Ledger_line_spanner::print)
828
829         (X-extent . #f)
830         (Y-extent . #f)
831         (minimum-length-fraction . 0.25)
832         (length-fraction . 0.25)
833         (layer . 0)
834         (meta . ((class . Spanner)
835                  (interfaces . (ledger-line-interface))))))
836
837     (LeftEdge
838      . (
839         (break-align-symbol . left-edge)
840         (X-extent . (0 . 0))
841         (breakable . #t)
842         (break-visibility . ,center-invisible)
843         (space-alist . (
844                         (custos . (extra-space . 0.0))
845                         (ambitus . (extra-space . 2.0))
846                         (time-signature . (extra-space . 1.0))
847                         (staff-bar . (extra-space . 0.0))
848                         (breathing-sign . (minimum-space . 0.0))
849                         (clef . (extra-space . 0.8))
850                         (first-note . (fixed-space . 2.0))
851                         (right-edge . (extra-space . 0.0))
852                         (key-signature . (extra-space . 0.0))
853                         (key-cancellation . (extra-space . 0.0))
854                         ))
855         (meta . ((class . Item)
856                  (interfaces . (break-aligned-interface))))))
857
858     (LigatureBracket
859      . (
860         ;; ugh.  A ligature bracket is totally different from
861         ;; a tuplet bracket.
862
863         (padding . 2.0)
864         (thickness . 1.6)
865         (edge-height . (0.7 . 0.7))
866         (shorten-pair . (-0.2 . -0.2))
867         (direction . 1)
868         (positions . ,Tuplet_bracket::calc_positions)
869         (stencil . ,Tuplet_bracket::print)
870         
871         (meta . ((class . Spanner)
872                  (interfaces . (tuplet-bracket-interface
873                                 line-interface))))))
874
875     (LyricHyphen
876      . (
877         (thickness . 1.3)
878         (height . 0.42)
879         (dash-period . 10.0)
880         (length . 0.66)
881         (minimum-length . 0.3)
882         (minimum-distance . 0.1)
883         (padding . 0.07)
884         (springs-and-rods . ,Hyphen_spanner::set_spacing_rods)
885         
886         (stencil . ,Hyphen_spanner::print)
887
888         (Y-extent . (0 . 0))
889         (meta . ((class . Spanner)
890                  (interfaces . (lyric-interface
891                                 lyric-hyphen-interface
892                                 spanner-interface))))))
893
894     (LyricExtender
895      . (
896
897         (stencil . ,Lyric_extender::print)
898
899         (thickness . 0.8) ; linethickness
900         (minimum-length . 1.5)
901         (Y-extent . (0 . 0))
902         (meta . ((class . Spanner)
903                  (interfaces . (lyric-interface
904                                 lyric-extender-interface))))))
905
906     (LyricSpace
907      . ((minimum-distance . 0.3)
908         (springs-and-rods . ,Hyphen_spanner::set_spacing_rods)
909         (padding . 0.0)
910         (Y-extent . #f)
911         (X-extent . #f)
912         (meta . ((class . Spanner)
913                  (interfaces . (spanner-interface
914                                 lyric-hyphen-interface spacing-interface))
915                  ))
916         ))
917     (LyricText
918      . (
919
920         (stencil . ,Text_interface::print)
921
922         (X-offset . ,Self_alignment_interface::aligned_on_x_parent)
923         (self-alignment-X . 0)
924         (word-space . 0.6)
925         (font-series . bold-narrow)
926         (font-size . 1.0)
927         (meta . ((class . Item)
928                  (interfaces . (rhythmic-grob-interface
929                                 lyric-syllable-interface
930                                 self-alignment-interface
931                                 text-interface
932                                 font-interface))))))
933
934     (MensuralLigature
935      . (
936         (thickness . 1.4)
937         (flexa-width . 2.0)
938         (stencil . ,Mensural_ligature::print)
939
940         (meta . ((class . Spanner)
941                  (interfaces . (mensural-ligature-interface
942                                 font-interface))))))
943
944     (MetronomeMark
945      . (
946
947         (stencil . ,Text_interface::print)
948
949         (Y-offset . ,Side_position_interface::y_aligned_side)
950         (direction . 1)
951         (padding . 0.8)
952         (side-axis . ,Y)
953         (meta . ((class . Item)
954                  (interfaces . (text-interface
955                                 side-position-interface
956                                 font-interface
957                                 metronome-mark-interface))))))
958
959     (MeasureGrouping
960      . (
961         (Y-offset . ,Side_position_interface::y_aligned_side)
962         (side-axis . ,Y)
963
964         (stencil . ,Measure_grouping::print)
965
966         (padding . 2)
967         (direction . 1)
968         (thickness . 1)
969         (height . 2.0)
970         (staff-padding . 3)
971         (meta . ((class . Spanner)
972                  (interfaces . (side-position-interface
973                                 measure-grouping-interface))))))
974
975     (MultiMeasureRest
976      . (
977
978         (stencil . ,Multi_measure_rest::print)
979
980         (Y-offset . ,Staff_symbol_referencer::callback)
981         (staff-position . 0)
982         (expand-limit . 10)
983         (thick-thickness . 6.6)
984         (hair-thickness . 2.0)
985         (padding . 1)
986         (meta . ((class . Spanner)
987                  (interfaces . (multi-measure-rest-interface
988                                 multi-measure-interface
989                                 rest-interface
990                                 font-interface
991                                 staff-symbol-referencer-interface))))))
992
993
994     (MultiMeasureRestNumber
995      . (
996         (springs-and-rods . ,Multi_measure_rest::set_spacing_rods)
997         (stencil . ,Text_interface::print)
998         (X-offset . ,(ly:make-simple-closure
999                       `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self))
1000                            ,(ly:make-simple-closure (list Self_alignment_interface::x_centered_on_y_parent)))))
1001         (Y-offset . ,Side_position_interface::y_aligned_side)
1002         (side-axis . ,Y)
1003
1004         (self-alignment-X . 0)
1005         (direction . 1)
1006         (padding . 0.4)
1007         (staff-padding . 0.4)
1008         (font-encoding . fetaNumber)
1009         (meta . ((class . Spanner)
1010                  (interfaces . (side-position-interface
1011                                 multi-measure-interface
1012                                 self-alignment-interface
1013                                 font-interface
1014                                 text-interface))))
1015               ))
1016
1017     (MultiMeasureRestText
1018      . (
1019         (stencil . ,Text_interface::print)
1020         (X-offset . ,(ly:make-simple-closure
1021                       `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::x_centered_on_y_parent))
1022                            ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
1023         
1024         (Y-offset . ,Side_position_interface::y_aligned_side)
1025         (self-alignment-X . 0)
1026         (direction . 1)
1027         (padding . 0.2)
1028         (staff-padding . 0.25)
1029         (meta . ((class . Spanner)
1030                  (interfaces . (side-position-interface
1031                                 multi-measure-interface
1032                                 self-alignment-interface
1033                                 font-interface
1034                                 text-interface))))))
1035
1036     (NoteCollision
1037      . (
1038         (axes . (0 1))
1039
1040         (X-extent . ,Axis_group_interface::width)
1041         (Y-extent . ,Axis_group_interface::height)
1042         (positioning-done . ,Note_collision_interface::calc_positioning_done)
1043         
1044         (meta . ((class . Item)
1045                  (interfaces . (note-collision-interface
1046                                 axis-group-interface))))))
1047
1048     (NoteColumn
1049      . (
1050         (axes . (0 1))
1051         (X-extent . ,Axis_group_interface::width)
1052         (Y-extent . ,Axis_group_interface::height)
1053
1054         (meta . ((class . Item)
1055                  (interfaces . (axis-group-interface
1056                                 note-column-interface))))))
1057
1058     (NoteHead
1059      . (
1060
1061         (stencil . ,Note_head::print)
1062         (stem-attachment . ,Note_head::calc_stem_attachment)
1063         (glyph-name . ,note-head::calc-glyph-name) 
1064         (Y-offset . ,Staff_symbol_referencer::callback)
1065         (X-offset . ,Note_head::stem_x_shift)
1066         (meta . ((class . Item)
1067                  (interfaces . (rhythmic-grob-interface
1068                                 rhythmic-head-interface
1069                                 font-interface
1070                                 note-head-interface
1071                                 ledgered-interface
1072                                 staff-symbol-referencer-interface))))))
1073
1074     (NoteSpacing
1075      . (
1076         (stem-spacing-correction . 0.5)
1077         (same-direction-correction . 0.25)
1078         ;; Changed this from 0.75.
1079         ;; If you ever change this back, please document! --hwn
1080         (knee-spacing-correction . 1.0)
1081
1082         (meta . ((class . Item)
1083                  (interfaces . (spacing-interface
1084                                 note-spacing-interface))))))
1085
1086     (NoteName
1087      . (
1088
1089         (stencil . ,Text_interface::print)
1090
1091         (meta . ((class . Item)
1092                  (interfaces . (note-name-interface
1093                                 text-interface
1094                                 font-interface))))))
1095
1096     (OctavateEight
1097      . (
1098         (self-alignment-X . 0)
1099         (break-visibility . ,begin-of-line-visible)
1100         (X-offset . ,(ly:make-simple-closure
1101                       `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self))
1102                            ,(ly:make-simple-closure (list Self_alignment_interface::centered_on_x_parent)))))
1103         
1104         (Y-offset . ,Side_position_interface::y_aligned_side)
1105
1106         (stencil . ,Text_interface::print)
1107
1108
1109         ;; no Y dimensions, because of lyrics under tenor clef.
1110         (Y-extent . (0 . 0))
1111         (font-shape . italic)
1112         (padding . 0.6)
1113         (staff-padding . 0.2)
1114         (font-size . -4)
1115         (meta . ((class . Item)
1116                  (interfaces . (text-interface
1117                                 self-alignment-interface
1118                                 side-position-interface
1119                                 font-interface))))))
1120
1121     (OttavaBracket
1122      . (
1123         (Y-offset . ,Side_position_interface::y_aligned_side)
1124
1125         (stencil . ,Ottava_bracket::print)
1126
1127         (font-shape . italic)
1128         (shorten-pair . (0.0 . -0.6))
1129         (staff-padding . 1.0)
1130         (padding . 0.5)
1131         (minimum-length . 1.0)
1132         (dash-fraction . 0.3)
1133         (edge-height . (0 . 1.2))
1134         (direction . 1)
1135         (meta . ((class . Spanner)
1136                  (interfaces . (ottava-bracket-interface
1137                                 horizontal-bracket-interface
1138                                 line-interface
1139                                 side-position-interface
1140                                 font-interface
1141                                 text-interface))))))
1142
1143     (PaperColumn
1144      . (
1145         (axes . (0))
1146
1147         (before-line-breaking . ,Paper_column::before_line_breaking)
1148         ;; (stencil . ,Paper_column::print)
1149         (X-extent . ,Axis_group_interface::width)
1150         
1151
1152         ;; debugging
1153         ;;                       (font-size . -6) (font-name . "sans") (Y-extent . #f)
1154         (meta . ((class . Paper_column)
1155                  (interfaces . (paper-column-interface
1156                                 axis-group-interface
1157                                 spaceable-grob-interface))))))
1158
1159     (PhrasingSlur
1160      . ((slur-details . ,default-slur-details)
1161
1162         (control-points . ,Slur::calc_control_points)
1163         (direction . ,Slur::calc_direction)
1164         (springs-and-rods . ,Spanner::set_spacing_rods)
1165         (Y-extent . ,Slur::height)
1166         (stencil . ,Slur::print)                      
1167         
1168
1169         (thickness . 1.1)
1170         (minimum-length . 1.5)
1171         (height-limit . 2.0)
1172         (ratio . 0.333)
1173         (meta . ((class . Spanner)
1174                  (interfaces . (slur-interface))))))
1175
1176     (NonMusicalPaperColumn
1177      . (
1178         (axes . (0))
1179
1180         (before-line-breaking . ,Paper_column::before_line_breaking)
1181         (X-extent . ,Axis_group_interface::width)
1182         ;;                    (stencil . ,Paper_column::print)
1183         
1184         (breakable . #t)
1185
1186         ;; debugging stuff: print column number.
1187         ;;               (font-size . -6) (font-name . "sans")  (Y-extent . #f)
1188
1189         (meta . ((class . Paper_column)
1190                  (interfaces . (paper-column-interface
1191                                 axis-group-interface
1192                                 spaceable-grob-interface))))))
1193
1194     (PercentRepeat
1195      . (
1196
1197         (springs-and-rods . ,Multi_measure_rest::set_spacing_rods)
1198         (stencil . ,Multi_measure_rest::percent)
1199
1200         (slope . 1.0)
1201         (thickness . 0.48)
1202         (font-encoding . fetaMusic)
1203         (meta . ((class . Spanner)
1204                  (interfaces . (multi-measure-rest-interface
1205                                 font-interface
1206                                 percent-repeat-interface))))))
1207     (PercentRepeatCounter
1208      . (
1209         (stencil . ,Text_interface::print)
1210         (X-offset . ,(ly:make-simple-closure
1211                       `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::x_centered_on_y_parent))
1212                            ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
1213         (Y-offset . ,Side_position_interface::y_aligned_side)
1214         (self-alignment-X . 0)
1215         (direction . 1)
1216         (padding . 0.2)
1217         (staff-padding . 0.25)
1218         (font-size . -2) 
1219         (font-encoding . fetaNumber)
1220         (meta . ((class . Spanner)
1221                  (interfaces . (side-position-interface
1222                                 self-alignment-interface
1223                                 percent-repeat-interface
1224                                 font-interface
1225                                 text-interface))))))
1226
1227     ;; an example of a text spanner
1228     (PianoPedalBracket
1229      . (
1230
1231         (stencil . ,Piano_pedal_bracket::print)
1232
1233         (style . line)
1234         (bound-padding . 1.0)
1235         (direction . -1)
1236         (bracket-flare . (0.5 . 0.5))
1237         (edge-height . (1.0 . 1.0))
1238         (shorten-pair . (0.0 . 0.0))
1239         (thickness .  1.0)
1240         (meta . ((class . Spanner)
1241                  (interfaces . (line-interface
1242                                 piano-pedal-interface
1243                                 piano-pedal-bracket-interface))))))
1244
1245     (RehearsalMark
1246      . (
1247         (stencil . ,Text_interface::print)
1248         (X-offset . ,(ly:make-simple-closure
1249                       `(,+ ,(ly:make-simple-closure
1250                              `(,Self_alignment_interface::x_aligned_on_self))
1251                            ,(ly:make-simple-closure
1252                              `(,Self_alignment_interface::centered_on_x_parent)))
1253                       ))
1254         (Y-offset . ,Side_position_interface::y_aligned_side)
1255         (self-alignment-X . 0)
1256         (direction . 1)
1257         (breakable . #t)
1258         (font-size . 2)
1259         (baseline-skip . 2)
1260         (break-visibility . ,end-of-line-invisible)
1261         (padding . 0.8)
1262         (meta . ((class . Item)
1263                  (interfaces . (text-interface
1264                                 side-position-interface
1265                                 font-interface
1266                                 mark-interface
1267                                 self-alignment-interface))))))
1268
1269
1270     (RepeatSlash
1271      . (
1272
1273         (stencil . ,Percent_repeat_item_interface::beat_slash)
1274
1275         (thickness . 0.48)
1276         (slope . 1.7)
1277         (meta . ((class . Item)
1278                  (interfaces . (percent-repeat-interface))))))
1279     (Rest
1280      . (
1281         (stencil . ,Rest::print)
1282         (X-extent . ,Rest::width)
1283         (Y-extent . ,Rest::height)
1284         (Y-offset . ,Rest::y_offset_callback)
1285         (minimum-distance . 0.25)
1286         (meta . ((class . Item)
1287                  (interfaces . (font-interface
1288                                 rhythmic-head-interface
1289                                 rhythmic-grob-interface
1290                                 staff-symbol-referencer-interface
1291                                 rest-interface))))))
1292
1293     (RestCollision
1294      . (
1295         (minimum-distance . 0.75)
1296         (positioning-done . ,Rest_collision::calc_positioning_done)
1297                                         
1298         (meta . ((class . Item)
1299                  (interfaces . (rest-collision-interface))))))
1300
1301     (Script
1302      . (
1303         ;; don't set direction here: it breaks staccato.
1304
1305         ;; This value is sensitive: if too large, staccato dots will move a
1306         ;; space a away.
1307         (padding . 0.20)
1308         (staff-padding . 0.25)
1309         ;; (script-priority . 0) priorities for scripts, see script.scm
1310         (X-offset . , Self_alignment_interface::centered_on_x_parent)
1311         
1312
1313         (stencil . ,Script_interface::print)
1314         (direction . ,Script_interface::calc_direction)
1315
1316         (font-encoding . fetaMusic)
1317         (meta . ((class . Item)
1318                  (interfaces . (script-interface
1319                                 side-position-interface
1320                                 font-interface))))))
1321
1322     (ScriptColumn
1323      . (
1324
1325         (before-line-breaking . ,Script_column::before_line_breaking)
1326
1327         (meta . ((class . Item)
1328                  (interfaces . (script-column-interface))))))
1329
1330     (SeparationItem
1331      . (
1332         (X-extent . #f)
1333         (Y-extent . #f)
1334         (meta . ((class . Item)
1335                  (interfaces . (spacing-interface
1336                                 separation-item-interface))))))
1337
1338     (SeparatingGroupSpanner
1339      . (
1340
1341         (springs-and-rods . ,Separating_group_spanner::set_spacing_rods)
1342
1343         (meta . ((class . Spanner)
1344                  (interfaces . (only-prebreak-interface
1345                                 spacing-interface
1346                                 separation-spanner-interface))))))
1347
1348     (Slur
1349      . ((slur-details . ,default-slur-details)
1350
1351         (control-points . ,Slur::calc_control_points)
1352         (direction . ,Slur::calc_direction)
1353         (springs-and-rods . ,Spanner::set_spacing_rods)
1354         (Y-extent . ,Slur::height)
1355         (stencil . ,Slur::print)
1356         
1357         (thickness . 1.0)
1358         (minimum-length . 1.5)
1359                                         ; Slur::height)
1360         (height-limit . 2.0)
1361         (ratio . 0.25)
1362         (meta . ((class . Spanner)
1363                  (interfaces . (slur-interface))))))
1364
1365     (SpacingSpanner
1366      . (
1367
1368         (springs-and-rods . ,Spacing_spanner::set_springs)
1369         (average-spacing-wishes . #t)
1370         (grace-space-factor . 0.6)
1371         (shortest-duration-space . 2.0)
1372         (spacing-increment . 1.2)
1373         (base-shortest-duration . ,(ly:make-moment 3 16))
1374         (meta . ((class . Spanner)
1375                  (interfaces . (spacing-interface
1376                                 spacing-spanner-interface))))))
1377
1378     (SpanBar
1379      . (
1380         (break-align-symbol . staff-bar)
1381         (Y-extent . ())
1382         (layer . 0)
1383         (breakable . #t)
1384
1385         (stencil . ,Span_bar::print)
1386         (bar-size . ,Span_bar::calc_bar_size)
1387         (X-extent . ,Span_bar::width)
1388         (glyph-name . ,Span_bar::calc_glyph_name)
1389         (before-line-breaking . ,Span_bar::before_line_breaking)
1390
1391         ;; ugh duplication!
1392
1393         ;;
1394         ;; Ross. page 151 lists other values, we opt for a leaner look
1395         ;;
1396         (kern . 3.0)
1397         (thin-kern . 3.0)
1398         (hair-thickness . 1.6)
1399         (thick-thickness . 6.0)
1400         (meta . ((class . Item)
1401                  (interfaces . (span-bar-interface
1402                                 font-interface
1403                                 bar-line-interface))))))
1404
1405     (StanzaNumber
1406      . (
1407         (stencil . ,Text_interface::print)
1408
1409         (font-series . bold)
1410         (padding . 1.0)
1411         (X-offset . ,Side_position_interface::x_aligned_side)
1412         (side-axis . ,X)
1413         (direction . ,LEFT)
1414         (meta . ((class . Item)
1415                  (interfaces . (side-position-interface
1416                                 stanza-number-interface
1417                                 text-interface
1418                                 font-interface))))))
1419
1420     (StringNumber
1421      . (
1422
1423         (stencil . ,print-circled-text-callback)
1424
1425         (padding . 0.5)
1426         (staff-padding . 0.5)
1427         (self-alignment-X . 0)
1428         (self-alignment-Y . 0)
1429         (script-priority . 100)
1430         (font-encoding . fetaNumber)
1431         (font-size . -5)                ; don't overlap when next to heads.
1432         (meta . ((class . Item)
1433                  (interfaces . (string-number-interface
1434                                 font-interface
1435                                 text-script-interface
1436                                 text-interface
1437                                 side-position-interface
1438                                 self-alignment-interface
1439                                 item-interface))))))
1440
1441     (StaffSpacing
1442      . (
1443         (breakable . #t)
1444         (stem-spacing-correction . 0.4)
1445         (meta . ((class . Item)
1446                  (interfaces . (spacing-interface
1447                                 staff-spacing-interface))))))
1448
1449     (SostenutoPedal
1450      . (
1451
1452         (stencil . ,Text_interface::print)
1453
1454         (direction . 1)
1455         (X-offset . ,Self_alignment_interface::x_aligned_on_self)
1456         (no-spacing-rods . #t)
1457         (padding . 0.0) ;; padding relative to SostenutoPedalLineSpanner
1458         (font-shape . italic)
1459         (self-alignment-X . 0)
1460         (meta . ((class . Item)
1461                  (interfaces . (text-interface
1462                                 self-alignment-interface
1463                                 font-interface))))))
1464
1465     (SostenutoPedalLineSpanner
1466      . (
1467         (axes . (1))
1468
1469         (X-extent . ,Axis_group_interface::height)
1470
1471         (Y-offset . ,Side_position_interface::y_aligned_side)
1472         (side-axis . ,Y)
1473
1474         (padding . 1.2)
1475         (minimum-space . 1.0)
1476         (direction . -1)
1477         (meta . ((class . Spanner)
1478                  (interfaces . (piano-pedal-interface
1479                                 axis-group-interface
1480                                 side-position-interface))))))
1481
1482     (StaffSymbol
1483      . (
1484
1485         (stencil . ,Staff_symbol::print)
1486
1487         (line-count . 5)
1488         (ledger-line-thickness . (1.0 . 0.1))
1489         (layer . 0)
1490         (meta . ((class . Spanner)
1491                  (interfaces . (staff-symbol-interface))))))
1492
1493     (Stem
1494      . (
1495         (direction . ,Stem::calc_direction)
1496         (stem-end-position . ,Stem::calc_stem_end_position)
1497         (stem-info . ,Stem::calc_stem_info)
1498         (positioning-done . ,Stem::calc_positioning_done)
1499         (stencil . ,Stem::print)
1500         (X-extent . ,Stem::width)
1501         (Y-extent . ,Stem::height)
1502         (length . ,Stem::calc_length)
1503         
1504         (thickness . 1.3)
1505
1506         (details
1507          . (
1508             ;; 3.5 (or 3 measured from note head) is standard length
1509             ;; 32nd, 64th flagged stems should be longer
1510             (lengths . (3.5 3.5 3.5 4.5 5.0))
1511
1512             ;; FIXME.  3.5 yields too long beams (according to Ross and
1513             ;; looking at Baerenreiter examples) for a number of common
1514             ;; boundary cases.  Subtracting half a beam thickness fixes
1515             ;; this, but the bug may well be somewhere else.
1516
1517             ;; FIXME this should come from 'lengths
1518             (beamed-lengths . (3.26 3.5 3.6))
1519
1520             ;; The 'normal' minima
1521             (beamed-minimum-free-lengths . (1.83 1.5 1.25))
1522                                         ;(beamed-minimum-free-lengths . (2.0 1.83 1.25))
1523
1524             ;; The 'extreme case' minima
1525             (beamed-extreme-minimum-free-lengths . (2.0 1.25))
1526
1527             ;; Stems in unnatural (forced) direction should be shortened by
1528             ;; one staff space, according to [Roush & Gourlay].
1529             ;; Flagged stems we shorten only half a staff space.
1530             (stem-shorten . (1.0 0.5))
1531
1532             ))
1533
1534
1535         ;; default stem direction for note on middle line
1536         (neutral-direction . -1)
1537
1538         ;; We use the normal minima as minimum for the ideal lengths,
1539         ;; and the extreme minima as abolute minimum length.
1540
1541         (X-offset . ,Stem::offset_callback)
1542         (Y-offset . ,Staff_symbol_referencer::callback)
1543         (meta . ((class . Item)
1544                  (interfaces . (stem-interface
1545                                 font-interface))))))
1546
1547     (StemTremolo
1548      . (
1549         (Y-extent . ,Stem_tremolo::height)
1550         (stencil . ,Stem_tremolo::print)
1551         (X-extent . #f)
1552         (beam-width . 1.6) ; staff-space
1553         (beam-thickness . 0.48) ; staff-space
1554         (meta . ((class . Item)
1555                  (interfaces . (stem-tremolo-interface))))))
1556
1557     (SustainPedal
1558      . (
1559         (no-spacing-rods . #t)
1560         (stencil . ,Sustain_pedal::print)
1561         (self-alignment-X . 0)
1562         (direction . 1)
1563         (padding . 0.0)  ;; padding relative to SustainPedalLineSpanner
1564         (X-offset . ,Self_alignment_interface::x_aligned_on_self)
1565         (meta . ((class . Item)
1566                  (interfaces . (piano-pedal-interface
1567                                 text-spanner-interface
1568                                 text-interface
1569                                 self-alignment-interface
1570                                 font-interface))))))
1571
1572     (SustainPedalLineSpanner
1573      . (
1574         (axes . (1))
1575         (X-extent . ,Axis_group_interface::height)
1576         (Y-offset . ,Side_position_interface::y_aligned_side)
1577         (side-axis . ,Y)
1578         (padding . 1.2)
1579         (staff-padding . 1.2)
1580         (minimum-space . 1.0)
1581         (direction . -1)
1582         (meta . ((class . Spanner)
1583                  (interfaces . (piano-pedal-interface
1584                                 axis-group-interface
1585                                 side-position-interface))))))
1586
1587     (System
1588      . (
1589         (axes . (0 1))
1590         (X-extent . ,Axis_group_interface::width)
1591         (Y-extent . ,Axis_group_interface::height)
1592         (meta . ((class . System)
1593                  (interfaces . (system-interface
1594                                 axis-group-interface))))))
1595
1596     (SystemStartBrace
1597      . (
1598         (style . brace)
1599         (padding . 0.3)
1600         (stencil . ,System_start_delimiter::print)
1601         (collapse-height . 5.0)
1602         (X-offset . ,Side_position_interface::x_aligned_side)
1603         (direction . ,LEFT)
1604         (font-encoding . fetaBraces)
1605         (Y-extent . #f)
1606         (meta . ((class . Spanner)
1607                  (interfaces . (system-start-delimiter-interface
1608                                 side-position-interface
1609                                 font-interface))))))
1610
1611     (SystemStartSquare
1612      . (
1613         (Y-extent . #f)
1614         (X-offset . ,Side_position_interface::x_aligned_side)
1615         (direction . ,LEFT)
1616         (stencil . ,System_start_delimiter::print)
1617         (style . line-bracket)
1618         (thickness . 1.0)
1619         (meta . ((class . Spanner)
1620                  (interfaces . (font-interface
1621                                 side-position-interface
1622                                 system-start-delimiter-interface))))))
1623     (SystemStartBracket
1624      . (
1625         (Y-extent . #f)
1626         (padding . 0.8)
1627         (X-offset . ,Side_position_interface::x_aligned_side)
1628         (direction . ,LEFT)
1629         (stencil . ,System_start_delimiter::print)
1630         (style . bracket)
1631         (collapse-height . 5.0)
1632         (thickness . 0.45)
1633         (meta . ((class . Spanner)
1634                  (interfaces . (font-interface
1635                                 side-position-interface
1636                                 system-start-delimiter-interface))))))
1637
1638     (SystemStartBar
1639      . (
1640         (Y-extent . #f)
1641         (padding . 0.0)
1642         (X-offset . ,Side_position_interface::x_aligned_side)
1643         (direction . ,LEFT)
1644         (style . bar-line)
1645         (thickness . 1.6)
1646         (stencil . ,System_start_delimiter::print)
1647         (meta . ((class . Spanner)
1648                  (interfaces . (side-position-interface
1649                                 system-start-delimiter-interface))))))
1650
1651
1652     (TabNoteHead
1653      . (
1654
1655         (stencil . ,Text_interface::print)
1656         (Y-offset . ,Staff_symbol_referencer::callback)
1657         (font-size . -2)
1658         (stem-attachment . (1.0 . 1.35))
1659         (font-series . bold)
1660         (meta . ((class . Item)
1661                  (interfaces
1662                   . (rhythmic-head-interface
1663                      font-interface rhythmic-grob-interface
1664                      note-head-interface
1665                      staff-symbol-referencer-interface
1666                      text-interface))))))
1667
1668     (TextScript
1669      . (
1670         (no-spacing-rods . #t)
1671         (X-offset . ,Self_alignment_interface::x_aligned_on_self)
1672         (direction . -1)
1673
1674         ;; sync with Fingering ?
1675         (padding . 0.5)
1676         (staff-padding . 0.5)
1677
1678         (stencil . ,Text_interface::print)
1679         (direction . ,Script_interface::calc_direction)
1680
1681         (avoid-slur . around)
1682         (slur-padding . 0.5)
1683         (script-priority . 200)
1684         ;; todo: add X self alignment?
1685         (meta . ((class . Item)
1686                  (interfaces . (text-script-interface
1687                                 text-interface
1688                                 side-position-interface
1689                                 font-interface))))))
1690
1691     (TextSpanner
1692      . (
1693         (stencil . ,Text_spanner::print)
1694         (Y-offset . ,Side_position_interface::y_aligned_side)
1695         (font-shape . italic)
1696         (style . dashed-line)
1697         (staff-padding . 0.8)
1698         (dash-fraction . 0.2)
1699         (dash-period . 3.0)
1700         (side-axis . ,Y)
1701         (direction . 1)
1702         (meta . ((class . Spanner)
1703                  (interfaces . (text-spanner-interface
1704                                 side-position-interface
1705                                 font-interface))))))
1706
1707     (Tie
1708      . (
1709         (control-points . ,Tie::calc_control_points)
1710         (direction . ,Tie::calc_direction)
1711         (stencil . ,Tie::print)
1712         (details . ((ratio . 0.333)
1713                     (height-limit . 1.0)
1714                     (between-length-limit . 1.0)))
1715         (thickness . 1.0)
1716         (meta . ((class . Spanner)
1717                  (interfaces . (tie-interface))))
1718         ))
1719
1720     (TieColumn
1721      . (
1722         (positioning-done . ,Tie_column::calc_positioning_done)
1723         (before-line-breaking . ,Tie_column::before_line_breaking)
1724         (X-extent . #f)
1725         (Y-extent . #f)
1726         (meta . ((class . Spanner)
1727                  (interfaces . (tie-column-interface))))))
1728
1729     (TimeSignature
1730      . (
1731         (stencil . ,Time_signature::print)
1732         (break-align-symbol . time-signature)
1733         (break-visibility . ,all-visible)
1734         (space-alist . (
1735                         (first-note . (fixed-space . 2.0))
1736                         (right-edge . (extra-space . 0.5))
1737                         (staff-bar . (minimum-space . 2.0))))
1738         (breakable . #t)
1739         (style . C)
1740         (meta . ((class . Item)
1741                  (interfaces . (time-signature-interface
1742                                 break-aligned-interface
1743                                 font-interface))))))
1744
1745     (TrillSpanner
1746      . (
1747         (stencil . ,Dynamic_text_spanner::print)
1748         (edge-text . ,(cons (make-musicglyph-markup "scripts.trill")
1749                             ""))
1750         (style . trill)
1751         (staff-padding . 1.0)
1752         (padding . 0.5)
1753         (direction . 1)
1754         (Y-offset . ,Side_position_interface::y_aligned_side)
1755         (side-axis . ,Y)
1756         (meta . ((class . Spanner)
1757                  (interfaces . (text-spanner-interface
1758                                 side-position-interface
1759                                 font-interface))))))
1760
1761     (TrillPitchAccidental
1762      . ((X-offset . ,Side_position_interface::x_aligned_side)
1763         (padding . 0.2)
1764         (direction . ,LEFT)
1765         (font-size . -4)
1766         (side-axis . ,X)
1767         (stencil . ,Accidental_interface::print)
1768         (meta . ((class . Item)
1769                  (interfaces . (item-interface
1770                                 accidental-interface
1771                                 side-position-interface
1772                                 font-interface))))))
1773
1774     (TrillPitchGroup
1775      . ((X-offset . ,Side_position_interface::x_aligned_side)
1776         (axes . (,X))
1777         (font-size . -4)
1778         (stencil . ,parenthesize-elements)
1779         (direction . ,RIGHT)
1780         (side-axis . ,X)
1781         (padding . 0.3)
1782         (meta . ((class . Item)
1783                  (interfaces . (side-position-interface
1784                                 note-head-interface
1785                                 rhythmic-head-interface
1786                                 font-interface
1787                                 accidental-interface
1788                                 axis-group-interface))))))
1789
1790     (TrillPitchHead
1791      . (
1792         (stencil . ,Note_head::print)
1793         (duration-log . 2)
1794         (Y-offset . ,Staff_symbol_referencer::callback)
1795         (font-size . -4)
1796         (meta . ((class . Item)
1797                  (interfaces . (item-interface
1798                                 rhythmic-head-interface
1799                                 font-interface
1800                                 pitched-trill-interface
1801                                 ledgered-interface
1802                                 staff-symbol-referencer-interface))))))
1803
1804     (TupletBracket
1805      . (
1806         (padding . 1.1)
1807         (thickness . 1.6)
1808         (edge-height . (0.7 . 0.7))
1809         (shorten-pair . (-0.2 . -0.2))
1810         (direction  . ,Tuplet_bracket::calc_direction)
1811         (positions . ,Tuplet_bracket::calc_positions)
1812         (stencil . ,Tuplet_bracket::print)
1813         (font-shape . italic)
1814         (font-size . -2)
1815         (meta . ((class . Spanner)
1816                  (interfaces . (text-interface
1817                                 line-interface
1818                                 tuplet-bracket-interface
1819                                 font-interface))))))
1820
1821     (UnaCordaPedal
1822      . (
1823         (stencil . ,Text_interface::print)
1824         (font-shape . italic)
1825         (no-spacing-rods . #t)
1826         (self-alignment-X . 0)
1827         (direction . 1)
1828         (padding . 0.0)  ;; padding relative to UnaCordaPedalLineSpanner
1829         (X-offset . ,Self_alignment_interface::x_aligned_on_self)
1830         (meta . ((class . Item)
1831                  (interfaces . (text-interface
1832                                 self-alignment-interface
1833                                 font-interface))))))
1834
1835     (UnaCordaPedalLineSpanner
1836      . (
1837         (axes . (1))
1838         (X-extent . ,Axis_group_interface::height)
1839         (Y-offset . ,Side_position_interface::y_aligned_side)
1840         (side-axis . ,Y)
1841         (padding . 1.2)
1842         (staff-padding . 1.2)
1843         (minimum-space . 1.0)
1844         (direction . -1)
1845         (meta . ((class . Spanner)
1846                  (interfaces . (piano-pedal-interface
1847                                 axis-group-interface
1848                                 side-position-interface))))))
1849
1850     (VaticanaLigature
1851      . (
1852         (thickness . 0.6)
1853         (flexa-width . 2.0)
1854         (stencil . ,Vaticana_ligature::print)
1855         (meta . ((class . Spanner)
1856                  (interfaces . (vaticana-ligature-interface
1857                                 font-interface))))))
1858
1859     (VerticalAlignment
1860      . (
1861         (axes . (1))
1862         (positioning-done . ,Align_interface::calc_positioning_done)
1863         (after-line-breaking . ,Align_interface::stretch_after_break)
1864         (Y-extent . ,Axis_group_interface::height)
1865         (X-extent . ,Axis_group_interface::width)
1866         (stacking-dir . -1)
1867         (meta . ((class . Spanner)
1868                  (interfaces . (align-interface
1869                                 axis-group-interface))))))
1870     (VerticalAxisGroup
1871      . (
1872         (axes . (1))
1873         (Y-offset . ,Hara_kiri_group_spanner::force_hara_kiri_callback)
1874         (Y-extent . ,Hara_kiri_group_spanner::y_extent)
1875         (X-extent . ,Axis_group_interface::width)
1876         (meta . ((class . Spanner)
1877                  (interfaces . (axis-group-interface
1878                                 hara-kiri-group-interface
1879                                 vertically-spaceable-interface))))))
1880
1881     (VocalName
1882      . (
1883         (breakable . #t)
1884         (Y-offset . ,Side_position_interface::y_aligned_on_support_refpoints)
1885         (direction . 0)
1886         (space-alist . ((left-edge . (extra-space . 1.0))))
1887         (break-align-symbol . instrument-name)
1888         (stencil . ,Text_interface::print)
1889         (break-align-symbol . clef)
1890         (break-visibility . ,begin-of-line-visible)
1891         (baseline-skip . 2)
1892         (side-axis . ,Y)
1893         (meta . ((class . Item)
1894                  (interfaces . (font-interface
1895                                 self-alignment-interface
1896                                 side-position-interface
1897                                 text-interface
1898                                 break-aligned-interface))))))
1899
1900     (VoltaBracket
1901      . (
1902         (stencil . ,Volta_bracket_interface::print)
1903         (after-line-breaking . ,Volta_bracket_interface::after_line_breaking)
1904         (direction . ,UP)
1905         (padding . 1)
1906         (font-encoding . fetaNumber)
1907         (Y-offset . ,Side_position_interface::y_aligned_side)
1908         (side-axis . ,Y)
1909         (thickness . 1.6)  ;;  linethickness
1910         (edge-height . (2.0 . 2.0)) ;; staffspace;
1911         (minimum-space . 5)
1912         (font-size . -4)
1913         (meta . ((class . Spanner)
1914                  (interfaces . (volta-bracket-interface
1915                                 horizontal-bracket-interface                            
1916                                 line-interface
1917                                 text-interface
1918                                 side-position-interface
1919                                 font-interface)))
1920               )))
1921
1922
1923     (VoiceFollower
1924      . (
1925         (style . line)
1926         (gap . 0.5)
1927         (breakable . #t)
1928         (X-extent . #f)
1929         (Y-extent . #f)
1930         (stencil . ,Line_spanner::print)
1931         (after-line-breaking . ,Line_spanner::after_line_breaking)
1932         (meta . ((class . Spanner)
1933                  (interfaces . (line-spanner-interface
1934                                 line-interface))))
1935         ))
1936
1937 ))
1938
1939 (define (completize-grob-entry x)
1940   "Transplant assoc key into 'name entry of 'meta of X.  Set interfaces for Item, Spanner etc.
1941 "
1942   ;;  (display (car x))
1943   ;;  (newline)
1944   (let* ((name-sym  (car x))
1945          (grob-entry (cdr x))
1946          (meta-entry (cdr (assoc 'meta grob-entry)))
1947          (class (cdr (assoc 'class meta-entry)))
1948          (ifaces-entry
1949           (cdr (assoc 'interfaces meta-entry))))
1950
1951     (cond
1952      ((eq? 'Item class)
1953       (set! ifaces-entry (cons 'item-interface ifaces-entry)))
1954      ((eq? 'Spanner class)
1955       (set! ifaces-entry (cons 'spanner-interface ifaces-entry)))
1956      ((eq? 'Paper_column class)
1957       (set! ifaces-entry (cons 'item-interface
1958                                (cons 'paper-column-interface ifaces-entry))))
1959      ((eq? 'System class)
1960       (set! ifaces-entry (cons 'system-interface
1961                                (cons 'spanner-interface ifaces-entry))))
1962      (else
1963       (ly:warning "Unknown class ~a" class)))
1964     (set! ifaces-entry (cons 'grob-interface ifaces-entry))
1965
1966     (set! meta-entry (assoc-set! meta-entry 'name name-sym))
1967     (set! meta-entry (assoc-set! meta-entry 'interfaces
1968                                  ifaces-entry))
1969     (set! grob-entry (assoc-set! grob-entry 'meta meta-entry))
1970     (cons name-sym grob-entry)))
1971
1972 (set! all-grob-descriptions (map completize-grob-entry all-grob-descriptions))
1973
1974 ;;  (display (map pair? all-grob-descriptions))
1975
1976 ;; make sure that \property Foo.Bar =\turnOff doesn't complain
1977
1978 (map (lambda (x)
1979        ;; (display (car x)) (newline)
1980
1981        (set-object-property! (car x) 'translation-type? list?)
1982        (set-object-property! (car x) 'is-grob? #t))
1983      all-grob-descriptions)
1984
1985 (set! all-grob-descriptions (sort all-grob-descriptions alist<?))
1986