\version "2.19.82"
\language "english"

\header {
  title = \markup {\fontsize #-3 "Vater unser in Himmelreich"}
  composer = \markup {\fontsize #-3 "Georg Böhm (1661-1733)"}
  % Remove default LilyPond tagline
  tagline = ##f
}

\paper {
  #(set-paper-size "letter")
}

\layout {
  \context {
    \Voice
    \consists "Melody_engraver"
    \override Stem #'neutral-direction = #'()
  }

  %{\context {
      \Score
      \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
    }
  %}
}

global = {
  \key d \minor
  \time 4/4
  \override Score.BarNumber.stencil = #(make-stencil-boxer 0.1 0.25 ly:text-interface::print)
  \override Score.NonMusicalPaperColumn.padding = #0.25
}


ru = \markup {\teeny "Rückpositiv"}
ober = \markup {\teeny "Oberwerk"}
pes = \markup {\teeny "Pedal"}

%def-beam = \revert Staff.beamExceptions


right = \relative c'' {
  \global

  \repeat unfold 5 { R1 | } % 1-5

  r2 r4 a\mordent | % 6

  a4~ a16 bf a g f8.\prall e16 d8 r16 f | % 7

  g4\mordent c,8 r16 g' a4\mordent r16 g a e  | % 8

  f4\mordent r16 g'a e f8 g16 f f8 e16\prall d | % 9

  d4 r r a~\mordent | % 10

  a16 a g fs g g a b c d c8~ c16 d c bf | % 11

  a16 g a8~ a16 e f g f\prall f g a a8 g16\prall a | % 12

  a2 r | % 13

  r2 a4. b8 | % 14

  c8. b16 a8 b16 c d4\mordent r8 e | % 15

  f8. g16 a8 cs, d e16 f c8.\prall d16 | % 16

  d4 r r d | % 17

  e4.\prall r16 e e (d) d8 d4~ | % 18

  d8 c16\prall b c d e8 a,2~ | % 19

  a2~ a16 c b a gs8.\prall a16 | % 20

  a2 r4 d~ | % 21

  d16 d c b c4~ c16 c d c b8.\prall c16 | % 22

  c4. bf16 a a2~ | % 23

  a16 a g f g4\mordent g16g f e f f g a | % 24

  bf4.\mordent a16 g a4.\mordent g16 f | % 25

  f2 r4 a | % 26

  bf2~\mordent bf8 a16 (bf) a (g) g (f) | % 27

  f2 g~ | % 28

  g8 f16 e f4~\prall f8 e e e | % 29

  e8 f16 g e8.\prall d16 d4 r16 a' g a | % 30

  bf16 d e\prall f g bf, a g a c d\mordent e f a, g f | % 31

  g16 b cs\mordent d e g, f_\prall e f g a8~ a16 g f\prall e | % 32

  d16 d e f g f e\prall d cs d e d cs d cs\prall b | % 33

  a4 r r a' | % 34

  bf2~\mordent bf8 a16 (bf) a (g) g (f) | % 35

  f2 g~ | % 36
}

leftOne = \relative c'' {
  \global
  \clef treble

  \set Staff.beamExceptions = #'()
  \set Staff.baseMoment = #(ly:make-moment 1/4)
  \set Staff.beatStructure = 1,1,1,1

  r8 a f'16 e d8 a'8\mordent r r e | % 1

  f8\mordent r r e f16 g a8 d, e16 d | % 2

  cs8.\prall b16 a8 r r d d c!16\prall bf | % 3

  bf8 r r4 r8 c c bf16\prall a | % 4

  a8 r r4 r8 f' [e\prall d] | % 5

  cs8 d16 e e8.\prall d16 d4 r8 f, | % 6

  e8 e r e d d r d | % 7

  c8 c r g' \set Voice.beatStructure = 2,2 c, f e cs | % 8

  d8 f e cs d d d cs | % 9

  d8 d r f e e r e | % 10

  d8 d r e e e r g | % 11

  c8 c r \clef bass e, d d d d | % 12

  cs4 \clef treble r8 e f4 r8 f | % 13

  g4 r8 g a8. g16 f4 | % 14

  r8 e e r r g e r | % 15

  r8 d a' a f bf a e | % 16

  fs4 r8 a b r r b | % 17

  c4 r8 b a a r e | % 18

  e8 e r e c c r e | % 19

  f8 f r fs e e e d | % 20

  cs4 r r8 a' a a | % 21

  g8 g r g f f r f | % 22

  \set Voice.beatStructure = 1,1,1,1 e8 e r g~g f16 e f8 c | % 23

  d8 d r d c c r f | % 24

  g4. e8 f4. e8 | % 25

  f4 r8 a a a r a | % 26

  \set Voice.beatStructure = 2,2 g8 a g f e e r cs | % 27

  \set Voice.beatStructure = 1,1,1,1 d8 d16 e d c bf a g8 c16 d c bf a g | % 28

  a8 c d4~ d8 [d d d] | % 29

  cs8 d~ d cs d4 r8 a' | % 30

  g8 g r g f f r f | % 31

  e8 e r e d f e cs | % 32

  d8 d r g e cs r e | % 33

  f4 r8 a a a r a | % 34

  \set Voice.beatStructure = 2,2 g8 a g f e e r cs! | % 35

  \set Voice.beatStructure = 1,1,1,1 d8 d16 e d c bf a g8 c16 d c bf a g | % 36
}

leftTwo = \relative c' {
  \global

  r8 <d f> <a' d> <a, f'> <a e'> r r <e' a> | % 1

  <d a'>8 r r <e a> <d a'> <e a>~ <f a> <d g> | % 2

  <e a>4 <cs e>8 r r <d a'> <d a'> <d a'> | % 3

  <d g>8 r r4 r8 <c g'> <c g'> <c g'> | % 4

  <c f>8 r r4 r8 <f a>8 [<g bf> <f bf>] | % 5

  <e a>8 <d a'>4 <cs e>8 <d f>4 r8 d8 | % 6

  a8 a r a a a r a | % 7

  g8 g r c a [ a a cs ] | % 8

  \set Voice.beatStructure = 2,2 a8 a a a a bf a g | % 9

  f8 f r a a a r a | % 10

  b8 b r b a a r g | % 11

  c8 c r \clef bass a a a d, d | % 12

  e4 \clef treble r r8 a bf4 | % 13

  r8 g c4 r8 a d4 | % 14

  r8 c c r r d a r | % 15

  r8 a cs e d g e a, | % 16

  a4 r8 fs' g r r g | % 17

  g4 r8 e a, a r b | % 18

  a8 a r gs a a r a | % 19

  a8 a r b c c b b | % 20

  a4 r r8 d d d | % 21

  e8 e r g, a a r f | % 22

  g8 g r4 r r8 a| % 23

  d,8 d r g a a  r c | % 24

  d4 c~ c8 d c g | % 25

  a4 r8 c d d r d | % 26

  d8 f e d cs cs r a | % 27

  a8 a r4 r2 | % 28

  r4 r8 a bf bf b b | % 29

  a8 a a g f4 r8 d' | % 30

  d8 d r c c c r d | % 31

  b8 b r a a d cs a | % 32

  f8 f r bf a a r cs! | % 33

  d4 r8 d a a r d | % 34

  d8 f e d cs cs r a | % 35

  a8 a
}

pedal = \relative c {
  \global \stemNeutral

  d8 d d d cs cs cs cs | % 1

  d8 d, d' cs d c bf! bf | % 2

  a8 a' a g fs fs fs fs | % 3

  g8 g g f! e e e e | % 4

  f8 f e d cs d g, g' | % 5

  a8 f a a, d d d d | % 6

  cs8 cs cs cs d d d, d' | % 7

  e8 e e, e' f d cs a | % 8

  d,8 d' cs a d g a a, | % 9

  d8 d d, d' cs cs c c | % 10

  b8 b e e a, a' e e | % 11

  f8 f cs cs d d bf bf | % 12

  a a' cs, cs d d d d | % 13

  e8 e e e f f f g | % 14

  a8 a a a, b b cs cs | % 15

  d8 d a a' bf g a a, | % 16

  d8 d' d c b a b g | % 17

  c8 b a g fs fs gs gs | % 18

  a8 a a e f f c c | % 19

  d8 d ds ds e e e, e | % 20

  a8 a' a g f f f f | % 21

  e8 e e e d d d d | % 22

  c8 d e c f f a, a | % 23

  bf8 bf bf bf a a a a | % 24

  g8 f' e c f b, c c, | % 25

  f8 f' f f fs fs fs fs | % 26

  g8 g g g a a a a, | % 27

  d8 d, d d e e e e | % 28

  f8 f f f g g gs gs | % 29

  a8 d a a bf bf' fs fs | % 30

  g8 g e e f f d d | % 31

  e8 e cs cs d d a a | % 32

  bf8 bf g g a a a a | % 33

  f8 f' f f fs fs fs fs | % 34

  g8 g g g a a a a, | % 35
}

\score {
  <<
    \new PianoStaff

    <<
      \new Staff = "right" \with { instrumentName = \ru } \right


      \new Staff = "left" \with { instrumentName = \ober } { \clef bass << \leftOne \\ \leftTwo >> }
    >>
    \new Staff = "pedal" \with { instrumentName = \pes} { \clef bass \pedal }
  >>
  \layout { }
}