[sc-users] better late than never

[Dan Stowell]

Julian you are so meta!

2006/8/30, Julian Rohrhuber <rohrhuber at uni-hamburg.de>:
>
> // sonification of your personal network latency
>
> (
> s = Server.local; // or a remote server
> s.boot;
> )
>
> // approx. dirac impulse
> (
> SynthDef("dirac", { arg out=0, amp=1.0;
>                                          var trig;
>                                          trig = Impulse.ar;
>                                          FreeSelf.kr(trig);
>                                          OffsetOut.ar(out, trig * amp)
> }, [\ir, \ir]).send(s);
> );
>
> // audification
> (
> var f = { s.sendMsg(9, \dirac, -1, 0) };
>
> OSCresponder(s.addr, '/tr', f).add;
> play { SendTrig.ar(In.ar)  * 0.01 };
> fork { 1.0.wait; f.value; };
> )
>
>
> // for a more pleasant experience, sonify the ping time and the
> difference from average:
>
> (
> var f = { s.sendMsg(9, \dirac, -1, 0, 1, \out, 2) };
> OSCresponder(s.addr, '/tr', f).add;
>
> play {
>         var t = In.ar(2);
>         var freq = ZeroCrossing.ar(t);
>         var average = Lag.ar(freq, 4);
>         SendTrig.ar(t);
>         Ringz.ar(t, [freq * 4, (average - freq) * 500 + 1000], 0.1) * 0.1
> };
> fork { 1.0.wait; f.value; };
> )
>
>
> // literature:
> http://ccrma.stanford.edu/groups/soundwire/
>
> --
>
>
>
>
>
> .
> _______________________________________________
> sc-users mailing list
> sc-users at create.ucsb.edu
> http://www.create.ucsb.edu/mailman/listinfo/sc-users
>


-- 
http://www.mcld.co.uk