\header {
	title = "Bubble Bobble!"
	composer = "Taito, 1986"
	arranger = "Transcription by rangerchris"
	dedication = "Dedicated to j00ce O:-)"
}

#(set-default-paper-size "a4" 'landscape)

TRBtheintro = {
	ees2. ees4 ~ ees4 d4  c2
	d4  ees2  f4
	bes,1
	c2. g4 ~ g2 d'2
	c2
		f, g   a4.\fermata
		f'8
}

BAStheintro = {
	ees8  bes g ees ees' bes g ees
	ees'  bes g ees ees' bes g ees
	bes''  f   d bes bes' f   d bes
	bes'  f   d bes bes' f   d bes
	c'    g   e c   c'   g   e c
	c'    g   e c   c'   g   e c
	f     c   a f ~ f2
	g     a4.\fermata f'8
}

DYNtheintro = {
	s1\f s1 s1 s1 s1 s1
	s4_"rall." s2.
	s2 s4. s8
}

TRBfirstround = {
	\repeat volta 2 {
		bes4\segno a g4. f8
		a4 g f4. ees8
		g4  f ees8 d4.
		f2. d8 c
		bes4 c d  ees
		c  d8  ees4. f4
	}
	\alternative {
		{ f4 g a8 g4. f4 f g a }
		{ f4 g a8 g4. bes4 }
	}
}

BASfirstround = {
	\repeat volta 2 {
		bes, bes' bes, bes'
		bes, bes' bes, bes'
		bes, bes' bes, bes'
		bes, bes' bes, bes'
		g,   g'   g,   g'
		g,   g'   g,   g'
	}
	\alternative {
		% These g's sound better as f's, but the theme doesn't
		% seem to go like that...
		{ g, g' g, g' g, g' g, g' }
		{ g, g' g, g' bes, }
	}
}

DYNfirstround = {
	\repeat volta 2 {
		s4_"a tempo" s2.
		s1 s1 s1 s1 s1
	}
	\alternative {
		{ s1 s1 }
		{ s1 s4 }
	}
}

TRBsecondround = {
	\repeat volta 2 {
		f4  g    aes  a     f4  g    aes  a
		f   g    a    bes   f   g    a    bes
		f   g    a    c     f,  g    a    c
		f,  g    a    d     f,  g    a    d
		bes c    d    ees2. ees4 ~ ees4  d4   c2   d1 ~ d2  d2 
	}
	\alternative {
		{ c2. g4 ~ g2 d'2 c1 ~ c4 }
		{ \partial 4*0 c2. f,4 ~ f d'4 f, d' bes1 ~ bes4 f g\mark "D.S." a }
		% we need \partial here to reset the measure to start of bar
		% also need to neaten the Dal Segno...
	} 
}

BASsecondround = {
	\repeat volta 2 {
	   f'   g    aes  a,   a'   a,   a'   a,
		a'   a,   a'   bes, bes' bes, bes' bes,
		bes' bes, bes' a,   a'   a,   a'   a,
		a'   a,   a'   bes, bes' bes, bes' bes,
		bes' c    d
		ees, ees' ees, ees' ees, ees' ees, ees'
		d,    d'   d,   d'   d,   d'   d,   d'
		
	}
	\alternative {
		{ c, c' c, c' g, g' g, g' c, c' c, c' c, }
		{ \partial 4*0 c c' c, c' f, a f a bes1 ~ bes4 f g a }
	}
}

DYNsecondround = {
	\repeat volta 2 {
		s2.\f s4 s2.\p s4
		s2.\f s4 s2.\p s4
		s2.\f s4 s2.\p s4
		s2.\f s4 s2.\p s4
		s2.\f s1 s1 s1 s1
	}
	\alternative {
		{ s1 s1 s1 s4 }
		{ s1 s1 s1 s1 }
	}
}

treble = \relative c' {
	\tempo 4=210
	\clef treble \key bes \major \time 4/4
	\TRBtheintro
	\TRBfirstround
	\TRBsecondround
}

bass = \relative c {
	\clef bass \key bes \major \time 4/4
	\BAStheintro
	\BASfirstround
	\BASsecondround
}

dynamics = {
	\DYNtheintro
	\DYNfirstround
	\DYNsecondround
}

% These next few lines ripped from Lilypond piano template; all this
% just to get forte et al centered between staves...(!)
\score {
	\context PianoStaff <<
		\context Staff=upper \transpose ees f \treble
		\context Dynamics=dynamics \dynamics
		\context Staff=lower \transpose ees f <<
			\clef bass
			\bass
		>>
	>>
	\layout {
		\context {
			\type "Engraver_group_engraver"
			\name Dynamics
			\alias Voice % So that \cresc works, for example.
			\consists "Output_property_engraver"

			minimumVerticalExtent = #'(-1 . 1)
			pedalSustainStrings = #'("Ped." "*Ped." "*")
			pedalUnaCordaStrings = #'("una corda" "" "tre corde")

			\consists "Piano_pedal_engraver"
			\consists "Script_engraver"
			\consists "Dynamic_engraver"
			\consists "Text_engraver"

			\override TextScript #'font-size = #2
			\override TextScript #'font-shape = #'italic
			\override DynamicText #'extra-offset = #'(0 . 2.5)
			\override Hairpin #'extra-offset = #'(0 . 2.5)

			\consists "Skip_event_swallow_translator"
			\consists "Axis_group_engraver"
		}
		\context {
			\PianoStaff
			\accepts Dynamics
			\override VerticalAlignment #'forced-distance = #7
			\remove "Note_heads_engraver"
			\consists "Completion_heads_engraver"
		}
	}
}
% ... end up rip from documentation