\version "2.18.2"

#(set-global-staff-size 21)
#(ly:set-option 'midi-extension "mid")

\header {
    title = \markup {
        \override #'(font-name . "Georgia")
        "Kristallimetsä"
    }
    subtitle = \markup {
        \override #'(font-name . "Georgia Bold")
        "Crystal Forest"
    }
    composer = \markup {
        \override #'(font-name . "Georgia")
        "Sonaza"
    }
    tagline = ""
}

global = {
    \key b \minor
    \time 3/4
    \tempo "Allegro" 4=120
}

PianoRightHand = {
    \set Staff.midiInstrument = #"acoustic grand"
    \relative c'' {
        \global
        \clef treble
        R1*3/4_\markup { \dynamic p \italic \bold "dolce" } | R1*3/4 |
        R1*3/4 | R1*3/4 |

        R1*3/4\< | R1*3/4 |
        R1*3/4\> | R1*3/4 |

        \repeat volta 2
        {
            b4-1\!\p fis'4.-4 fis8 | g4 fis e |
            fis e-3 d-1 | cis2-2 d8 cis |
            b4 cis d | e d cis |
            b cis4. b8 | cis2 r4 |

            b4-1 fis'4.-4 fis8 | g4 fis e |
            fis e-3 d-1 | cis2-2 d8 e |
            b4 cis d\< | e d cis |
            d e4. d8 | e2 r4\! |

            d4-1\mf a'4.-5 g8-4 | fis4-3 e-2 fis-3 |
            d-1 cis-3 d-4 | b2-2 a4-1 |
            b-2 cis-3 d-1 | e fis g |
            fis e d8-1 b'8-5 | a2.-4 |

            d,4-1\mp a'4.-5 g8-4 | fis4 e fis |
            d cis d | b2 a4-1 |
            b cis d | e-5 d cis |
            b cis4. a8-1 | b2.-2 |
        }

        d4-1\f a'4.-5 g8-4 | fis4 e fis |
        d cis d | b2 a4 |
        b cis d | e fis g |
        fis e d8 b'8 | a2. | \break

        d,4_\markup{ \hspace #0.1 \dynamic mp } a'4. g8 | fis4 e fis |
        d cis d | b2 a4 |
        b_\markup { \small "rit. e dim." } cis d | e d cis |
        b cis4. a8 | b2. |

        R1*3/4 | R1*3/4 | \bar "|."

    }
}

PianoLeftHand = {
    \set Staff.midiInstrument = #"acoustic grand"
    \relative c {
        \global
        \clef bass

        b4-5_"con ped." d-3 fis-1 | g, b d |
        b d fis | g, b d |
        e, g b | fis a cis |
        g b d | a cis e |

        \repeat volta 2
        {
            b4 d fis | g, b d |
            b d fis | g, b d |
            e, g b | fis ais cis |
            g b d | a cis e |

            b4 d fis | g, b d |
            b d fis | g, b d |
            e, g b | fis ais cis |
            g b d | a cis e |

            d fis a | cis, fis a |
            b, d fis | a, cis e |
            g, b d | fis, ais cis |
            e, g b | a cis e |

            d fis a | cis, fis a |
            b, d fis | a, cis e |
            g, b d | fis, ais cis |
            e, g b | b d fis |
        }

        d fis a | cis, fis a |
        b, d fis | a, cis e |
        g, b d | fis, ais cis |
        e, g b | a cis e |

        d fis a | cis, fis a |
        b, d fis | a, cis e |
        g, b d | fis, ais cis |
        e, g b | b d fis |

        d2.~ | d2 r4 |

    }
}

\score {
    <<
        \new PianoStaff = "piano" <<
            \set PianoStaff.instrumentName = #"Piano "
            \new Staff = "upper" \PianoRightHand
            \new Staff = "lower" \PianoLeftHand
        >>
    >>
    \layout { }
    \midi { }
}