Permalink
Browse files

Make tempos at beginning legible.

  • Loading branch information...
1 parent 3b0e2a7 commit e11fa6e619a163ec8768de22b8ce68453c8b2332 @horndude77 committed Nov 26, 2011
Showing with 14 additions and 0 deletions.
  1. +12 −0 ChevillardAllegroOp18/defs.ily
  2. +2 −0 ChevillardAllegroOp18/horn.ily
@@ -13,6 +13,18 @@ justSempreCresc = #(make-music 'CrescendoEvent 'span-direction START 'span-type
cantabile = \markup {\italic cantabile}
+tempoTextLengthOn =
+{
+ \override Score.MetronomeMark #'extra-spacing-width = #'(0 . 0)
+ \override Score.MetronomeMark #'extra-spacing-height = #'(-inf.0 . +inf.0)
+}
+
+tempoTextLengthOff =
+{
+ \override Score.MetronomeMark #'extra-spacing-width = #'(+inf.0 . -inf.0)
+ \override Score.MetronomeMark #'extra-spacing-height = #'(0 . 0)
+}
+
afterGraceFraction = #(cons 15 16)
\layout
@@ -1,7 +1,9 @@
\relative c''
{
\transposition f
+ \tempoTextLengthOn
R1*8 |
+ \tempoTextLengthOff
r4 g-.\p d'2~ |
d4 b8( a g4) a-. |
g-. \times 2/3 {d8 g b} d2~ |

0 comments on commit e11fa6e

Please sign in to comment.