\version "1.6.12"
\paper{ papersize = "letter" }
\include "paper20.ly"

#(set-point-and-click! 'line-column)

\header {
  filename =    "field_no_5.ly"
  title =       "Nocturne No. 5"
  composer =    "John Field (1782-1837)"
  enteredby =   "KSW 2004/08/08"
  copyright =   "public domain"
}

%{
This is number 5 in the Liszt edition...

Problems:
	turn placement -- after the note and with accidentals mm 14,17,36
	m 43, the "separate" voices are merged in the "original"
	dynamic placement, and spanning removal
%}

smallerHeads = {
	        \property Voice.fontSize= #-1
}
normalHeads = {
	        \property Voice.fontSize= #0
}

\include "english.ly"

barsByFive = {		%% number every 5th bar
     \property Score.BarNumber \override #'break-visibility =
       #end-of-line-invisible
     \property Score.barNumberVisibility = #(every-nth-bar-number-visible 5)
     \property Score.BarNumber \override #'molecule-callback =
       #(make-molecule-boxer 0.1 0.25 0.25 Text_item::brew_molecule)
     \property Score.BarNumber \override #'font-relative-size = #0
}

microflat = #'((font-relative-size . -3) (music "accidentals--1"))
microsharp = #'((font-relative-size . -3) (music "accidentals-1"))
micronatural = #'((font-relative-size . -3) (music "accidentals-0"))
normalturn = #'(music "scripts-turn")

%{
Pages with solutions:

http://lists.gnu.org/archive/html/lilypond-user/2002-01/msg00110.html
[c8.^#'(columns "" ((music (kern . 3) "scripts-turn"))) d16]

=====================================================================
http://lists.gnu.org/archive/html/lilypond-user/2002-03/msg00036.html
Here's a way to get smaller accidentals above/below the turn:

\score {\notes {\relative c' {
  c4^\microsharp^\normalturn^\microflat }}}

=====================================================================
http://lists.gnu.org/archive/html/lilypond-user/2002-02/msg00042.html

=====================================================================
http://lists.gnu.org/archive/html/lilypond-user/2002-01/msg00110.html

%}


%%% Intro %%%

nocturneGlobal = \notes {
	\time 12/8
	\key bf \major
	 s1. * 43 |
}

twoPedalsInBar = \notes {
	s8 \sustainUp\sustainDown s4 s4. s8 \sustainUp\sustainDown s4 s4 s8
}
onePedalInBar = \notes {
	s8 \sustainUp\sustainDown s4 s4. s4. s4 s8
}
oneAndQuarterPedal = \notes {
	s8 \sustainUp\sustainDown s4 s4. s4. s8\sustainUp\sustainDown s4
}
quarterPedal = \notes {
	s8 \sustainUp\sustainDown s4 s8\sustainUp s4 s4. * 2
}

nocturnePedal = \notes {
    \property Staff.pedalSustainStrings = #'("Ped." "Ped." "*")
% 1
	s8\sustainDown s4 s4. s8\sustainUp\sustainDown s4 s4. |
	\onePedalInBar |
	\twoPedalsInBar |
% 4
	\onePedalInBar |
	\twoPedalsInBar |
	\twoPedalsInBar |
	s8 \sustainUp\sustainDown s4 s4. s4. s4 s8\sustainUp |
% 8
	s4. s8\sustainDown s4 s8\sustainUp\sustainDown s4 s8\sustainUp\sustainDown s4 |
	\twoPedalsInBar |
	\onePedalInBar |
	\twoPedalsInBar |
%12
	\onePedalInBar |
	\twoPedalsInBar |
	\oneAndQuarterPedal |
	\quarterPedal |
% 16
	s8\sustainDown s4 s4. * 2 s8\sustainUp\sustainDown s4 |
	\quarterPedal |
	s8\sustainDown s4 s4. * 3 |
	\onePedalInBar |
% 20
	\onePedalInBar |
	s8\sustainUp\sustainDown s4 s4. * 2 s4 s8\sustainUp |
	s8\sustainDown s4 s4. * 2 s8\sustainUp s4 |
% 23
	s8\sustainDown s4 s4. s8\sustainUp\sustainDown s4 s4. |
	\onePedalInBar |
	\twoPedalsInBar |
% 26
	\onePedalInBar |
	\twoPedalsInBar |
	\twoPedalsInBar |
% 29
	s8\sustainUp\sustainDown s4 s4. s8\sustainUp s4 s4. |
	s4. s8\sustainDown s4 s8\sustainUp\sustainDown s4 s8\sustainUp\sustainDown s4 |
	s8\sustainUp\sustainDown s4 s4. s8\sustainUp\sustainDown s4 s8\sustainUp s4 |
% 32
	s1. |
	s8\sustainDown s4 s4. s8\sustainUp\sustainDown s4 s4. |
	s1 . |
% 35
	\twoPedalsInBar |
	\oneAndQuarterPedal |
	\quarterPedal |
% 38
	s8 s8\sustainDown s8 s4. * 3 |
	s8\sustainUp\sustainDown s4 s4. * 3 |
	s8 s8\sustainUp\sustainDown s8 s4. * 3 |
% 41
	s8\sustainUp\sustainDown s4 s4. * 2 s4 s8\sustainUp |
	s1. |
	s4. * 2 s8\sustainDown s4 s8 s8\sustainUp s8 |
}

nocturneTempo = \notes {
        \property Voice.TextScript \set #'font-style = #'large
        s8^" "^" "^"Cantabile, assai lento"
}

noSpan = {
	\property Voice.crescendoSpanner \unset
}
                
nocturneDynamics = \notes {
	\property Voice.DynamicLineSpanner \override #'padding = #2.0

	s8\p \< s4 s4. * 2 s4 \! s8 |
	s8 \> s4 s4. \! s8 s4 s4. |
	s1. |
% 4
	s1. |
	s16 \cresc s16 s8 s8 s4. s2. | s4. * 3 s4 \endcresc s8 |
	s8 \dim s4 s4. s2. |
% 8
	\enddim s4 s8\pp s8\> s8 \! s8   s8\> s8 \! s8   s8 \> s8 \! s8 |
	s8\p s4 s4. s8\< s4 s4 \! s8 |
% 10
	s8\> s4 s4. s8 \! s4 s4. |
	s1. * 4 |
% 15
	s2. s8 \< s4 s4 \! s8 |
	s8\sf\> s4 s4. s4 \!s8\dim s4. |
	s4. * 3 s4 \enddim s8 |
	\property Voice.DynamicLineSpanner \override #'padding = #4.0
	\repeat unfold 2 {
		s8\pp\< s4 s4. * 2 s4 \! s8 |
		s8\> s4 s4. * 2 s4 \! s8 |
	}
	\property Voice.DynamicLineSpanner \override #'padding = #2.0
	s4. s8\fz s4 s8\fz s4 s8\p s4 |
% 23
	s4. * 2 s8 \< s4 s4 \! s8 |
	s8 \> s4 s4 \! s8 s4. * 2 |
	s1. * 2
% 27
	s8\cresc s4 s4. * 3 | s4. * 3 s4 \enddim s8 |
% 29
	s8\dim s4 s4. * 3 |
	s4. \enddim s8\pp\> s8. \! s16 s8 \> s8. \! s16  s8 \> s8. \! s16 |
	s8\mf s4 s4. * 3 |
% 32
	s8\< s4 s4. * 2 s4 \! s8 |
	s8\> s4 s4. * 2 s4 \! s8 |
	s1. |
% 35
	s1. |
	s4. * 3  s8 \< s8 \! s8 |
	s4. * 3  s8 \> s8 \! s8 |
% 38
	\property Voice.DynamicLineSpanner \override #'padding = #4.0
	s16 s16\pp\> s8 \!s8 s8\< s4 s4. s4 \! s8 |
	s8\> s4 s4 \! s8 s4. * 2 |
	s8\pp\< s4 s4. * 2 s4 \! s8 |
% 41
	s8\> s4 s4. * 2 s4 \! s8 |
	\property Voice.DynamicLineSpanner \override #'padding = #2.0
	s8 s8\p s8 s4.* 3 |
	s1. |
}

nocturneRight = \notes {
	\notes \relative c'' {
		f2.-3( e4. g |
		f4. ~ f4 d8 )f4. r | 
		d2.-2( ef4. c |
% 4
		bf-2 ~ bf4 d16 c )bf4. r |
		d2.-3( e4. )a, |
		f'2.( e4. )d |
		c2.( d4. e |
% 8
		)f r8 f'( )a, r bf-4( )d, r ef-4( )a, |
% 9
		< { \grace { bf8-2( } < )bf2. f'2.-5( > <e4.-1-3 bf> <g bf,> } \\
			{ s1. } 
		> |
% 10
		< { f4. ~ f4 d8 )f4. } \\
		  { bf,2. ~ bf4. }
		> r4. |
% 11
		d2.-2( ef!4. c |
% 12
		bf-2 ~ bf4 d16 c )bf4. r |
% 13
		ef2.-3( d4. ~ d4 ef8 |
% the turn needs to be delayed a quarter note and with a natural underneath
		d4.-> )c2. < c4.-2( { s8 s8 s8^\micronatural^\normalturn }> |
		f4.-5 ef4-3 c8-1 bf!4.-2 c-1 |
% 16
		df2.-3 ~ )df4. c4.-2( |
		f-5 ef4-3 c8-1 < bf4.-2 { s8 s8 s8^\turn} > d4-> c8 |
% 18
		)bf8 
	    <
% 18-cont top
		{ e,-2^.( f-3^. fs-3^. g-4^. gs-3^. a-4^. bf-3^. b-4^. c-5^. cs-4^. d-5^. |
		  ef-5^. d-5^. c-4^. b-3^. c^. d^. ef^. d^. c^. b^. c^. f^. |
		  )bf,^. [ e,^.^>( f^.] fs^. g^. gs^. a^. bf^. b^. c^. cs^. )d^. |
		  ef^.( d^. c^. b^. c^. d^. ef^. d^. c^. b^. c^. f^. |
		  <)bf, d,>
		} \\
% 18-cont bottom
		{ \repeat unfold 11 { d, } |
		  \repeat unfold 11 { <a' ef> } \smallerHeads <a ef> \normalHeads |
		  <bf d,> [d, d] \repeat unfold 9 { d } |
		  \repeat unfold 11 { <a' ef> } \smallerHeads <a ef> \normalHeads |
		  s8
		}
	    >
% 22-cont
	r8 r <d\arpeggio f,> r r <bf4.\arpeggio d,> f8-1( bf )d-4 |
% 23
	f2.^" "^#'(finger "5 3")( e4. g |
	f ~ f4 )d8 \times 12/13 { [f8-3( ~ f16-1 c'8-> bf a g16 f-1 e-3 )ef ] } |
	d2.( ef4.-3 c-1 |
% 26
	bf-2 ~ bf8 a16 bf d c )bf4. r |
	d2.-3( e4. )a, |
	f'2.^" "^#'(finger "4 2")(\( \times 6/8 { \slurDown [)e8-1( f bf-5 a g f e )\)d-2] \slurBoth } |
% 29
	c2.-1( d4. e |
	)f r8 f( )a, r f'( )bf, r f'( )af, |
	\slurUp <f'4.( { \grace g,8(   )g4. } > ~ f8 f16 e g f ef4. d^" "^#'(finger "2 3") |
% 32
	c4.-2 d-3 ef f |
	d2.-3 c4. g |
	bf2.-3 )a4. \slurBoth r8 f'-4( e |
% 35
	ef2. d4.-1 df-2 |
% turn should be after the 1/4 note
	)c8 [fs16-2( g bf a] )g8 [fs'16^\pp( g bf a] )g8 r r <c,,4.-2( {s8 s8 s8^\micronatural^\normalturn}> |
	f4. ~ f8 ef-3 c-1 bf4.-2 d4 c8 |
% 38
	)bf
	    <
% 38-cont top
		{ e,^.( f^. fs^. g^. gs^. a^. bf^. b^. c^. cs^. d^. |
		  ef d c b c d ef d c b c f |
		  )bf, [e,( f] fs g gs a bf b c cs )d |
		  ef( d c b c d ef d c b c f |
		  <)bf, d,>
		} \\
% 38-cont bottom
		{ \repeat unfold 11 { d, } |
		  \repeat unfold 11 { <a' ef> } \smallerHeads <a ef> \normalHeads |
		  <bf d,> [d, d] \repeat unfold 9 { d } |
		  \repeat unfold 11 { <a' ef> } \smallerHeads <a ef> \normalHeads |
		  s8
		}
	    >
% 42-cont
		[d8-1( ef] f <g-1-4 e> <a-2-5 ef> <)bf-1-4 d,>
			r r <d,-2-5 f,(> <c-1-5 e,> <f,-2-3 ef> |
% 43
		<bf-1-5 )d,> r r \clef F f,-2_""_"rit."( <g-> f> <a-> f ef> 
			<bf4.\arpeggio f d> ~ <)bf8 f d> r r |
	}
}

nocturneLeft = \notes {
	\clef F
	\notes \relative c {
		[ bf8-5( d'-2 bf-3 f' d )bf]  [g( cs bf e cs )bf] |
		[bf,( d'-2 bf-3 f' d bf ] [f d' bf f' d )bf] |
		[bf,( d' bf f' d )bf ] [gf-5( c a ef' c )a ] |
% 4
		[bf,( d' bf f' d )bf ] [f( d' bf f' d )bf ] |
		[bf,( d' bf f' d )bf ] [a,( cs'-2 a-4 g' cs, )a ] |
		[d,( d'-2 a-4 f' d )a ] [b,( d' af f' d )af] |
		[c,( bf' g e' bf )g ] [c,( bf' g e' bf )g] |
% 8
		f( f' )a,-3 ef!-5( f'-1 )c-2 d,( f' )bf, c,( ef' )f,-3 |
		[bf,( d' bf f' d )bf] [g( cs bf e cs )bf] |
		[bf,( d' bf f' d bf ] [f d' bf f' d )bf ] |
		[bf,( d' bf f' d )bf ] [gf( c a ef' c )a ] |
% 12
		[bf,( d' bf f' d bf ] [f d' bf f' d )bf ] |
		[g( ef' bf g' ef )bf ] [f( d' bf f' d )bf ] |
		[e,( c'-2 bf-3 g'-1 c,-2 bf] e, g' bf,-3 ef, f' )a,-3 |
		d,( f' bf,-2 ef,-5 c' g f d' bf f ef' )a, |
% 16
		[e( df' bf g' df bf] e, g' )bf,-3 ef,( gf' )a,-3 |
	    <
		{ d,8 f' bf, ef, c' g f d' bf f ef' a, | s8 } \\
		{ d,!4.( ef f f | <d'8 )bf> }
	    > 
% 18 (one-eighth in)
		<bf-.( f bf,>
		\repeat unfold 9 { <bf-. f bf,> }
		<)bf-. f bf,> |
% 19
		<f-.( bf,> \repeat unfold 11 { <f-. bf,> } |
% 20
		<)f-. bf,> <bf-.( f bf,> \repeat unfold 9 { <bf-. f bf,> }
			<)bf-. f bf,> |
% 21
		<f-.( bf,> \repeat unfold 11 { <f-. bf,> } |
% 22
		<)f bf,> r r <bf\arpeggio f bf,> r r <bf4.\arpeggio f bf,> r |
% 23
		[ bf,8( d' bf f' d )bf]  < { g4. s } \\ { \slurUp [g8( cs bf e cs )bf] } > |
		[bf,( d' bf f' d bf ] [f d' bf f' d )bf] |
		[bf,( d' bf f' d )bf ] < { gf4. s } \\ { \slurUp [gf8( c a ef' c )a ] } > |
% 26
		[bf,( d' bf f' d )bf ] [f( d' bf f' d )bf ] |
		[bf,( d' bf f' d )bf ] [a,( cs' a g' cs, )a ] |
		[d,( d' a f' d )a ] [bf,( d' g, f' d )g,] |
% 29
		[c,( c' a f' c )a-3] [af( f' b, g-4 c )bf ]
		f( f' )a,-3 ef!( f' )c-2 d,( f' )bf,-2 c,( ef' )f,-3 |
		[b,( d' g, f' d )b] [c,( ef' g,-3 f d' )af] |
% 32
		g-5( g' )ef g,( f' )b,-4 c( g' )ef <c( a> f )ef |
		[bf,( d' bf f d' )bf] [ef,( c' bf e, c' )bf] |
		[f( d' bf f' d )bf] f( c' a )f' r r |
% 35
		[gf,-5( ef'-2 bf-4 gf' ef )bf] [f( d' bf f' df )bf] |
		[e,( c' bf g' c, bf] [ef, c' )bf] ef,( f' )a, |
		d,( b' )af ef-5( c' )g f-5( d' )bf f( ef' )a, |
% 38
		<d bf> [<bf f bf,> <bf f bf,>] \repeat unfold 9 { <bf f bf,> } |
		\repeat unfold 12 { <f bf,> } |
		<f bf,> [<bf f bf,> <bf f bf,>] \repeat unfold 9 { <bf f bf,> } |
% 41
		<gf-> bf,> \repeat unfold 8 {<gf bf,>} \repeat unfold 3 {<f bf,>} |
		<f bf,> r r \clef G d''-1( c f, )bf \clef F
% XXX this needs a rethink.
		<
			{ [d,,8-3( ef] f g-1 a-1 | )bf } \\
			{ s4 f,4.( | )bf8 } 
		>
%{
		[ d,,8( ef ]
			< {f8 g a} \\ {f,4.(} > |
		<)bf8 )bf,>
%}

% 43-cont
		    \property PianoStaff.connectArpeggios = ##f
		[d,,8^\pp( ef] f-. f-. )f-. <f4.\arpeggio bf,> ~ <f8 bf,> r r |
	}
}

%%% Intro
\score{
    \context PianoStaff <
    \barsByFive
    % \property PianoStaff.instrument = #"INTRO.  "
    \property PianoStaff.connectArpeggios = ##t
    \pianoAccidentals
      \context Staff = treble {
        \property Score.midiInstrument = "acoustic grand"
	< \nocturneTempo \nocturneGlobal \nocturneRight \nocturneDynamics > \bar "|."
	}
      \context Staff = bass { 
	 \property Staff.NoteCollision \override #'merge-differently-dotted = ##t
	< \nocturneGlobal \nocturneLeft \nocturnePedal > \bar "|."
	}
    > 

  \paper {
	textheight = 10.25\in
  }

  \midi {
	\tempo 4 = 108
  }
}