Galaxy2

Jake Morris
5 ‘ 11

Galaxy2 is multichannel work based on the sound of new environment. It explores the fibonacci series, which helps to establish the feeling of environment. Adding a flavour of ‘the natural world’ into this piece is little unusual considering it is a highly electronic piece – conceived completely digitally. As such, Galaxy2 is mesh of natural and digital worlds. Like many electronica works Galaxy2 is quite mathematic and angular, however some biased random generators add a level of mysteriousness to the work. Galaxy2 should interact with its listener – who is encouraged to realise it visually, sparking the imagination into a new place. The listener is also encouraged to move his or her head around during playback of the piece, as this creates vastly different sounds. Galaxy2 was largely inspired by the Space Odyssey series by Sir Arthur C. Clarke, and musically by Atmosphères (György Ligeti) which serves as the opening of the 2001 film by Stanley Kubrick and the recently passed away Clarke.


(score fullsize: 1.8mB)

Galaxy2.mp3 (stereo bounce 7.1 mB)

SuperCollider Code:

// GALAXY2.6180039987 (6 CHANNEL or 5.1)
// jake morris

// SYNTHDEF
(

SynthDef("Europa", {

// Arguments
arg out, //output bus
sustain, //note sustain time
freq, //frequency
amp = 0.99; //amplitude

// Variables
var partials = 9, //number of partials
waveshape, //osc
envStruct, //envelope shape
envGen, //envelope instance
final, //final osc with env and low-pass filter
a, b;

//ENV
envStruct = Env(
levels: [0.0,0.75, 0.75, 0.0],
times: [3.0, sustain, 3.0],
curve: 'sine'
); //.plot;

envGen = EnvGen.kr(
envelope: envStruct,
gate: 1.0,
doneAction: 2.0
);

//Osc
waveshape = Mix.fill(10, {SinOsc.ar(freq + freq * [Rand(1.0, 5.0), Rand(1.0, 5.0)], 0, amp / partials) }) * envGen;


final = RLPF.ar(waveshape, 22050, 0.1);

#a, b = final;

// OUTPUT
Out.ar(0, PanAz.ar(1, [a, b])); // channel 1 out
Out.ar(1, PanAz.ar(1, [a, b])); // channel 2 out
Out.ar(2, PanAz.ar(1, [a, b])); // channel 3 out
Out.ar(3, PanAz.ar(1, [a, b])); // channel 4 out
Out.ar(4, PanAz.ar(1, [a, b])); // channel 5 out
Out.ar(5, PanAz.ar(1, [a, b])); // channel 6 out

}).store;

)

//recording settings
s.recChannels_(6);
s.recHeaderFormat_("WAVE");
s.options.sampleRate_(44100);
s.recSampleFormat_("int24");

//TRIGGERs
(
//VARs
var baseDur = 3.0, //initial note duration
ratio = 0.6180339887, //inverse golden ratio
ratio2 = 1.6180339887, //golden ratio
f1 = 987, //starting frequency (fib.16)
f2 = f1 * ratio,
f3 = f2 * ratio,
f4 = f3 * ratio,
f5 = f4 * ratio,
f6 = f5 * ratio,
f7 = f6 * ratio,
f8 = f7 * ratio, //CLIMAX
f9 = f8 * ratio2,
f10 = f9 * ratio2,
f11 = f10 * ratio2,
f12 = f11 * ratio2,
f13 = f12 * ratio2,

partials = 9,
a1 = 0.1; //duration

// NOTEs
SystemClock.sched(0.0, { //0'00

Pbind(
\freq, Pseq([f1, f1 * 2, f1 * 3, f1 * 5, f1 * 8, f1 * 13, f1 * 21, f1 * 34, f1 * 55],1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur],9),
\instrument, "Europa"
).play;

});

SystemClock.sched(9.0, { //0'09

Pbind(
\freq, Pseq([f2, f2 * 2, f2 * 3, f2 * 5, f2 * 8, f2 * 13, f2 * 21, f2 * 34, f2 * 55], 1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur],9),
\instrument, "Europa"
).play;

});

SystemClock.sched(18.0, { //0'18

Pbind(
\freq, Pseq([f3, f3 * 2, f3 * 3, f3 * 5, f3 * 8, f3 * 13, f3 * 21, f3 * 34, f3 * 55],1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur * 2],9),
\instrument, "Europa"
).play;

});

SystemClock.sched(30.0, { //0'30

Pbind(
\freq, Pseq([f4, f4 * 2, f4 * 3, f4 * 5, f4 * 8, f4 * 13, f4 * 21, f4 * 34, f4 * 55],1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur * 3],9),
\instrument, "Europa"
).play;

});

SystemClock.sched(45.0, { //0'45

Pbind(
\freq, Pseq([f5, f5 * 2, f5 * 3, f5 * 5, f5 * 8, f5 * 13, f5 * 21, f5 * 34, f5 * 55],1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur * 5],9),
\instrument, "Europa"
).play;

});

SystemClock.sched(66.0, { //1'06

Pbind(
\freq, Pseq([f6, f6 * 2, f6 * 3, f6 * 5, f6 * 8, f6 * 13, f6 * 21, f6 * 34, f6 * 55],1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur * 8],9),
\instrument, "Europa"
).play;

});

SystemClock.sched(96.0, { //1'36

Pbind(
\freq, Pseq([f7, f7 * 2, f7 * 3, f7 * 5, f7 * 8, f7 * 13, f7 * 21, f7 * 34, f7 * 55],1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur * 13],9),
\instrument, "Europa"
).play;

});

SystemClock.sched(141.0, { //2'21

Pbind(
\freq, Pseq([f8, f8 * 2, f8 * 3, f8 * 5, f8 * 8, f8 * 13, f8 * 21, f8 * 34, f8 * 55],1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur * 21],9),
\instrument, "Europa"
).play;

});

SystemClock.sched(210.0, { //3'30

Pbind(
\freq, Pseq([f9, f9 * 2, f9 * 3, f9 * 5, f9 * 8, f9 * 13, f9 * 21, f9 * 34, f9 * 55],1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur * 8],9),
\instrument, "Europa"
).play;

});

SystemClock.sched(240.0, { //4'00

Pbind(
\freq, Pseq([f10, f10 * 2, f10 * 3, f10 * 5, f10 * 8, f10 * 13, f10 * 21, f10 * 34, f10 * 55],1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur * 5],9),
\instrument, "Europa"
).play;

});

SystemClock.sched(261.0, { //4'21

Pbind(
\freq, Pseq([f11, f11 * 2, f11 * 3, f11 * 5, f11 * 8, f11 * 13, f11 * 21, f11 * 34, f11 * 55],1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur * 3],9),
\instrument, "Europa"
).play;

});

SystemClock.sched(276.0, { //4'36

Pbind(
\freq, Pseq([f12, f12 * 2, f12 * 3, f12 * 5, f12 * 8, f12 * 13, f12 * 21, f12 * 34, f12 * 55],1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur * 2],9),
\instrument, "Europa"
).play;

});

SystemClock.sched(288.0, { //4'48

Pbind(
\freq, Pseq([f13, f13 * 2, f13 * 3, f13 * 5, f13 * 8, f13 * 13, f13 * 21, f13 * 34, f13 * 55], 1),
\dur, Pseq([a1 * 55, a1 * 34, a1 * 21, a1 * 13, a1 * 8, a1 * 5, a1 * 3, a1 * 2, a1],1),
\sustain, Pseq([baseDur],9),
\instrument, "Europa"
).play;

});

)

---

.forum - week twelve.

This week we watch a few DJing tutorials, including an interesting one called "How to Rock a Party," host by Z-Trip. He, like many in this area, has a pretty unusual way of speaking. I understand he is ranked something like the ninth best DJ in the world, and although he seemed a fair outgoing and outspoken bloke, he does not seem like he is conceited.

We watch the "Window Licker" video clip made by Chris Cunningham. To be honest, so far I have not really gotten into his work. Having said that, he has worked with a slew of fantastic eletronica artists from the brilliant Warp label.



.sources.

Whittington, Stephen 05.06.08, "Scratch & Video Clips," Forum of EMU, Adelaide University.

---

relax and enjoy...

.cc - week ten.

This week in SuperCollider I have added another line to the melodic stream and added some modal transposition.


stream3.rtf (4 kB)


(

s = Server.local;

SynthDef( "PlesantAdventure", {

arg freq, dur=1.0;

var osc;

osc = SinOsc.ar( [freq,freq+0.05.rand] ) * EnvGen.ar(

Env.perc(0.05, 0.75, 0.75, -4), doneAction: 2, levelScale: 0.3, timeScale: dur

);

Out.ar(0,osc);

}).send(s);

)

(

var line1,
line2;

line1 = Pbind(
\instrument, "PlesantAdventure",
\dur, 0.15,
\degree, Pseq([ Pshuf(#[0, 3, 7], 3), Pseq([0, 6, 7]) ], 1)
);

line2 = Paddp(
\mtranspose,
Pseq( [0, 3, 6, 2, 5, 1, 4]),
Ppar([
line1,
Padd(\mtranspose, 7, line1),
Padd(\mtranspose, -2, line1)
])
);


Pseq([
line1,
line2,
Pstretch(1.5, line2)
], inf).play
)




.sources.

Haines, Christian 22.06.08, "Streams (3)," Lecture of EMU, Adelaide University.

---