%******************************************************
% Inspirational header for Unfretted Strings section  %
% of Lilypond Documentation.  This passage is taken   %
% from Ravel's String Quartet.			      %
% ****************************************************%

\version "2.11.61"

#(set-global-staff-size 15)
\paper{
 ragged-end=##t
 line-width=17\cm
 indent=0\cm
}

\layout {
 \context { \Score
   \remove "Bar_number_engraver"
   \override PaperColumn #'keep-inside-line = ##t
   \override NonMusicalPaperColumn #'keep-inside-line = ##t
 }
}

%*************** MACROS ******************%

#(define (octave-up m t)
 (let* ((octave (1- t))
      (new-note (ly:music-deep-copy m))
      (new-pitch (ly:make-pitch
        octave
        (ly:pitch-notename (ly:music-property m 'pitch))
        (ly:pitch-alteration (ly:music-property m 'pitch)))))
  (set! (ly:music-property new-note 'pitch) new-pitch)
  new-note))

#(define (octavize-chord elements t)
 (cond ((null? elements) elements)
     ((eq? (ly:music-property (car elements) 'name) 'NoteEvent)
       (cons (car elements)
             (cons (octave-up (car elements) t)
                   (octavize-chord (cdr elements) t))))
     (else (cons (car elements) (octavize-chord (cdr elements ) t)))))

#(define (octavize music t)
 (if (eq? (ly:music-property music 'name) 'EventChord)
       (ly:music-set-property! music 'elements (octavize-chord
(ly:music-property music 'elements) t)))
 music)

octaves = #(define-music-function (parser location arg mus) (integer? ly:music?)
 (music-map (lambda (x) (octavize x arg)) mus))

%\relative c' { d e \octaves #-1 { \times 2/3 {f g c }}} % this is an example of the macro in practice

%*********************************************************************
% This is a sweet macro by Mark Polesky to make the 4th-string 
% indication look like it did in the original score
%********************************************************************
#(define-markup-command (No layout props n) (string?)
  (define (format-char c)
    (let ((s (string c)))
      (if (number? (string->number s))
          (markup #:hspace 0.125 #:number s #:hspace 0.125)
          (markup #:hspace 0 #:fontsize 2 s))))
  (define (format-string s i)
    (let ((n (string-length s)))
      (if (= n 0)
          (markup #:null)
          (markup (format-char (string-ref s i))
                  (if (= (+ i 1) n)
                      (markup #:null)
                      (format-string s (+ i 1)))))))
  (let ((i (string-length n)))
    (interpret-markup layout props
      (markup
        #:concat (
          #:concat (
            #:fontsize 3 "4"
            #:hspace 0.5
            #:override '(baseline-skip . 0.825)
            #:override '(direction . 1)
            #:dir-column (
              #:fontsize 2 #:center-align "."
              #:fontsize 1 #:center-align "e"
            )
          )
          #:hspace 0.75
          #:concat (
            (format-string n 0)
            #:fontsize 2 ""
          )
        )
      )
    )
  )
)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5


poco = \markup { \italic { \fontsize #+2.0 "poco" }}
apoco = \markup { \italic { \fontsize #+2.0 "a" }}
menovivo = \markup { \bold { \fontsize #+3.0 { "Poco meno vivo"} } }
pocorit = \markup { \bold { \fontsize #+3.0 { "poco rit."} } }
pocodim = \markup { \italic { \fontsize #+2.0 "un poco dim." }}

vlnOne = \relative c''' {
  \key f \major
  \time 4/4
%  \override TupletNumber #'stencil = ##f
  \override TupletBracket #'bracket-visibility = ##f
  \set tupletSpannerDuration = #(ly:make-moment 1 4)

  \once \override TextScript #'extra-offset = #'( -3.8 . 0.5 )
  es4^\apoco 
  \once \override TextScript #'extra-offset = #'( -1.0 . -0.8 )
  \times 2/3 { c8(^\poco d es) } es4 \times 2/3 { c8( d es) } |	% 1
  es4\ff\< \times 2/3 { c8( d es) } es4 \times 2/3 { c8( d es)\! }  |	% 2
  \grace { a,,8[( a'\fff]^\menovivo } a'4) g8( a) d,4 c8( d) | 	% 3
  a4 g8( a) d,4 c8( d) |		% 4
  a4 g8( a) d,8^\pocorit r8 r4 | 	% 5
  ais16(\p\< e' ais e') e16(\f\> ais, e ais,)\! ais8 r r4 |	% 6
}

vlnTwo = \relative c' {
  \key f \major
  \time 4/4

%  \override TupletNumber #'stencil = ##f
  \override TupletBracket #'bracket-visibility = ##f
  \set tupletSpannerDuration = #(ly:make-moment 1 4)
  \times 2/3 { \octaves #1 {fis8 fis fis fis fis fis fis fis fis fis fis fis }} |	% 1
  \times 2/3 { \octaves #1 {fis8\ff\< fis fis fis fis fis fis fis fis fis fis fis\! }} |% 2
  <ais, e' ais e'>16\fff( ais' e ais,) ais16( e' ais e') e16( ais, e ais,) ais16( e' ais e') | % 3
  e16( ais, e ais,) ais16( e' ais e') e16( ais, e ais,) ais16( e' ais e') |	% 4
  e16( ais, e ais,) 
  \set subdivideBeams = ##t
  \set Score.beatLength = #(ly:make-moment 1 8)
    ais16( e') e( ais,) 
    d4^\markup \No #"Corde" 
  \once \override TextScript #'extra-offset = #'( -5.5 . 4.4 )
    c8(_\markup { \italic { \fontsize #+1.0 "vibrato" }} d) |	% 5
  \set subdivideBeams = ##f	
  a2 ~ a8 g( c d)			% 6
}
vlnTwoDyn = {
  s1*4
  s2 s4\f\< s8. s16\! |
  s16 s16\> s8 s2 s8 s16 s32 s32\!

}

vla = \relative c'' {
  \key f \major
  \time 4/4
  \clef "alto"
  \override Stem #'length = #9.5 
  bes4:32 a4:32 gis4:32 a4:32 | % 1
  bes4:32 a4:32 gis4:32 a4:32\! | % 2
\tweak #'extra-offset #'(-1.3 . -0.0)
%  \clef "treble"
  \revert Stem #'length
  \acciaccatura { a8 } a'4\fff g8( a) d,4 c8( d)  \clef "alto"	| %3
  a4 g8( a) d,4 c8( d) |	% 4
  a4 g8 a <e ais>2:32 |		% 5
  <e ais>1:32		|	% 6
}

vlaDyn = {
  s1 | s2\ff\< s4 s8 s16\! s32 s64 \clef "treble" s64 |
  s1*2 | s2 s4\f\< s8 s16 s32 s32\! |	% 3-5
  s16 s16\> s8 s2 s8 s16 s32 s32\! | %6

}

vc = \relative c' {
  \key f \major
  \time 4/4
  \clef "bass"
  \override Stem #'length = #9.5 
  c4:32 d4:32 es4:32 d4:32 |		% 1
  c4:32 d4:32 es4:32 d4:32\! |	% 2
  \revert Stem #'length
  \set subdivideBeams = ##t
  \set Score.beatLength = #(ly:make-moment 1 8)
  <fis,, cis'>16\fff( <cis' ais'>) <cis ais'>( <fis, cis'>) % 3
    <fis cis'>16( <cis' ais'>) <cis ais'>( <fis, cis'>)	% 3
    <fis c'>16( <c' ais'>) <c ais'>( <fis, c'>) 	% 3
    <fis c'>16( <c' ais'>) <c ais'>( <fis, c'>) | 	% 3
  <fis cis'>16( <cis' ais'>) <cis ais'>( <fis, cis'>)	% 4
    <fis cis'>16( <cis' ais'>) <cis ais'>( <fis, cis'>)	% 4
    <fis c'>16( <c' ais'>) <c ais'>( <fis, c'>) 	% 4
    <fis c'>16( <c' ais'>) <c ais'>( <fis, c'>) | 	% 4
  <fis cis'>16( <cis' ais'>) <cis ais'>( <fis, cis'>)	% 5
    <fis cis'>16( <cis' ais'>) <cis ais'>( <fis, cis'>)	fis2^\( ~ | % 5
  fis4 g c,\) r4	% 6
}
vcDyn = {
  s1 | s2\ff\< s4 s8. s16\! |	% 1-2
  s1*2	% 3-4
  s2 s4\f\< s8 s16 s32 s32\! |	% 5
  s4\> s4 s4\! s4	     |  % 6
}


%%%%%%%%%%%%%%%% Score Block %%%%%%%%%%%%%%%%%%%%%%

\score {

   << % creates new grand staff
	\new StaffGroup = "strings" <<
	  \context Staff = "violinOne" \vlnOne 
	  \context Staff = "violinTwo" << 
	    \context Voice = "violin 2" { \vlnTwo }
	    \context Voice = "violin 2 dynamics" { \vlnTwoDyn }
	  >>
	  \new Staff = "viola" <<
	    \context Voice = "viola" { \vla }
	    \context Voice = "viola dynamics" { \vlaDyn }
	  >> 
	  \new Staff = "cello" <<
	    \context Voice = "cello" { \vc }
	    \context Voice = "cello dynamics" { \vcDyn }
          >>
	>> % end of "strings" staffgroup
              
   >> % end of grand staff
              
   \layout {
	\context {
		\Score
		\override BarNumber #'padding = #3
		\override RehearsalMark #'padding = #2
			skipBars = ##t
	} % context \Score \overrides end
   } % layout end
              
   \midi { }

} % score end