Prelude in E minor, Op. 28, No. 4 (Chopin)
![\version "2.18.2"
% "PRELUDE Op28 No4"
% by Frederic Chopin
%
%
%%% temporarily commented out to avoid error %%% \include "english.ly"
\language "english"
\header {
% LILYPOND HEADERS
title = "Prelude"
subtitle = "‘Suffocation’"
composer = "Frederic Chopin (1810-1849)"
opus = "Op.28, No.4"
% MUTOPIA HEADERS
mutopiatitle = "Prelude: Op. 28, No. 4 ('Suffocation')"
mutopiacomposer = "ChopinFF"
mutopiaopus = "Op. 28"
mutopiainstrument = "Piano"
mutopiastyle = "Romantic"
date = "1838/39"
source = "Peters, 1879"
style = "Classical"
enteredby = "Magnus Lewis-Smith"
maintainer = "Magnus Lewis-Smith"
maintainerEmail = "mlewissmith@users.sourceforge.net"
maintainerWeb = "http://magware.sourceforge.net/"
lastupdated = "2016/10/18" %-------Javier Ruiz-Alma
%%% temporarily commented out to avoid error %%% license = "Public Domain"
footer = "Mutopia-2016/10/28-468"
%%% temporarily commented out to avoid error %%% copyright = \markup {\override #'(font-name . "DejaVu Sans, Bold") \override #'(baseline-skip . 0) \right-column {\with-url #"http://www.MutopiaProject.org" {\abs-fontsize #9 "Mutopia " \concat {\abs-fontsize #12 \with-color #white \char ##x01C0 \abs-fontsize #9 "Project "}}}\override #'(font-name . "DejaVu Sans, Bold") \override #'(baseline-skip . 0 ) \center-column {\abs-fontsize #11.9 \with-color #grey \bold {\char ##x01C0 \char ##x01C0 }}\override #'(font-name . "DejaVu Sans,sans-serif") \override #'(baseline-skip . 0) \column { \abs-fontsize #8 \concat {"Typeset using " \with-url #"http://www.lilypond.org" "LilyPond " "by " \maintainer " " \char ##x2014 " " \footer}\concat {\concat {\abs-fontsize #8 { "Placed in the " \with-url #"http://creativecommons.org/licenses/publicdomain" "public domain " "by the typesetter " \char ##x2014 " free to distribute, modify, and perform" }}\abs-fontsize #13 \with-color #white \char ##x01C0 }}}
tagline = ##f
}
\paper {
top-margin = 8\mm
line-width = 18.5\cm
top-markup-spacing.basic-distance = #6
markup-system-spacing.basic-distance = #3
top-system-spacing.basic-distance = #8
last-bottom-spacing.padding = #1.5
ragged-bottom = ##f
ragged-last-bottom = ##f
}
%#(set-default-paper-size "letter")
#(set-global-staff-size 19)
barRest = {\skip 2 |}
paperOFF = { \set Score.skipTypesetting = ##t }
paperON = { \set Score.skipTypesetting = ##f }
hidePP = \tweak #'stencil ##f \pp
ppWhiteOut = \markup { \whiteout { \dynamic "pp" } }
posBeamA = \once \override Beam.damping = #2
shpSlurA = \shape #'( ((0 . -0.3) (8 . 0.5) (0 . 1) (0 . 0))
((0 . 0) (0 . 0) (-3 . -0.7) (0 . -0.7)) ) PhrasingSlur
shpSlurB = \shape #'((0 . 2.8) (0 . 1) (0 . -0.6) (0 . 0)) PhrasingSlur
shpSlurC = \shape #'( ((0.8 . 0) (0.8 . 0) (0 . 0) (0 . 0))
((0 . -0.5) (0 . -0.5) (-1 . 1) (-0.5 . 2)) ) PhrasingSlur
shpSlurD = \shape #'( ((0.3 . 0) (3 . 1) (-3 . 1) (0 . 0))
((0 . 0) (0 . 0.3) (0 . 0.8) (0 . -0.7)) ) PhrasingSlur
shpSlurE = \shape #'((0 . 1) (0 . 0.6) (0 . 0.5) (0 . 0)) PhrasingSlur
posScriptA = \once \override Script.extra-offset = #'(-3 . 0)
posScriptB = \once \override TextScript.extra-offset = #'(-1.8 . -2.6)
posAccidental = \once \override Staff.AccidentalPlacement #'right-padding = #1.5
playRH = \relative c' {
\clef treble
\time 2/2
\key e \minor
% 0
\phrasingSlurUp
\partial 4 \posBeamA \shpSlurA b8.\(\p b'16_\markup{ \italic \whiteout "espressivo"} |
% 1 - 4
b2. c4 |
b2. c4 |
b2. c4 |
b2. bf4 |
% 5 - 8
a2. b!4 |
a2. b4 |
a2. b8. a16 |
a2.\)
\shpSlurB
gs4->\(~ |
% 9 - 12
gs4 << {a8 b} \\
{s32\< s s s s s s s\!} >> d8\> c e, a\! | %% double voice to give hairpin a nicer length
fs2.\) a4( |
fs2.) \acciaccatura b8 \shpSlurC a4_\( |
g!8 fs c\<^> b ds fs\! \tuplet 3/2 {d'\> c b\!} |
% 13 - 15
\shpSlurD b2.\p\)\( c4 |
b2. c4 |
b2. c4 |
% 16 - 20
<< { b8. as16 as4 } \\
{ s16\< s s s s s\! s s } >> \posScriptA \posAccidental gss'4\turn\> fs8. e16\! | %% double voice to give hairpin a nicer length
%\once\override Staff.Hairpin.extra-offset = #'(0 . 2.5)
e8\f\< ds c' ds,\! ds\> e g b, |
\stemUp
d! c \tupletDown \tuplet 3/2 {e e, a\! } fs4._\markup{ \italic "dim." } a8 |
\stemNeutral
fs2.\p\) \acciaccatura b8 a4\( |
fs2.~ fs8.\< e16\! |
% 21 - 23
e2._\markup{\italic smorz.}\> fs4 |
e2.\! fs4 |
e2\) r\fermata |
% 24 - 25
<< {
\posScriptB \shpSlurE e2^\(-\hidePP_\ppWhiteOut ds | e1\)\fermata
} \\ {
\change Staff = "lh" \stemUp
\crossStaff { <fs, b e,>2 <b ds, fs> } | <g b e,>1
} >>
\bar "|."
}
playLH = \relative c' {
\clef bass
\time 2/2
\key e \minor
% 0
\partial 4 r4 |
% 1 - 4
<g b e>8\sustainOn\(-\hidePP <g b e>8 <g b e>8 <g b e>8 <g b e>8 <g b e>8 <g b e>8\sustainOff <g b e>8 |
<fs a e'>\sustainOn <fs a e'> <fs a e'> <fs a e'>\sustainOff <fs a ds>\sustainOn <fs a ds> <fs a ds> <fs a ds>\sustainOff |
<f a ds>\sustainOn <f a ds> <f a ds> <f a ds>\sustainOff <f a d> <f a d> <f gs d'> <f gs d'> |
<e gs d'>\sustainOn <e gs d'> <e gs d'> <e gs d'>\sustainOff <e g d'> <e g d'> <e g cs> <e g cs> |
% 5 - 8
<e g c>\sustainOn <e g c> <e g c> <e g c>\sustainOff <e fs c'> <e fs c'> <e fs c'> <e fs c'> |
<e fs c'>\sustainOn <e fs c'> <e fs c'> <e fs c'>\sustainOff <ds fs c'>\sustainOn <ds fs c'> <ds fs c'> <ds fs c'>\sustainOff |
<d fs c'>\sustainOn <d fs c'> <d fs c'> <d fs c'> <d fs c'> <d fs c'> <d fs c'>\sustainOff <d fs c'> |
<d f c'>\sustainOn <d f c'> <d f c'> <d f c'>\sustainOff <d f b> <d f b> <d f b> <d f b> |
% 9 - 12
<c e b'> <c e b'> <c e a> <c e a> <c e a> <c e a> <c e a> <c e a> |
<b e a> <b e a> <b ds a'> <b ds a'> <c e a>\sustainOn <c e a> <c e a> <c e a>\sustainOff |
<b ds a'>\sustainOn <b ds a'> <b ds a'> <b ds a'>\sustainOff <c e a>\sustainOn <c e a> <c e a> <c e a>\sustainOff |
<b ds a'>4\) r r2 |
% 13 - 16
<g' b e>8\sustainOn\( <g b e>8 <g b e>8 <g b e>8 <g b e>8 <g b e>8 <g b e>8\sustainOff <g b e>8 |
<fs a e'>\sustainOn <fs a e'> <fs a e'> <fs a e'>\sustainOff <f a ds>\sustainOn <f a ds> <f a ds> <f a ds>\sustainOff |
<f gs ds'> <f gs ds'> <f gs d'> <f gs d'> <e gs d'>\sustainOn <e gs d'> <e gs d'> <e gs d'>\sustainOff |
<e g d'> <e g d'> <e g cs> <e g cs> <cs e as> <cs e as> <c e a> <c e a> |
% 17 - 20
<b, b'>\)\sustainOn <a'' c fs a>\( <a c fs a> <a c fs a>\sustainOff <g b ds fs> <g b e> <g b e> <g b e> |
\override Staff.PianoPedalBracket.shorten-pair = #'(0 . -2.0)
<a c e>[ <a c e>] a,\sustainOn <e' fs c'>\sustainOff <b e b'> <b e b'> <c e a> <c e a> |
\revert Staff.PianoPedalBracket.shorten-pair
<b e b'>\sustainOn <b e b'> <b e b'> <b e b'>\sustainOff <c e a> <c e a> <c e a> <c e a> |
<b e b'>\sustainOn <b e b'> <b e b'> <b e b'>\sustainOff <b ds b'>\sustainOn <b ds b'> <b ds a'> <b ds a'>\sustainOff |
% 21 - 23
<c g'>\sustainOn <c g'> <c g'> <c g'> <c bf'> <c bf'> <c e a>\sustainOff <c e a> |
<b e a> <b e a> <b e gs> <b e gs> <b e g>\sustainOn <b e g> <b e g> <b e g>\sustainOff |
<bf c g'>2\) r\fermata |
% 24 - 25
\relative b,, { \stemDown <b! b'!>2_( <b b'fs> | <e, e'>1)_\fermata | }
}
superMarks = {
\partial 4 s4^\markup{ \center-align \bold\large \raise #1 "Largo" } |
\repeat unfold 15 { s1 }
\set decrescendoText = \markup { \italic "stretto" }
\set decrescendoSpanner = #'text
s4 s8^\> s s2 |
s4 s s s |
s s s\! s |
}
scoreAll = {
\new PianoStaff {
\set PianoStaff.midiInstrument = "acoustic grand"
<<
\context Staff = "rh" {
% \accidentalStyle modern
\override Staff.TextScript.staff-padding = #2
\override Staff.DynamicLineSpanner.staff-padding = #3 % (forced-distance - 6) / 2
\override Staff.Hairpin.minimum-length = #3
<<
\playRH
\superMarks
>>
}
\context Staff = "lh" {
% \accidentalStyle modern
\set Staff.pedalSustainStyle = #'bracket
\override Staff.PianoPedalBracket.shorten-pair = #'(0 . -1.0)
\playLH
}
>>
}
}
\score
{
{
\scoreAll
}
\layout {
\context {
\PianoStaff
\consists #Span_stem_engraver
}
}
\midi {
\tempo 4 = 56
%% Remove the dynamics from the midi output
\context {
\Voice
\remove "Dynamic_performer"
}
}
}](http://upload.wikimedia.org/score/e/v/evhxh5qabgefq9gk7f0yqfenlhhbi57/evhxh5qa.png)
|
This work was published before January 1, 1929, and is in the public domain worldwide because the author died at least 100 years ago. |
|
|
This work was published before January 1, 1929, and is in the public domain worldwide because the author died at least 100 years ago. |