% Created on Wed Jun 17 09:25:57 CDT 2009
\version "2.12.2"

\header {
	title = "Flickering City"
	composer = "Joel Spadin"
	copyright = "Copyright © 2009 Joel Spadin"
}

\include "english.ly"

% ----------------- %
%		PIANO       %
% ----------------- %

%A Section

PMelodyA = \relative c'
{ d8\mp a' e' f c'4 ~ | c2 ~ c8 a | g f e2 ~ | e2 c4 | b2. ~ | b2 g4 | a2. ~ | a2. }

PMelodyAA = \relative c'
{ d8 a' e' f c'4 ~ | c2 ~ c8 a | g f e2 ~ | e2 <c a>4 | <b g>2. ~ | <b g>2 <g e>4 | <a f>2. ~ | <a f>2. }

PPartB = \relative c'
{ d8 a' e' f c' a | e'2 ~ d8 c | }

PMelodyB = \relative c''
{ \PPartB b'2. ~ | b2 g'4 | f2. ~ | f2 e8 c | a2. ~ | a2. }

PMelodyBA = \relative c''
{ \PPartB b'2. ~ | b2 <b g'>4 | <f' a,>2. ~ | <f a,>2 <e g,>8 <c e,> | <d, f a>2. ~ | <d f a>2. }

PMelodyBB =\relative c''
{ \PPartB <b' g>2. ~ | <b g>2 <b g'>4 | <f' a,>2. ~ | <f a,>2 <e g,>8 <c e,> | <d, f a>2. ~ | <d f a>2. }


PAccomp = \relative c'
{ d8 a'-- r a-- r a-- | r a-- r a-- r a-- }

PAccompA = \relative c'{
	\parenthesize d8 \parenthesize a'-- r a-- r a-- | r a-- r a-- r a-- | 
	\PAccomp \PAccomp \PAccomp
}

PAccompB = \transpose c c, {
	\PAccomp \PAccomp \PAccomp \PAccomp
}

%B Section
PBSectionR = \relative c' {
	R2.      | e8 f g f e a, ~ | a2.      | e'8 f g f e d ~ |
	d4. a'4. | g4   f   e      | d4. a'4. | g4    f   e     |
	<d f>2.  | e8 f g f e c' ~ | c2.      | e,8 f g f e %last 8th on next line
	<< { d'8 ~ | d2. } \\ { d,8 ~ | d4. a'4. } >> | g4 f e  |
	<< { c'2. } \\ { d,4. a'4. } >>               | <e g>2. |
}

PBSectionL = \relative c, {
	d8    a' e' f c' a | R2.      | c,,8 a' e' f c' a | R2.  |
	bf,,8 f' c' d a' f | d'2.     | c,,8 g' d' e g  e | c'2. |
	d,,8  a' e' f c' a | r2 r8 a8 | c,,8 a' e' f c' a | R2.  |
	bf,,8 f' c' d a' f | d'2.     | c,,8 g' d' e g  e | c'2. |
}

%C Section

PCSectionR = \relative c' {
	<c f>4.  <af' c>4. | <g bf>4 <f af>  <ef g> |
	<c f>4.  <ef c'>4. | <g bf>4 <f af>  <ef g> |
	<df f>4. <df' f>4. | <ef c>4 <df bf> <c af> |
	<af bf>4. g4.      | f4  g8  af  bf  g ~    |
	g   af4   c4.      | <g bf>4 <f af>  <ef g> |
	<< { f4. } \\ { r8 c4 } >> <ef c'>4. |  <g bf>4 <f af>  <ef g> |
	<df f>4. <df' f>4. | <ef c>4 <df bf> <c af> |
	<af bf>4. af4.     | g2.                    |
}

PCSectionL = \relative c, {
	f8    c'  g'  af ef' c  | \parenthesize g'2. | ef,,8 c'  g' af ef' c | \parenthesize g'2. |
	df,,8 af' ef' f  c'  af | f'2.               | ef,,8 bf' f' g  bf  g  | ef'2.              |
}

%Parts

PianoRight = {
	\tempo 4=120
	\clef treble %A Section
	\key d \dorian
	\PMelodyA \PMelodyB \PMelodyAA \PMelodyBA \break
	\key d \aeolian %B Section
	\PBSectionR
	\key f \aeolian %C Section
	\PCSectionR
	\key f \dorian %A2 Section
	\transpose d f, { \PMelodyAA \PMelodyBB }
	\key f \aeolian %B2 Section
	\transpose d f { \PBSectionR }
	\key d \dorian %Fadeout
	\PMelodyA \PMelodyB
	\bar "|."
}

PianoLeft = {
	\clef treble %A Section
	\key d \dorian
	\PAccompA \PAccompA	\clef bass \PAccompB \PAccompB
	\key d \aeolian %B Section
	\PBSectionL
	\key f \aeolian %C Section
	\PCSectionL \PCSectionL
	\key f \dorian %A2 Section
	\transpose d f, { \PAccompB \PAccompB }
	\key f \aeolian %B2 Section
	\transpose d f { \PBSectionL }
	\key d \dorian %Fadeout
	\clef treble
	\PAccompA \PAccompA
	\bar "|."
}

staffPiano = \new PianoStaff
{
	\set PianoStaff.midiInstrument = #"acoustic grand"
	%\set PianoStaff.instrumentName = #"Piano"
	%\set PianoStaff.shortInstrumentName = #"P."
	<<
		\new Staff = "upper" \PianoRight
		\new Staff = "lower" \PianoLeft	
	>>
}


\score 
{
	<<
		\time 3/4
		\set Score.skipBars = ##t
		\staffPiano
	>>

	\layout  {
		\context {
			\RemoveEmptyStaffContext
		}
	}
}

\paper {
	#(set-paper-size "letter")
	%page-limit-inter-system-space = ##t
	%page-limit-inter-system-space-factor = 1.2
	%annotate-spacing = ##t
	%page-count = #7
	%between-system-padding = #0.3
	%between-system-space = #0.3
	%ragged-last-bottom = ##f
	%ragged-bottom = ##f
}