Synthruary 2 - arpeggiators

(

~root = 200;
TempoClock.tempo = 2;


~h3 = Pbind(\instrument, "sosHats",
	\freq, Prand(~root * [6,9,10,11],inf),
	\dur, Prand([1,1/2,Rest(1),Rest(1/2)],inf),
	\amp, 0.035
).play;
	

~h2 = Pbind(\instrument, \cymbal808,
	\freq, ~root *2,
	\dur, Pseq([Rest(16),Pseq([Rest(1), 1], inf)]),
	\amp, 0.35
).play;


~a = Pbind(\instrument ,"kick808",
	\dur, Pseq([Rest(32), Pseq([Pseq([1], 8), Prand([Pseq([1/4], 32), Pseq([1/4,1/8,1/4,1/2,7/8]*2, 2)])], inf)]),
	\freq, 50,
	\amp, 0.35
).play;

~b = Pbind(\instrument ,"kick_oto309",
	\dur, Pseq([Pseq([2], 8), Pseq([1/4,3/4], 16)], inf),
	\freq, 50,
	\amp, 0.1
).play;

~sn = Pbind(\instrument,\clapOto309,
	\freq, Prand(~root * [1,2,3,4,5,6], inf),
	\dur, Pseq([Rest(16), Pseq([Pseq([Rest(2), 1, Rest(1)],16), Rest(32)],inf)])
	).play;

s.record;
)

Synthruary 9 - Beat

// to generate a song like this one, evaluate this multiple times. Then concatenate the recordings with tasteful amounts of space between then.
(
// fleeting feelings 2
var origin = 1028;
var root = [origin, 100, 200]*[1,4,8,0.25,0.5,2/3,6];
var selections = (1..6);
var cps =  1/128;
var notes = (root/selections);
var seq = 2.pow((-4..4));
var curr = 0;
var range = 1;
var walk = {|p, s|
	p ++ (s * (3/2).pow(curr));
};

var def = SynthDef.new(\sin, {arg freq;
	Out.ar(0, PulseDPW.ar(freq)!2);
});

128.do {|x|
	curr = curr + ((0 - range)..range).choose;
	notes = walk.value(notes, seq*root);
};

Pbind(\instrument, def, \freq, Pseq((notes/4) * seq,inf), \dur, cps).play;
s.record;
)

Synthruary 10 - Silence

( // Sample & Hold
~root = 25;


~sendBus = Bus.new;
~sampleBus = Bus.new;
~output = 0;


SynthDef(\source, {|out, freq|
	var carrier = 0;
	[Pulse, PulseDPW, Saw].do{|osc|
		carrier = carrier + osc.ar(freq)*Env.perc.ar(doneAction:2);
	};

	Out.ar(out, carrier!2);
}).add;


SynthDef(\sampler, {|mod|
	var modulator = SinOsc.ar(1/3) + SinOsc.ar(1/4);
	var carrier = In.ar(~sendBus, 2);
	var sig = carrier * modulator;
	var louder = Compander.ar(sig, sig, 0.9, slopeBelow: 4);

	Out.ar(~sampleBus, louder!2);
}).add;


SynthDef(\holder, {|rate|
	var carrier = In.ar(~sampleBus, 2);
	var sig = carrier * Pulse.ar(1/8);

	Out.ar(~output, sig!2);
}).add;


// make a musical pattern, send it to a silent channel
Pbind(\instrument, \source,
	\freq, Pseq(1.5.pow([0 ,-1, 0,1, 0, 1, 2, -1]).collect(_*[4,5,6,15]).flatten * ~root, inf),
	\dur, Prand([1/2, 1/4, 1/8], inf),
	\out, ~sendBus
).play;


// take random samples from the source
Synth(\sampler);

// sustain the samples from the sampler
Pbind(\instrument, \holder,
	\rate, Prand([1/8,1/4, 1/2, 1, 2, 4, 8, 16, 32].reciprocal)
).play;

Synth(\holder);

s.record
)

Synthruary 15 - Sample & Hold

( // Three pitches
var root = 12.5;
var selections = [30,26,22];
var synths = [
	SynthDef.new(\sine, {|freq|
		var oscs = [SinOsc, FSinOsc, SinOscFB].dup(3).flatten;
		var sig = 0;
		oscs.do({|osc, i|
			sig = sig + osc.ar(freq: freq + (0.1 * i), mul: 1/3 * oscs.size.reciprocal)* Env.perc.ar(doneAction:2);
		});
		Out.ar(0, sig!2);
	}).add,

	SynthDef.new(\saw, {|freq|
		var oscs = [Saw, SawDPW, Saw].dup(4).flatten;
		var sig = 0;
		oscs.do({|osc, i|
			sig = sig + osc.ar(freq: freq + (0.01 * (-1 - i)), mul: 1/3 * oscs.size.reciprocal)* Env.perc.ar(doneAction:2);
		});
		Out.ar(0, sig!2);
	}).add,

	SynthDef.new(\square, {|freq|
		var oscs = [Pulse, PulseDPW, Pulse].dup(5).flatten;
		var sig = 0;
		oscs.do({|osc, i|
			sig = sig + osc.ar(freq: freq + (0.001 * (i+2)), mul: 1/3 * oscs.size.reciprocal)*Env.perc.ar(doneAction:2);
		});
		Out.ar(0, sig!2);
	}).add
];

var r = SynthDef.new(\reverb, {
	var sig = In.ar(0, 2);
	Out.ar(0,FreeVerb2.ar(sig, sig, 1, 1, mul: 0.05));
}).add;

var notes = selections.collect(root*_);

Pbind(\instrument, Prand(synths, inf),
	\freq, notes.at(0),
	\dur, Prand([1,2,3], inf)
).play;

Pbind(\instrument, \sine,
	\freq, notes.at(1),
	\dur, Prand([3, 6, 3, 1.5], inf)
).play;

Pbind(\instrument, \saw,
	\freq, notes.at(2),
	\dur, Pseq([Pseq([1/5, 3/4, 1/5, 1/5, 1/4, 1/5, 1/5] * 2),Pseq([1/3, 1/2, 1/3, 1/3, 1/2] / 2)],inf)
).play;

Pbind(\instrument, \square,
	\freq, notes.at(2),
	\dur, Pseq([1,1/2, 1/2], inf)
).play;

Synth(\reverb);

s.record;
)

Synthruary 17 - Three Pitches

This is music I composed in 133 lines of SuperCollider code.

Inspired by Bach and Laurie Spiegel.

Baroque Fantasy

These are all of the chords I found in the Overtone and Undertone series.
This is without modulating the tonic.
Generated using SuperCollider. Contact by email (in bio) for questions and info.

Progression of all chords found in overtone and undertone series

Synthruary xx - Some Beat

Composition - 4-with - Beat

you can't copyright a chord progression :) 
generative beat and the chord progression of "That's What I Want" by Lil Nas X

Thats What I want [ pastiche ]

A Meaningful Thing

Hi! I'm a music robot. I say bloop and bleep and write a lot of songs very fast. Hear me change over time!

contact
nil@synthony.app

nil-arity

Popular tracks