\version "2.11.32"

\header {
	title = "Shema, O Israel"
	subtitle = "Deuteronomy 6:4-9"
}

#(set-global-staff-size 16)
#(set-default-paper-size "letter" 'portrait)

increaseBarNumber = \applyContext
#(lambda (x)
  (let ((measurepos (ly:context-property x 'measurePosition)))
   ; Only increase bar number if not at start of measure.
   ; This way we ensure that you won't increase bar number twice
   ; if two parallel voices call increaseBarNumber simultanously:
   (if (< 0 (ly:moment-main-numerator measurepos)) ; ugh. ignore grace part
    (begin
     (ly:context-set-property!
      (ly:context-property-where-defined x 'internalBarNumber)
      'internalBarNumber
      (1+ (ly:context-property x 'internalBarNumber)))
     (ly:context-set-property!
      (ly:context-property-where-defined x 'currentBarNumber)
      'currentBarNumber
      (1+ (ly:context-property x 'currentBarNumber)))
     ; set main part of measurepos to zero, leave grace part as it is:
     (ly:context-set-property!
      (ly:context-property-where-defined x 'measurePosition)
      'measurePosition
      (ly:make-moment 0 1
       (ly:moment-grace-numerator measurepos)
       (ly:moment-grace-denominator measurepos)))))))

hardbar = {
  \bar "|"
  \increaseBarNumber
}

melody = \relative g' {
	\cadenzaOn
	d8 \hardbar fis fis fis g  r g g \hardbar ees ees ees fis fis fis fis
	ees ees d r4 d8 \hardbar a' a g16 (a) fis8 fis fis a a a \hardbar g g r g g g \hardbar
	d ees r ees ees ees ees \hardbar fis fis fis fis fis \hardbar d d r4 d8 d fis16 (d fis8)
	d d \hardbar a' a a16 (g) a8 r a \hardbar bes16 (a) d,8 d bes bes bes c c
	fis fis fis fis \hardbar d d r4 d8 d d \hardbar a' a a g a r
	a a a \hardbar fis g r g g g \hardbar bes bes bes c b16 (c) r8
	bes bes bes \hardbar a a g a r a a a \hardbar fis fis fis d d r4
	d8 d \hardbar ees ees fis fis fis g g r g g
	ees ees d d fis ees ees \hardbar d d r4 d8 d \hardbar c
	c c c ees ees \hardbar fis fis fis fis fis \hardbar d d r4 \bar "|."
	\cadenzaOff
}
global = { \key d \minor \clef treble }

\score {
<<
	\new Staff { \set Staff.midiInstrument = #"violin" \global \melody }
	\new Staff { \set Staff.midiInstrument = #"oboe"      \global \transpose a a' { \melody } }
	\new Staff { \set Staff.midiInstrument = #"cello"       \global \transpose a a, { \melody } }
>>

  \midi {
  	\context { \Score tempoWholesPerMinute = #(ly:make-moment 50 4) } 
  	\context { \Staff midiInstrument = #"church organ" }
  } 
}