* ly/performer-init.ly: add CueVoice to MIDI too.

[lilypond.git] / scm / define-grobs.scm

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 7973045b7b9e65329d4f96892d572c5140775760..f6a82e8ea35b98c53892f41a22b85532b5032956 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -428,7 +428,7 @@
                        (time-signature . (extra-space . 0.0))
                        (staff-bar . (extra-space . 0.0))
                        (breathing-sign . (minimum-space . 0.0))
-                       (clef . (extra-space . 0.85))
+                       (clef . (extra-space . 0.8))
                        (first-note . (fixed-space . 1.0))
                        (right-edge . (extra-space . 0.0))
                        (key-signature . (extra-space . 0.0))
@@ -455,6 +455,21 @@
                                side-position-interface self-alignment-interface
                                item-interface))))
        ))
+    (StringNumber
+     . (
+       (print-function . ,print-circled-text-callback)
+       (padding . 0.5)
+       (staff-padding . 0.5)
+       (self-alignment-X . 0)
+       (self-alignment-Y . 0)
+       (script-priority . 100)
+       (font-encoding . fetaNumber)
+       (font-size . -5)                ; don't overlap when next to heads.
+       (meta . ((interfaces . (string-number-interface
+                               font-interface text-script-interface text-interface
+                               side-position-interface self-alignment-interface
+                               item-interface))))
+       ))
 
     (Glissando
      . (
@@ -472,6 +487,7 @@
     (Hairpin
      . (
        (print-function . ,Hairpin::print)
+       (after-line-breaking-callback . ,Hairpin::after_line_breaking)
        (thickness . 1.0)
        (height . 0.6666)
        (spacing-procedure . ,Spanner::set_spacing_rods)
@@ -572,7 +588,7 @@
        (print-function . ,Ledger_line_spanner::print)
        (X-extent-callback . #f)
        (Y-extent-callback . #f)
-       (minimum-length-fraction . 0.15)
+       (minimum-length-fraction . 0.25)
        (length-fraction . 0.25)
        (spacing-procedure . ,Ledger_line_spanner::set_spacing_rods)
        (print-function . ,Ledger_line_spanner::print)
@@ -601,7 +617,9 @@
        (height . 0.42)
        (dash-period . 10.0)
        (length . 0.66)
-       (spacing-procedure . ,Hyphen_spanner::set_spacing_rods)
+       (minimum-length . 0.3)
+       (padding . 0.07)
+;      (spacing-procedure . ,Hyphen_spanner::set_spacing_rods)
        (print-function . ,Hyphen_spanner::print)
        (Y-extent . (0 . 0))
        (meta . ((interfaces . (lyric-interface lyric-hyphen-interface
@@ -747,7 +765,7 @@
     (NoteSpacing
      . (
        (stem-spacing-correction . 0.5)
-
+       (same-direction-correction . 0.25)
        ;; Changed this from 0.75.
        ;; If you ever change this back, please document! --hwn
        (knee-spacing-correction . 1.0)
@@ -804,7 +822,7 @@
     (PhrasingSlur
      . ((slur-details . ,default-slur-details)
        (print-function . ,Slur::print)
-       (thickness . 1.2)               
+       (thickness . 1.1)               
        (spacing-procedure . ,Spanner::set_spacing_rods)                
        (minimum-length . 1.5)
        (after-line-breaking-callback . ,Slur::after_line_breaking)
@@ -917,7 +935,7 @@
     (Slur
      . ((slur-details . ,default-slur-details)
        (print-function . ,Slur::print)
-       (thickness . 1.2)               
+       (thickness . 1.0)               
        (spacing-procedure . ,Spanner::set_spacing_rods)                
        (minimum-length . 1.5)
        (after-line-breaking-callback . ,Slur::after_line_breaking)
@@ -1239,7 +1257,7 @@
        (spacing-procedure . ,Spanner::set_spacing_rods)
        (staffline-clearance . 0.35)
        (details . ((ratio . 0.333) (height-limit . 1.0)))
-       (thickness . 1.2)
+       (thickness . 1.0)
        (x-gap . -0.1)
        (y-offset . 0.6)
        (minimum-length . 2.5)
@@ -1282,7 +1300,7 @@
        (after-line-breaking-callback . ,Tuplet_bracket::after_line_breaking)
        (print-function . ,Tuplet_bracket::print)
        (font-shape . italic)
-       (font-series . bold)
+;      (font-series . bold)
 
        (font-size . -2)
        (meta . ((interfaces . (text-interface line-interface tuplet-bracket-interface font-interface spanner-interface))))