(Accidental
. (
(avoid-slur . inside)
- (cautionary-style . parentheses)
+ (glyph-name-alist . ,standard-alteration-glyph-name-alist)
+ (alteration . ,accidental-interface::calc-alteration)
(stencil . ,ly:accidental-interface::print)
- (after-line-breaking
- . ,ly:accidental-interface::after-line-breaking)
+ (Y-extent . ,ly:accidental-interface::height)
+ (X-extent . ,ly:accidental-interface::width)
(meta . ((class . Item)
(interfaces . (accidental-interface
font-interface))))))
+ (AccidentalCautionary
+ . (
+ (avoid-slur . inside)
+ (parenthesized . #t)
+ (glyph-name-alist . ,standard-alteration-glyph-name-alist)
+ (alteration . ,accidental-interface::calc-alteration)
+ (stencil . ,ly:accidental-interface::print)
+ (Y-extent . ,ly:accidental-interface::height)
+ (meta . ((class . Item)
+ (interfaces . (accidental-interface
+ font-interface))))))
+
(AccidentalSuggestion
. (
(stencil . ,ly:accidental-interface::print)
+ (Y-extent . ,ly:accidental-interface::height)
(X-offset . ,(ly:make-simple-closure
`(,+
,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-x-parent))
,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
(self-alignment-X . ,CENTER)
- (cautionary . #t)
- (cautionary-style . smaller)
+ (font-size . -2)
+ (glyph-name-alist . ,standard-alteration-glyph-name-alist)
+ (alteration . ,accidental-interface::calc-alteration)
(Y-offset . ,ly:side-position-interface::y-aligned-side)
- (cautionary-style . parentheses)
(direction . ,UP)
(staff-padding . 0.25)
+ (outside-staff-priority . 0)
(script-priority . 0)
(side-axis . ,X)
(meta . ((class . Item)
(padding . 0.5)
(X-offset . ,ly:side-position-interface::x-aligned-side)
(direction . ,LEFT)
- (cautionary-style . parentheses)
(stencil . ,ly:accidental-interface::print)
- (after-line-breaking . ,ly:accidental-interface::after-line-breaking)
+ (Y-extent . ,ly:accidental-interface::height)
+ (glyph-name-alist . ,standard-alteration-glyph-name-alist)
(side-axis . ,X)
(meta . ((class . Item)
- (interfaces . (item-interface
+ (interfaces . (
accidental-interface
break-aligned-interface
side-position-interface
(script-priority . 0)
(side-axis . ,X)
(staff-position . 0.0)
+ (Y-extent . ,ly:arpeggio::height)
(meta . ((class . Item)
(interfaces . (arpeggio-interface
staff-symbol-referencer-interface
(BarLine
. (
(break-align-symbol . staff-bar)
+ (break-align-anchor . ,ly:bar-line::calc-anchor)
(glyph . "|")
(gap . 0.4)
(layer . 0)
- (break-visibility . ,all-visible)
+ (break-visibility . ,bar-line::calc-break-visibility)
(non-musical . #t)
- (extra-spacing-width . (-0.3 . 0.3))
-
(stencil . ,ly:bar-line::print)
(glyph-name . ,bar-line::calc-glyph-name)
(bar-size . ,ly:bar-line::calc-bar-size)
(key-signature . (extra-space . 1.0))
(key-cancellation . (extra-space . 1.0))
(first-note . (fixed-space . 1.3))
- (next-note . (semi-fixed-space . 1.3))
+ (next-note . (semi-fixed-space . 0.9))
(right-edge . (extra-space . 0.0))))
;;
(self-alignment-X . 1)
;; want the bar number before the clef at line start.
- (break-align-symbol . left-edge)
+ (break-align-symbols . (left-edge staff-bar))
(meta .
((class . Item)
(interfaces . (side-position-interface
. (
(axes . (,Y))
(Y-extent . ,ly:axis-group-interface::height)
- (skylines . ,ly:axis-group-interface::calc-skylines)
+ (vertical-skylines . ,ly:axis-group-interface::calc-skylines)
+ (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights)
(meta . ((class . Spanner)
(interfaces . (axis-group-interface
))))))
(beaming . ,ly:beam::calc-beaming)
(stencil . ,ly:beam::print)
(clip-edges . #t)
-
+ (cross-staff . ,ly:beam::calc-cross-staff)
+
+ (details . ((hint-direction-penalty . 20)))
;; TODO: should be in SLT.
(thickness . 0.48) ; in staff-space
(neutral-direction . ,DOWN)
;; only for debugging.
(font-family . roman)
(meta . ((class . Spanner)
+ (object-callbacks . ((normal-stems . ,ly:beam::calc-normal-stems)))
(interfaces . (staff-symbol-referencer-interface
+ unbreakable-spanner-interface
beam-interface))))))
(BendAfter
. (
(axes . (0))
(X-extent . ,ly:axis-group-interface::width)
+ (break-align-anchor . ,ly:break-aligned-interface::calc-average-anchor)
+ (break-visibility . ,ly:break-aligned-interface::calc-break-visibility)
(meta . ((class . Item)
(interfaces . (break-aligned-interface
axis-group-interface))))))
(avoid-slur . inside)
(font-family . music)
(break-align-symbol . clef)
+ (break-align-anchor . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
(break-visibility . ,begin-of-line-visible)
(space-alist . ((ambitus . (extra-space . 2.0))
(staff-bar . (extra-space . 0.7))
rhythmic-grob-interface
text-interface
chord-name-interface
- item-interface))))))
+ ))))))
(CombineTextScript
. (
(direction . ,RIGHT)
(positioning-done . ,ly:dot-column::calc-positioning-done)
(X-extent . ,ly:axis-group-interface::width)
- (X-offset . ,ly:dot-column::side-position)
(meta . ((class . Item)
(interfaces . (dot-column-interface
axis-group-interface))))))
. (
(stencil . ,ly:dots::print)
(dot-count . ,dots::calc-dot-count)
+ (staff-position . ,dots::calc-staff-position)
(meta . ((class . Item)
(interfaces . (font-interface
staff-symbol-referencer-interface
(Y-offset . ,ly:side-position-interface::y-aligned-side)
(staff-padding . 0.1)
(padding . 0.6)
- (avoid-slur . outside)
(slur-padding . 0.3)
(minimum-space . 1.2)
(direction . ,DOWN)
(outside-staff-priority . 250)
(Y-extent . ,ly:axis-group-interface::height)
(X-extent . ,ly:axis-group-interface::width)
+ (cross-staff . ,ly:side-position-interface::calc-cross-staff)
(meta . ((class . Spanner)
(interfaces . (axis-group-interface
dynamic-interface
(stencil . ,ly:text-interface::print)
(direction . ,ly:script-interface::calc-direction)
+ (positioning-done . ,ly:script-interface::calc-positioning-done)
(X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
(self-alignment-X . 0)
(font-series . bold)
(font-encoding . fetaDynamic)
(font-shape . italic)
- (avoid-slur . around)
(extra-spacing-width . (+inf.0 . -inf.0))
(outside-staff-priority . 250)
(meta . ((class . Item)
(DynamicTextSpanner
. (
- (stencil . ,ly:dynamic-text-spanner::print)
-
;; rather ugh with NCSB
;; (font-series . bold)
(font-shape . italic)
(style . dashed-line)
+ ;; make sure the spanner doesn't get too close to notes
+ (minimum-Y-extent . (-1 . 1))
+ (bound-details . ((right . ((attach-dir . ,LEFT)
+ (Y . 0)
+ (padding . 0.75)
+ ))
+ (right-broken . ((attach-dir . ,RIGHT)
+ (padding . 0.0)
+ ))
+
+ (left . ((attach-dir . ,LEFT)
+ (Y . 0)
+ (stencil-offset . (0 . -0.5))
+ (padding . 0.5)
+ ))
+ (left-broken . ((attach-dir . ,RIGHT)
+ ))
+ ))
+ (stencil . ,ly:line-spanner::print)
+ (left-bound-info . ,ly:line-spanner::calc-left-bound-info-and-text)
+ (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
+
;; need to blend with dynamic texts.
(font-size . 1)
- (bound-padding . 0.75)
(dash-fraction . 0.2)
(dash-period . 3.0)
(meta . ((class . Spanner)
(interfaces . (font-interface
text-interface
line-spanner-interface
+ line-interface
dynamic-interface
dynamic-text-spanner-interface
spanner-interface))))))
(self-alignment-X . 0)
(self-alignment-Y . 0)
(script-priority . 100)
-
(stencil . ,ly:text-interface::print)
(direction . ,ly:script-interface::calc-direction)
+ (positioning-done . ,ly:script-interface::calc-positioning-done)
+
(text . ,fingering::calc-text)
(font-encoding . fetaNumber)
(font-size . -5) ; don't overlap when next to heads.
text-interface
side-position-interface
self-alignment-interface
- item-interface))))))
+ ))))))
(FretBoard
. ((stencil . ,fret-board::calc-stencil)
(finger-code . below-string)
(zigzag-width . 0.75)
(X-extent . #f)
(Y-extent . #f)
+ (bound-details . ((right . ((attach-dir . ,CENTER)
+ (padding . 1.5)
+ ))
+ (left . ((attach-dir . ,CENTER)
+ (padding . 1.5)
+ ))
+ ))
(stencil . ,ly:line-spanner::print)
- (after-line-breaking . ,ly:line-spanner::after-line-breaking)
+ (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
+ (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
(meta . ((class . Spanner)
(interfaces . (line-interface
+ unbreakable-spanner-interface
line-spanner-interface))))))
(GraceSpacing
(shortest-duration-space . 1.6)
(meta . ((class . Spanner)
(interfaces . (grace-spacing-interface
- spacing-interface
+
spacing-options-interface
spanner-interface))))))
(GridPoint
(direction . ,UP)
(self-alignment-X . ,CENTER)
(meta . ((class . Item)
- (interfaces . (system-start-text-interface
- side-position-interface
+ (interfaces . (side-position-interface
font-interface))))))
(KeyCancellation
. (
(stencil . ,ly:key-signature-interface::print)
+ (glyph-name-alist . ,cancellation-glyph-name-alist)
(space-alist . (
(time-signature . (extra-space . 1.25))
(staff-bar . (extra-space . 0.6))
. (
(stencil . ,ly:key-signature-interface::print)
(avoid-slur . inside)
+ (glyph-name-alist . ,standard-alteration-glyph-name-alist)
(space-alist . (
(time-signature . (extra-space . 1.15))
(staff-bar . (extra-space . 1.1))
(first-note . (fixed-space . 2.5))))
(Y-offset . ,ly:staff-symbol-referencer::callback)
(break-align-symbol . key-signature)
+ (break-align-anchor . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
(break-visibility . ,begin-of-line-visible)
(non-musical . #t)
(meta . ((class . Item)
(LeftEdge
. (
(break-align-symbol . left-edge)
+ (break-align-anchor . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
(X-extent . (0 . 0))
(non-musical . #t)
(break-visibility . ,center-invisible)
(X-extent . #f)
(meta . ((class . Spanner)
(interfaces . (spanner-interface
- lyric-hyphen-interface spacing-interface))
+ lyric-hyphen-interface ))
))
))
(word-space . 0.6)
(font-series . bold-narrow)
(font-size . 1.0)
+ (extra-spacing-width . (0.0 . 0.0))
(meta . ((class . Item)
(interfaces . (rhythmic-grob-interface
lyric-syllable-interface
. (
(neutral-direction . ,DOWN)
(meta . ((class . Item)
- (interfaces . (melody-spanner-interface spacing-interface))))))
+ (interfaces . (melody-spanner-interface ))))))
(MensuralLigature
. (
(thickness . 1.4)
(axes . (0))
(before-line-breaking . ,ly:paper-column::before-line-breaking)
(X-extent . ,ly:axis-group-interface::width)
+ (horizontal-skylines . ,ly:separation-item::calc-skylines)
;; (stencil . ,ly:paper-column::print)
(non-musical . #t)
(meta . ((class . Paper_column)
(interfaces . (paper-column-interface
axis-group-interface
+ separation-item-interface
spaceable-grob-interface))))))
(NoteCollision
(axes . (0 1))
(X-extent . ,ly:axis-group-interface::width)
(Y-extent . ,ly:axis-group-interface::height)
+ (horizontal-skylines . ,ly:separation-item::calc-skylines)
(meta . ((class . Item)
(interfaces . (axis-group-interface
+ separation-item-interface
note-column-interface))))))
(NoteHead
(axes . (0))
(allow-loose-spacing . #t)
(before-line-breaking . ,ly:paper-column::before-line-breaking)
+ (horizontal-skylines . ,ly:separation-item::calc-skylines)
;; (stencil . ,ly:paper-column::print)
(X-extent . ,ly:axis-group-interface::width)
;; (font-size . -6) (font-name . "sans") (Y-extent . #f)
(meta . ((class . Paper_column)
(interfaces . (paper-column-interface
+ separation-item-interface
axis-group-interface
spaceable-grob-interface))))))
(minimum-length . 1.5)
(height-limit . 2.0)
(ratio . 0.333)
+ (cross-staff . ,ly:slur::calc-cross-staff)
(meta . ((class . Spanner)
(interfaces . (slur-interface))))))
(list ly:self-alignment-interface::x-aligned-on-self)))))
(Y-offset . ,ly:side-position-interface::y-aligned-side)
+ (extra-spacing-width . (+inf.0 . -inf.0))
(self-alignment-X . 0)
(direction . ,UP)
(non-musical . #t)
(font-size . 2)
(baseline-skip . 2)
(break-visibility . ,end-of-line-invisible)
- (break-align-symbol . clef)
+ (break-align-symbols . (staff-bar clef))
(padding . 0.8)
(outside-staff-priority . 1500)
(meta . ((class . Item)
(X-extent . #f)
(Y-extent . #f)
(direction . ,ly:tie::calc-direction)
- (head-direction . ,RIGHT)
+ (head-direction . ,ly:semi-tie-column::calc-head-direction)
(positioning-done . ,ly:semi-tie-column::calc-positioning-done)
(meta . ((class . Item)
;; padding set in script definitions.
(staff-padding . 0.25)
- ;; (script-priority . 0) priorities for scripts, see script.scm
- (X-offset . ,ly:self-alignment-interface::centered-on-x-parent)
+ (X-offset . ,script-interface::calc-x-offset)
(Y-offset . ,ly:side-position-interface::y-aligned-side)
(side-axis . ,Y)
(stencil . ,ly:script-interface::print)
(direction . ,ly:script-interface::calc-direction)
+ (positioning-done . ,ly:script-interface::calc-positioning-done)
(font-encoding . fetaMusic)
+ (cross-staff . ,ly:script-interface::calc-cross-staff)
(meta . ((class . Item)
(interfaces . (script-interface
side-position-interface
(avoid-slur . inside)
(X-extent . ,ly:axis-group-interface::width)
(Y-extent . ,ly:axis-group-interface::height)
- (skylines . ,ly:separation-item::calc-skylines)
+ (horizontal-skylines . ,ly:separation-item::calc-skylines)
+ (stencil . ,ly:separation-item::print)
(meta . ((class . Item)
- (interfaces . (spacing-interface
+ (interfaces . (
separation-item-interface))))))
- (SeparatingGroupSpanner
- . (
- (springs-and-rods . ,ly:separating-group-spanner::set-spacing-rods)
- (meta . ((class . Spanner)
- (interfaces . (only-prebreak-interface
- spacing-interface
- separating-group-spanner-interface))))))
-
(Slur
. ((details . ,default-slur-details)
(control-points . ,ly:slur::calc-control-points)
(height-limit . 2.0)
(ratio . 0.25)
(avoid-slur . inside)
+ (cross-staff . ,ly:slur::calc-cross-staff)
(meta . ((class . Spanner)
(interfaces . (slur-interface))))))
(base-shortest-duration . ,(ly:make-moment 3 16))
(meta . ((class . Spanner)
- (interfaces . (spacing-interface
+ (interfaces . (
spacing-options-interface
spacing-spanner-interface))))))
(Y-extent . ,ly:stem::height)
(length . ,ly:stem::calc-length)
(thickness . 1.3)
+ (cross-staff . ,ly:stem::calc-cross-staff)
(details
. (
;; 3.5 (or 3 measured from note head) is standard length
(StemTremolo
. (
(Y-extent . ,ly:stem-tremolo::height)
+ (X-extent . ,ly:stem-tremolo::width)
(stencil . ,ly:stem-tremolo::print)
- (X-extent . #f)
(slope . ,ly:stem-tremolo::calc-slope)
(beam-width . ,ly:stem-tremolo::calc-width) ; staff-space
(style . ,ly:stem-tremolo::calc-style)
text-interface
side-position-interface
self-alignment-interface
- item-interface))))))
+ ))))))
(StrokeFinger
. (
text-interface
side-position-interface
self-alignment-interface
- item-interface))))))
+ ))))))
(SustainPedal
(X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
(meta . ((class . Item)
(interfaces . (piano-pedal-interface
- text-spanner-interface
- line-spanner-interface
text-interface
self-alignment-interface
piano-pedal-script-interface
(axes . (0 1))
(X-extent . ,ly:axis-group-interface::width)
(Y-extent . ,ly:axis-group-interface::height)
- (skylines . ,ly:axis-group-interface::calc-skylines)
- (skyline-horizontal-padding . 1.0)
+ (vertical-skylines . ,ly:axis-group-interface::calc-skylines)
+ (max-stretch . ,ly:axis-group-interface::calc-max-stretch)
(meta . ((class . System)
(interfaces . (system-interface
axis-group-interface))))))
(stencil . ,ly:text-interface::print)
(direction . ,ly:script-interface::calc-direction)
+ (positioning-done . ,ly:script-interface::calc-positioning-done)
(outside-staff-priority . 450)
(avoid-slur . around)
(TextSpanner
. (
- (stencil . ,ly:text-spanner::print)
(Y-offset . ,ly:side-position-interface::y-aligned-side)
(font-shape . italic)
(style . dashed-line)
(side-axis . ,Y)
(direction . ,UP)
(outside-staff-priority . 350)
+
+ (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
+ (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
+ (bound-details . ((left . ((Y . 0)
+ (padding . 0.25)
+ (attach-dir . ,LEFT)
+ ))
+ (right . ((Y . 0)
+ (padding . 0.25)
+ ))
+ ))
+ (stencil . ,ly:line-spanner::print)
+
(meta . ((class . Spanner)
- (interfaces . (text-spanner-interface
- line-spanner-interface
+ (interfaces . (line-spanner-interface
side-position-interface
font-interface))))))
(stem-gap . 0.35)
(height-limit . 1.0)
(horizontal-distance-penalty-factor . 10)
- (min-length-penalty-factor . 20)
+ (same-dir-as-stem-penalty . 8)
+ (min-length-penalty-factor . 26)
(tie-tie-collision-distance . 0.45)
(tie-tie-collision-penalty . 25.0)
(intra-space-threshold . 1.25)
(outer-tie-vertical-distance-symmetry-penalty-factor . 10)
(outer-tie-length-symmetry-penalty-factor . 10)
+ (vertical-distance-penalty-factor . 7)
(outer-tie-vertical-gap . 0.25)
(multi-tie-region-size . 1)
+ (single-tie-region-size . 4)
(between-length-limit . 1.0)))
(thickness . 1.2)
. (
(stencil . ,ly:time-signature::print)
(break-align-symbol . time-signature)
+ (break-align-anchor . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
(break-visibility . ,all-visible)
(avoid-slur . inside)
(space-alist . (
(TrillSpanner
. (
- (stencil . ,ly:dynamic-text-spanner::print)
- (edge-text . ,(cons (make-musicglyph-markup "scripts.trill")
- ""))
+ (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
+ (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
+
+ (bound-details . ((left . ((text . ,(make-translate-scaled-markup
+ '(0.5 . -0.6)
+ (make-musicglyph-markup "scripts.trill")))
+ (Y . 0)
+ (padding . 0.25)
+ (attach-dir . ,LEFT)
+ ))
+ (right . ((Y . 0)))
+ ))
+
+ (stencil . ,ly:line-spanner::print)
+
(style . trill)
(staff-padding . 1.0)
(padding . 0.5)
(side-axis . ,Y)
(outside-staff-priority . 50)
(meta . ((class . Spanner)
- (interfaces . (text-spanner-interface
- line-spanner-interface
+ (interfaces . (line-spanner-interface
+ line-interface
+ trill-spanner-interface
side-position-interface
font-interface))))))
(font-size . -4)
(side-axis . ,X)
(stencil . ,ly:accidental-interface::print)
+ (Y-extent . ,ly:accidental-interface::height)
+ (glyph-name-alist . ,standard-alteration-glyph-name-alist)
(meta . ((class . Item)
- (interfaces . (item-interface
- trill-pitch-accidental-interface
+ (interfaces . (trill-pitch-accidental-interface
+ accidental-interface
side-position-interface
font-interface))))))
(padding . 0.3)
(meta . ((class . Item)
(interfaces . (side-position-interface
+ parentheses-interface
note-head-interface
rhythmic-head-interface
font-interface
- accidental-interface
axis-group-interface))))))
(TrillPitchHead
(Y-offset . ,ly:staff-symbol-referencer::callback)
(font-size . -4)
(meta . ((class . Item)
- (interfaces . (item-interface
- rhythmic-head-interface
+ (interfaces . (rhythmic-head-interface
font-interface
pitched-trill-interface
ledgered-interface
(connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors)
(control-points . ,ly:tuplet-bracket::calc-control-points)
(stencil . ,ly:tuplet-bracket::print)
+ (cross-staff . ,ly:tuplet-bracket::calc-cross-staff)
(meta . ((class . Spanner)
(interfaces . (line-interface
(font-shape . italic)
(font-size . -2)
(avoid-slur . inside)
+ (cross-staff . ,ly:tuplet-number::calc-cross-staff)
(meta . ((class . Spanner)
(interfaces . (text-interface tuplet-number-interface
font-interface))))))
(X-extent . ,ly:axis-group-interface::width)
(stacking-dir . -1)
(padding . 0.5)
- (skylines . ,ly:axis-group-interface::combine-skylines)
+ (vertical-skylines . ,ly:axis-group-interface::combine-skylines)
+ (max-stretch . ,ly:align-interface::calc-max-stretch)
(meta . ((class . Spanner)
+ (object-callbacks . ((Y-common . ,ly:axis-group-interface::calc-y-common)))
(interfaces . (align-interface
axis-group-interface))))))
(VerticalAxisGroup
(Y-offset . ,ly:hara-kiri-group-spanner::force-hara-kiri-callback)
(Y-extent . ,ly:hara-kiri-group-spanner::y-extent)
(X-extent . ,ly:axis-group-interface::width)
- (skylines . ,ly:axis-group-interface::calc-skylines);
+ (vertical-skylines . ,ly:hara-kiri-group-spanner::calc-skylines)
+ (max-stretch . ,ly:axis-group-interface::calc-max-stretch)
+ (stencil . ,ly:axis-group-interface::print)
+ (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights)
(meta . ((class . Spanner)
+ (object-callbacks . ((X-common . ,ly:axis-group-interface::calc-x-common)))
(interfaces . (axis-group-interface
hara-kiri-group-spanner-interface
vertically-spaceable-interface))))))
(VoltaBracket
. (
(stencil . ,ly:volta-bracket-interface::print)
- (direction . ,UP)
- (padding . 1)
(font-encoding . fetaNumber)
- (Y-offset . ,ly:side-position-interface::y-aligned-side)
- (side-axis . ,Y)
(thickness . 1.6) ;; line-thickness
(edge-height . (2.0 . 2.0)) ;; staff-space;
- (minimum-space . 5)
(font-size . -4)
- (outside-staff-priority . 100)
+ (direction . ,UP)
(meta . ((class . Spanner)
(interfaces . (volta-bracket-interface
horizontal-bracket-interface
font-interface)))
)))
+ (VoltaBracketSpanner
+ . (
+ (axes . (1))
+ (side-axis . ,Y)
+ (direction . ,UP)
+ (padding . 1)
+ (Y-offset . ,ly:side-position-interface::y-aligned-side)
+ (outside-staff-priority . 100)
+ (Y-extent . ,ly:axis-group-interface::height)
+ (X-extent . ,ly:axis-group-interface::width)
+ (no-alignment . ,#t)
+ (meta . ((class . Spanner)
+ (interfaces . (side-position-interface
+ axis-group-interface)))
+ )))
(VoiceFollower
. (
(non-musical . #t)
(X-extent . #f)
(Y-extent . #f)
+ (bound-details . ((right . ((attach-dir . ,CENTER)
+ (padding . 1.5)
+ ))
+ (left . ((attach-dir . ,CENTER)
+ (padding . 1.5)
+ ))
+ ))
(stencil . ,ly:line-spanner::print)
- (after-line-breaking . ,ly:line-spanner::after-line-breaking)
+ (left-bound-info . ,ly:line-spanner::calc-left-bound-info)
+ (right-bound-info . ,ly:line-spanner::calc-right-bound-info)
(meta . ((class . Spanner)
(interfaces . (line-spanner-interface
line-interface))))
(cons 'spanner-interface ifaces-entry))))
(else
(ly:warning "Unknown class ~a" class)))
+
+ (set! ifaces-entry (uniq-list (sort ifaces-entry symbol<?)))
(set! ifaces-entry (cons 'grob-interface ifaces-entry))
(set! meta-entry (assoc-set! meta-entry 'name name-sym))
(define pure-print-callbacks
(list
+ print-circled-text-callback
+ lyric-text::print
+ ly:arpeggio::print
+ ly:arpeggio::brew-chord-bracket
ly:bar-line::print
ly:note-head::print
- ly:accidental-interface::print
ly:dots::print
ly:clef::print
ly:text-interface::print
'(0 . 0))))
(define pure-conversions-alist
- (list
- `(,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback)
- `(,ly:stem::height . ,ly:stem::pure-height)
- `(,ly:grob::stencil-height . ,pure-stencil-height)
- `(,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::pure-y-aligned-side)
- `(,ly:axis-group-interface::height . ,ly:axis-group-interface::pure-height)
- `(,ly:hara-kiri-group-spanner::y-extent . ,ly:hara-kiri-group-spanner::pure-height)
- `(,ly:slur::height . ,ly:slur::pure-height)
- `(,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::pure-y-aligned-side)))
+ `(
+ (,ly:accidental-interface::height . ,ly:accidental-interface::pure-height)
+ (,ly:arpeggio::height . ,ly:arpeggio::pure-height)
+ (,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback)
+ (,ly:stem::height . ,ly:stem::pure-height)
+ (,ly:rest::height . ,ly:rest::pure-height)
+ (,ly:grob::stencil-height . ,pure-stencil-height)
+ (,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::pure-y-aligned-side)
+ (,ly:axis-group-interface::height . ,ly:axis-group-interface::pure-height)
+ (,ly:hara-kiri-group-spanner::y-extent . ,ly:hara-kiri-group-spanner::pure-height)
+ (,ly:slur::height . ,ly:slur::pure-height)
+ (,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::pure-y-aligned-side)))
(define pure-functions
(list
ly:staff-symbol-referencer::callback
ly:staff-symbol::height))
-(define-public (pure-relevant grob)
+(define-public (pure-relevant? grob)
(let ((extent-callback (ly:grob-property-data grob 'Y-extent)))
(not (eq? #f
(or
(or
(not (eq? extent-callback ly:grob::stencil-height))
(memq (ly:grob-property-data grob 'stencil) pure-print-callbacks)
- (ly:stencil? (ly:grob-property-data grob 'stencil))))))))))
+ (ly:stencil? (ly:grob-property-data grob 'stencil))
+
+ ))))))))
(define-public (call-pure-function unpure args start end)
(if (ly:simple-closure? unpure)