juergen, heikki, chris patch.

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

diff --git a/input/mozart-hrn-3.ly b/input/mozart-hrn-3.ly
index 044c5b6c9a16ba735fd4d288a23f60ee2e1586b6..f55d7d328b82b77be763335956a44b68a9a8527e 100644 (file)
--- a/input/mozart-hrn-3.ly
+++ b/input/mozart-hrn-3.ly
@@ -30,56 +30,6 @@ virtuoso that taught in Geneva.
 %}
 
 
-% #(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
-}
-
 \include "mozart-hrn3-allegro.ly"
 \include "mozart-hrn3-romanze.ly"
 \include "mozart-hrn3-rondo.ly"