\include "Mlyr.ly"

Msta = { \key c \major }

timenxt = {
  \override Staff.TimeSignature #'style = #'()
  \set Staff.timeSignatureFraction = #'(3 . 2)
}

%---------------

Ms = \relative c'' {
  \time 2/1
  d\breve |
  d1 e |
  d2 b c1 |
  b1 r2 a |
  b2 c d2. \melisma c4 |
  b2 a b g4 a |
  b4 c d2. c4 c1 b2 a\breve \melismaEnd b\breve r2 g |
  e2 f g g |
  a4 \melisma b c d e1 \melismaEnd |
  a,1 r1 |
  \tag #'(nor men) { r\breve | r\breve | }
  \tag #'(part) { r\longa | }
  a1 b2 c |
  d1 b |
  d1 e1. d2 c2. \melisma b4 |
  a2 g1 fis2 \melismaEnd |
  \tag #'nor { g\breve~g | }
  \tag #'(men part) { g\longa | }
  r2 g c1. b2 e1 |
  \tag #'nor { c\breve~ | c1 }
  \tag #'(men part) { c\breve. }
    r2 c |
  f1. e2 |
  d1 c |
  d2. \melisma c4 a2 bes2. a4 a1 \melismaEnd g2 |
  \tag #'nor { a\breve~ | a1 }
  \tag #'(men part) { a\breve. }
    r1 |
  r2 b c1 |
  b2 a1 g2 |
  a1 a |
  gis1 r1 |
  a\breve |
  b1 c\breve d1 |
  e1 r2 g2 |
  g1 c,\breve d1 |
  e1 c2 b |
  a1 g\breve r2 g' |
  g1
   \tag #'nor { c,1~ | c\breve }
   \tag #'(men part) { c\breve. }
   |
  r\breve |
  r2 c2 c1 |
  f,2 g a1 |
  a2 g f1 |
  e1 e'\breve \[ d1 \melisma f \melismaEnd \] e2 c |
  d2 e
   \tag #'nor { f  \melisma e2~ | e2 d4 c b2 c2~ | c b2. a4 a2~ | a \melismaEnd }
   \tag #'(men part) { f' \melisma e1       d4 c b2 c1      b2. a4 a1      \melismaEnd }
   gis2
  \tag #'nor { a1~a\breve~a1 }
  \tag #'(men part) { a\longa }
  \tag #'men { \bar "" \break }
   r\breve e'\breve \[ d1 \melisma f1 \melismaEnd \] e2 c |
  d2 e \[ f1 \melisma e1. \] d2 |
  c1 \melismaEnd c 

  \time 1/1
  b1 \bar "||"
\break
  \time 3/2
  \timenxt

  b1 c2 |
  d1 d2 |
  e1 e2 |
  d1 b2 |
  c2 a1 |
  \tag #'nor { g1.~ | g1. }
  \tag #'(men part) {  g\breve*3/2 | }
  g1 a2 |
  b1 c2 |
  c2 d1 |
  g,1. |
\break
  g1 a2 |
  b1 b2 |
  c1 c2 |
  b2 a1 |
  g1 fis2 |
  \tag #'nor { g1.~g~g~g~g~ | g\maxima*3/16 }
  \tag #'men { g\maxima*18/16 }
  \tag #'part { g\maxima*3/16 }
}

Ma = \relative g'  {
  \time 2/1
  r\breve |
  g\breve |
  g1 a |
  g2 e f1 |
  e1 r2 d |
  e2 f g2. \melisma f4 |
  e2 d e c4 d |
  e4 f g1 fis4 e |
  fis1 \melismaEnd g |
  r2 g2. \melisma f4 e1 d4 c d2 e \melismaEnd |
  a,2 a' g e |
  f1 \melisma e2 \melismaEnd d |
  r2 d e f |
  g2. \melisma f4 e2 d4 e |
  f4 g a2. g4 g1 fis2 \melismaEnd
   \tag #'nor { g1~g\breve~g1 }
   \tag #'(men part) { g\longa }
   r1 |
  r2 g, c1. b2 e1 |
  d1 c2. \melisma d4 |
  e4 f g1 fis2 \melismaEnd |
  g1 r2 e |
  a1. g2 |
  f2 \melisma e d c \melismaEnd |
  d1 g |
  a1. g2 |
  f1 e2 f1 \melisma e2 d \melismaEnd d |
  e1 r2 a |
  c1. b2 |
  a2 g a2. \melisma g4 |
  e2 f2. e4 e1 d4 c d2 \melismaEnd d |
  e1 r1 |
  e\breve |
  g1 a2. \melisma g4 |
  f2 \melismaEnd e d g |
  g1 c,2. \melisma d4 |
  e2. f4 g2 \melismaEnd a1 g2 a b |
  c2. \melisma b4 a2 g1 f2 e d4 c |
  d1 \melismaEnd e |
  r2 g g1 |
  c,2 g' a1 |
  f2 e d1 |
%  c\breve~ | c1 r1 |
  \tag #'nor { c\breve~ | c1 }
  \tag #'(men part) { c\breve. }
    r1 |
  r\breve |
  a'\breve |
  \[ g1\melisma
     \tag #'(men part) {
       \once\override Accidental #'extra-offset = #'( -1.2 . 0 )
     }
     bes \melismaEnd \] |
  a2 f g a |
  bes2 \melisma a1 g4 f |
  e2 \melismaEnd f g a |
  a2 g c c |
  b2 e, f2. \melisma e4 |
  d1 \melismaEnd c2. \melisma d4 |
  e2 \melismaEnd f g g |
  f2 d e1 |
  a1 f2. \melisma g4 |
  a1. \melismaEnd e2 |
  r2 g a b |
  c1. \melisma b2 |
  a2. f4 e2 \melismaEnd fis |

  \time 1/1
  g1 \bar "||"
\break

  \time 3/2
  \timenxt

  g1 a2 |
  b1 b2 |
  c1 c2 |
  b2 a1 |
  g1 fis2 |
  g2 d e |
  b1 b2 |
  c1 c2 
  b2 g g' \melisma |
  a2 \melismaEnd f1 |
  e1. |
\break
  e1 f2 |
  g1 g2 |
  g1 g2 |
  g2 f e1 d1 |
  d2 b c |
  d1 d2 |
  e1 e2 |
  d1 c2 |
  d2 e1 |
  d\maxima*3/16

}

Mt = \relative c'  {
  \time 2/1
  \tag #'(nor men) { \repeat unfold 6 r\breve | }
  \tag #'part { r\longa r\longa r\longa | }
  r\breve |
  r1 d\breve d1 |
  e1 d2 b |
  c1 b |
  r2 a b c |
  d2. \melisma c4 b2 a \melismaEnd |
  b2 g4 \melisma a b c d2. c4 \melismaEnd c2. \melisma a4 b c \melismaEnd |
  d2 c2. \melisma b4 a g |
  a1 \melismaEnd g\breve r1 |
  g1 g'2. \melisma f4 |
  e2 \melismaEnd d e c |
  r2 g c1. b2 e2. \melisma d4 |
  c2 b a1 \melismaEnd |
  g2 g c1 |
  a2. \melisma b4 c d e2 \melismaEnd |
  c2. \melisma b4 a2 c1 b2 \melismaEnd c c |
  f1. e2 |
  d1 c2 d1 \melisma c2 bes \melismaEnd
  \once \override Accidental #'transparent = ##t
     bes |
  a2 a f'1. e2 e1. d2 e a, |
  b2 c1 \melisma b2 |
  a1 \melismaEnd a |
  b1 r |
  c\breve |
  d1 f2. \melisma e8 d |
  c2 \melismaEnd c g1 |
  r2 g'2 g1 |
  c,2. \melisma d4 e2 \melismaEnd f1 e2 f g |
  c,2 \melisma e f g |
  d1 \melismaEnd g, |
  r2 g'2 g1 |
  c,2. \melisma d4 e1 \melismaEnd |
  e1 f2 c |
  d2 c2. \melisma b8 a b2 \melismaEnd |
  c2 a1 a' g2 f1. \melisma e2 \melismaEnd d1. \melisma c4 b c2 \melismaEnd a |
  r2 e' g1 |
  d1 r1 |
  r\breve |
  r\breve |
\break
  \tag #'nor { e\breve~ | e1 }
  \tag #'(men part) { e\breve. }
    \[ d1 \melisma |
  f1 \melismaEnd \] e |
  c1 d2 e1 d \melisma cis4 b |
  cis2 \melismaEnd
  \once \override Accidental #'transparent = ##t
    cis d\breve c1 |
  g'1 f2 \melisma e4 d |
  c2. d4 e f g2 \melismaEnd |
  e1 c |

  \time 1/1
  d1 \bar "||"
\break

  \time 3/2
  \timenxt

  e1 c2 |
  g'1 g2 |
  c,1 c2 |
  g'2 d e |
  c2 d1 |
  b1 c2 |
  d1 d2 |
  e1 e2 |
  d2 e1 |
  c1 b2 |
  c1. |
\break
  b1 c2 |
  d1 d2 |
  e1 e2 |
  d1 b2 |
  c2 a1 |
  g2 d' e |
  b1 b2 |
  c1 c2 |
  b1 e2 |
  d2 c1 |
  b\maxima*3/16

}

Mb = \relative f {
  \time 2/1
  \tag #'(nor men) { \repeat unfold 8 r\breve | }
  \tag #'part { \repeat unfold 4 r\longa | }
  r1 g\breve g1 |
  a1 g2 e |
  f1 e |
  r2 d2 e f |
  g2. \melisma f4 e2 d \melismaEnd |
  e2 c4 \melisma d e f g2 \melismaEnd |
  d2 f e1 |
  d1 r1 |
  g1 c1. b2 e2. \melisma d4 |
  c2 b a1 \melismaEnd |
  g1 r2 c, |
  g'1 c, |
  r\breve |
  r1 c |
  f1. e2 |
  a2. \melisma g4 f2 e |
  d1 \melismaEnd c |
  \tag #'(nor men) { r\breve | r\breve | }
  \tag #'part { r\longa | }
  a'1 d1. cis2 d1 |
  a2 a c1. b2 a1 |
  g2 a2. \melisma g4 e2 |
  f1 \melismaEnd f |
  e1 r1 |
  a\breve |
  g1 f2. \melisma g4 |
  a4 b c1 \melismaEnd b2 |
  c\breve |
  r\breve |
  \tag #'(nor men) { r\breve | r\breve | }
  \tag #'part { r\longa | }
  r1 g1 |
  g1 c,\breve c'1 |
  c1 f,\breve g1 |
  a1 f1. e2 \[ d1 \melisma c1 \] d \melismaEnd |
  a'1 a |
  c1 g |
  \tag #'(nor men) { \repeat unfold 4 r\breve | }
  \tag #'part { \repeat unfold 2 r\longa | }
  r\breve |
  r1 a\breve \[ g1 \melisma
		\once\override Accidental #'extra-offset = #'( -1.2 . 0 )
		bes1 \melismaEnd \] a\breve d,\breve a'1 |
  \tag #'(men part) {
    g1 \[ d \melisma
	  % this is a fake minor calor, together with the moved b4
	  \once \override TextScript #'extra-offset = #'( 0.9 . -1.8)
	  a'1*3/4^\markup{ \beam #0.9 #0 #0.5 }
	  \]
    \tag #'part {
      \once \override NoteHead #'extra-offset = #'( -7.7 . 0 )
      \once \override Stem     #'extra-offset = #'( -7.7 . 0 )
    }
    \tag #'men {
      \once \override NoteHead #'extra-offset = #'( -10.5 . 0 )
      \once \override Stem     #'extra-offset = #'( -10.5 . 0 )
    }
    b4   c2 g |
  }
  \tag #'nor { g1 \fakeLiga d\startGroup \melisma a'2.\stopGroup b4 c2 g | }
  a1 \melismaEnd a |

  \time 1/1
  g1 \bar "||"
\break

  \time 3/2
  \timenxt

  e1 a2 |
  g1 g2 |
  r\breve*3/2
  r1 r2 |
  g1 c,2 |
  g'1 g2 |
  c,1 c2 |
  g'1 e2 |
  f2 d1 |
  c1. |
\break
  e1 a2 |
  g1 g2 |
  c,1 c2 |
  g' d e |
  c2 d1 |
  r2 g c, |
  g'1 g2 |
  c,1 c2 |
  g'1 c,2 |
  b2 c1 |
  g'\maxima*3/16

}