Bedlam - SuperCollider



(
SynthDef(\alarm, {
            var snd, a;
      a=FSinOsc;
      y=Pulse;
            snd = Splay.ar(a.ar(Select.ar(GVerb.ar(a.ar((3/b=[1,3,7,13,17,37]+0.2)*8)),(c=y.ar(0.7/b))>0*13+b+48).midicps,0,c%3).tanh/7);
            Out.ar(0, snd);
        }).add;

)


x = Synth(\alarm);


Leave a Reply