kaval with SuperCollider GVerb and Drone.

Killah P

Live improvisation with sound generator made from Jose Padovani edit by Omer Chatziserif and myself.

SCCode
/*
Work with Jose Padovani sound generator

Aris Bezas Fri, 24 June 2011, 16:57
*/
//:Padovani Synth Definition
SynthDef('padovani', {	|sawFreq = 1, trigDur = 0.05, trigFreq = 10, roomSize = 2, sizeGrain = 1, signalOutput = 10|
	var in, singal;
	p= Trig.ar(Saw.ar(sawFreq),trigDur);
	y= SinOsc.ar(p*trigFreq);
	z= SinOsc.ar(p);
	in = GrainIn.ar(
			2, 			//channelNum
			y, 			//trigger
			y/sizeGrain,	//duration-the size of the grain
			z,			//input to granulate
			p*z			//pan
			-1			//buf num 
		);
	singal = GVerb.ar(in, roomSize )/signalOutput;
	Out.ar(0, singal);
}).send(s);
//:Play the Synth
{ | i | format("mySynths%", i).asSymbol.playDef(\padovani, [\trigDur, 0.04]) } ! 5;
//:Setup OSC responders
~trigDurSpec = ControlSpec(0.001, 10, \lin);
OSCresponderNode(n, '/trigDur', {|t,r,msg| 
	 { | i | format("mySynths%", i).asSymbol.set(\trigDur, ~trigDurSpec.map(msg[1])*0.1*i ) } ! 5;
	 ~trigDurSpec.map(msg[1]).postln;
	 }).add;
~trigFreqSpec = ControlSpec(0.001, 100, \lin);
OSCresponderNode(n, '/trigFreq', {|t,r,msg| 
	 { | i | format("mySynths%", i).asSymbol.set(\trigFreq, ~trigFreqSpec.map(msg[1])*i ) } ! 5;
	 ~trigFreqSpec.map(msg[1]).postln;
	 }).add;
~sawFreqSpec = ControlSpec(0.001, 100, \lin);
OSCresponderNode(n, '/sawFreq', {|t,r,msg| 
	 { | i | format("mySynths%", i).asSymbol.set(\sawFreq, ~sawFreqSpec.map(msg[1])*i ) } ! 5;
	 ~sawFreqSpec.map(msg[1]).postln;
	 }).add;
~sizeGrainSpec = ControlSpec(2, 0.001, \lin);
OSCresponderNode(n, '/sizeGrain', {|t,r,msg| 
	 { | i | format("mySynths%", i).asSymbol.set(\sizeGrain, ~sizeGrainSpec.map(msg[1])*i ) } ! 5;
	 ~sizeGrainSpec.map(msg[1]).postln;
	 }).add;
~roomSizeSpec = ControlSpec(0.001, 0.32, \lin);
OSCresponderNode(n, '/roomSize', {|t,r,msg| 
	 { | i | format("mySynths%", i).asSymbol.set(\roomSize, ~roomSizeSpec.map(msg[1])*i ) } ! 5;
	 ~roomSizeSpec.map(msg[1]).postln;
	 }).add;
~signalOutputSpec = ControlSpec(10, 1, \lin);
OSCresponderNode(n, '/signalOutput', {|t,r,msg| 
	 { | i | format("mySynths%", i).asSymbol.set(\signalOutput, ~signalOutputSpec.map(msg[1])*i ) } ! 5;
	 ~signalOutputSpec.map(msg[1]).postln;
	 }).add;
//:Finish
"Special Thanks to Jose Padovani".postln;

Padovani at Bostani

170818 Chile&Turkey@Igoumenitsa

Γιώργος: SuperCollider, Βίκυ: openFrameworks, Βαγγέλης: SuperCollider

Info
http://extending.earlab.org/projects/dot-me/dot-me.html
