«aurora borealis» by nicolaariutti
on 27 Dec'18 14:50 inRandom synths selected from VarSaw, Pulse and WhiteNoise create a texture resambling brasses, woods and flutes. It reminds me Micheal Land "The Dig" soundtrack (https://en.wikipedia.org/wiki/The_Dig).
Listen to an extract of it here: https://soundcloud.com/nicolaariutti/aurora-borealis
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
( ~root = -13; ~revSend = Bus.audio(s, 2); ) ( s.waitForBoot( { SynthDef(\bell, { | freq=556, findex=0, frate=2, dur=5, pos=0, amp=0.25, out=0 | var sigA, sigB, sigC, sig, env, fmod; env = EnvGen.ar(Env.triangle(5), doneAction:2); fmod = findex * SinOsc.kr(frate, mul:0.5, add:0.5) * Line.kr(0, 1, 7); sigA = Pulse.ar(freq + fmod, LFNoise2.kr(1).range(0.2, 0.8) ); sigB = VarSaw.ar(freq + fmod); sigC = WhiteNoise.ar() * 0.125; sig = SelectX.ar(LFNoise2.kr(2).range(0, 2), [sigA, sigB, sigC]); sig = LPF.ar(sig, freq*4 ); sig = sig * env * amp; Out.ar(out, Pan2.ar(sig, pos)); }).add; s.sync; SynthDef(\rev, { arg in=0, out=0, mix=1, room=0.8; var sig; sig = In.ar(in, 2); sig = FreeVerb.ar(sig, mix, room); Out.ar(out, sig); }).add; s.sync; ~rev = Synth(\rev, [\in, ~revSend]); x = Pbind( \instrument, \bell, \out, ~revSend, \root, Pfunc({~root}), \octave, Pwrand([4, 5, 6, 7], [6,8,3,1].normalizeSum, inf), \degree, Prand(Scale.lydian.degrees, inf), \ctranspose, Pwhite( -0.05, 0.05, inf), \amp, 1.1 * Pexprand(0.001, 0.7) * (1/(Pkey(\octave)+1)), \findex, Pexprand(2, 20), \frate, Pwhite(1, 25, inf), \pos, Pwhite(-0.8, 0.8, inf), \dur, Pwhite(0.1, 0.5), ).asEventStreamPlayer; x.play; wait(15); r = Routine({ "starting".postln; loop({ ~root = [-13, -1, 4, 7].choose; wait( 10.rrand(25) ); }); }); r.play; }); )
reception
very good sound!