From: hanwen <hanwen>
Date: Fri, 19 Apr 2002 23:09:42 +0000 (+0000)
Subject: ''
X-Git-Tag: release/1.5.59~114
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3711a724bccad1c5d84aea4b5078a19817173aff;p=lilypond.git

''
---

diff --git a/input/mozart-hrn3-defs.ly b/input/mozart-hrn3-defs.ly
new file mode 100644
index 0000000000..96dfe0b9a1
--- /dev/null
+++ b/input/mozart-hrn3-defs.ly
@@ -0,0 +1,51 @@
+
+
+% #(set! point-and-click line-column-location)
+
+longgrace = \property Voice.Stem \override #'flag-style = #'()
+endlonggrace = \property Voice.Stem \revert #'flag-style
+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{
+    \stylesheet #my-sheet
+    \translator {
+        \ScoreContext
+        skipBars = ##t
+        midiInstrument = #"french horn"
+        %% try to mimic Breitkopf
+        RehearsalMark \override #'padding = #1
+        MultiMeasureRest \override #'padding = #0.5
+        MultiMeasureRest \override #'number-threshold = #1
+        
+        Beam \override #'thickness = #0.6
+        Beam \override #'beam-space = #0.8
+        Slur \override #'beautiful = #0.3
+    }
+    \translator {
+        \StaffContext
+        MinimumVerticalExtent = #'(-4.5 . 4.5)
+    }
+    indent = 10. \mm
+    linewidth = 189. \mm
+}