Activity | SuperCollider 3.13.0 Help

Description

Activity models the decay of perceived activity level over time. Can be used to track how active some playing interface is being used, and slowly winding down a process if it gets no playing attention.a = Activity(); a.action = { |a| a.level.round(a.floor).postln }; // post level // do this several times to charge up level a.add(1); a.level; a.dt = 0.1; // slow down model a.stop; // stop a.play; // play again a.action = nil; // stop posting ( SynthDef(\ting, { |freq, amp| Out.ar(0, (SinOsc.ar(freq) * Line.kr(amp, amp * 0.001, 0.2, 5, doneAction: 2)).tanh ! 2); }).add; // more activity creates wider melody jumps, // and higher amplitude/distortion Tdef(\ting, { loop { if (a.level > 0) { (instrument: \ting, note: (12 * a.level.rand2.clip2(4)), amp: a.level).play; }; 0.1.wait; } }).play; ) // add to activity level while process is playing a.add(1); a.add(3); // set decaytime of model a.decaytime = 2; ( var w, mp; w = Window.new.front; StaticText(w, w.bounds.moveTo(0,0)).align_(\center) .string_("click and drag to charge activity level."); w.view.mouseMoveAction = { |view, x, y| var mousepos = (x@y); var diff = mousepos - (mp ? mousepos); a.add(diff.rho * 0.05); mp = mousepos; a.level.postln; }; )