input/mozart-hrn-3.ly

   1 \header{
   2   title =        "Konzert Nr. 3 Es dur"
   3   subtitle = "f\\\"ur Horn und Orchester"
   4   composer =     "Wolfgang Amadeus Mozart (1756-1792)"
   5   enteredby =    "HWN"
   6   opus = "K.V. 447"
   7
   8   copyright = "public domain"
   9   instrument = "Horn in F"
  10   editor = "Henri Kling"
  11   mutopiatitle = "Horn Concerto 3"
  12   mutopiacomposer = "W.A.Mozart"
  13   mutopiaopus = "KV447"
  14   style = "classical"
  15   maintainer = "hanwen@cs.uu.nl"
  16   maintainerEmail = "hanwen@cs.uu.nl"
  17   maintainerWeb = "http://www.cs.uu.nl/~hanwen/"
  18   lastupdated = "2002/March/26"
  19   source = "Edition Breitkopf 2563"
  20
  21   tagline =  "\\parbox{\hsize}{\\thefooter\\quad\\small This music is part of the Mutopia project, \\texttt{http://sca.uwaterloo.ca/Mutopia/}. It has been typeset and placed in the public domain by " + \maintainer + ". Unrestricted modification and redistribution is permitted and encouraged---copy this music and share it!}"
  22
  23 }
  24 %{
  25
  26 This is the Mozart 3 for horn.  It's from an Edition Breitkopf EB
  27 2563, edited by Henri Kling. Henri Kling (1842-1918) was a horn
  28 virtuoso that taught in Geneva.
  29
  30 %}
  31
  32
  33 #(set! point-and-click line-column-location)
  34
  35 longgrace = \property Voice.Stem \override #'flag-style = #'()
  36 endlonggrace = \property Voice.Stem \revert #'flag-style
  37 ritenuto = \textscript #'(italic  "rit.")
  38
  39 \version "1.5.47"
  40
  41 #(define italic-bf '((font-shape . italic) (font-series . bold)))
  42
  43 %% burp
  44 %% the very idea of a style sheet, is that it's easy to override
  45 #(define (set-style! sheet name style)
  46   (set-cdr! (assoc 'mark-letter (cdr (assoc 'style-alist sheet))) style))
  47
  48 #(define my-sheet (make-style-sheet 'paper20))
  49 #(set-style! my-sheet 'mark-letter '((font-family . roman)
  50                                      (font-series . bold)
  51                                      (font-shape . upright)
  52                                      (font-relative-size . 3)))
  53
  54 cresc = \notes {
  55     \commandspanrequest \start "crescendo"
  56     \property Voice.crescendoText = #`(,italic-bf "cresc.")
  57     \property Voice.crescendoSpanner = #'dashed-line
  58 }
  59
  60 \paper{
  61     \stylesheet #my-sheet
  62     \translator {
  63         \ScoreContext
  64         skipBars = ##t
  65         midiInstrument = #"french horn"
  66         %% try to mimic Breitkopf
  67         RehearsalMark \override #'padding = #1
  68         MultiMeasureRest \override #'padding = #0.5
  69         MultiMeasureRest \override #'number-threshold = #1
  70
  71         Beam \override #'thickness = #0.6
  72         Beam \override #'beam-space = #0.8
  73         Slur \override #'beautiful = #0.3
  74     }
  75     \translator {
  76         \StaffContext
  77         MinimumVerticalExtent = #'(-4.5 . 4.5)
  78     }
  79     indent = 10. \mm
  80     linewidth = 189. \mm
  81 }
  82
  83 \include "mozart-hrn3-allegro.ly"
  84 \include "mozart-hrn3-romanze.ly"
  85 \include "mozart-hrn3-rondo.ly"
  86
  87