2 title = "Konzert Nr. 3 Es dur"
3 subtitle = "f\\\"ur Horn und Orchester"
4 composer = "Wolfgang Amadeus Mozart (1756-1792)"
8 copyright = "public domain"
9 instrument = "Horn in F"
10 editor = "Henri Kling"
11 mutopiatitle = "Horn Concerto 3"
12 mutopiacomposer = "W.A.Mozart"
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"
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!}"
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.
33 #(set! point-and-click line-column-location)
35 longgrace = \property Voice.Stem \override #'flag-style = #'()
36 endlonggrace = \property Voice.Stem \revert #'flag-style
37 ritenuto = \textscript #'(italic "rit.")
41 #(define italic-bf '((font-shape . italic) (font-series . bold)))
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))
48 #(define my-sheet (make-style-sheet 'paper20))
49 #(set-style! my-sheet 'mark-letter '((font-family . roman)
51 (font-shape . upright)
52 (font-relative-size . 3)))
55 \commandspanrequest \start "crescendo"
56 \property Voice.crescendoText = #`(,italic-bf "cresc.")
57 \property Voice.crescendoSpanner = #'dashed-line
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 Stem \override #'thickness = #1.3
71 Beam \override #'thickness = #0.6
72 Beam \override #'beam-space = #0.8
76 MinimumVerticalExtent = #'(-4.5 . 4.5)
82 \include "mozart-hrn3-allegro.ly"
83 \include "mozart-hrn3-romanze.ly"
84 \include "mozart-hrn3-rondo.ly"