Bz Buzz

Il termine Puck deriva dall'inglese antico Púca che indicava, appunto uno spirito dei boschi, dall'aspetto mutevole ed ingannatore, che attirava le persone di notte nella foresta con luci e suoni incantatori;

(
SynthDef(\puck, {|freq = 440, dur = 1|
var klang,note;
dur = dur * 3;
note = freq.cpsmidi;
note = note + (LFNoise2.ar(20).range(-1,1) * (1/8));
note = DelayN.ar(note, 0.148);
klang = AY.ar((note * [1,1.002]).midicps) * 0.3;
klang = klang * EnvGen.ar(Env([0,0.3,0],[0.07,0.9]),doneAction:2) ;
Out.ar(0, klang);
}).store;
)

(
Pbind(
    \degree, Pxrand([0, 1, 2, 4, 6, 3, 5, 7, 8], inf),
    \dur, Prand([0.2, 0.4, 0.8], inf), \amp, 0.05,
    \octave, 5, \instrument, \puck
).play;
)

(
Pbind(
    \degree, Pxrand([0, 1, 2, 4, 6, 3, 5, 7, 8], inf),
    \dur, Prand([0.2, 0.4, 0.8], inf), \amp, 0.05,
    \octave, 3, \instrument, \puck
).play;
)

play({RLPF.ar(Pulse.ar([11, 13]), LFNoise1.ar([3, 7], 200, 300), 0.01)*0.1})

(
{
GVerb.ar((
{
var burstEnv, att = 0, dec = 0.001;
var burst, delayTime, delayDecay = 0.1;
var midiPitch = 37; // A 440
delayTime = midiPitch.midicps.reciprocal;

burstEnv = EnvGen.kr(Env.perc(att, dec), gate: PinkNoise.kr(1/delayDecay));
burst = PinkNoise.ar(burstEnv);
CombL.ar(burst, delayTime, delayTime,delayDecay, add: burst);
}
),270,30,0.7,drylevel:0.5)
}.play
)

"It is hard to write a simple definition of something as varied as hacking, but I think what these activities have in common is playfulness, cleverness, and exploration. Thus, hacking means exploring the limits of what is possible, in a spirit of playful cleverness. Activities that display playful cleverness have hack value."

~saws = {RLPFD.ar(LFSaw.ar([LFSaw.kr(0.1).range(137,713).round(37),SinOsc.kr(0.137).range(137,713).round(37)],0,0.7),713,0.7,0.7,13)};
~sawDelay = {CombC.ar(~saws.ar,1,0.7,13)};
~sawDelay.play;