\version "2.12.3"

\paper {
  tagline = " "
}

\markup {
  \column {
    \line { I, II, III: nur 2' (Flöte, sanfte Register) }
    \line { Ped: nur Flöte 4' }
  }
}

I = \markup { \small I }
II = \markup { \small II }
III = \markup { \small III } 

xLV = #(define-music-function (parser location further) (number?) #{
  \once \override LaissezVibrerTie  #'X-extent = #'(0 . 0)
  \once \override LaissezVibrerTie #'details #'note-head-gap = #(/ $further -2) 
  \once \override LaissezVibrerTie #'extra-offset = #(cons (/ $further 2) 0)
#})

breakBarline = {
  \once \override Staff.BarLine #'transparent = ##f
  \bar "|"
  \break
}

barlines = {
  \set Score.defaultBarType = "dashed"
  \override Staff.BarLine #'transparent = ##t
  s8*9 s8*9 s8*9 s8*9 \breakBarline 
  s8*9 s8*9 s8*9 s8*9 \breakBarline 
  %  \revert Staff.BarLine #'transparent
  %  \bar "|."
}

rhMusic = \relative d' {
  r4 \times 2/3 { d16^\II e16 d16 } e4 a8 f4 d8 
  r4 d'8 e,4 d8 f4 
  r4 e16[ c16] d4 d8 e4. 
  r4 g'8\pp^\III a,4 a8 bes4*1/2 e8 a,4.*1/3~
  a8 r8 d,8^\II e4 a8 f4 d8 
  r4 bes'8 c,4 a8 d4. 
  r4 bes16[ g16] a4 a8 bes4. 
  r4*1/2 bes'8^\III c,4*1/2 a8 d4*1/2 e8 \xLV #3 a,4.\laissezVibrer
}

lhMusic = \relative d {
  <d a'>2.*3/2^\I
  a'2*3/2 \scaleDurations #'(3 . 2) { \times 2/3 { a8 a4 } }
  g2.*3/2~
  g4 r2*3/2 \scaleDurations #'(1 . 2) { \times 2/3 { r4 d8~ } }
  <d a'>2.*3/2
  f2*3/2 \scaleDurations #'(3 . 2) { \times 2/3 { f8 f4 } }
  d2.*3/2~
  d4*1/2 r2*5/4 \scaleDurations #'(3 . 2) { \times 2/3 { r4 \xLV #3 d8\laissezVibrer } }
}

pedalMusic = \relative d {
  r2.*3/2
  r2.*3/2
  r2*3/2 \scaleDurations #'(3 . 2) { \times 2/3 { r4 g8\p } }
  d1*9/8
  r2.*3/2
  r2.*3/2
  r2*3/2 \scaleDurations #'(3 . 2) { \times 2/3 { r4 d8 } }
  f,1*9/8
}


\score {
  <<
	\new PianoStaff <<
	  \new Staff = "rh" {
		%{ \override Staff.TimeSignature #'stencil = #(lambda (grob)
		(parenthesize-stencil (ly:time-signature::print grob) 0.1 0.4 0.4 0.1 )) %} 
		\set PianoStaff.instrumentName = #"Manual"
		\time 9/8
		\set Staff.timeSignatureFraction = #'( 39 . 8 )
		\clef treble
		\key d \minor
		<< \barlines \rhMusic >>
	  }
	  
	  \new Staff = "lh" {
		%{ \override Staff.TimeSignature #'stencil = #(lambda (grob)
		(parenthesize-stencil (ly:time-signature::print grob) 0.1 0.4 0.4 0.1 )) %}
		\time 9/8
		\set Staff.timeSignatureFraction = #'( 13 . 4 )
		\clef bass
		\key d \minor
		<< \barlines \lhMusic >>
	  }
	>>
	\new Staff = "pedal" {
	  %{ \override Staff.TimeSignature #'stencil = #(lambda (grob)
	  (parenthesize-stencil (ly:time-signature::print grob) 0.1 0.4 0.4 0.1 )) %}
	  \set Staff.instrumentName = #"Pedal"
	  \time 9/8
	  \set Staff.timeSignatureFraction = #'( 13 . 4 )	
	  \clef bass
	  \key d \minor
	  << \barlines \pedalMusic >>
	}
  >>
}

\layout {
  \context {
    \Score
    \remove "Bar_number_engraver"
  }
}