WOPR
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);