X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-grobs.scm;h=b71c5787fca49cbb08f12ddb4a513d4a49ae0849;hb=75a8703aa16cee634e7c817036e3112584f332f5;hp=e1ac6d13aa9ba3b140b0465d729abdf64ef28e4f;hpb=23ddb59c62db20bbaef64bfa0ac5a395379ef58c;p=lilypond.git diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm index e1ac6d13aa..b71c5787fc 100644 --- a/scm/define-grobs.scm +++ b/scm/define-grobs.scm @@ -120,7 +120,11 @@ (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self)) (direction . 1) (font-family . number) - (font-relative-size . -3) + + ;; We must do this, other BFs in + ;; paper16 become too small. + (font-relative-size . -2) + (font-magnification . 0.8) (kern . 0.2) (meta . ((interfaces . (text-interface rhythmic-grob-interface bass-figure-interface item-interface @@ -133,7 +137,7 @@ (molecule-callback . ,Beam::brew_molecule) (concaveness-gap . 2.0) (concaveness-threshold . 0.08) - + (gap . 0.8) (positions . (#f . #f)) (position-callbacks . (,Beam::least_squares ,Beam::check_concave @@ -223,8 +227,7 @@ (font-family . music) (break-align-symbol . clef) (break-visibility . ,begin-of-line-visible) - (space-alist . ( - (ambitus . (extra-space . 2.0)) + (space-alist . ((ambitus . (extra-space . 2.0)) (staff-bar . (minimum-space . 3.7)) (key-signature . (minimum-space . 4.0)) (time-signature . (minimum-space . 4.2)) @@ -254,10 +257,10 @@ (ChordName . ( - (molecule-callback . ,new-chord-name-brew-molecule) + (molecule-callback . ,Text_item::brew_molecule) (after-line-breaking-callback . ,Chord_name::after_line_breaking) - (word-space . 1.0) - (font-family . roman) + (word-space . 0.0) + (font-family . sans) (meta . ((interfaces . (font-interface rhythmic-grob-interface text-interface chord-name-interface item-interface )))) )) @@ -377,10 +380,11 @@ )) - (HaraKiriVerticalGroup + (RemoveEmptyVerticalGroup . ( (Y-offset-callbacks . (,Hara_kiri_group_spanner::force_hara_kiri_callback)) (Y-extent-callback . ,Hara_kiri_group_spanner::y_extent) + (remove-first . #t) (axes . (1)) (meta . ((interfaces . (axis-group-interface hara-kiri-group-interface item-interface spanner-interface)))) )) @@ -569,7 +573,7 @@ (Y-offset-callbacks . (,Side_position_interface::aligned_side)) (self-alignment-X . 0) (direction . 1) - (padding . 2) + (padding . 1.3) (font-family . number) (meta . ((interfaces . (side-position-interface self-alignment-interface font-interface spanner-interface text-interface)))) )) @@ -581,7 +585,7 @@ (Y-offset-callbacks . (,Side_position_interface::aligned_side)) (self-alignment-X . 0) (direction . 1) - (padding . 2) + (padding . 1.5) (font-family . roman) (meta . ((interfaces . (side-position-interface self-alignment-interface font-interface spanner-interface text-interface)))) )) @@ -649,7 +653,6 @@ (OctavateEight . ( (self-alignment-X . 0) - (text . "8") (break-visibility . ,begin-of-line-visible) (X-offset-callbacks . (,Self_alignment_interface::centered_on_parent ,Self_alignment_interface::aligned_on_self)) (Y-offset-callbacks . (,Side_position_interface::aligned_side)) @@ -738,7 +741,7 @@ (RepeatSlash . ( - (molecule-callback . , Percent_repeat_item_interface::beat_slash) + (molecule-callback . ,Percent_repeat_item_interface::beat_slash) (thickness . 0.48) (slope . 1.7) (meta . ((interfaces . (percent-repeat-interface item-interface )))) @@ -938,9 +941,9 @@ (beamed-lengths . (3.26 3.26 1.5)) ;; [Wanske] lists three sets of minimum lengths. One - ;; set for the nomal case, and one set for beams with `der - ;; Balkenendpunkt weiter "uber bzw. unter die Systemgrenze - ;; hinaus (bei Gruppen mit grossem Tonumfang)' and the extreme + ;; set for the nomal case, and one set for beams with "der + ;; Balkenendpunkt weiter uber bzw. unter die Systemgrenze + ;; hinaus (bei Gruppen mit grossem Tonumfang)" and the extreme ;; case. ;; Note that Wanske lists numbers lengths starting from top of @@ -950,10 +953,10 @@ ;; and the extreme minima as abolute minimum length. ;; The 'normal' minima - (beamed-minimum-free-lengths . (2.5 2.0 1.0)) + (beamed-minimum-free-lengths . (1.83 1.5 1.25)) ;; The 'extreme case' minima - (beamed-extreme-minimum-free-lengths . (1.83 1.5 1.25)) + (beamed-extreme-minimum-free-lengths . (2.5 2.0 1.0)) (X-offset-callbacks . (,Stem::off_callback)) (X-extent-callback . ,Stem::dim_callback) @@ -1071,11 +1074,13 @@ . ( (molecule-callback . ,Text_spanner::brew_molecule) (font-family . roman) - (style . line) + (style . dashed-line) ;; urg, only for (de)cresc. text spanners (if-text-padding . 1.0) (width-correct . -1) + (dash-fraction . 0.2) + (dash-period . 3.0) (direction . 1) (meta . ((interfaces . (text-spanner-interface side-position-interface font-interface spanner-interface)))) )) @@ -1088,6 +1093,7 @@ (enclose-bounds . #t) (width-correct . 0.0) (style . dashed-line) + (dash-fraction . 0.3) (edge-height . (0 . 1.5)) (direction . 1) (meta . ((interfaces . (text-spanner-interface side-position-interface font-interface spanner-interface)))) @@ -1133,6 +1139,7 @@ (TimeSignature . ( (molecule-callback . ,Time_signature::brew_molecule) +; (molecule-callback . ,Text_item::brew_molecule) (break-align-symbol . time-signature) (break-visibility . ,all-visible) (space-alist . ( @@ -1142,6 +1149,7 @@ )) (breakable . #t) (style . C) +; (text . (,time-signature-glue-markup)) (font-family . number) (meta . ((interfaces . (time-signature-interface break-aligned-interface font-interface item-interface )))) )) @@ -1191,7 +1199,7 @@ (VaticanaLigature . ( - (thickness . 1.0) + (thickness . 0.6) (flexa-width . 2.0) (ligature-primitive-callback . ,Vaticana_ligature::brew_ligature_primitive) (molecule-callback . ,Vaticana_ligature::brew_molecule) @@ -1217,6 +1225,7 @@ . ( (axes . (1)) (Y-extent-callback . ,Axis_group_interface::group_extent_callback) + (X-extent-callback . ,Axis_group_interface::group_extent_callback) (stacking-dir . -1) (meta . ((interfaces . (align-interface axis-group-interface spanner-interface)))) )) @@ -1225,6 +1234,7 @@ . ( (axes . (1)) (Y-extent-callback . ,Axis_group_interface::group_extent_callback) + (X-extent-callback . ,Axis_group_interface::group_extent_callback) (meta . ((interfaces . (axis-group-interface spanner-interface)))) ))