\version "2.20.0"

date = #(strftime "%Y %b %d %H:%M" (localtime (current-time)))
revision = \markup {
  \fill-line {
    \null
    \null
    \tiny \concat { \teeny "Revision: " \date }
  }
}

%#(set-default-paper-size "letter")
%#(set! paper-alist (cons '("letter" . (cons (* 60 in) (* 6 in))) paper-alist))

\paper {
  %  #(set-paper-size "letter")
  print-page-number = ##t
  %print-first-page-number = ##t
  oddHeaderMarkup = \markup  {
    \fill-line {
      \on-the-fly # not-first-page {
        \concat { \fromproperty #'header:title " - " \fromproperty #'page:page-number-string }
      }
    }
  }
  evenHeaderMarkup = \oddHeaderMarkup 
  oddFooterMarkup = \revision
  
  evenFooterMarkup = \oddFooterMarkup
}

\header {
  title    = \markup \override #'(font-name . "MasonSerif") \fontsize #+2 { "Modian Mode" }
  
  composer = \markup \override #'(font-name . "Caudex") { "William Zeitler"}

  copyright = \markup { "Copyright " \char ##x00A9 " 2021 William Zeitler" }
  %poet="Duration: c.1'30\""
  tagline = \date

}

myTrebleClef = {
  \clef treble
  %\clef "mensural-g"
}

#(set-default-paper-size "letter")
#(set! paper-alist (cons '("adobe" . (cons (* 15 in) (* 6 in))) paper-alist))

\paper {
  #(set-paper-size "letter")
  top-margin = 0.6\in
  bottom-margin = 0.6\in
  left-margin = 0.6\in
  right-margin = 0.6\in
}

global = {
  %  \override Staff.NoteHead.style = #'harmonic-mixed
  %  \override Beam.breakable = ##t
  %  \clef "mensural-g"
  \key c \major
  \time 4/4
  %  \bar ""
  %  \novemberOn
}

modalMajor = \relative c {  ees e g aes bes b c }

dux =  {
  ees8 g e aes g aes16 bes16 b4
  ees,8 g e aes g aes16 bes16 b8 c
  ees8 bes8 b4 bes8 g aes4
  g8 ees e aes ees bes ees e
  
  ees4 aes8 e g4 b8 aes
  bes8 g aes e g4 r4
  ees4 aes8 e g4 b8 aes
  g8 bes aes e g ees g4
}


partR = {
  %  \time 4/4
  %  \key d \minor
  \global
  \clef treble
  r1
  r1
  r1
  r1
  \absolute { \modalTranspose ees g'  \modalMajor \relative {\dux}  }
  \bar "||"
  \absolute { \modalTranspose ees g'  \modalMajor \relative {\dux}  }
  \bar "||"
}
partL = {
  \global
  \clef bass
  \relative {\dux }
  \bar "||"
  \relative {\dux }
}

partPed = {
  \global
  \clef bass
  \repeat unfold 16 { ees4 e ees b,}
  
}

\score {
  \new GrandStaff {
    <<
      \new Staff \partR
      \new Staff \partL
      \new Staff \partPed
    >>
  }
  %\midi {}
}