WOPR - SuperCollider



WOPR (War Operation Plan Response). Questo calcolatore, ubicato nella base fortezza di comando NORAD, valuta azioni e contromosse ad un eventuale attacco russo basandosi sull'esecuzione di numerosi giochi strategici:

(
    SynthDef(\sin_grain_test, {arg gate = 1, amp = 1;
    Out.ar(0,
        SinGrain.ar(Impulse.kr(10), 0.1, WhiteNoise.kr.range(100, 1100),
            EnvGen.kr(
                Env([0, 0.1, 0], [0.1, 0.1], \step, 1),
                gate,
                levelScale: amp,
                doneAction: 2)
            )!2
        )
    }).add;
)

(

    SynthDef(\sin_grain_test, {arg gate = 1, amp = 1;
    Out.ar(0,
        SinGrain.ar(Impulse.kr(10), 0.9, WhiteNoise.kr.range(100, 110),
            EnvGen.kr(
                Env([0, 0.1, 0], [0.1, 0.1], \step, 1),
                gate,
                levelScale: amp,
                doneAction: 2)
            )!2
        )
    }).add;
)
s.sendMsg(\s_new, \sin_grain_test, a=s.nextNodeID, 0, 1, \amp, 0.2);
s.sendMsg(\n_set, a, \gate, 0);

Leave a Reply