!---- First ChipSound song ever! ----
! Copyright (C) 2010 David Olofson
!------------------------------------

!---- Twang (Powerup Icon 2) ----
twang:
{
	w triangle; rand p .5; add p 2.5
	i = 12
.l	tdelay .2; sub p 1n
	loop i l
	i 15
.l2		j = 20
.down		tdelay .2; sub p 1n; mul a .99
		loop j down
		j 20
.up		tdelay .2; add p 1n; mul a .99
		loop j up
	loop i l2
	end
}

!---- Wood ----
wood:
{
	w triangle; p 4
	i = 5
.l	sub p 5n; tdelay .05
	loop i l
	i 10
.l2	sub p .01; mul a .7; tdelay .1
	add p 3n; tdelay .1; sub p 3n
	loop i l2
	end
}

!---- Tom ----
tom:
{
	w noise; p 5
	i = 10
.l	sub p .3; tdelay .1
	loop i l
	p 0; w triangle
	i 20
.l2	sub p .1; sub a .05; tdelay .5
	add p 3n; tdelay .5; sub p 3n
	loop i l2
	end
}

!---- Hihat Open ----
hhopen:
{
	w saw; p 7; a .5
	i = 3
.l	sub p 1; sub a .05; tdelay .1
	loop i l
	i 15
.l2	w noise; p 7; tdelay .7
	w saw; rand p .1; add p 40n ; tdelay .3
	w noise; p 7; tdelay .7
	w saw; rand p .1; add p 34n ; tdelay .3
	mul a .7
	loop i l2
	end
}

!---- Hihat Closed ----
hhclosed:
{
	w square; a .2; p 3.5; tdelay .1
	w noise; a .2; p 7; tdelay 1
	end
}

!---- Snare Drum ----
sdrum:
{
	w square; p 2
	i = 10
.l	sub p .21; tdelay .1
	loop i l
	d = 0
	i 20
.l2	rand d .5; add d .7
	w triangle; sub p .01; mul a .75; tdelay d
	w noise; add p 4; tdelay d; sub p 4
	loop i l2
	end
}

!---- Bass Drum ----
bdrum:
{
	w square; p 2
	i = 5
.l	sub p .42; tdelay .1
	loop i l
	w sine
	i 5
.l2	sub p .4; tdelay .1
	loop i l2
	i 10
.l3	sub p .1; sub a .1; tdelay 1
	loop i l3
	end
}

!---- Cymbal ----
.c0
{
	w saw; rmax = .6; x = 0
	i = 3600
.l	rand x rmax; add x 5.5; p x; add rmax .0003
	mul a .998
	tdelay .03
	loop i l
	end
}
.c1
{
	w saw; a .5; rmax = 1; x = 0
	i = 3600
.l	rand x rmax; add x 5; p x; add rmax .0003
	mul a .998
	tdelay .03
	loop i l
	end
}
.c2
{
	w saw; a .4; rmax = 2; x = 0
	i = 3600
.l	rand x rmax; add x 4.5; p x; mul rmax .9995
	mul a .998
	tdelay .06
	loop i l
	end
}
.c3
{
	w square; a .3; rmax = 1.5; x = 0
	i = 3000
.l	rand x rmax; add x 3.6; p x; mul rmax .9997
	mul a .998
	tdelay .08
	loop i l
	end
}
cymbal:
{
	spawn 0 c0
	spawn 0 c1
	spawn 0 c2
	spawn 0 c3
	w square; a .2; rmax = 1.5; x = 0
	i = 2400
.l	rand x rmax; add x 2.6; p x; mul rmax .9997
	mul a .998
	tdelay .1
	loop i l
	end
}

!---- Ride ----
.rd1
{
	w saw; a .5; rmax = .5; x = 0
	i = 3600
.l	rand x rmax; add x 5.5; p x; add rmax .0003
	mul a .995
	tdelay .03
	loop i l
	end
}
.rd2
{
	w saw; a .1; rmax = .5; x = 0
	i = 3600
.l	rand x rmax; add x 5; p x; mul rmax .9995
	mul a .995
	tdelay .06
	loop i l
	end
}
.rd3
{
	w square; a .1; rmax = .5; x = 0
	i = 3000
.l	rand x rmax; add x 4.5; p x; mul rmax .9997
	mul a .995
	tdelay .08
	loop i l
	end
}
ride:
{
	spawn 0 rd1
	spawn 0 rd2
	spawn 0 rd3
	w square; a .1; rmax = .5; x = 0
	i = 2400
.l	rand x rmax; add x 3.5; p x; mul rmax .9997
	mul a .995
	tdelay .1
	loop i l
	end
}

!---- SyncBass ----
syncbass:
{
	per = 1.9; p -2.5
	i = 50
.l	w sine; add p 4; tdelay .2
	w square; sub p 4.05; phase 0; mul a .9; tdelay per
	loop i l
	end
}

!---- Arpeggio ----
arpeggio:
{
	p1 = 10n; p2 = 17n
	i = 20
	w triangle; a 0
.l	p p1; add a .01; tdelay 2
	p p2; tdelay 2
	loop i l
	i 40
.l2	p p1; sub a .005; tdelay 2
	p p2; tdelay 2
	sub p2 .03n
	loop i l2
	end
}

!---- Music! ----
hihats:
{
	i = 128
.l	spawn 0 hhclosed; tdelay 8
	loop i l
.l2	spawn 0 hhclosed; tdelay 8
	spawn 0 hhclosed; tdelay 8
	spawn 0 hhopen; tdelay 8
	spawn 0 hhclosed; tdelay 8
	jump l2
}

toms:
{
.l	tdelay 8
	spawn 0 tom;	tdelay 16
	spawn 0 tom;	tdelay 16
	tdelay 24
	tdelay 64
	tdelay 8
	spawn 0 tom;	tdelay 16
	spawn 0 tom;	tdelay 16
	tdelay 24
	tdelay 32
	tdelay 8
	spawn 0 tom;	tdelay 8
	spawn 0 tom;	tdelay 8
	spawn 0 tom;	tdelay 8
	jump l
}

woods:
{
.l	i = 3
.l2	spawn 0 wood;	tdelay 16
	spawn 0 wood;	tdelay 16
	tdelay 8
	loop i l2
	spawn 0 wood;	tdelay 8
	jump l
}

mainbeat:
{
.l	spawn 0 bdrum;	tdelay 32
	spawn 0 sdrum;	tdelay 32
	spawn 0 bdrum;	tdelay 32
	spawn 0 sdrum;	tdelay 16
	spawn 0 hhopen;	tdelay 8
	spawn 0 sdrum;	tdelay 8
	spawn 0 bdrum;	tdelay 32
	spawn 0 sdrum;	tdelay 32
	spawn 0 bdrum;	tdelay 32
	spawn 0 sdrum;	tdelay 16
	spawn 0 hhopen;	tdelay 8
	spawn 0 bdrum;	tdelay 8

	spawn 0 bdrum;	tdelay 32
	spawn 0 sdrum;	tdelay 32
	spawn 0 bdrum;	tdelay 32
	spawn 0 sdrum;	tdelay 16
	spawn 0 hhopen;	tdelay 8
	spawn 0 sdrum;	tdelay 8
	spawn 0 bdrum;	tdelay 32
	spawn 0 sdrum;	tdelay 24
	spawn 0 sdrum;	tdelay 8
	spawn 0 bdrum;	tdelay 8
	spawn 0 sdrum;	tdelay 16
	spawn 0 bdrum;	tdelay 8
	spawn 0 sdrum;	tdelay 8
	spawn 0 hhopen;	tdelay 8
	spawn 0 bdrum;	tdelay 8
	spawn 0 sdrum;	tdelay 8
	jump l
}

bassline:
{
.l	spawn 0 syncbass;	spawn 0 cymbal;	tdelay 24
	spawn 0 syncbass;			tdelay 232
	spawn 0 syncbass;	spawn 0 twang;	tdelay 24
	spawn 0 syncbass;			tdelay 232
	jump l
}

ridebeat:
{
.l	spawn 0 ride;	tdelay 32
	jump l
}

arp:
{
.l	spawn 0 arpeggio; tdelay 512
	jump l
}

bdintro:
{
	i = 2
.l	spawn 0 bdrum; tdelay 16
	spawn 0 bdrum; tdelay 240
	loop i l
	spawn 0 bdrum; tdelay 16
	spawn 0 bdrum; tdelay 208
	spawn 0 bdrum; tdelay 8
	spawn 0 sdrum; tdelay 8
	spawn 0 sdrum; tdelay 8
	spawn 0 bdrum
	end
}

music:
{
	spawn 0 hihats;		spawn 0 arp;		tdelay 256
	spawn 0 woods;		spawn 0 bdintro;	tdelay 256
	spawn 0 bassline;				tdelay 512
	spawn 0 mainbeat;	spawn 0 cymbal;		tdelay 512
	spawn 0 ridebeat;				tdelay 512
	spawn 0 toms
	end
}