\version "2.13.18"

#(set-global-staff-size 18)

makeRed = {
  \once \override Staff.TextScript #'color = #red
  \once \override Staff.NoteHead #'color = #red
  \once \override Staff.Stem #'color = #red
}

\layout {
  \context {
    \Score
    \override TimeSignature #'stencil = ##f
    \override Clef #'stencil = ##f
    \override TextScript #'font-size = #-2
  }
}

global = {
  \stemUp
  \time 4/4 s4*4
  \time 5/4 s4*5
  \time 3/4 s4*3
  \time 4/4 s4*4 \bar "||"

  \stemDown
  \time 3/4 s4*3
  \time 6/4 s4*6
  \time 3/4 s4*3
  \time 4/4 s4*4 \bar "||"
}

standard = \relative f {
  f4^"to mid-line" g a b
  c^"3½" d e f g
  a^"3½" b^" 3" \once \override Stem #'length = #5 c^"2½"
  d^"2½" e f g

  d'^"to mid-line" c b
  a^"3½" g f e d \once \override Stem #'length = #7 c^"3½"
  \once \override Stem #'length = #7 b^"3½" a^"3" g^"2½"
  f^"2½" e d c
}

optional = \relative f {
  f4^"to mid-line" g a b
  c^"3½" d e f g
  \once \override Staff.Stem #'length = #6.5 \makeRed a^"3¼" b^"3"
    \once \override Staff.Stem #'length = #6 \makeRed c^"3?"
  d^"2½" e f g

  d'^"to mid-line" c b
  a^"3½" g f e d
    \once \override Staff.Stem #'length = #6.5 \makeRed c^"3¼?"
  \once \override Staff.Stem #'length = #6.5 \makeRed b^"3¼" a^" 3"
  \once \override Staff.Stem #'length = #6 \makeRed g^"3?"
  f^"2½" e d c
}

lilyDefault = \relative f {
  f4^"to mid-line" g a b
  c^"3½" d e f g
  a^"3½" b^" 3" \makeRed c^" 3"
  d^"2½" e f g

  d'^"to mid-line" c b
  a^"3½" g f e d c^"3½"
  \makeRed b^"3" a^"3" g^"2½"
  f^"2½" e d c
}

compromise = \relative f {
  f4^"to mid-line" g a b
  c^"3½" d e f g
  \once \override Staff.Stem #'length = #6.5 \makeRed a^"3¼" b^" 3"
    \once \override Staff.Stem #'length = #5.5 \makeRed c^"2¾"
  d^"2½" e f g

  d'^"to mid-line" c b
  a^"3½" g f e d c^"3½"
  \once \override Staff.Stem #'length = #6.5 \makeRed b^"3¼" a^"3"
    \once \override Staff.Stem #'length = #5.5 \makeRed g^"2¾"
  f^"2½" e d c
}

<<
  \new Staff {
    \set Staff.instrumentName =
      \markup \center-column { "Ted Ross" "standard" }
    \new Voice << \global \standard >>
  }
  \new Staff {
    \set Staff.instrumentName =
      \markup \center-column { "Ted Ross" "optional" }
    \new Voice << \global \optional >>
  }
  \new Staff {
    \set Staff.instrumentName =
      \markup \center-column { "LilyPond" "default" }
    \new Voice << \global \lilyDefault >>
  }
  \new Staff {
    \set Staff.instrumentName =
      \markup \center-column { "suggested" "compromise" }
    \new Voice << \global \compromise >>
  }
>>