\version "2.18.2"
\language "english"

\header {
  title = "In dir ist Freude"
  composer = "Johann Sebastian Bach (1685-1750)"
  opus = "BWV615"
  % Remove default LilyPond tagline
  tagline = ##f
}

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

global = {
  \key g \major
  \numericTimeSignature
  \time 3/2
}

% raise a tie
raiseTie = {
    \once \override TieColumn #'tie-configuration = #'((9.5 . 1) (10.0 . 1) (4.0 . 1))
}

% REPEATED SECTIONS

% Pedal motif 1
% mm 1-3, 3-4, 4-5, 11-12
pedOne = \relative c {

  % 1
  r4 d\ltoe g\rtoe b,8\ltoe c\rtoe d\rtoe c\ltoe d4\rtoe |

  % 2
  g,4\ltoe r r2 r |
}

% Repeated:
% LH Bass 1-2
% Pedal 7-8
% LH Bass 18- 19
% Pedal 24-24
motOne = \relative c' {
  % 1
  d2 d c |

  % 2
  b8 d a c b d g, b a d fs, a |
}

% Soprano mm. 3 to 12
% repeated as mm 20 to 29
sopA =  \relative c'' {
    % 3
  d2 r8 g, d' g r a, d fs |

  % 4
  g8 d a c-4 b d g, b-4 a d fs, a |

  % 5
  d2-2-5 d c |

  % 6
  b8-1-3 g'-5 fs e d c b-3 d c b a c-5 |

  % 7
  b8 d, e fs g-1 a b c-1 d e fs d |

  % 8
  g4 r r2 r2 |

  % 9
  d2 d c |

  % 10
  b2. a4 b2 |

  % 11
  d2 d c |

  % 12
  b8 d,-1 e fs g-1 a b c-1 d e fs d |
}


% Alto mm. 3 to 12
% repeated as mm 20 to 29

altA = \relative c'' {
  % 3 to 4
  \repeat unfold 2 {\skip 1.}

  % 5
  g8 d g a b2 a |

  % 6 to 8
  \repeat unfold 3 {\skip 1.}

  % 9
  r4 \stemUp a \shiftOn b2 a |

  % 10
  g2. fs4 d2 |

  % 11
  c'2 b a \shiftOff |

  % 12
  \skip 1.
}

% Tenor mm. 3 to 12
% repeated as mm 20 to 29

tenA = \relative c' {
  % 3
  d2 d c |

  % 4
  b8 g'-1 fs e d-1 c b d c b a c |

  % 5 to 8
  \repeat unfold 4 {\skip 1.}

  % 9
  \change Staff = "right"
  f,4\rest \stemDown fs' g2 d |

   % 10
   d2. c4 b2 |

   % 11
   fs'2 g s |

   % 12
   \skip 1.
}

% Bass mm. 3 to 12
% repeated as mm 20 to 29

bassA = \relative c' {
  % 3
  g8 d-5 g-4 a-3 b2 a |

  % 4
  g4 r r2 r2 |

  % 5
  b2 d,8\rest g d' g d,8\rest a' d fs |

  % 6
  g8 \stemUp d,,-5 e fs g a b-3 c \stemDown d e-4 fs d |

  % 7
  g8 fs-3 g a b-4 c d e \clef treble \stemUp fs g a fs |

  % 8
  b4 r r2 r |

  % 9
  \clef bass
  d,,8\rest \stemDown e' d c b a g a fs a g fs |

  % 10
  \stemUp g8-1 g,-5 a b \stemDown c d e-3 fs g-1 a-3 b g |

  % 11
  a8-1 fs-2 g-1 a-4 b c d-1 e-3 \clef treble \stemUp fs-2 g e fs |

  % 12
  g4-1 a4\rest g2\rest g2\rest |
}
% -------------------


% soprano
rightOne = \relative c'' {
  \global

  % 1
  R1.

  % 2
  d2 d c |

  % 3 to 12
  \sopA

  % 13
  g'8 e d c d-5 b a g a-4 g fs e |

  % 14
  fs2.-3-4 a4-2-5 g a |

  % 15
  b2. e,4 a2~ |

  % 16
  a8 c b a g fs e fs g4-4 fs-3 |

  % 17
  e2~-2 e8 fs-3 g-4 a-1 \stemDown b c d e |

  % 18
  \stemUp fs,8-2 c' b a b-4 a g a fs-2 a-3 g-1 fs-2 |

  % 19
  d'2 d c

  % 20 to 29
  \sopA

  % 30
  g'8 e d c d2-5 c-2-4 |

  % 31
  b2. a4 g8 a b c |

  % 32
  d2 r8 g-5 fs e fs2-5 |

  % 33
  r8 f8 e d e-5 d c b c2-4 |

  % 34
  r8 c-5 b a b4.-5 b8 a4. a8 |

  % 35
  g2 r r |

  % 36
  r8 a b c r c-3 d e d c b a |

  % 37
  b2. a4 g8fs g4 |

  % 38
  r4 d'8 c b a g a b4 a |

  % 39
  g4. d8 g2~ g8 fs g a |

  % 40
  b2 c d |

  % 41
  e4. d8 c2 r2 |
}

% alto
rightTwo = \relative c'' {
  \global

  % 1 to 2
  \repeat unfold 2 {R1.}

  % 3 to 23
  \altA

  % 13
  \skip 1.

  % 14
  \stemDown d,2. c?4 b c |

  % 15
  d8 f-3 e-1 d-2 c2~-1 c8 d-2 b-1 c |

  % 16 to 18
  \repeat unfold 3 {\skip 1.}

  % 19
  g'4 r r2 r2 |

  % 20 to 29
  \altA

  % 30
  r2 r8 \stemDown b a g a2 |

  % 31
  g1.~ |

  % 32
  g8 fs g a b2-1 r8 c-3 b-2 a-1 |

  % 33
  g2 r r8 b a g |

  % 34
  fs2-2 r8 fs8 g4~ g8 e fs4 |

  % 35
  g2 r r8 d e f |

  % 36
  e2 a1 |

  % 37
  r8 a8 g fs g4 fs d d |

  % 38
  r4 a' g r4 r8 d r c~ |

  % 39
  c8 a b4~ b2 r2 |

  % 40
  r8 a' g f r g f? e r f? e d |

  % 41
  r8 b' c g e2 r2 |
}

% tenor
leftOne = \relative c' {
  \global

  % 1 to 2
  \repeat unfold 2 {\skip 1.}

  % 3 to 12
  \tenA

   % 13
   \change Staff ="left" \clef bass \stemUp b2 b cs2 |

   % 14 to 15
   \repeat unfold 2 {\skip 1.}

   % 16
   b1 r8 b r a~ |

   % 17
   a8-2 c-1 b-2 a-3 g-1 fs-2 e-3 fs-2 g-1 a-4 b-3 c-2 |

   % 18 to 19
   \repeat unfold 2 {\skip 1.}

   % 20 to 29
   \tenA

   % 30 to 31
   \repeat unfold 2 {\skip 1.}

   % 32
   \change Staff = "left" \stemUp b8 a-4 b c d2-1 c\finger "2-1" |

   % 33
   \stemUp b2. a4 g b |

   % 34
   a2\finger "2-1" r8 a b c d2 |

   % 35
   d2 r8 b c d b2 |

   % 36 to 37
   \repeat unfold 2 {\skip 1. }

   % 38
   r4 d~ d8 c b a g4 fs |

   % 39
   g1 r2 |

   % 40
   \skip 1.|

   % 41
   c2 \skip 1 |
}

% bass
leftTwo = \relative c' {
  \global

  % 1 to 2
  \motOne

  % 3 to 12
  \bassA

  % 13
  \clef bass
  R1. |

  % 14
  r8 \stemDown b a g a-1 fs-2 e d \stemUp e-1 c-2 b a |

  % 15
  gs2 \stemDown a8-4 b'-1 a g? fs e-1 ds-4 e |

  % 16
  ds2-1-4 e2. d4 |

  % 17
  e2 r r |

  % 18 to % 19
  \motOne

  % 20 to 29
  \bassA

  % 30
  \clef bass r2 r2 r8 \stemDown fs' e d |

  % 31
  r8 e-1 d c b-1 a g fs e fs g a |

  % 32
  r2 r8 b a g r a g fs |

  % 33
  g2-2-3 c,4-5 d-1-4 e c |

  % 34
  d4\finger "4-5" e8 fs g2\finger "2-5" a |

  % 35
  r8 g a b g4 fs g2 |

  % 36 to 37
  <<
  {\skip 2 d'1~ |d2 }
  \\
  {\stemUp c2. b4 a2 | g2 }
  \\
  {\stemDown a2. g4 fs e | d2 r8 d' r c b a b4 }
>>

  % 38
  \stemDown r4 fs g2 d2~ |

  % 39
  d2 d8 g, a b c d e fs |

  % 40
  g4 \stemUp g, a \stemDown a' b \stemUp b, |

  % 41
  \stemDown c2 r8 b'8 c g e c e g |
}

pedal = \relative c {
  \global
  % Music follows here.

  % 1 to 6
  % repeat the first pedal motif 3 times
  \repeat unfold3 {\pedOne}

  % 7 to 8: a repeat of mm 1-2 bass, left hand
  \motOne

  % 9
  g'4 d g b,8 c d c d4 |

  % 10
  g,4 r r2 r2 |

  % 10 to 11
  \pedOne

  % 13 to 15
  \repeat unfold 3 {R1.}

  % 16
  r4 b e g,8 a b a b4 |

  % 17
  e,2 r r |

  % 18 to 19
  \pedOne

  % 20 to 23
  \repeat unfold 2 {\pedOne}

  % 24 to 25
  \motOne

  % 26 to 29
  \repeat unfold 2 {\pedOne}

  % 30 to 31
  \repeat unfold 2 {R1.}

  % 32 to 33
  \pedOne

  % 34
  r2 d'\ltoe c\ltoe |

  % 35
  b2. a4 g2 |

  % 36
  g2 fs1 |

  % 37
  g2 r4 d'\ltoe g\rtoe b,8\ltoe c\ltoe |

  % 38
  d8 c d4 g b,8 c d c d4 |

  % 39
  g,1 r2 |

  % 40
  R1. |


}

\score {
  <<
    \new PianoStaff <<
      \new Staff = "right" << \rightOne \\ \rightTwo >>
      \new Staff = "left" { \clef bass << \leftOne \\ \leftTwo >> }
    >>
    \new Staff = "pedal" { \clef bass \pedal }
  >>
  \layout { }
}