clootch.ly

\version "2.18.2"

\header{
  title = "Cam's Clootch is Awee"
  composer = "Partro"
}

\include "common.ly"

\paper {
  line-width = #170
}

sampleBar = { s4 s4 s4 s4 | \noBreak }

sampleLine = { \repeat unfold 4 \sampleBar \break }

outline = 
	\new Voice {
        \hideNotes
        \sampleLine
        \sampleLine
        \sampleLine
        \sampleLine
        \sampleLine
        \sampleLine
        \sampleLine
        \sampleLine
    }


partOne = {
   \mark \markup { \circle \bold 1 }
   \flam c4 \flam c16 a16 c8 a a \flam c \flam a |
   c16 a c a c8-> a \flam c \flam a c \flam a |
   \flam c4:16( a8) \flam c8 a8 \flam a c a  |
   \flam c8 \flam a c \flam a \flam c4 c8 a |

   \flam c4 \flam c16 a16 c8 a a \flam c \flam a |
   c16 a c a c8-> a \flam c \flam a c \flam a |
   c8 \flam a \flam c8 a16 a c8 \lflam a8 c16 a c a |
   c8-> a \rflam c8 \lflam a8 \rflam c4 c8 a \bar "||"

   }

partTwo = {
   \mark \markup { \circle \bold 2 }
   c4.:16( a8) \flam c a c \flam a |
   \rflam c4 c8:32( c8) a8 c8:32( c8)  a |
   c8:32( c8) a \flam c a[ \drag c c16 a c a] |
   c8-> a \rflam c \lflam a \rflam c4 c8 a |

   c4.:16( a8) \flam c \flam a c \flam a |
   \rflam c4 \flam c16 a c8 a8 a8 \flam c8 a->  |
   c8 \flam a \rflam c8 a16 a c8 \lflam a8 c16 a c a |
   c8 a \rflam c8 \lflam a8 \rflam c4 r4 \bar "||"
}

partThree = {
   \mark \markup { \circle \bold 3 }
   \drag c16 c16 a8 \drag c8 c a[ \rdrag c c16 a c a] |
   c8 \flam c a \flam a c16 a c a c8 a |
   c8:32->( c8->) a:32->( a:32->)( r8 c:32->)( c8:32 a8:32->)  |
   c16 a c a c8-> a16-> c a c a-> c a c a8-> |

   c4:16->( a8) \flam c a \flam a c16 a c a |
   c8 \flam c a \flam a c16 a c a c8 a |
   c8:32->( c->) a8:32->( a8:32->) c16 a c a c8:32->( c:32->) |
   a8:32->( a8:32->) c16 a c a c4:16( \triplet { a8) c a} \bar "||"
 }

partFour = {
  \mark \markup { \circle \bold 4 }
  c4.-> r8 \lruff a-> c a \flam c |
  \flam a4 \rdrag c8 c8 a8[ \rdrag c8 c8 a] |
  \flam c16 a c c a8 \flam c16 a c c a8-> c16 a c a |
  c8-> a \rflam c8 \lflam a8 \rflam c4 c8 a |

  c16-> a c a c a c-> a c a c8-> a a |
  \flam c16-> a c c a-> c a a c8 \flam a \flam c4 |
  \flam c8 a \rflam c8 a16 a c8 \lflam a8 c16 a c a |
  c8 a \rflam c8 \lflam a8 \rflam c4 r4 \bar "||"
}

music = 
      \new Voice {
			\relative c'' {

        \set strictBeatBeaming = ##t
        \set Timing.baseMoment = #(ly:make-moment 1/4)

        \dynamicUp

        \partOne
        \partTwo
        \partThree
        \partFour
        }
}

mids = \new Voice {
  \override Voice.TextScript.font-family = #'sans
  \relative c'' {
    % 1
    c4-> a c a | c4-> a c a |
    c4-> r4 r8 c^V r4 | c4-> r c c

    % 1
    c4-> a c a  | c4-> a c a8 a-> |
    c8 a8 c4^V r8 c^V r4 | c4-> c8 c c4^V r

    % 2
    c4 r8 c r c r4 | c4 r r r8 c8 |
    r8 c r r c c r r | c r c r c r r4 |

    % 2
    c4 r8 c r c r4 | c4 c c r8 r8 |
    r4 c4 r8 c r4 | c4 c8 c c4 r

    % 3
    \dynamicUp
    c4\pp c4^"cresc. whole line" r4 r4 |
    c4 r8 c r c r4 |
    c4 c4 r4 c8 c8 |
    c8 c8 r4 c4 c4 |
    c4 c4 r8 c8 r8 r8 |
    r4 r8 c8-> c c c r |
    c4 c4 r8 c8 r4 |
    c4 c8 c c4 r |

    % 4
    c4 r8 c8 c4 r4 |
    c4 r4 r4 r8 c8 |
    r4 c4 c4 r8 c8 |
    r8 c8 r8 r8 c4 r4 |

    c4 r8 c8 r8 c r4 |
    c4 c c r |
    r4 c4 r8 c8 r4 |
    c4 c8 c c4 r |
 
  }
}

\book {
  \score {
    \new Staff {
      \time 2/2
      <<
	  \outline  
      \music
      >>
    }
  }
}

\book {
  \bookOutputSuffix "Mids"

  \score {
    \new StaffGroup <<
    \new Staff {
      \time 2/2
      <<
  	  \outline  
      \music
      >>
    }
    \new Staff {
      \mids
    }
    >>
  }
}

common.ly

rdrag = \grace {
    \once \override Stem #'direction = #up
    \once \override Beam #'positions = #'(2 . 2.25)
    a16 a16
  }

ldrag = \grace {
    \once \override Stem #'direction = #up
    \once \override Beam #'positions = #'(2 . 2.25)
    c16 c16
  }

lruff = \grace {
    \once \override Stem #'direction = #up
    \once \override Beam #'positions = #'(2 . 3)
    a16 c16 c16
  }

ltrip = \grace {
    \once \override Stem #'direction = #up
    \once \override Beam #'positions = #'(2 . 2.25)
    a16 c16
    \override Stem #'direction = #down
  }

rflam = \slashedGrace {
    \once \override Stem.direction = #up
    a8
    }
lflam = \slashedGrace {
    \once \override Stem.direction = #up
    c8
}

triplet =
#(define-music-function
     (parser location padding)
     (ly:music?)
   #{
     \tuplet 3/2 #padding
   #})


us = <>\startGroup
ue = \stopGroup

barTwoFour = { s2 | \noBreak }

barFourFour = { s1 | \noBreak }

\layout { 
  indent = #0
  #(layout-set-staff-size 16)

  \context {
    \Voice
    strictBeatBeaming = ##t
    \override TextScript.font-family = #'sans
    \dynamicUp
    \consists "Horizontal_bracket_engraver"
    $(add-grace-property 'Voice 'Stem 'font-size -4) 
    $(add-grace-property 'Voice 'NoteHead 'font-size -4) 
  }

  \context {
    \Staff

    \override StaffSymbol.line-count = 1
    \override Stem.direction = #down
    \override Beam #'positions = #'(-4 . -4)
    \override StemTremolo.slope = 0.4
    \remove "Clef_engraver"

    \override HorizontalBracket.direction = #up
    \override HorizontalBracket.bracket-flare = #'(0.0 . 0.0)
    \override HorizontalBracket.bracket-flair = #'(0.0 . 0.0)
    \override HorizontalBracket.thickness = #2.0
    \override HorizontalBracket.Y-offset = 4.0
    \override HorizontalBracket.outside-staff-priority = #1000
  }

  \context {
    \Score
    \remove "Bar_number_engraver"
    \consists "Grace_spacing_engraver"
    \override SpacingSpanner.uniform-stretching = ##t
    \override BarLine.bar-extent = #'(-2 . 2)
  }
}

#(define (find-first-pitch music)
(if (eq? #t (ly:music-property music 'pitch #t))
  (ly:music-property (car (ly:music-property (ly:music-property music 'element) 'elements)) 'pitch)
  (ly:music-property music 'pitch)
))

#(define (hands inHand)
(if (= (ly:pitch-notename (find-first-pitch inHand)) (ly:pitch-notename (ly:make-pitch 0 0 NATURAL)))
  (cons #{ c #} #{ a #})
  (cons #{ a #} #{ c #})
))

ruff =
#(define-music-function (parser location baseNote) (ly:music?)
(let* ((h (hands baseNote))
      (onHand (car h))
      (offHand (cdr h)))
#{
\grace {
    \once \override Stem #'direction = #up
    \once \override Beam #'positions = #'(2 . 3)
    $onHand 16 $offHand $offHand
}
$baseNote
#}
))

flam =
#(define-music-function (parser location baseNote) (ly:music?)
(let* ((h (hands baseNote))
      (onHand (car h))
      (offHand (cdr h)))
#{
\slashedGrace {
    \once \override Stem #'direction = #up
    $offHand 8
}
$baseNote
#}
))

drag =
#(define-music-function (parser location baseNote) (ly:music?)
(let* ((h (hands baseNote))
      (onHand (car h))
      (offHand (cdr h)))
#{
\slashedGrace {
    \once \override Stem #'direction = #up
    \once \override Beam #'positions = #'(2 . 2.25)
    $offHand 16 $offHand 16
}
$baseNote
#}
))

trip =
#(define-music-function (parser location baseNote) (ly:music?)
(let* ((h (hands baseNote))
      (onHand (car h))
      (offHand (cdr h)))
#{
\slashedGrace {
    \once \override Stem #'direction = #up
    \once \override Beam #'positions = #'(2 . 2.25)
    $onHand 16 $offHand 16
    \override Stem #'direction = #down
}
$baseNote
#}
))