Audiovisuals with SC -Example16 - amptrack

//Example16 - amptrack
(
s.latency= 0.05;
s.waitForBoot{
        c= Buffer.read(s, Platform.resourceDir+/+"sounds/a11wlk01.wav");
        SynthDef(\avTrk, {|in, t_trig, time= 0.01, cutoff= 400, index= 0|
                var z= In.ar(in, 1);
                var val= Amplitude.kr(BPF.ar(BPF.ar(z, cutoff, 0.1, 5), cutoff, 0.1, 5), time, time);
                SendTrig.kr(t_trig, index, val);
        }).add;
        SynthDef(\avSnd, {|out= 0, bufnum|
                var z= PlayBuf.ar(
                        1,
                        bufnum,
                        BufRateScale.ir(bufnum)*LFPulse.kr(0.05, 0, 0.5, 0.2, -1.5),
                        Impulse.kr(LFPulse.kr(0.1, 0, 0.1, 2, 1)),
                        BufFrames.ir(bufnum)*LFNoise0.kr(0.2, 0.5, 0.5).round(0.2),
                        1
                );
                Out.ar(out, Pan2.ar(z));
        }).add;
};
)

(
//--window setup
var width= 500, height= 500;
var w= Window("Example16 - amptrack", Rect(99, 99, width, height), false);
var u= UserView(w, Rect(0, 0, width, height));

//--variables
var num= 100;                                   //number of tuned filter synths
var cnt= 0;                                     //vertical drawing position
var amps= 0.dup(num);                           //array of current amplitudes
var o= OSCFunc({|m| amps= amps.put(m[2], m[3])}, '/tr', s.addr);
var syns= {|i|                                  //each tracker with an unique peakfilter
        Synth(\avTrk, [\in, 0, \index, i, \cutoff, i.linexp(0, num-1, 200, 6000)]);
}.dup(num);
var snd= Synth(\avSnd, [\out, 0, \bufnum, c]);  //something that generates sound

//--interface
~width= 120;
~speed= 1;
~version= 1;

//--main loop
u.drawFunc= {
        var wn= width/num;
        switch(~version,
                0, {
                        Pen.translate(wn*0.5, cnt%height);
                        amps.do{|amp, i|
                                Pen.fillColor= Color.grey((amp).clip(0, 1));
                                Pen.fillRect(Rect.aboutPoint(Point(wn*i, 0), wn*0.5, ~width));
                        };
                        cnt= cnt+~speed;
                },
                1, {
                        amps.do{|amp, i|
                                Pen.rotate(cnt, width*0.5, height*0.5);
                                Pen.strokeColor= Color.grey(amp.clip(0, 1));
                                Pen.strokeRect(Rect.aboutPoint(Point(wn*i, 0), ~width*0.1, ~width));
                                cnt= cnt+(~speed*0.000001);
                        };
                },
                2, {
                        Pen.rotate(cnt, width*0.5, height*0.5);
                        Pen.translate(width*0.5, height*0.5);

                        amps.do{|amp, i|
                                Pen.strokeColor= Color.grey(amp.clip(0, 1));
                                Pen.strokeOval(Rect.aboutPoint(Point(i*~speed, 0), ~width*0.5, ~width*0.5));
                        };
                        cnt= cnt+(~speed*0.01);
                }
        );
        syns.do{|x| x.set(\t_trig, 1)}; //request amp data
};

//--window management
u.clearOnRefresh= false;                //do not erase - just draw on top of
w.onClose= {
        snd.free;
        syns.do{|x| x.free};
        o.free;
};
w.front;
u.animate= true;
CmdPeriod.doOnce({if(w.isClosed.not, {w.close})});
)

//change these while the program is running
~width= 220;
~speed= 2;
~speed= -0.1;
~speed= pi;
~version= 0;
~width= 1;
~speed= 1;
~width= 10;
~speed= 10;
~width= 500;
~version= 2;
~width= 100;
~speed= 1;
~speed= -1.5;
~width= 20;

//close the window to stop or press cmd+.
c.free;         //free the soundfile buffer