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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%        foreign code                            %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% first one
rhythmMarkStaffReduce = #-3
rhythmMarkLabelFontSize = #-2

rhythmMark = #(define-music-function (parser location label musicI musicII ) (string? ly:music? ly:music?)
   #{
      \mark \markup {
        \line \vcenter {
          \combine                     % 1st column in line
            \italic \fontsize #rhythmMarkLabelFontSize $label
            \transparent \italic \fontsize #rhythmMarkLabelFontSize f
                % This fakes a uniform baseline (ie. create common anchor for vcenter)

          \score {                     % 2nd column in line
            \new Staff \with {
              fontSize = #rhythmMarkStaffReduce
              \override StaffSymbol #'staff-space = #(magstep rhythmMarkStaffReduce)
              \override StaffSymbol #'line-count = #0
              \override VerticalAxisGroup #'Y-extent = #'(0 . 0)  % td
            }

            \relative { \stemUp $musicI }

            \layout {
              ragged-right= ##t
              indent = 0
              \context {
                \Staff
                \remove "Clef_engraver"
                \remove "Time_signature_engraver" }
            } % layout

          } % 1st Score end

          \hspace #-0.1                % 3rd column in line

                                       % 4th column in line
          \italic \fontsize #rhythmMarkStaffReduce "="

          \score {                     % 5th column in line

            \new Staff \with {
              fontSize = #rhythmMarkStaffReduce
              \override StaffSymbol #'staff-space = #(magstep rhythmMarkStaffReduce)
              \override StaffSymbol #'line-count = #0
              \override VerticalAxisGroup #'Y-extent = #'(0 . 0)  % td
            }

            \relative { \stemUp $musicII }

            \layout {
              ragged-right= ##t
              indent = 0
              \context {
                \Staff
                \remove "Clef_engraver"
                \remove "Time_signature_engraver" }
            } % layout end

          } % 2nd Score end

        } % line end
      } % markup end
   #})
   % second one
rhythmMarkCStaffReduce = #-4
rhythmMarkCLabelFontSize = #-2

rhythmMarkC = #(define-music-function (parser location label musicI musicII ) (string? ly:music? ly:music?)
   #{
      \mark \markup
      {
        \combine

          \line {
            \hspace #0
            \translate #'(-0.1 . -3.25) \italic \fontsize #rhythmMarkCLabelFontSize $label
          } % end Line

          \line \vcenter {

              \score {                 % 1st column in line

                \new Staff \with {
                  fontSize = #rhythmMarkCStaffReduce
                  \override StaffSymbol #'staff-space = #(magstep rhythmMarkCStaffReduce)
                  \override StaffSymbol #'line-count = #0 
                  \override VerticalAxisGroup #'Y-extent = #'(0 . 0)  % td
                }

                \relative { \stemUp $musicI }

                \layout {
                  ragged-right= ##t
                  indent = 0
                  \context {
                    \Staff
                    \remove "Clef_engraver"
                    \remove "Time_signature_engraver" }
                } % layout

              } % 1st score

              \hspace #-0.1            % 2nd column in line

                                       % 3rd column in line
              \italic \fontsize #rhythmMarkCStaffReduce "="

              \score {                 % 4th column in line

                \new Staff \with {
                  fontSize = #rhythmMarkCStaffReduce
                  \override StaffSymbol #'staff-space = #(magstep rhythmMarkCStaffReduce)
                  \override StaffSymbol #'line-count = #0 
                  \override VerticalAxisGroup #'Y-extent = #'(0 . 0)  % td
                }

                \relative {
                  \stemUp $musicII
                }

                \layout {
                  ragged-right= ##t
                  indent = 0
                  \context {
                    \Staff
                    \remove "Clef_engraver"
                    \remove "Time_signature_engraver" }
                } % layout

              } % 2nd score end

            } % line end
          % end combine
        } % markup end
   #})
   % some definitions
rhyMarkI = { b'1 }

rhyMarkII = { b'2 }

rhyMarkIV = { b'4 }

rhyMarkEighth = { b'8 }

rhyMarkIIEighths = {
  % \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 1 4) % tight
  \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 3 16) % even
  b'8[ b8]
}
rhyMarkTriplets = {
  % \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 1 2) % super-tight
  % \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 1 4) % tight
  \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 3 16) % even
  \times 2/3 { b'4 b8 }
}
rhyMarkSlurredTriplets = {
  % \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 1 4) % tight
  % \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 5 32) % slighty tighter as even
  \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 1 8) % even
  \times 2/3 { b'8 ~ b8 b8 }
}
rhyMarkDottedEighths = {
  % \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 1 4) % tight
  \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 3 16) % even
  % \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 1 8) % loose
  { b'8. b16 }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%        end of foreign code                     %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  \version "2.12"
  \include "dynArt.ly"

  global = {
    \key g \major
    %\override Staff.TimeSignature #'style = #'()
    \time 4/4
    %\autoBeamOff
  }

% Die Stimmen

  sopSolo = \relative c'' {
    \rhythmMark #"       " \rhyMarkIIEighths \rhyMarkSlurredTriplets
    \repeat volta 2 {
      \oneVoice
      g4( a8 b8 ~ b8 a8) r8 b8( 
      c4 b8 a8 ~ a8 g8) r8 a8( 
      b8) d,8 ~ d8 d8 ~ d8 d8 d4 ~ 
      d2. r4 
    }
    s1*11 
    \voiceOne
    s2. d4 
    \repeat unfold 2 {
      d'1( ~ 
      d4 c8 d8 ~ d8 c8 ~ c4 
      b8) d,8 ~ d8 d8 ~ d8 d8 d4 ~ 
    } \alternative {
      {
        d2. d4 
      }
      {
        d2. s4 
      }
    }
  }

  sopPatI = \relative c' {
          \repeat unfold 4 { d8 d8 }
          \repeat unfold 4 { e8 e8 }
          \repeat unfold 4 { d8 d8 }
          \repeat unfold 4 { d8 d8 }
  }
  sopranMelodie = \relative c' {
    <<
      { \meta }
      %\sopranArt
      %the actual tune
      { \sopSolo }
      \\
      {
        s1*4 
        \repeat volta 2 {
          \sopPatI
        }
        \repeat volta 2 {
          g'4 a8 b8 ~ b8 a8 r8 b8 
          c4 b8 a8 ~ a8 g8 r8 a8 
          b8 a8 ~ a8 g8 ~ g4 b8 a8 ~ 
          a2. r4 
          d4 b8 a8 ~ a8 b8 r8 d8 
          c4 b8 a8 ~ a8 g8 r8 a8 
          b8 a8 ~ a8 g8 ~ g4 b8 a8 ~ 
          a2. s4 
          \voiceTwo
          \sopPatI
          r4 b8 a8 g8 fis8 e8 d8 
          c1 
          \repeat unfold 4 { d8 d8 }
          \repeat unfold 3 { d8 d8 } d4 
        }
        \oneVoice
        g8 r8 a8 b8 ~ b8 a8 r8 b8 
        c4 b8 a8 ~ a8 g8 r8 a8 
        b8 a8 ~ a8 g8 ~ g4 b8 a8 ~ 
        a2. r4 
        d8 r8 b8 a8 ~ a8 b8 r8 d8 
        c4 b8 a8 ~ a8 g8 r8 a8 
        b8 a8 ~ a8 g8 ~ g4 b8 a8 ~ 
        a1 
        \bar "||"
        % coda
        r4 g8 g8 g8 r8 r4 
        \bar "|."
      }
    >>
  }

  altPatI = \relative c' {
    \repeat unfold 4 { b8 b8 } 
    d8 d8 d8 d8 c8 c8 c8 c8 
    c8 c8 c8 c8 b8 b8 b8 b8 
    \repeat unfold 4 { a8 a8 } 
  }
  altPatII = \relative c' {
    d4 d8 r8 r8 d4 d8 
    e4 e8 r8 r8 e4 fis8 
    g4 d8 r8 r8 d4 e8 
  }

  altMelodie = \relative c' {
    <<
      { \meta }
      %\altArt
      %the actual tune
      {
        s1*4 
        \repeat volta 2 \altPatI
        \repeat volta 2 {
          \altPatII
          d4 d8 r8 r8 d4 d8 
          \altPatII
          d4 d8 r8 r8 d8 d8 d8 
          \altPatI
          \repeat unfold 4 { d8 d8 } 
          \repeat unfold 4 { e8 e8 } 
          r4 b'8 a8 g8 fis8 e8 ees8 
          d2. r4 
        }
	d8 r8 f8 f8 ~ f8 f8 r8 f8 
        e4 f8 g8 ~ g8 g8 r8 g8 
        g8 fis8 ~ fis8 d8 ~ d4 e8 e8( ~ 
        e2 d4) r4 
        r8 g4 f8 ~ f8 g8 r8 f8 
        e4 g8 g8 ~ g8 g8 r8 g8 
        g8 g8 ~ g8 d8 ~ d4 g8 g8( ~ 
        g2 fis2) 
        %coda
        r4 d8 d8 d8 r8 r4 
      }
    >>
  }
  
  tenorPatI = \relative c' {
    \repeat unfold 4 { g8 g8 } 
    \repeat unfold 4 { g8 g8 } 
    \repeat unfold 4 { g8 g8 } 
    \repeat unfold 4 { fis8 fis8 } 
  }
  tenorPatII = \relative c' {
    b4 b8 r8 r8 b4 b8 
    d4 d8 r8 r8 c4 c8 
    b4 b8 r8 r8 b4 g8 
  }

  tenorMelodie = \relative c' {
    <<
      { \meta }
      %\tenorArt
      %the actual tune
      \clef "treble_8"
      {
        s1*4 
        \repeat volta 2 \tenorPatI
        \repeat volta 2 {
          \tenorPatII
          fis,4 fis8 r8 r8 fis4 fis8 
          \tenorPatII
          fis4 fis8 r8 r8 fis8 fis8 fis8 
          \tenorPatI
          \repeat unfold 4 { b8 b8 }
          b8 b8 b8 b8 b8 b8 a8 a8 
          g8 b8 g8 fis8 g8 a8 g8 g8 
          fis8 fis8 fis8 fis8 fis8 fis8 fis4 
        }
	b8 r8 c8 b8 ~ b8 c8 r8 b8 
        c4 d8 c8 ~ c8 c8 r8 c8 
        d8 c8 ~ c8 b8 ~ b4 g8 g8( ~ 
        g2 fis4) r4 
        r8 d'4 d8 ~ d8 d8 r8 b8 
        c4 c8 c8 ~ c8 c8 r8 c8 
        d8 d8 ~ d8 b8 ~ b4 d8 d8 ~ 
        d1 
        % coda
        r4 b8 b8 b8 r8 r4 
      }
    >>
  }

  bassPatI = \relative c {
    \repeat unfold 4 { g8 g8 } 
    \repeat unfold 4 { c8 c8 } 
    \repeat unfold 4 { g8 g8 } 
    \repeat unfold 4 { d'8 d8 } 
  }
  bassPatII = \relative c {
    g4. b8 ~ b4 d4 
    c4. c8 ~ c4 d4 
    g4. b8 ~ b4 c4 
  }

  bassMelodie = \relative c {
    <<
      { \meta }
      %\bassArt
      %the actual tune
      \clef bass
      {
        s1*4 
        \repeat volta 2 \bassPatI
        \repeat volta 2 {
          \bassPatII
          d4. a8 ~ a4 d4 
          \bassPatII
          d4. c8 ~ c4 a4 
          \bassPatI
          g4. g8 d'8 d8 e8 d8 
          c4. c8 c8 c8 c8 c8 
          d4. d8 ~ d4 d4 
          d4. d8 d8 a8 d4 
        }
        g8 r8 d8 g,8 ~ g8 d'8 r8 des8 
        c4 d8 e8 ~ e8 ees8 r8 ees8 
        d8 dis8 ~ dis8 e8 ~ e4 cis8 d8 ~ 
        d2. r4 
        r8 b'4 c8 ~ c8 b8 r8 g8 
        g4 e8 ees8 ~ ees8 ees8 r8 ees8 
        d8 d8 ~ d8 d8 ~ d4 d8 d8 ~ 
        d1 
        % coda
        r4 g,8 g8 g8 r8 r4 
      }
    >>
  }