* lily/slur.cc: Add quant-score to interface. Fixes web build.

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

diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ily b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ily
new file mode 100644 (file)
index 0000000..d33e8cb
--- /dev/null
+++ b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ily
@@ -0,0 +1,65 @@
+% #(ly:set-point-and-click 'line-column)
+
+longgrace = \override Stem  #'stroke-style = #'()
+endlonggrace = \revert Stem #'stroke-style
+ritenuto = \markup { \italic  "rit." }
+
+\version "2.3.4"
+  
+cresc =  {
+    #(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent START)))) 
+    \set crescendoText =  \markup { \italic \bold "cresc." }
+    \set crescendoSpanner =  #'dashed-line
+}
+
+%%
+%% TODO: a better mechanism for tweaking Grace settings.
+%%
+
+startGraceMusic = \sequential { 
+    \startGraceMusic 
+    \override Beam   #'space-function
+    = #(lambda (beam mult) (* 0.8 0.8))
+    \override Beam   #'thickness = #(* 0.384 (/ 0.6 0.48))
+}
+
+stopGraceMusic= \sequential {
+    \revert Beam #'thickness
+    \revert Beam #'space-function
+    \stopGraceMusic
+}
+
+\paper{
+    \context {
+        \Score
+        skipBars = ##t
+        midiInstrument = #"french horn"
+        %% try to mimic Breitkopf
+        \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
+    }
+    \context {
+        \Staff
+        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
+
+}
+