\version "2.10.10"

\include "english.ly"
\include "../mrlUtil.ly"
\include "../mrlSwash.ly"

#(ly:set-option 'point-and-click #f)

#(set-global-staff-size 20)

\paper {
  #(set-paper-size "letter")
  top-margin = .5\in
  bottom-margin = .5\in
  left-margin = .75\in
  line-width = 7\in
  between-system-padding = 0.05\in
  page-top-space = 0\in
  indent = 0\in
  %ragged-last-bottom = ##t
  
  myStaffSize = #20
  #(define fonts
    (make-pango-font-tree "Adobe Garamond Pro"
                          "Sans"
                          "Mono"
                           (/ myStaffSize 20)))
}

%smallCapsACode = #smallCapsACodeLL
%oldStyleZeroCode = #oldStyleZeroCodeLL

engravedLine = #(string-append "Engraved by LilyPond " (lilypond-version))

\header {
	composer = \markup { \realCaps "William Byrd" \oldStyleNum "(c. 1540–1623)" }
    %subtitle = ""
    %poet = ""
    opus = \markup { \italic "Parthenia" \oldStyleNum "(1612/13)," "i" }
	title = \markup { \medium \italic \makeSwashMarkupG "Preludium" }
    tagline = ""
    copyright = \markup { \smaller \center-align {
        "Edition copyright © 2008 by Michael Lauer."
        "This edition may be freely distributed, duplicated, performed, or recorded." 
        \engravedLine } } 

}

#(define-markup-command (fcol layout props markups) (markup-list?)
  "Print a column of fingering indications--use a reasonable baseline-skip."
  (interpret-markup layout props
    (markup
        (#:left-align
        (#:override '(baseline-skip . 1.5)
            (#:finger (make-center-align-markup markups) ))))))

                
orn = #(define-music-function (parser location m) (ly:music?)
    (define (addToChord x) 
        (if (eq? (ly:music-property x 'name) 'EventChord)
            (let* ((els (ly:music-property x 'elements))
                   (dur-log (ly:duration-log (ly:music-property (car els) 'duration)))
                   (tremLen (if (< dur-log 3) 16 (expt 2 (+ dur-log 2))))
                   (ev (make-music 'TremoloEvent 'tremolo-type tremLen))
                   (newEls (append els (list ev))))
                  (ly:music-set-property! x 'elements newEls)
                  x)
            x)
        )
    (let* ((added (music-map addToChord m))) 
#{
    \once \override Voice.StemTremolo #'beam-thickness = #.25
    $added
#})
)

fic = \once \set suggestAccidentals = ##f

global = {
  % main
  %\set Staff.forceClef = ##t
  %\set Staff.forceTime = ##f
  %\set Timing.defaultBarType = ""

  \set Staff.midiInstrument = "harpsichord"
  
  \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)

  \set followVoice = ##t
  
  %    #(ly:export (set-accidentals-properties #f '(Staff (same-octave . 0))
  %                 '(Staff (any-octave . -1)) 'Staff))
  
  \key g \dorian
  
  \time 2/2
  \skip 1*9
  \override Staff.TimeSignature #'stencil = ##f
  \time 4/2
  \skip 1*2
  \bar "|."

}

up = \tag #'scoreOnly { \change Staff = treble }
down = \tag #'scoreOnly { \change Staff = bass }

voiceI = 
    \relative g' {
        \context Voice = "I"
        \voiceOne
        \set fingeringOrientations = #'(up)
        
        g1 |
        g8.\noBeam d16 ef[ f g a] b[ c a \fic b] 
            \times 4/3 { c32[ \fic b c \fic b a \fic b] } |
        c8.\noBeam a,16 b[ c d ef] f[ g e fs] 
            \times 4/3 { g32[ \fic fs g \fic fs e \fic fs] } |
        <g bf>8.\noBeam ef16 f[ g a bf] c[ d bf c] \times 4/3 { d32[ c d c bf c] } |
        d4. e8 f2 |
        
        r8 e16[ d] c[ bf a g] f[ e f g] a[ bf c d] |
        <g, ef'>1 |
        d'1 |
        d2 d4. c8 |
        <g b>\breve \fermata |
    }
    
voiceII =
    \relative b {
        \context Voice = "II"
        \voiceTwo
        \set fingeringOrientations = #'(up)
        \orn <b d>1 |
        \orn c8. s16 s4*3 |
        <ef g>8. s16 s4*3 |
        d8. s16 s4*3 |
        \orn <fs a>4. g8 \orn a2 |
        
        s1 |
        r4 c2 bf4 |
        <fs a>4 g a bf |
        a g~ g \orn fs |
        d\breve |
    }
    
voiceIII =
    \relative g {
        \context Voice = "III"
        \voiceOne
        \set fingeringOrientations = #'(down)
        g4. g8 \orn d4 g4 |
        <ef g>2. d4 |
        <ef g>2 c2 |
        <d g>2 g2 |
        << \new Voice { \voiceThree a1 } { r2 d2 } >> |
        
        <a c>1 |
        c8 bf16[ a] g[ f ef d] c[ d \fic ef f] g[ a bf c] |
        d8 c16[ bf] a[ g f e] d[ c bf a] g[ a bf c] |
        \times 4/3 { d32[ e f g a b] } \times 4/3 { c[ \fic b c \fic b a g] } d'2 |
        g,\breve |
        
    }

voiceIV =
    \relative g, {
        \context Voice = "IV"
        \voiceTwo
        \set fingeringOrientations = #'(down)
        <g d'>1 |
        c2. s4 |
        c2 a |
        g2 ef' |
        d2 d4. e8 |
        
        f1 |
        <c g'>8 s8 s4*3 |
        <d a'>8 s8 s4*3 |
        s2 << \new Voice { \voiceTwo d2 } { \voiceFour a'8\noBeam g a4 } >> |
        <g, d'>\breve |
    }
    
    
theMusic =  
\context PianoStaff <<
	\context Staff = "treble" <<
	    \removeWithTag #'lower \global 
	    \clef treble
	    \voiceI
	    \voiceII 
	>>
	\context Staff = "bass" <<
	    \global
	    \clef bass
        \voiceIII
        \voiceIV
	>>
    >>
    
% a different staff for each voice
midiMusic =  
\context StaffGroup <<
	\context Staff = "treble" <<
	    \removeWithTag #'lower \global 
	    \clef treble
	    \voiceI
	>>
	\context Staff = "treble II" <<
	    \removeWithTag #'lower \global 
	    \clef treble
	    \voiceII 
	>>
	\context Staff = "bass" <<
	    \global
	    \clef bass
        \voiceIII
	>>
	\context Staff = "bass  II" <<
	    \global
	    \clef bass
        \voiceIV
	>>
    >>
    
\score {
  %\removeWithTag #'incipit \theMusic
  \theMusic
  \layout {
    \context {
      \Score
      \override MetronomeMark #'transparent = ##t
      \override BarNumber #'padding = #2
      %\override BarLine #'transparent = ##t
      %\remove "System_start_delimiter_engraver"
    }
    \context {
      \Voice
      \override StemTremolo #'beam-thickness = #.3
      \override Accidental #'cautionary-style = #'smaller 
      \override AccidentalSuggestion #'cautionary-style = #'smaller 
      \override NoteHead #'style = #'baroque
    }
    \context {
      \Staff
      %\remove "Time_signature_engraver"
      \consists "Custos_engraver"
      \override Custos #'style = #'mensural
      \override Custos #'stencil = #(lambda (grob)
          (interpret-markup
               (ly:grob-layout grob)
               '(())
               (markup #:musicglyph "custodes.mensural.u0" )))
      \override Custos #'X-offset = #-3.2
      \override Custos #'extra-offset = #'(1.2 . 0.0)
      \override Custos #'space-alist = #'((right-edge minimum-distance . 0 ))
    }
  }
}

\score {
  \unfoldRepeats \keepWithTag #'midiOnly \midiMusic
  
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 40 2)
      }
    }



 }