#!lilypond firebreathers.ly -*- coding: utf-8; -*-
%% Theme to "Fire Breathers", a homebrew NES game perpetually 

%% under development.  Composed by Urpo Lankinen.


%% Note: The composer has made this source code available 

%% to Wikipedia under the GFDL license.  Other versions outside 

%% Wikipedia are typically under CC BY-SA license.


%% This file uses Finnish note names (for example, where 

%% Americans use "F#" and "Bb", Finns use "Fis" and "B"). 

%% Dutch note names are used by default.

\include
 "suomi.ly"

%% Optional language upgrade helper.

\version
 "2.6.0"

%% The header block defines the titles and texts.

\header
 {

    title = "Theme to ``Fire Breathers!''"
    instrument = "For the 2A03 or SID"
    composer = "Urpo Lankinen"
    enteredby = "Urpo Lankinen"
    updatedby = "Jan Nieuwenhuizen"
    date = "June 2005"
}


Melody = 
\relative
 c'' 
{

   \clef
 treble
   
\time
 3/4
   
\key
 a 
\minor


   %% The piece starts with a quarter-note partial bar, "\partial 4"

   %% tells so to LilyPond.

   \partial
 4
   a4 | e'4.( d8[ c]) r8 | d4.( c8[ h]) r8 | a2. | e2
   a4 | e'4.( d8[ c]) r8 | d4.( e8[ f]) r8 | e2. | r2
   e4 |  f4.( e8[ d]) r8 | d4.( c8[ h]) r8 | a2. | e2
   a4 | e'4.( d8[ c]) r8 | d4.( c8[ h]) r8 | a2. ~ a2 r4 | 
\bar
 "|."
}


%% This is the second voice.

SecondVoice = 
\relative
 c 
{

   \clef
 bass
   
\time
 3/4
   
\key
 a 
\minor


   \partial
 4
    r4 | e2.              | d2.             | a2. | e2
    a4 | e'2.             | d2       f4     | e2. | r2.
       |  f2.             | d2.             | a2. | e2
    a4 | e'2.             | d2       h4     | a2. ~ a2 r4 | 
\bar
 "|."
}



%% Melodies, lyrics and chords can be assigned to a variable and then

%% be *reused* elsewhere.  Here are three different accompaniment

%% patterns, which are used throughout the accompaniment melody.

AccompA = 
\relative
 c 
{
 a4 e'8 a, e' a, | 
}

AccompB = 
\relative
 c 
{
 g4 d'8 g, d' g, | 
}

AccompC = 
\relative
 c 
{
 e,4 h'8 e, h' e, | 
}


Accompaniment = 
{

   \clef
 bass
   
\time
 3/4
   
\key
 a 
\minor


   \partial
 4
    r4 | 
\AccompA
 \AccompB
 \AccompA
 \AccompA

        \AccompA
 \AccompB
 \AccompA
 \AccompA

        \AccompC
 \AccompC
 \AccompA
 \AccompA

        \AccompA
 \AccompB
 \AccompA
 | a2 r4 | 
\bar
 "|."
}


%% The top level music definition.

<<
  
\new
 Staff 
\Melody

  \new
 Staff 
\Accompaniment

  \new
 Staff 
\SecondVoice

>>