%some settings% vim: ai sw=2 lbr nu et

global = {
  \key d \major
  \time 3/4
  \autoBeamOff
}

punktBoegenA = {
  \slurDashed
  \tieDashed
}

punktBoegenB = {
  \set melismaBusyProperties = #'()
}

strichBoegen = {
  \set melismaBusyProperties = #'(melismaBusy slurMelismaBusy tieMelismaBusy beamMelismaBusy)
  \slurSolid
  \tieSolid
}

pausen = {
  s2.*3 |
  s2 r4 |
  s2.*3 |
  s2 r4 |
  s2.*3 |
  s4 r s |
  s2.*4 | \bar "||"
  s2.*3 | \bar "|."
}

hoeher = \markup { + }
tieferis = \markup { - \sharp }

sopranMelodie = \relative d'' {
  d4 a h |
  strophen_varianten(`6',
    `cis e',
    `\punktBoegenA \punktBoegenB cis( e) \strichBoegen',
    `cis( e)'
  )
  d8[ h] |
  strophen_varianten(`6',
    `a4( g fis) |',
    `a4( \punktBoegenA g)( \punktBoegenB fis) \strichBoegen |',
    `a4( g) fis |'
  )
  e2 s4 |
  strophen_varianten(`3',
    `e''`8 e',
    `\punktBoegenA \punktBoegenB e''`8~ e \strichBoegen',
    `e''`4'
  )
  h4 cis |
  strophen_varianten(`2 4 7',
    `a d',
    `\punktBoegenA \punktBoegenB a( d) \strichBoegen',
    `a( d)'
  )
  h |
  strophen_varianten(`2',
    `g2~( g8 fis) |',
    `g2~ \punktBoegenA g8( \punktBoegenB fis) \strichBoegen |',
    `g2~ g8 fis |'
  )
  fis2 s4 |
  fis fis
  strophen_varianten(`6',
    `ais8 ais |',
    `\punktBoegenA \punktBoegenB ais8~ ais \strichBoegen |',
    `ais |'
  )
  h2 h4 |
  h2 cis4 |
  d4 s d |
  g( d) h |
  h2 a4 |
  fis( g) e |
  d2. | \bar "||"
  a'2.( g4 a h) |
  d2. | \bar "|."
}

altMelodie = \relative fis' {
  fis4 e d |
  strophen_varianten(`6',
    `cis cis',
    `\punktBoegenA \punktBoegenB cis~ cis \strichBoegen',
    `cis2'
  )
  d4 |
  strophen_varianten(`6',
    `\punktBoegenB e2( d4) \strichBoegen |',
    `\punktBoegenA \punktBoegenB e2( d4) \strichBoegen |',
    `e2 d4 |'
  )
  cis2 s4 |
  strophen_varianten(`3',
    `e8 e',
    `\punktBoegenA \punktBoegenB e8~ e \strichBoegen',
    `e4'
  )
  fis4 a |
  strophen_varianten(`2 4 7',
    `e d',
    `\punktBoegenA \punktBoegenB e( d) \strichBoegen',
    `\punktBoegenB e( d) \strichBoegen'
  )
  d |
  strophen_varianten(`2',
    `d( h \punktBoegenB cis) \strichBoegen |'
    `d( \punktBoegenA h)( \punktBoegenB cis) \strichBoegen |'
    `d( h) cis |'
  )
  d2 s4 |
  cis cis
  strophen_varianten(`6',
    `fis8 fis |',
    `\punktBoegenA \punktBoegenB fis8~ fis \strichBoegen |',
    `fis4 |'
  )
  fis2 fis4 |
  g2 g4 |
  fis s d' |
  h2 g4 |
  g2 fis4 |
  d2 cis4 |
  a2. | \bar "||"
  fis'( |
  d4 fis g) |
  fis2. | \bar "|."
}

tenorMelodie = \relative a {
  a4 g fis |
  strophen_varianten(`6',
    `e g',
    `\punktBoegenA \punktBoegenB e( g) \strichBoegen',
    `e( g)'
  )
  fis |
  strophen_varianten(`6',
    `a2. |',
    `\punktBoegenA \punktBoegenB a2~ a4 \strichBoegen |',
    `a2 a4 \strichBoegen |'
  )
  a2 s4 |
  strophen_varianten(`3',
    `cis8 cis',
    `\punktBoegenA \punktBoegenB cis8~ cis \strichBoegen',
    `cis4'
  )
  d4 e |
  strophen_varianten(`2 4 7',
    `a, a',
    `\punktBoegenA \punktBoegenB a,~ a \strichBoegen',
    `a,2'
  )
  a4 |
  strophen_varianten(`2',
    `h( g a) |',
    `h( \punktBoegenA g)( \punktBoegenB a) \strichBoegen |',
    `h( g) a |'
  )
  \once \override Accidental.stencil = #ly:text-interface::print
  \once \override Accidental.text = #hoeher
  ais2 s4 |
  \once \override Accidental.stencil = #ly:text-interface::print
  \once \override Accidental.text = #tieferis
  ais ais
  strophen_varianten(`6',
    `cis8 cis |',
    `\punktBoegenA \punktBoegenB cis8~ cis \strichBoegen |',
    `cis4 |'
  )
  d2 d4 |
  e2 ais,4 |
  h s d |
  d2 d4 |
  e2 fis4 |
  a,( h) g |
  fis2. | \bar "||"
  d'4( a8[ h] c4 |
  h a g) |
  \once \override Accidental.stencil = #ly:text-interface::print
  \once \override Accidental.text = #hoeher
  ais2. | \bar "|."
}

bassMelodie = \relative d {
  d4 d d |
  strophen_varianten(`6',
    `a a',
    `\punktBoegenA \punktBoegenB a~ a \strichBoegen',
    `a2'
  )
  h4 |
  strophen_varianten(`6',
    `cis( d2) |',
    `cis( \punktBoegenA d)( \punktBoegenB d) \strichBoegen |',
    `cis( d) d |'
  )
  a2 s4 |
  strophen_varianten(`3',
    `a''`8 a',
    `\punktBoegenA \punktBoegenB a''`8~ a \strichBoegen',
    `a''`4'
  )
  a4 g |
  strophen_varianten(`2 4 7',
    `fis fis',
    `\punktBoegenA \punktBoegenB fis~ fis \strichBoegen',
    `fis2'
  )
  fis4 |
  strophen_varianten(`2',
    `e2( a,4) |',
    `\punktBoegenA \punktBoegenB e2( a,4) \strichBoegen |',
    `e2 a,4 |'
  )
  d2 s4 |
  fis fis
  strophen_varianten(`6',
    `fis8 fis |',
    `\punktBoegenA \punktBoegenB fis8~ fis \strichBoegen |',
    `fis4 |'
  )
  h,2 h'4 |
  e,2 e4 |
  h s d' |
  g,( h) h |
  cis2 d4 |
  d,( g,) a |
  d2. | \bar "||"
  d2.~ |
  d |
  d | \bar "|."
}