Killing Me Softly

/******************************************/
// Jonathan Coon
// A2: Modulations (AM and FM)
// MUSC 115 - Experimental Sound Design
// Santa Clara University
// 11/4/2014
/******************************************/

// This piece is comprised of synthesizers that utilize Amplitude Modulation,
// Phase Modulation, and Frequency Modulation.

/************************/
// SYNTH DEFINITIONS
/************************/

(
SynthDef("glitch", { arg freq = 440, modfreq = 5, amp = 0.5, attack = 0.01, release = 0.1, pos = 0, gate = 1;
	var carrier, modulator, env;
	modulator = Blip.ar(modfreq).range(-1, 1);
	carrier = Pulse.ar(freq: freq, mul: modulator);
	env = Env.asr(
		attackTime: attack,
		sustainLevel: amp,
		releaseTime: release).kr(doneAction: 2, gate: gate);
	carrier = carrier + env;

	Out.ar(0, Pan2.ar(Limiter.ar(carrier, 0.8), pos))
}).add;
)

(
SynthDef("pmosc", {arg freq = 440, modfreq = 250, pmindex = 12, dur = 1, amp = 0.1, attack = 0.01, release = 0.3, gate = 1, pos = 0, verbMix = 0.9, verbSize = 0.9, verbDamp = 0.0001;
    var env = Env.asr(
        attackTime: attack,
        sustainLevel: amp,
        releaseTime: release).kr(doneAction: 2, gate: gate);
    var snd = PMOsc.ar(
		carfreq: freq,
		modfreq: modfreq,
		pmindex: Line.kr(0.0, pmindex, dur));
	snd = FreeVerb.ar(in: snd, mix: verbMix, room: verbSize, damp: verbDamp);
    snd = LinPan2.ar(in: snd, pos: pos, level: env);
    Out.ar(0, snd)
}).add;
)

(
SynthDef("FM2", {arg freq = 440, modfreq = 5, modindex = 10, amp = 0.1, pos = 0, gate = 1, attack = 0.01, release = 0.3;
	var carrier, modulator, freqdev, env;
	// i = d/m, so d = m*i
	freqdev = modfreq * modindex;
	modulator = SinOsc.ar(freq: modfreq, mul: freqdev);
	carrier = SinOsc.ar(freq: freq + modulator);
	env = Env.asr(
		attackTime: attack,
		sustainLevel: amp,
		releaseTime: release
	).kr(doneAction: 2, gate: gate);
	carrier = Pan2.ar(in: carrier, pos: pos, level: env);
	Out.ar(0, carrier * 0.5);
}).add;
)

/************************/
// ARRANGEMENT
/************************/

s.record("/Users/jdcoon/SCU/Fall 2014/MUSC 115/A2/Modulations-Jonathan_Coon.wav");
s.stopRecording;

(
Pseq(
	[
		~glitch1,
		Pn(~glitch2, 2),
		Ppar([~glitch1, Pn(~glitch2, 2)], 1),
		Ppar([~glitch3, Pn(~glitch1, 2)], 1),
		Ppar([~glitch3, Pn(~glitch1, 2), Pn(~whales,2)], 1),
		~sines1,
		~sines2,
		Ppar([~whales, ~sines3], 1),
		Ppar([~whales, ~sines4], 1),
		Ppar([~whales, ~sines5], 1),
		Ppar([~whales, ~sines5, ~sines6], 1),
		~failure,
		Ppar([~freqOut, ~digitalExplosion]),
	]
).play;
)

/************************/
// PATTERNS
/************************/

(
~glitch1 = Pbind(
	\instrument, "glitch",
	\freq, Pseries(100, 50, 20),
	\modfreq, Pseq([1, 500, 10, 50, 100], inf),
	\amp, 0.5,
	\attack, 0.02,
	\release, 0.1,
	\pos, Pwhite(-1, 1),
	\dur, Prand([0.1, 1], inf)
);
)

(
~glitch2 = Pbind(
	\instrument, "glitch",
	\freq, Pseries(100, 50, 40),
	\modfreq, Pseq([1, 500, 10, 50, 100], inf),
	\amp, 0.5,
	\attack, 0.02,
	\release, 0.1,
	\pos, Pwhite(-1, 1),
	\dur, 0.1
);
)

(
~glitch3 = Pbind(
	\instrument, "glitch",
	\freq, Pn([0.00001], 64),
	\modfreq, Pwhite(1, 10.0),
	\amp, 0.2,
	\attack, 0.02,
	\release, 0.1,
	\pos, Pwhite(-1, 1),
	\dur, Pwhite(0.0001, 0.7)
);
)

(
~whales = Pbind(
    \instrument, "pmosc",
	\dur, Pwhite(0.01, 0.1, 225),
	\scale, Scale.harmonicMajor,
    \degree, Pwhite(-12, 12),
	\ctranspose, -12,
    \modfreq, Pwhite(10, 500)/100,
    \pmindex, Pwhite(5, 12)*1,
    \amp, Pwhite(0, 0.9),
	\attack, Pwhite(1, 3)/5,
	\release, Pwhite(5, 9)/5,
	\pos, Pwhite(-1, 1.0),
	\verbMix, 0.5,
	\verbSize, 1,
	\verbDamp, 0.1
);
)

(
~sines1 = Pbind(
    \instrument, "pmosc",
	\dur, Pwhite(0.1, 10.0, 7),
    \freq, Pwhite(20, 1000),
    \modfreq, Pwhite(10, 500),
    \pmindex, Pwhite(5, 12),
    \amp, Pwhite(0, 0.5),
	\attack, Pwhite(1, 3),
	\release, Pwhite(5, 9),
	\pos, Pwhite(-1, 1.0),
	\verbMix, 1,
	\verbSize, 1,
	\verbDamp, 0.5
);
)

(
~sines2 = Pbind(
    \instrument, "pmosc",
	\dur, Pwhite(0.1, 1, 32),
    \freq, Pwhite(20, 1000),
    \modfreq, Pwhite(10, 500)*10,
    \pmindex, Pwhite(5, 12)*500,
    \amp, Pwhite(0, 0.5),
	\attack, Pwhite(1, 3),
	\release, Pwhite(5, 9),
	\pos, Pwhite(-1, 1.0),
	\verbMix, 0.1,
	\verbSize, 1,
	\verbDamp, 0.5
);
)

(
~sines3 = Pbind(
    \instrument, "pmosc",
	\dur, Pwhite(0.1, 1, 20),
	\scale, Scale.yu,
    \degree, Pwhite(-12, 12),
	\ctranspose, -1,
    \modfreq, Pwhite(10, 500)*10,
    \pmindex, Pwhite(5, 12)*100,
    \amp, Pwhite(0, 0.5),
	\attack, Pwhite(1, 3),
	\release, Pwhite(5, 9),
	\pos, Pwhite(-1, 1.0),
	\verbMix, 0.1,
	\verbSize, 1,
	\verbDamp, 0.5
);
)

(
~sines4 = Pbind(
    \instrument, "pmosc",
	\dur, Pwhite(0.1, 0.5, 45),
	\scale, Scale.yu,
    \degree, Pwhite(-12, 12),
	\ctranspose, 24,
    \modfreq, Pwhite(10, 500)*10,
    \pmindex, Pwhite(5, 12)*100,
    \amp, Pwhite(0, 0.5),
	\attack, Pwhite(1, 3),
	\release, Pwhite(5, 9),
	\pos, Pwhite(-1, 1.0),
	\verbMix, 0.1,
	\verbSize, 1,
	\verbDamp, 0.5
);
)

(
~sines5 = Pbind(
    \instrument, "pmosc",
	\dur, Pwhite(0.1, 0.5, 45),
	\scale, Scale.harmonicMajor,
    \degree, Pwhite(-12, 12),
	\ctranspose, -12,
    \modfreq, Pwhite(10, 500)*100,
    \pmindex, Pwhite(5, 12)*10,
    \amp, Pwhite(0, 0.5),
	\attack, Pwhite(1, 3),
	\release, Pwhite(5, 9),
	\pos, Pwhite(-1, 1.0),
	\verbMix, 0.1,
	\verbSize, 1,
	\verbDamp, 0.5
);
)

(
~sines6 = Pbind(
    \instrument, "pmosc",
	\dur, Prand([0.01, 0.5, 0.1, 0.7, 0.2, 0.3], 64),
	\scale, Scale.harmonicMajor,
    \degree, Pwhite(-12, 24),
	\ctranspose, -12,
    \modfreq, Pwhite(10, 500)*100,
    \pmindex, Pwhite(5, 12)*10000,
    \amp, Pwhite(0, 0.5),
	\attack, Pwhite(1, 3)/100,
	\release, Pwhite(5, 9)/1000,
	\pos, Pwhite(-1, 1.0),
	\verbMix, 0,
	\verbSize, 1,
	\verbDamp, 0.5
);
)

(
~failure = Pbind(
    \instrument, "FM2",
    \dur, 0.03,
	\degree, 1,
	\ctranspose, 0,
	\modfreq, Pseries(100000, -1, 770),
    \pmindex, 1,
    \amp, 0.9,
	\attack, 0.1,
	\release, 0.1,
	\pos, Pwhite(-1, 1.0)
);
)

(
~freqOut = Pbind(
    \instrument, "FM2",
    \dur, 0.01,
	\freq, Pwhite(420,460),
	\modfreq, Pseq((0.5,7..50000),1),
    \modindex, 1000000,
    \amp, 10,
	\attack, 1,
	\release, 1,
	\pos, Pwhite(-1, 1.0)
);
)

(
~digitalExplosion = Pbind(
    \instrument, "FM2",
    \dur, 0.01,
	\freq, Pwhite(200,960),
	\modfreq, Pseq((0.5,7..5000),1),
    \modindex, 100000,
    \amp, 2,
	\attack, 0.1,
	\release, 1,
	\pos, Pwhite(-1, 1.0)
);
)


Digital Disquiet - A2: Modulations (AM and FM) [musc-115-modulations]

Ashes ashes

No One At All: Jam

Girls just want to have fun...

Lyrics by Rebecca Bjerke
Literally Everything Else by Dillon Bartell

Digital Disquiet - A2: Modulations (AM and FM) [musc-115-modulations]

Jonathan Coon

Related tracks