X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-grobs.scm;h=3af72b06477e8d7dbea91025548145d7678fcdfb;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=07a22448302f54c754f7c97ccc9ce47ebfba42f2;hpb=adfdbf4765643e9e12256634d655382fc7966f36;p=lilypond.git diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm index 07a2244830..3af72b0647 100644 --- a/scm/define-grobs.scm +++ b/scm/define-grobs.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 1998--2007 Han-Wen Nienhuys +;;;; (c) 1998--2008 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen ;;;; distances are given in line-thickness (thicknesses) and @@ -171,7 +171,8 @@ (X-offset . ,(grob::calc-property-by-copy 'X-offset)) (Y-offset . ,(grob::calc-property-by-copy 'Y-offset)) (meta . ((class . Item) - (interfaces . (text-interface + (interfaces . (balloon-interface + text-interface font-interface)))))) (BarLine . ( @@ -231,7 +232,7 @@ ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self))))) - (self-alignment-X . 1) + (self-alignment-X . ,RIGHT) ;; want the bar number before the clef at line start. (break-align-symbols . (left-edge staff-bar)) @@ -535,11 +536,10 @@ (first-note . (minimum-fixed-space . 0.0)) (right-edge . (extra-space . 0.1)))) (meta . ((class . Item) - (interfaces - . (custos-interface - staff-symbol-referencer-interface - font-interface - break-aligned-interface)))))) + (interfaces . (custos-interface + staff-symbol-referencer-interface + font-interface + break-aligned-interface)))))) (DotColumn . ( @@ -566,6 +566,8 @@ (stencil . ,ly:percent-repeat-item-interface::double-percent) (non-musical . #t) (slope . 1.0) + (dot-negative-kern . 0.75) + (slash-negative-kern . 1.6) (font-encoding . fetaMusic) (width . 2.0) (thickness . 0.48) @@ -574,6 +576,7 @@ (meta . ((class . Item) (interfaces . (font-interface break-aligned-interface + percent-repeat-interface percent-repeat-item-interface)))))) (DoublePercentRepeatCounter @@ -597,6 +600,7 @@ (interfaces . (side-position-interface self-alignment-interface percent-repeat-item-interface + percent-repeat-interface font-interface text-interface)))))) @@ -753,9 +757,9 @@ (shortest-duration-space . 1.6) (meta . ((class . Spanner) (interfaces . (grace-spacing-interface - spacing-options-interface spanner-interface)))))) + (GridPoint . ( (X-extent . (0 . 0)) @@ -831,6 +835,7 @@ (meta . ((class . Spanner) (interfaces . (system-start-text-interface side-position-interface + self-alignment-interface font-interface)))))) (InstrumentSwitch @@ -844,9 +849,11 @@ (side-axis . ,Y) (self-alignment-X . ,LEFT) (outside-staff-priority . 500) - (extra-spacing-width . '(+inf.0 . -inf.0)) + (extra-spacing-width . (+inf.0 . -inf.0)) (meta . ((class . Item) (interfaces . (side-position-interface + self-alignment-interface + text-interface font-interface)))))) @@ -867,6 +874,7 @@ (meta . ((class . Item) (interfaces . (key-cancellation-interface key-signature-interface + staff-symbol-referencer-interface font-interface break-aligned-interface)))))) @@ -887,6 +895,7 @@ (non-musical . #t) (meta . ((class . Item) (interfaces . (key-signature-interface + staff-symbol-referencer-interface font-interface break-aligned-interface)))))) @@ -1308,11 +1317,12 @@ (stencil . ,ly:multi-measure-rest::percent) (slope . 1.0) (thickness . 0.48) + (dot-negative-kern . 0.75) (font-encoding . fetaMusic) (meta . ((class . Spanner) (interfaces . (multi-measure-rest-interface font-interface - percent-repeat-item-interface)))))) + percent-repeat-interface)))))) (PercentRepeatCounter . ( @@ -1333,7 +1343,7 @@ (meta . ((class . Spanner) (interfaces . (side-position-interface self-alignment-interface - percent-repeat-item-interface + percent-repeat-interface font-interface text-interface)))))) @@ -1389,6 +1399,7 @@ (slope . 1.7) (meta . ((class . Item) (interfaces . (rhythmic-grob-interface + percent-repeat-interface percent-repeat-item-interface)))))) (RepeatTie @@ -1478,11 +1489,11 @@ (horizontal-skylines . ,ly:separation-item::calc-skylines) (stencil . ,ly:separation-item::print) (meta . ((class . Item) - (interfaces . ( - separation-item-interface)))))) + (interfaces . (separation-item-interface)))))) (Slur - . ((details . ,default-slur-details) + . ( + (details . ,default-slur-details) (control-points . ,ly:slur::calc-control-points) (direction . ,ly:slur::calc-direction) (springs-and-rods . ,ly:spanner::set-spacing-rods) @@ -1540,8 +1551,7 @@ (base-shortest-duration . ,(ly:make-moment 3 16)) (meta . ((class . Spanner) - (interfaces . ( - spacing-options-interface + (interfaces . (spacing-options-interface spacing-spanner-interface)))))) (SpanBar @@ -1621,6 +1631,7 @@ (length . ,ly:stem::calc-length) (thickness . 1.3) (cross-staff . ,ly:stem::calc-cross-staff) + (flag . ,ly:stem::calc-flag) (details . ( ;; 3.5 (or 3 measured from note head) is standard length @@ -1679,6 +1690,7 @@ (self-alignment-X . ,CENTER) (self-alignment-Y . ,CENTER) (script-priority . 100) + (avoid-slur . around) (font-encoding . fetaNumber) (font-size . -5) ; don't overlap when next to heads. (meta . ((class . Item) @@ -1823,12 +1835,12 @@ (stem-attachment . (0.0 . 1.35)) (font-series . bold) (meta . ((class . Item) - (interfaces - . (rhythmic-head-interface - font-interface rhythmic-grob-interface - note-head-interface - staff-symbol-referencer-interface - text-interface)))))) + (interfaces . (rhythmic-head-interface + font-interface + rhythmic-grob-interface + note-head-interface + staff-symbol-referencer-interface + text-interface)))))) (TextScript . ( @@ -1855,6 +1867,7 @@ (meta . ((class . Item) (interfaces . (text-script-interface text-interface + instrument-specific-markup-interface side-position-interface font-interface)))))) @@ -1878,12 +1891,13 @@ )) (right . ((Y . 0) (padding . 0.25) - )) + )) )) (stencil . ,ly:line-spanner::print) (meta . ((class . Spanner) (interfaces . (line-spanner-interface + line-interface side-position-interface font-interface)))))) @@ -1914,7 +1928,7 @@ (outer-tie-length-symmetry-penalty-factor . 10) (vertical-distance-penalty-factor . 7) (outer-tie-vertical-gap . 0.25) - (multi-tie-region-size . 1) + (multi-tie-region-size . 3) (single-tie-region-size . 4) (between-length-limit . 1.0))) @@ -1940,6 +1954,7 @@ . ,ly:break-aligned-interface::calc-extent-aligned-anchor) (break-visibility . ,all-visible) (avoid-slur . inside) + (extra-spacing-height . (-1.0 . 1.0)) (space-alist . ( (first-note . (fixed-space . 2.0)) (right-edge . (extra-space . 0.5)) @@ -2039,6 +2054,7 @@ (edge-height . (0.7 . 0.7)) (shorten-pair . (-0.2 . -0.2)) (staff-padding . 0.25) + (full-length-to-extent . #t) (direction . ,ly:tuplet-bracket::calc-direction) (positions . ,ly:tuplet-bracket::calc-positions) (connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors) @@ -2244,6 +2260,7 @@ (define pure-print-callbacks (list + fret-board::calc-stencil print-circled-text-callback lyric-text::print ly:arpeggio::print