«greyhole bits» by grirgz

on 14 Apr'14 23:11 in echobits

Not very original since I copied the bit code from http://schemawound.com/post/58980873930/bitwise and added a greyhole. But it sound so amazing I want to share it =)

log fork json 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(
Ndef(\bitshift, {
    var t = PulseCount.ar(Impulse.ar(8e3));
    var sig = HPF.ar(
        (  
            ((t * 15) & (t >> 5)) |
            ((t * 5) & (t >> [3, 4])) |
            ((t * 2) & (t >> 9)) |
            ((t * 8) & (t >> 11))
            - 3 % 256
        ) / 127-1 * 3
        , 20
    ).distort * 0.2; 
    sig = Greyhole.ar(sig, sig, 0.5, sig).flop.mean/4;
}).play;
)
raw 402 chars (focus & ctrl+a+c to copy)
reception
awesome
comments
monodread ↪ user 20 May'14 18:32

// something I made out of the schemawound post... ( Ndef(\bitshift, { arg freq=8000, mod=200, amp=0.7, lpf=120, fb=0.5, x=15, y=5; var son, count; count = PulseCount.ar(Impulse.ar(freq, (fb*Ndef(\bitshift).ar.abs.reverse))); a = (count * x); b = (count >> y); c = a & b; // bitwise AND op mod=mod.round(1); son=Limiter.ar((c % [mod, mod*3])) * amp; 5.do{ son=AllpassN.ar(son, 0.3, rrand(0.001,0.03).postln, rrand(0.1,0.2))}; son=HPF.ar(son, 40); RLPF.ar(son, lpf, 0.1, 0.6).tanh + //boost some bass son.tanh; }).play; ) // bring back to steady pulsing Ndef(\bitshift).set(\freq, 8000, \x, 15, \y, 4, \mod, 256);

grirgz ↪ user 12 Jul'14 23:46

monodread: cool, you should post it as a real post instead of a comment which is not well readable =)