%\version "1.5.2"
\include "english.ly"

stemdown = \property Voice.Stem \set #'direction = #-1
stemup = \property Voice.Stem \set #'direction = #1
stemboth = \property Voice.Stem \revert #'direction

slurdown = \property Voice.Slur \set #'direction = #-1
slurup = \property Voice.Slur \set #'direction = #1
slurboth = \property Voice.Slur \revert #'direction

\header {
%  dedication = "dedication"
  title = "Concerto"
  subtitle = "pour clarinette en Si$\flat$ et piano"
  subsubtitle = "Adagio"
  composer = "Wolfgang A. Mozart (1756-1791)"
%  opus = "Opus 0"
%  piece = "Piece I"
  instrument = "Clarinette en Si$\flat$"
%  arranger = "Arranger"
%  poet = "Poet"
%  texttranslator = "Translator"
  copyright = "public domain"
%  enteredby = "jcn"
%  source =  "urtext"
}

startGraceMusic={
  \startGraceMusic
  \property Voice.Stem \revert #'flag-style
	}



melody = \notes \relative c'' {
	\property Staff.midiInstrument = "clarinet"
	\key f \major
	\time 3/4

	\property Voice.autoBeamSettings
	   \set #'(end * * * *) = #(make-moment 1 4)

	c4( \p f4. )a8 | a( g )f4 r4 | c4.( \< [f8 a \! )c] | c8( \> bf \! )a4 r4 | 
	
% 5 >>>>>>>>>>>>>>>
	g4.( [c8 a c] | )g4. [c8( d, a'] |
	)c,2 
	\slurdown
	\grace{e32(}
	\slurboth
	)d8.( )c16 | c4 r4 r4 |
		
% 9 >>>>>>>>>>>>>>>
	a'4.( \p [g8 f e] | )d4 r4 r4 | bf'4.( [a8 g f] | )e4 r4 r4 |
	c'4.( [bf8 a g] | f )bf bf4.--( )a8 | a16( \> g bf g )f4 
	\slurdown
	\grace{a32(} 
	\slurboth
	)g8.( \! )f16 | f4 r4 r4 | a8.( \p f16 c'4. a16 f | e4 )g r4 |
	
% 19 >>>>>>>>>>>>>>
	\property Voice.Slur \set #'attachment = #'(head . stem)
	[f32( d b g] [f d b g] 
	\property Voice.Beam \set #'height = #0
	[)f8
	\property Voice.Slur \set #'attachment = #'(head . head)
	a''( g )f] | 
	\property Voice.Beam \revert #'height 
	\stemboth d8.( \> ds16 \! )e4 r4 | g4.( c16 b a g f )e | e( f cs )d d4 r4 |
	
% 23 >>>>>>>>>>>>>>
	e8.\( \< 
	\slurdown
	\grace{[f32( e d )e]} f16 g8. \grace {[a32( g f )g]} a16 bf8-. \! \)e,-. | 
	\slurboth
	g4( \> \! )f r4 |
	
% 25 >>>>>>>>>>>>>>
	g,,4 \f d'''(~ d16 b g )f | ds( e f fs g a b c gs a f d | )c4. [cs8( \> d \! )g] | f8.( g32 f )e4 r4 | 
	\property Voice.Beam \set #'height = #0
	
% 29 >>>>>>>>>>>>>>
	g,,4 \f (~ [g16 a32 b c16 b] [a g f' )e] |
	\property Voice.Beam \revert #'height 
	%\property Voice.Stem \set #'direction = #1
	\stemup
	
%30 >>>>>>>>>>>>>>>
	cs4( )d r4 | 
	\property Voice.Beam \set #'staff-position = #2
	\property Voice.Beam \set #'height = #1.5
	[\times 2/3 {e16( \p \< d 
	\property Voice.stemRightBeamCount = #1 c! 
	} \times 2/3 {
	\property Voice.stemLeftBeamCount = #1 
	d e f}] 
	
	[\times 2/3 {g f
	\property Voice.Beam \set #'staff-position = #5
	\property Voice.Beam \set #'height = #1.5
	\property Voice.stemRightBeamCount = #1 e} 
	\times 2/3 {
	\property Voice.stemLeftBeamCount = #1 f
	g a}] 
	\property Voice.Beam \set #'height = #0
	bf!16-. c-. d-. \! )e,-. |
	\property Voice.Beam \revert #'height 
	\stemboth
	
	g4( \> \! )f r4 |
	
% 33 >>>>>>>>>>>>
	f4~ f32( 
	\property Voice.Beam \set #'staff-position = #7
	\property Voice.Beam \set #'height = #-1
	g a  
	\property Voice.stemRightBeamCount = #1 g 
	\property Voice.stemLeftBeamCount = #1 f
	\property Voice.Beam \set #'staff-position = #5
	\property Voice.Beam \set #'height = #-1
	e d c 
	\times 2/3 {b16 
	\property Voice.Beam \set #'height = #0
	\property Voice.Beam \set #'staff-position = # 3 
	a 
	\property Voice.stemRightBeamCount = #1 g} 
	\times 2/3 {
	\property Voice.stemLeftBeamCount = #1 f'
	e d} | )c8 r8 g''2-> | d,8 r8 a''2-> | 
	\property Voice.Beam \revert #'height 
	\property Voice.Beam \revert #'staff-position 
	
% 36 >>>>>>>>>>>>>>
	\property Voice.tupletSpannerDuration = #(make-moment 1 8)
	\property Voice.Slur \set #'attachment = #'(stem . head)
	\times 2/3 {[g,16( \p gs
	\property Voice.stemRightBeamCount = #1  
	a 
	\property Voice.stemLeftBeamCount = #1  
	bf! 
	b c] [cs d 
	\property Voice.stemRightBeamCount = #1  
	ds 
	\property Voice.stemLeftBeamCount = #1  
	e f fs] [g! gs 
	\property Voice.stemRightBeamCount = #1  
	a 
	\property Voice.stemLeftBeamCount = #1  
	bf! b )c!]} |
	\property Voice.Slur \set #'attachment = #'(head . head)
	
% 37 >>>>>>>>>>>>>>
	d,2.^\trill\( \grace{[c16( )d]} | \)c4 r4 r4

% 39 >>>>>>>>>>>>>>
	c,4 \p \< ~ [c32( )e g-. c-.]
	[e,( )g c-. e-.] [c( d e 
	\property Voice.stemRightBeamCount = #1  
	f 
	\property Voice.stemLeftBeamCount = #1  
	g a b \! c] | )b4 r4 r4
	d,,4 \p \< ~ [d32( )f g-. b-.] [f( )g b-. d-.] [b( c d 
	\property Voice.stemRightBeamCount = #1  
	e 
	\property Voice.stemLeftBeamCount = #1  
	f g a \! b!] | )b4 r4 r4

% grace part don't work with lily < 1.5 >>>>>>>>>>>>>

	\grace { 
	\property Voice.Beam \set #'height = #0
	bf4^\fermata ( [)bf32 \( a bf  c] [d c bf a] [g fs g a] [bf a g f] [e ds e f] [g f e d] [c b c cs] [d c bf a] [g fs g a] [bf a g f] [e ds e f] [g f e d] c4( 
	\property Voice.Beam \revert #'height
	[)c8 d] [e f] [g a] bf4 \)b4 }
	s2.
% 43 >>>>>>>>>>>>>>
	c4( \p f4. )a8 | a( g )f4 r4 | c4.( \< [f8 a \! )c] | c8( \> bf \! )a4 r4 | 
	
% 47 >>>>>>>>>>>>>>
	g4.( [c8 a c] | )g4. [c8( d, a'] | )c,2 
	\slurdown
	\grace{e32(}
	\slurboth
	)d8.( )c16 | 
	c4 r4 r4 | a'4.( \p [g8 f e] | )d4 r4 r4 | bf'4.( [a8 g f] | )e4 r4 r4 |
	
% 55 >>>>>>>>>>>>>>
	c'4.( [bf8 a g] | f )bf bf4.--( )a8 | a16( g bf g )f4 
	\slurdown
	\grace{a32(}
	\slurboth
	)g8.(  )f16 | f4 r4 r4 |

	\property Score.skipBars = ##t R2.*7

% 60 >>>>>>>>>>>>>>
	r4 r4 c16( \p e f a | c4 ~ c16 b bf )g bf( )a a( )f |
	
	c'4( \pp )c16( b bf )g bf( )a a( )f | [d32( fs g bf] [cs d bf g] )f4 
	\slurdown
	\grace{a32(}
	\slurboth
	)g8.( )f16 | 
	f4 r4 \times 2/3 {f,,16( \< a 
	\property Voice.stemRightBeamCount = #1
	c} \times 2/3 {
	\property Voice.stemLeftBeamCount = #1
	f a \! )c} |
	c4( \> \!)c16( b bf )g bf( )a a( )f |
	
% 72 >>>>>>>>>>>>>>
	c4( \pp )c16( b bf )g bf( )a a( f | [)g8 d'''( c bf a g] | 
	\times 2/3 {[)f16 \< c( 
	\property Voice.stemRightBeamCount = #1
	d 
	\property Voice.stemLeftBeamCount = #1
	ds e f] [fs g 
	\property Voice.stemRightBeamCount = #1
	gs 
	\property Voice.stemLeftBeamCount = #1
	a b bf]} c16 b bf \!)a |
	\property Voice.tupletSpannerDuration = #(make-moment 1 4)
	
% 75 >>>>>>>>>>>>>>
	g2.(^\trill | \grace{[f16( )g]} )f4 r4 [f16( \p e] \times 2/3 {[g16 f d]} | c2 b8 bf | )a4 r4 
	[\times 2/3 {g,16( \pp bf 
	\property Voice.stemRightBeamCount = #1
	a} \times 2/3 {
	\property Voice.stemLeftBeamCount = #1
	g16 bf d}] | )c4. c8( d e | )f4 f-.( \pp )f-. | f2 r4 \bar "|."
		
}

\score {
  \context Staff \melody
  \paper {
%   \translator {
%      \ScoreContext
%      SpacingSpanner \override #'arithmetic-basicspace = #3
%   }
   \translator {
      \GraceContext
        %NoteHead \override #'font-relative-size = #-2
        %NoteHead \override #'font-relative-size = #-2
        Stem \override #'flag-style = #""
   }
   \translator { 
      \StaffContext StaffSymbol 
	\override #'thickness = #0.2
   }
}
  \midi  {
  \tempo 4 = 60 }
}