SETOClub

superclass: JITseto

/*

Author:

2006, 2007

Till Bovermann

SonEnvir IEM

KUG Graz

Austria

*/

juggling-clubs

(

var posSpecs;

posSpecs = Array.fill(3, {[-10, 10].asSpec});

posSpecs = [

[-3000, 3000].asSpec,

[-3000, 3000].asSpec,

[0, 6000].asSpec,

];

posSpecs.do{|spec, i| SpecGUI(spec, i)};

t = SETOTarsusServer(nil, Club, specs: posSpecs);

t.start;

g = t.gui;

)

t.stop;

t.start;

SETOClub.action = {|me|

me.flipAngleVel.isNaN.if({[me.id, me.symAxis-me.lastSymAxis].postln});

}

p = ProxySpace.push(s);

s.boot

~a = \control -> (0!3);

~height = \control -> (0!3)

SETOClub.action = {|me|

me.flipAngleVel.isNaN.not.if({

~a.set(me.id, me.flipAngleVel);

~height.set(me.id, me.pos.last);

}, {

~a.set(me.id, 0);

~height.set(me.id, me.pos.last)

});

}

~b = {BPF(Impulse.ar(~a.kr).poll, (~height.kr * 1000), 0.1) * 0.75}

~b.clear

~b = {Impulse.ar(~a.kr) * 0.075}

~b.play

~b.playN([0,4,[8, 20]]);

~b = {BPF.ar(Impulse.ar(~a.kr), (~height.kr * 120 + 36).midicps, 0.1) * 2 }

(

~b = { BPF.ar(Impulse.ar(~a.kr),

(~height.kr * 120 + 36 + [[0, 7], [0, 12], [0, 16]]).midicps.postln,

0.2)

.collect({ |pair| (pair * [1, 0.5]).sum }) // no net

* 2

}

)