* input/mozart-hrn-3.ly: Mimic Breitkopf fonts and padding.

[lilypond.git] / input / mozart-hrn-3.ly

diff --git a/input/mozart-hrn-3.ly b/input/mozart-hrn-3.ly
index 6543c0813d3d73c4737cd17653d1d6da948fb6b3..2e06c75424a8d6e0d9ac9670f94e68a0b1c7e032 100644 (file)
--- a/input/mozart-hrn-3.ly
+++ b/input/mozart-hrn-3.ly
@@ -38,18 +38,45 @@ ritenuto = \textscript #'(italic  "rit.")
 
 \version "1.5.47"
 
+#(define italic-bf '((font-shape . italic) (font-series . bold)))
+
+%% burp
+%% the very idea of a style sheet, is that it's easy to override
+#(define (set-style! sheet name style)
+  (set-cdr! (assoc 'mark-letter (cdr (assoc 'style-alist sheet))) style))
+
+#(define my-sheet (make-style-sheet 'paper20))
+#(set-style! my-sheet 'mark-letter '((font-family . roman)
+                                    (font-series . bold)
+                                    (font-shape . upright)
+                                    (font-relative-size . 3)))
+  
+cresc = \notes {
+    \commandspanrequest \start "crescendo" 
+    \property Voice.crescendoText = #`(,italic-bf "cresc.")
+    \property Voice.crescendoSpanner = #'dashed-line
+}
+
 \paper{
- \translator { \ScoreContext
+    \stylesheet #my-sheet
+    \translator {
+       \ScoreContext
        skipBars = ##t
        midiInstrument = #"french horn"
-       RehearsalMark \override #'font-series = #'bold
+       %% try to mimic Breitkopf
+       RehearsalMark \override #'padding = #1
+       MultiMeasureRest \override #'padding = #0.5
+       MultiMeasureRest \override #'number-threshold = #1
        Stem \override #'thickness = #1.3
-  }
- \translator { \StaffContext
-              MinimumVerticalExtent = #'(-4.5 . 4.5)
-              }
-  indent = 10. \mm
-  linewidth = 189. \mm
+       Beam \override #'thickness = #0.6
+       Beam \override #'beam-space = #0.8
+    }
+    \translator {
+       \StaffContext
+       MinimumVerticalExtent = #'(-4.5 . 4.5)
+    }
+    indent = 10. \mm
+    linewidth = 189. \mm
 }
 
 \include "mozart-hrn3-allegro.ly"