% http://pianognu.blogspot.com/2013/01/symphonie-n-40-de-mozart.html
\version "2.14.0"
\language "english"
\pointAndClickOff
#(set-global-staff-size 22)
\header {
title = "Symphonie nº40"
subsubtitle = \markup {"(transcription piano" "du début du premier mouvement)" }
composer = " W. A. Mozart"
arranger = \markup {\tiny"(1788)"}
meter = "Molto allegro"
copyright = \markup { \teeny "Domaine public. (jmechmech CC by-sa)" }
tagline = ##f
}
\paper {
markup-system-spacing #'basic-distance = #30
system-system-spacing #'basic-distance = #16
}
global = {
\key g \minor
\time 2/2
}
rightOne = \relative c'' {
\global
\stemNeutral
r2^\p r4
ef8 (d) d4 ef8 (d) d4 ef8 (d) d4 (bf') r4
bf8 (a) g4 g8 (f) ef4 ef8 (d) \break c4 c r4
d8 (c) c4 d8 (c) c4 d8 (c) c4 (a') r4
a8 (g) fs4 fs8 (ef) d4 d8 (c) bf4 bf r4
bf'8 (a) a4 ^(c fs, a) g (d) r4
bf'8 (a) a4 ^(c fs, a) g (bf
a8 g f! ef)
<<
{d1
\teeny cs d2}
\\
{r4 fs,4 _(g a bf c8 bf a4 g fs)}
>>
\set doubleSlurs = ##t
<g bf cs>2^\f <fs a d>4 r4
<g bf cs>2 <fs a d>4 r4
<g bf cs>2 <fs a d>4
<g bf cs>4 <fs a d>4
<g bf cs>4 <fs a d>2
\set doubleSlurs = ##f
r4 ^\p
ef'8 (d) \bar"||" d4 ef8 (d) d4 ef8 (d) d4 (bf') r4
bf8 (a) g4 g8 (f) ef4 ef8 (d) \pageBreak c4 c r4
f8 (ef) ef4 f8 (ef) ef4 f8 (ef) ef4 \(c'\) r4
c8 (bf) a4 a8 (g) f4 f8 (ef) \break
d1-> ^\f f2.-> r8 f8
ef4-. g-. bf-. r4
d,-. f-. bf-. r8 d,8
c4-. ef-. g-. c,-.
bf4-. d-. f-. r8 f,8
e ^\sfz f g a bf c df f,
e f g a bf c df f,
e f g a bf c df f,
e f g a bf c df e,
f2 c'4 a \noBreak
df2 e, 4 g
f2 c'8 a c a
df bf df bf e, g e g
f4 r4 f, -^ r4 \bar"||"
}
left = \relative c' {
\global
%_"D.C. al Coda"
<g bf d>2 <g bf d> <g bf d> <g bf d>
<g bf d>2 <g bf d> <g bf d> <g bf d>
<g c ef>2 <g c ef> <g c ef> <g c ef>
<fs a d> <fs a d> <d fs a> <d fs a>
<g bf d>2 <g bf d>
<c, fs a>2 <c fs a>2
<bf d g> <bf d g>
<c fs a>2 <c fs a>2
<bf d g>1
<e g bf>1 <ef g bf>
<d fs a>2
r4 d8 d d2
r4 d8 d d2
r4 d8 d d4 d8 d d4 d8 d
d2 ( c' bf a)
<g bf d>2 <g bf d> <g bf d> <g bf d>
<ef g bf> <ef g bf>
<c g' bf> <c g' bf>
<f a c> <f a c> <f a c> <f a c>
bf8 <d f> bf <d f> bf <d f> bf <d f>
a8 <c f> a8 <c f> a8 <c f> a8 <c f>
g <bf ef> g <bf ef> g <bf ef>g <bf ef>
f <bf d> f <bf d> f <bf d> f <bf d>
ef, <g c> ef <g c> ef <g c> ef <g c>
d <f bf> d <f bf> d <f bf> d <f bf>
<c g'>1
<c g'>2 <df g>
<c g'>2 <df g>
<c g'>1
f8 c' f, c' f, ef' f, ef'
f, df' f, df' f, df' f, df'
f,8 c' f, c' f, ef' f, ef'
f, df' f, df' f, df' f, df'
f,4 r f,-^ r
}
% Exception music is chords with markups
chExceptionMusic = {
<c ef gf bf >1-\markup { m7 \super (b5) } % m7b5
}
% Convert music to list and prepend to existing exceptions
chExceptions = #( append
( sequential-music-to-chord-exceptions chExceptionMusic #t)
ignatzekExceptions)
chordNames = \chordmode {
\global
\set chordNameExceptions = #chExceptions
g1:m s1 s s
c:m/g s
d/fs d
g:m
d:7/c g:m/bf d:7/c g:m/bf
e:m7.5- ef
d2 g:dim d2 g:dim d2 g2:dim
d4 g4:dim d g4:dim d1
g:m s s
ef c:m7 f s
bf f/a ef/g bf/f
c:m/g bf/d
c
c2 df:dim c2 df:dim
c1
f2 f:7 bf1:m/f
f2 f:7 bf1:m/f
f
}
pianoPart = \new GrandStaff
<<
\new Staff = "right" \rightOne
\new ChordNames \with{
\override ChordName #'font-name = #'"Century Schoolbook L"
\override ChordName #'font-size = #-1
\override VerticalAxisGroup #'staff-affinity = #CENTER
\override VerticalAxisGroup #'nonstaff-relatedstaff-spacing #'padding = #1
} \chordNames
\new Staff = "left" { \clef bass \left }
>>
\score {
<<
\pianoPart
>>
\layout {
indent = 0
\context {
\Score
\remove "Bar_number_engraver"
}
}
\midi {
\context {
\Score
\remove "Bar_number_engraver"
tempoWholesPerMinute = #(ly:make-moment 140 4)
}
}
}
