slang

gistfile1.txt

# http://slang.kylestetz.com/

@bass (adsr (osc tri) 64n 2n 0.4 4n)
@synth (osc sine) + (gain 0.08)
@melody (osc saw) + (gain 0.08)

@drums (drums) + (gain 3)
@cdrums (drums) + (gain 1)

play @synth
	(rhythm [8t r16t])
	(notes (flatten [
	(repeat 2 [e3 e4 e5])
	(repeat 2 [d3 d4 d5])
	(repeat 2 [a3 a4 a5])
	[g3 g4 g5]
	[f3 f4 f5]
	]))
	
play @melody
	(rhythm [8n])
	(notes (random (chord phrygian e4)))

play @bass
	(rhythm [1n])
	(notes (random (chord phrygian e2)))

play @drums
	(rhythm (random [8n 8n r8n 8n]))
	(notes [2 2 2 5 12 2])
play @cdrums
	(rhythm [8n])
	(notes [6 7 8 7])