// title: switched off bach
// author: bernhard
// description:
// A rip off of «Beatboxing and Bach» by aahrens, whitout the drums plus some cheesy synths.
// code:
// The Pbind from «Beatboxing and Bach» by aahrens, whitout the drums plus some cheesy synths
// SynthDef "horns" is based on «Dark sea horns» by Jonatan Liljedahl

(
SynthDef(\flute_n_harpsi, {

arg freq=220, intv=1, amp=0.4, dist=53, modfreq=2, modmul=3.5, filtfreq=600, envfact=7, att=0.07, sus=1, rel=4, rq=2, out=0;

	var sig, env;

	env=EnvGen.kr(Env([0.001,1,0], [att,sus,rel],[\sin,-5,-5]),doneAction:2);

	sig =({SinOsc.ar(freq*intv*2,(LFNoise2.kr(modfreq,modmul))*SinOsc.ar((freq*intv*2),0,6),env*dist*LFNoise1.kr(5,2,1)).tanh}!7);

	sig = (sig*0.7)+({SinOsc.ar(freq*intv,(LFNoise2.kr(modfreq,modmul))*SinOsc.ar((freq*intv),0,6),env*dist*LFNoise1.kr(3.7,2,1)).tanh}!11);

	sig = Splay.ar((RLPF.ar(sig.tanh,filtfreq*(1+(env*envfact))+(freq*intv),0.6,1))*amp/(((intv.sqrt).sqrt).sqrt).sqrt);

	Out.ar(out,sig);
}).add;

SynthDef(\horns,{
	arg freq=30,amp=0.4,mult=9,att=0.1,sus=0.5,rel=6,out=0;
	var a,sig,n=LFNoise1,env;
	env = EnvGen.kr(Env([0.1,1,0],[att,sus,rel],[n.ar(0.7,0.3,0.7),0,n.ar(0.9,0.2,-1)]),doneAction:2);
	sig=
	{a=SinOsc.ar(freq,SinOsc.ar(freq,n.ar(0.1,3),n.ar(3,6)),n.ar(3,6)).tanh;
	mult.do{a=AllpassL.ar(a,0.3,{0.1.rand+0.05}!2,5)};a.tanh};
	sig = sig * env;
	sig = sig*amp;
Out.ar(out,sig);
}).add;

SynthDef(\bass,{
	arg freq=90, amp = 0.6, out = 0, att=0.01,sus=1, rq=1,rel=2;
	var sig, env;
	env = EnvGen.kr(Env([0.1,1,0],[att,sus,rel],[-1,0,1]),doneAction:2);
	sig = RLPF.ar(Pulse.ar(freq/2,[SinOsc.kr(2,0,0.1,0.5),SinOsc.kr(2,pi,0.1,0.5)]),(freq/2)*((env*4)+1),rq,env);
	sig = sig*amp*env;

	Out.ar(out,sig);
}).add;


Pbind(
	\instrument, "flute_n_harpsi",
	\midinote, Pseq([

		\rest, 64, 69, 72, 71, 64, 71, 74, 72, 76, 68, 76, //bar 1
		69, 64, 69, 72, 71, 64, 71, 74, 72, 69, \rest, //bar 2
		\rest, 76, 72, 76, 69, 72, 64, 67, 65, 69, 74, 77, //bar 3
		\rest, 74, 71, 74, 67, 71, 62, 65, 64, 67, 72, 76, //bar 4
		\rest, 72, 69, 72, 65, 74, \rest, 71, 67, 71, 64, 72, //bar 5
		\rest, 69, 65, 69, 62, 71, 72, \rest, //bar 6
		\rest, 67, 72, 76, 74, 67, 74, 77, 76, 79, 71, 79, //bar 7
		72, 67, 72, 76, 74, 67, 74, 77, 76, 72, 79, 76, //bar 8

		84, 81, 76, 81, 72, 76, 69, 72, 74, 78, 81, 84, //bar 9
		83, 79, 74, 79, 71, 74, 67, 71, 72, 76, 79, 83, //bar 10
		81, 78, 75, 78, 71, 75, 66, 69, 67, 79, \rest, 76, 72, 76, //bar 11
		69, 78, \rest, 74, 71, 74, 67, 76, \rest, 72, 69, 72, //bar 12
		66, 79, 78, 76, 75, 78, 71, 75, 76, \rest, \rest, \rest, //bar 13
		\rest,  79, 82, 79, 76, 79, 73, 76, 79, 76, 73, 76, 69, \rest, \rest, //bar 14
		\rest, 77, 81, 77, 74, 77, 71, 74, 77, 74, 71, 74, 67, \rest, \rest, //bar 15
		\rest, 76, 79, 76, 72, 76, 69, 72, 75, 72, 69, 72, 66, \rest, \rest, //bar 16

		\rest, 74, 77, 74, 71, 74, 68, 71, 74, 71, 68, 71, 64, \rest, \rest, //bar 17
		\rest, 64, 69, 72, 71, 64, 71, 74, 72, 69, 68, 64, //bar 18
		69, 72, 76, 72, 69, 72, 66, 69, 72, 69, 66, 69, 63, 72, 71, 69, //bar 19
		68, 71, 74, 71, 68, 71, 62, 65, 68, 65, 62, 65, 59, 65, 64, 62, //bar 20
		60, 64, 69, 64, 60, 64, 57, 60, 63, 60, 57, 60, 54, 60, 59, 57, //bar 21
		56, 71, 68, 64, \rest, 64, 69, 72, 71, 64, 71, 74, //bar 22
		72, 69, 72, 76, 74, 71, 74, 77, 76, 72, 76, 79, 77, 76, 74, 72, //bar 23
		71, 72, 74, 76, 77, 74, 80, 74, 83, 74, 72, 81, 77, 74, 71, 74, //bar 24
		68, 71, 72, 69, 64, 69, 71, 68, 69, 64, 60, 64, 57 //bar 25

	], 1),

	\dur, Pseq([

		Pn(1/4, 8), Pn(1/2, 4), //bar 1
		Pn(1/4, 8), Pn(1/2, 2), 1, //bar 2
		Pn(1/4, 8), Pn(1/2, 4), //bar 3
		Pn(1/4, 8), Pn(1/2, 4), //bar 4
		Pn(1/4, 4), Pn(1/2, 2), Pn(1/4, 4), Pn(1/2, 2), //bar 5
		Pn(1/4, 4), Pn(1/2, 3), 1.5, //bar 6
		Pn(1/4, 8), Pn(1/2, 4), //bar 7
		Pn(1/4, 8), Pn(1/2, 4), //bar 8

		Pn(1/4, 8), Pn(1/2, 4), //bar 9
		Pn(1/4, 8), Pn(1/2, 4), //bar 10
		Pn(1/4, 8), Pn(1/2, 2), Pn(1/4, 4), //bar 11
		Pn(1/2, 2), Pn(1/4, 4), Pn(1/2, 2), Pn(1/4, 4), //bar 12
		Pn(1/4, 8), Pn(1/2, 4), //bar 13
		Pn(1/4, 14), 1/2, //bar 14
		Pn(1/4, 14), 1/2, //bar 15
		Pn(1/4, 14), 1/2, //bar 16

		Pn(1/4, 14), 1/2, //bar 17
		Pn(1/4, 8), Pn(1/2, 4), //bar 18
		Pn(1/4, 16), //bar 19
		Pn(1/4, 16), //bar 20
		Pn(1/4, 16), //bar 21
		Pn(1/2, 4), Pn(1/4, 8), //bar 22
		Pn(1/4, 16), //bar 23
		Pn(1/4, 16), //bar 24
		Pn(1/4, 12), 1 //bar 25

	], 1),

	\out, 0,
	\att, 0.01,
	\rel, Pkey(\dur),
	\amp, 0.07,

).play;

Pbind(
	\instrument, "horns",
	\midinote, Pseq([

		45, 57, 56, 57, 52, 57, 60, 59, 52, 59, 62, //bar 1
		60, 57, 56, 52, 57, 52, 57, 60, 59, 52, 59, 62, //bar 2
		60, 57, 60, 57, 62, 57, 53, 57, 50, 53, 45, 48, //bar 3
		47, 50, 55, 59, \rest, 55, 52, 55, 48, 52, 43, 47, //bar 4
		45, 48, 50, 53, 47, 50, 43, 47, 48, 52, 45, 48, //bar 5
		41, 38, 43, 55, 53, 55, 48, 55, 60, 64, 62, 55, 62, 65, //bar 6
		64, 60, 59, 55, 60, 55, 60, 64, 62, 55, 62, 65, //bar 7
		64, 60, \rest, \rest, \rest, 67, 64, 67, 60, 64, 55, 59, //bar 8

		57, 60, 64, 67, 66, 69, 62, 66, 57, 62, 54, 57, //bar 9
		55, 59, 62, 66, 64, 67, 60, 64, 55, 60, 52, 55, //bar 10
		54, 57, 59, 63, \rest, 64, 60, 64, 57, 60, 64, 67, //bar 11
		66, 62, 59, 62, 55, 59, 62, 66, 64, 60, 57, 60, 54, 57, 60, //bar 12
		\rest, 59, 60, 57, 59, 47, 52, 64, 59, 55, 52, 47, 43, 47, //bar 13
		40, 52, 55, 58, 49, \rest, \rest, 67, 65, 64, //bar 14
		62, 50, 53, 56, 47, \rest, \rest, 65, 64, 62, //bar 15
		60, 48, 52, 54, 45, \rest, \rest, 64, 63, 61, //bar 16

		59, 47, 50, 53, 44, \rest, \rest, 62, 60, 59, //bar 17
		60, 57, 56, 52, 57, 52, 57, 60, 59, 52, 59, 62, //bar 18
		60, 64, 69, 64, 60, 64, 57, 60, 54, 57, 60, 57, 54, 57, 51, 54, //bar 19
		52, 56, 59, 56, 52, 47, 44, 40, //bar 20
		45, 48, 52, 48, 45, 48, 39, \rest, //bar 21
		\rest, 59, 56, 52, 50, 59, 56, 50, 48, 52, 44, 52, //bar 22
		45, 54, 47, 56, 48, 57, 50, 58, //bar 23
		56, 53, 50, 47, 44, 45, 38, 40, //bar 24
		41, 39, 40, 52, 45 //bar 25

	], 1),

	\dur, Pseq([

		1/2, 1, 1/2, Pn(1/4, 8), //bar 1
		Pn(1/2, 4), Pn(1/4, 8), //bar 2
		Pn(1/2, 4), Pn(1/4, 8), //bar 3
		Pn(1/2, 4), Pn(1/4, 8), //bar 4
		Pn(1/2, 2), Pn(1/4, 4), Pn(1/2, 2), Pn(1/4, 4), //bar 5
		Pn(1/2, 2), Pn(1/4, 12), //bar 6
		Pn(1/2, 4), Pn(1/4, 8), //bar 7
		Pn(1/2, 4), Pn(1/4, 8), //bar 8

		Pn(1/2, 4), Pn(1/4, 8), //bar 9
		Pn(1/2, 4), Pn(1/4, 8), //bar 10
		Pn(1/2, 4), Pn(1/4, 8), //bar 11
		Pn(1/4, 14), 1/2, //bar 12
		Pn(1/4, 4), Pn(1/2, 2), Pn(1/4, 8), //bar 13
		Pn(1/2, 6), Pn(1/4, 4), //bar 14
		Pn(1/2, 6), Pn(1/4, 4), //bar 15
		Pn(1/2, 6), Pn(1/4, 4), //bar 16

		Pn(1/2, 6), Pn(1/4, 4), //bar 17
		Pn(1/2, 4), Pn(1/4, 8), //bar 18
		Pn(1/4, 16), //bar 19
		Pn(1/2, 8), //bar 20
		Pn(1/2, 8), //bar 21
		Pn(1/4, 8), Pn(1/2, 4), //bar 22
		Pn(1/2, 8), //bar 23
		Pn(1/2, 8), //bar 24
		Pn(1/2, 4), 2 //bar 25

	], 1),

	\out, 0,
	\att, 0.1,
	\rel, Pkey(\dur)+0.4,
	\amp, 0.1,

).play;

Pbind(
	\instrument, "bass",
	\midinote, Pseq([

		45, 57, 56, 57, 52, 57, 60, 59, 52, 59, 62, //bar 1
		60, 57, 56, 52, 57, 52, 57, 60, 59, 52, 59, 62, //bar 2
		60, 57, 60, 57, 62, 57, 53, 57, 50, 53, 45, 48, //bar 3
		47, 50, 55, 59, \rest, 55, 52, 55, 48, 52, 43, 47, //bar 4
		45, 48, 50, 53, 47, 50, 43, 47, 48, 52, 45, 48, //bar 5
		41, 38, 43, 55, 53, 55, 48, 55, 60, 64, 62, 55, 62, 65, //bar 6
		64, 60, 59, 55, 60, 55, 60, 64, 62, 55, 62, 65, //bar 7
		64, 60, \rest, \rest, \rest, 67, 64, 67, 60, 64, 55, 59, //bar 8

		57, 60, 64, 67, 66, 69, 62, 66, 57, 62, 54, 57, //bar 9
		55, 59, 62, 66, 64, 67, 60, 64, 55, 60, 52, 55, //bar 10
		54, 57, 59, 63, \rest, 64, 60, 64, 57, 60, 64, 67, //bar 11
		66, 62, 59, 62, 55, 59, 62, 66, 64, 60, 57, 60, 54, 57, 60, //bar 12
		\rest, 59, 60, 57, 59, 47, 52, 64, 59, 55, 52, 47, 43, 47, //bar 13
		40, 52, 55, 58, 49, \rest, \rest, 67, 65, 64, //bar 14
		62, 50, 53, 56, 47, \rest, \rest, 65, 64, 62, //bar 15
		60, 48, 52, 54, 45, \rest, \rest, 64, 63, 61, //bar 16

		59, 47, 50, 53, 44, \rest, \rest, 62, 60, 59, //bar 17
		60, 57, 56, 52, 57, 52, 57, 60, 59, 52, 59, 62, //bar 18
		60, 64, 69, 64, 60, 64, 57, 60, 54, 57, 60, 57, 54, 57, 51, 54, //bar 19
		52, 56, 59, 56, 52, 47, 44, 40, //bar 20
		45, 48, 52, 48, 45, 48, 39, \rest, //bar 21
		\rest, 59, 56, 52, 50, 59, 56, 50, 48, 52, 44, 52, //bar 22
		45, 54, 47, 56, 48, 57, 50, 58, //bar 23
		56, 53, 50, 47, 44, 45, 38, 40, //bar 24
		41, 39, 40, 52, 45 //bar 25

	], 1),

	\dur, Pseq([

		1/2, 1, 1/2, Pn(1/4, 8), //bar 1
		Pn(1/2, 4), Pn(1/4, 8), //bar 2
		Pn(1/2, 4), Pn(1/4, 8), //bar 3
		Pn(1/2, 4), Pn(1/4, 8), //bar 4
		Pn(1/2, 2), Pn(1/4, 4), Pn(1/2, 2), Pn(1/4, 4), //bar 5
		Pn(1/2, 2), Pn(1/4, 12), //bar 6
		Pn(1/2, 4), Pn(1/4, 8), //bar 7
		Pn(1/2, 4), Pn(1/4, 8), //bar 8

		Pn(1/2, 4), Pn(1/4, 8), //bar 9
		Pn(1/2, 4), Pn(1/4, 8), //bar 10
		Pn(1/2, 4), Pn(1/4, 8), //bar 11
		Pn(1/4, 14), 1/2, //bar 12
		Pn(1/4, 4), Pn(1/2, 2), Pn(1/4, 8), //bar 13
		Pn(1/2, 6), Pn(1/4, 4), //bar 14
		Pn(1/2, 6), Pn(1/4, 4), //bar 15
		Pn(1/2, 6), Pn(1/4, 4), //bar 16

		Pn(1/2, 6), Pn(1/4, 4), //bar 17
		Pn(1/2, 4), Pn(1/4, 8), //bar 18
		Pn(1/4, 16), //bar 19
		Pn(1/2, 8), //bar 20
		Pn(1/2, 8), //bar 21
		Pn(1/4, 8), Pn(1/2, 4), //bar 22
		Pn(1/2, 8), //bar 23
		Pn(1/2, 8), //bar 24
		Pn(1/2, 4), 2 //bar 25

	], 1),

	\out, 0,
	\att, 0.001,
	\rel, Pkey(\dur)+0.5,
	\amp, 0.2,

).play;

)