View this PageEdit this PageUploads to this PageHistory of this PageTop of the SwikiRecent ChangesSearch the SwikiHelp Guide

Impulse Web: second version

what I made... john
//////////////////////////////////////////////////////////////
//impulse network part
(
var nodes, me;
me = "john";
OSCPort.closeAll;
nodes = OSCNode.tree([
	[\hello, {arg node, mess; mess.postln; }  ],
	[\click, { arg node, dur=0;
			z.source = dur;
			p.gate
  
			
	}]
]);
OSCInPort.new(55555, nodes);

n = [\julian, \john, \ianmike, \pavellloyd, \free];
x = ["192.168.0.120", "192.168.0.116","192.168.0.93","192.168.0.122","192.168.0.123"];
x = x.collect({ arg ip; 
	OSCOutPort.new(55555, ip);
});
f = { arg who, message, a, b, c;
	x.at(n.indexOf(who)).send(message, a, b, c);
};
g = {arg who, string;
	f.value(who, "/hello", me ++ ": " ++ string);
};
b = {arg string;
	x.do({ arg port; port.send("/hello", me ++ ": " ++ Char.tab ++ string) });

};
)

(
Synth.play({
	var out;
	p = Plug.ar(0,0);
	z = Plug.kr(1);
	out = Klank.ar(`[[600, 471, 353, 723], [0, 1, 0], [2.0, 2.0, 2.5]], p, 1, 0, z);
	out.abs
	
});
)


p.gate;

Task({ 12.do({
	f.value(\pavellloyd, "/click", 0.7);
	0.1.wait;
}); });

Task({ 15.do({
	f.value(\julian, "/click", 0.05);
	0.6.wait;
}); });


Task({ 15.do({
	f.value(\ianmike, "/click", 0.08);
	0.4.wait;
}); });

Task({ 5.do({
	f.value(\free, "/click", 0.4);
	0.1.wait;
}); });

p.gate(1.0, 0.1)

g.value(\julian, "thats it");
g.value(\ianmike, "bugaboo");
g.value(\pavellloyd, "bugaboo man");
g.value(\free, "/hello", "you there");
b.value("clickable planet");
b.value("I am sitting 1000 miles away???");
b.value("milos is watching");


f.value(\julian, "/click", 3.0);
f.value(\free, "/click", 0.01);
f.value(\ianmike, "/click", 0.01);
f.value(\pavellloyd, "/click", 0.01);


------------------------------
/*
authors so far:
*/


Link to this Page