\version "2.18.2"

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 }
      }
    }p
  }
  evenHeaderMarkup = \oddHeaderMarkup
  oddFooterMarkup = \revision

  evenFooterMarkup = \oddFooterMarkup
}

\header {
  title    = \markup \override #'(font-name . "MasonSerif") \fontsize #+2 { "Canonic Mandala" }
  subtitle    = \markup \override #'(font-name . "MasonSerif") \fontsize #+3 { "In the Rocritonic Mode" }

  composer = \markup \override #'(font-name . "Caudex") { "William Zeitler"}

  copyright = \markup { "Copyright " \char ##x00A9 " 2019 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"

  \bar ""
  %\key ees \major
  %  \novemberOn
}

dux =  {
  f'4 c'' aes'2
  bes'4 f'' ees''2
  f'4 c'' bes' f''
  ees''2 c''
  r2 ees''4 f''
  ees''2 c''2
  r2 ees''4 f''
  aes'' bes'' aes'' f''
  as'' f'' ees'' f''
  ees'' c'' bes' aes'
  c''2 r2
}

%scale = { bes, c d ees f g a  }
partR = {
%  \key d \minor
  \key f \minor
  \time 4/4
  \clef treble
  \absolute {\dux }
  \bar "||"
  \absolute {\dux }
}
partL = {
%  \key d \minor
  \key f \minor
  \time 4/4
  \clef bass
  \absolute { \transpose c c, {r1 r1 r1 \dux } }
%  \bar "||"
}

\score {
    <<
      \new Staff { 
        \set midiInstrument = #"flute"
        \partR 
      }
      \new Staff { 
        \set midiInstrument = #"bassoon"
        \partL 
      }
    >>
%  \midi {
%    \context {
%      \Score
%      midiChannelMapping = #'staff
%    }
%  }
}