*** empty log message ***

[lilypond.git] / input / mutopia / W.A.Mozart / mozart-hrn3-defs.ly

diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
index 00d7157397c0ad53b17035286c10aa349e183b60..74d1fad4e84b73566fbc3cb8f8a0f34a997d9422 100644 (file)
--- a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
+++ b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
@@ -1,15 +1,15 @@
 % #(ly:set-point-and-click 'line-column)
 
-longgrace = \override Stem   #'stroke-style = #'()
+longgrace = \override Stem  #'stroke-style = #'()
 endlonggrace = \revert Stem #'stroke-style
 ritenuto = \markup { \italic  "rit." }
 
-\version "2.1.22"
+\version "2.2.0"
   
 cresc = \notes {
     #(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent START)))) 
-    \set crescendoText = \markup { \italic \bold "cresc." }
-    \set crescendoSpanner = #'dashed-line
+    \set crescendoText =  \markup { \italic \bold "cresc." }
+    \set crescendoSpanner =  #'dashed-line
 }
 
 %%
@@ -30,28 +30,34 @@ stopGraceMusic= \sequential {
 }
 
 \paper{
-    \translator {
+    \context {
         \ScoreContext
         skipBars = ##t
         midiInstrument = #"french horn"
         %% try to mimic Breitkopf
-        RehearsalMark \override #'padding = #1
-        MultiMeasureRest \override #'padding = #0.5
+        \override RehearsalMark #'padding = #1
+        \override MultiMeasureRest #'padding = #0.5
         restNumberThreshold = #1
 
-       RehearsalMark \override #'font-series = #'bold
-       RehearsalMark \override #'font-size = #6
+       \override RehearsalMark #'font-series = #'bold
+       \override RehearsalMark #'font-size = #6
 
-        Beam \override #'thickness = #0.6
-        Beam \override #'space-function = #(lambda (beam mult) 0.8)
-        Slur \override #'beautiful = #0.3
+        \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)
     }
     % #(define fonts my-sheet)
+    #(define page-breaking ly:optimal-page-breaks)
 
+    % stress page breaking on a6 paper:
+    % linewidth = 80 \mm
+    % hsize = 105 \mm
+    % vsize = 149 \mm
+    
     indent = 10. \mm
     linewidth = 189. \mm