X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fmutopia%2FW.A.Mozart%2Fmozart-hrn3-defs.ly;h=b4898722dab1853aa57b7c190543d42b83af932b;hb=ed001376ecd8e7bdf07b1d5c340a56181fdece77;hp=d453e8fad95bc9e6c24cf048137090433aa37f5d;hpb=6ce2bcbe780ee19563e10cabfd4f1a9a2b8e882c;p=lilypond.git

diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
index d453e8fad9..b4898722da 100644
--- a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
+++ b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
@@ -1,30 +1,15 @@
+% #(ly:set-point-and-click 'line-column)
 
+longgrace = \override Stem  #'stroke-style = #'()
+endlonggrace = \revert Stem #'stroke-style
+ritenuto = \markup { \italic  "rit." }
 
-% #(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.49"
-
-#(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)))
+\version "2.1.29"
   
 cresc = \notes {
-    \commandspanrequest \start "crescendo" 
-    \property Voice.crescendoText = #`(,italic-bf "cresc.")
-    \property Voice.crescendoSpanner = #'dashed-line
+    #(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent START)))) 
+    \set crescendoText =  \markup { \italic \bold "cresc." }
+    \set crescendoSpanner =  #'dashed-line
 }
 
 %%
@@ -33,37 +18,43 @@ cresc = \notes {
 
 startGraceMusic = \sequential { 
     \startGraceMusic 
-    \property Voice.Beam \override #'space-function
-       = #(lambda (beam mult) (* 0.8 0.8))
-    \property Voice.Beam \override #'thickness = #(* 0.384 (/ 0.6 0.48))
+    \override Beam   #'space-function
+    = #(lambda (beam mult) (* 0.8 0.8))
+    \override Beam   #'thickness = #(* 0.384 (/ 0.6 0.48))
 }
 
 stopGraceMusic= \sequential {
-    \property Voice.Beam \revert #'thickness
-    \property Voice.Beam \revert #'space-function
+    \revert Beam #'thickness
+    \revert Beam #'space-function
     \stopGraceMusic
 }
 
 \paper{
-    \stylesheet #my-sheet
-    \translator {
+    \context {
         \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 #'space-function = #(lambda (beam mult) 0.8)
-        Slur \override #'beautiful = #0.3
+        \override RehearsalMark #'padding = #1
+        \override MultiMeasureRest #'padding = #0.5
+        restNumberThreshold = #1
+
+	\override RehearsalMark #'font-series = #'bold
+	\override RehearsalMark #'font-size = #6
+
+        \override Beam #'thickness = #0.6
+        \override Beam #'space-function = #(lambda (beam mult) 0.8)
+        \override Slur #'beautiful = #0.3
     }
-    \translator {
+    \context {
         \StaffContext
-        MinimumVerticalExtent = #'(-4.5 . 4.5)
+        minimumVerticalExtent = #'(-4.5 . 4.5)
     }
+    % #(define fonts my-sheet)
+    #(define page-breaking ly:optimal-page-breaks)
+
     indent = 10. \mm
     linewidth = 189. \mm
 
 }
+