# LANGUAGE NoImplicitPrelude #

module FurElise.Episode4 (episode4) where

import Mezzo

-------------------------------------------------------------------------------
  Fourth episode
-------------------------------------------------------------------------------

ep4Rh1 = tripletE a_ c e :|: tripletE a c' e' :|: tripletE d' c' b
     :|: tripletE a c' e' :|: tripletE a' c'' e'' :|: tripletE d'' c'' b'
     :|: tripletE a' c'' e'' :|: tripletE a'' c'3 e'3 :|: tripletE d'3 c'3 b''
     :|: tripletE bf'' a'' gs''

ep4Lh1 = pad2 (a_3 en)
    :|: pad2 (r er) :|: a_ min ec :|: a_ min ec
    :|: pad2 (r er) :|: a_ min ec :|: a_ min ec
    :|: pad2 (r er) :|: a_ min ec :|: a_ min ec

ep4Rh2 = tripletE g'' fs'' f'' :|: tripletE e'' ds'' d''
     :|: tripletE cs'' c'' b' :|: tripletE bf' a' gs' :|: tripletE g' fs' f'

ep4p1 =  score section "4th episode, part 1"
               setTempo 90
               setKeySig a_min
               setRuleSet free
               withMusic (hom ep4Rh1 ep4Lh1)

ep4p2 = score section "4th episode, part 2"
              setTempo 90
              setKeySig a_min
              withMusic ep4Rh2

episode4 = ep4p1 ++ ep4p2

-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
# LANGUAGE NoImplicitPrelude #

module FurElise.Episode4 (episode4) where

import Mezzo

  Fourth episode

ep4Rh1 = tripletE a_ c e :|: tripletE a c' e' :|: tripletE d' c' b
     :|: tripletE a c' e' :|: tripletE a' c'' e'' :|: tripletE d'' c'' b'
     :|: tripletE a' c'' e'' :|: tripletE a'' c'3 e'3 :|: tripletE d'3 c'3 b''
     :|: tripletE bf'' a'' gs''

ep4Lh1 = pad2 (a_3 en)
    :|: pad2 (r er) :|: a_ min ec :|: a_ min ec
    :|: pad2 (r er) :|: a_ min ec :|: a_ min ec
    :|: pad2 (r er) :|: a_ min ec :|: a_ min ec

ep4Rh2 = tripletE g'' fs'' f'' :|: tripletE e'' ds'' d''
     :|: tripletE cs'' c'' b' :|: tripletE bf' a' gs' :|: tripletE g' fs' f'

ep4p1 =  score section "4th episode, part 1"
               setTempo 90
               setKeySig a_min
               setRuleSet free
               withMusic (hom ep4Rh1 ep4Lh1)

ep4p2 = score section "4th episode, part 2"
              setTempo 90
              setKeySig a_min
              withMusic ep4Rh2

episode4 = ep4p1 ++ ep4p2
