shithub: pokecrystal

ref: 2af6c6325365043164ac6afc4cee3d808c2ce1c7
dir: /audio/music/evolution.asm/

View raw version
Music_Evolution:
	channel_count 4
	channel 1, Music_Evolution_Ch1
	channel 2, Music_Evolution_Ch2
	channel 3, Music_Evolution_Ch3
	channel 4, Music_Evolution_Ch4

Music_Evolution_Ch1:
	tempo 132
	volume 7, 7
	vibrato 6, 3, 4
	pitch_offset 1
	duty_cycle 2
	note_type 12, 9, 2
	octave 3
	pitch_slide 1, 4, A_
	note C_, 1
	pitch_slide 1, 4, A_
	note G_, 1
	pitch_slide 1, 4, A_
	note C_, 1
	pitch_slide 1, 4, A_
	note G_, 1
	rest 4
	duty_cycle 3
	stereo_panning FALSE, TRUE
.mainloop:
.loop1:
	sound_call .sub1
	note_type 12, 10, 4
	note F#, 4
	sound_call .sub1
	note_type 12, 10, 4
	note F#, 4
	sound_loop 2, .loop1
	sound_call .sub2
	note_type 12, 10, 4
	note G#, 4
	sound_call .sub2
	note_type 12, 10, 4
	note G#, 4
	sound_loop 0, .mainloop

.sub1:
	note_type 12, 10, 2
	octave 3
	note C_, 4
	note G_, 4
	note C_, 4
	note G_, 4
	note C_, 4
	note G_, 4
	note C_, 4
	sound_ret

.sub2:
	note_type 12, 10, 2
	octave 3
	note D_, 4
	note A_, 4
	note D_, 4
	note A_, 4
	note D_, 4
	note A_, 4
	note D_, 4
	sound_ret

Music_Evolution_Ch2:
	duty_cycle 2
	vibrato 8, 2, 5
	note_type 12, 10, 2
	octave 4
	note G_, 1
	note D_, 1
	note G_, 1
	note D_, 1
	rest 4
	duty_cycle 3
	stereo_panning TRUE, FALSE
.mainloop:
.loop1:
	sound_call .sub1
	note_type 12, 11, 5
	note A_, 4
	sound_call .sub1
	note_type 12, 11, 5
	note B_, 4
	sound_loop 2, .loop1
	sound_call .sub2
	note_type 12, 11, 5
	note B_, 4
	sound_call .sub2
	note_type 12, 11, 5
	octave 4
	note C#, 4
	octave 3
	sound_loop 0, .mainloop

.sub1:
	note_type 12, 11, 2
	octave 3
	note G_, 4
	note D_, 4
	note G_, 4
	note D_, 4
	note G_, 4
	note D_, 4
	note G_, 4
	sound_ret

.sub2:
	note_type 12, 11, 2
	octave 3
	note A_, 4
	note E_, 4
	note A_, 4
	note E_, 4
	note A_, 4
	note E_, 4
	note A_, 4
	sound_ret

Music_Evolution_Ch3:
	note_type 12, 1, 6
	rest 8
.mainloop:
.loop1:
	sound_call .sub1
	octave 3
	note A_, 4
	sound_call .sub1
	octave 3
	note B_, 4
	sound_loop 2, .loop1
	sound_call .sub2
	octave 3
	note B_, 4
	sound_call .sub2
	octave 4
	note C#, 4
	sound_loop 0, .mainloop

.sub1:
	octave 2
	note A_, 2
	rest 2
	octave 3
	note D_, 2
	rest 2
	octave 2
	note A_, 2
	rest 2
	octave 3
	note D_, 2
	rest 2
	octave 2
	note A_, 2
	rest 2
	octave 3
	note D_, 2
	rest 2
	octave 2
	note A_, 2
	rest 2
	sound_ret

.sub2:
	octave 2
	note B_, 2
	rest 2
	octave 3
	note E_, 2
	rest 2
	octave 2
	note B_, 2
	rest 2
	octave 3
	note E_, 2
	rest 2
	octave 2
	note B_, 2
	rest 2
	octave 3
	note E_, 2
	rest 2
	octave 2
	note A_, 2
	rest 2
	sound_ret

Music_Evolution_Ch4:
	toggle_noise 5
	drum_speed 12
	rest 8
.mainloop:
	stereo_panning TRUE, FALSE
	drum_note 11, 6
	drum_note 11, 4
	stereo_panning FALSE, TRUE
	drum_note 5, 2
	drum_note 5, 2
	drum_note 5, 2
	sound_loop 0, .mainloop