Succulent, after Bourke

SuperCollider

Succulent, after Bourke

Part of a series of Patches that use L-Systems to generate something like ragas.

The all use structures like:
axiom: A
rules:
A =>[FY]A[FXA]
F => XF
X => FY
Y => [F+F+F][F-F-F]

Noes base on Raga: Punnaag-avaraali

Up 2*9/5, 1, 16/15, 6/5, 4/3, 3/2, 8/5, 9/5
Dn 9/5, 8/5, 3/2, 4/3, 6/5, 16/15, 1, 2*9/5

Audio example: https://poetaster.de/supercollider-lsystems/succulent.mp3

Some more notes and numerous other examples can be found here: https://github.com/poetaster/supercollider-lsystems

Three of the patches can be seen in action at: https://poetaster.de/sc-ls/

[audio src="https://poetaster.de/supercollider-lsystems/succulent.mp3" /]

/*
// poetasters succulent 1
axiom: A
rules:
 A =>[FY]A[FXA]
 F => XF
 X => FY
 Y => [F+F+F][F-F-F]

Raga: Punnaag-avaraali
U 2*9/5, 1, 16/15, 6/5, 4/3, 3/2, 8/5, 9/5
D 9/5, 8/5, 3/2, 4/3, 6/5, 16/15, 1, 2*9/5
sitar, partial
48.midicps * [1, 16/15, 5/4, 4/3, 3/2, 8/5, 15/8, 2, 2*16/15, 2*5/4, 2*4/3, 2*3/2];

*/
(
// required quark
Quarks.install("https://github.com/shimpe/sc-lsystem");
)

(
s.waitForBoot({
    var player;

var lsys = LSystem(
        iterations:4,
        axiom:"A",
        constants:Set[],
        rules:(
			\A : "[FY]A[FXA]",
			\F : "XF",
			\X : "FY",
			\Y : "[F+F+F][F-F-F]"
	));

// always return state at the end
                [glob, loc];
            }, nil],
            // whenever you encounter an X, remove first note from the played notes
            'X' : [{ | glob, loc |
                glob[\tempo] = [0.8, 0.4, 0.2, 0.4].choose;
				glob[\lag] = (glob[\lag] + 0.3).clip(0,2);
                // always return state at the end
                [glob, loc];
            }, nil],
			//[0.1, 0.2, 0.3, 0.4, 0.5].choose;
            // whenever you encounter a Y, change tempo (randomly) )
            'Y' : [{ | glob, loc |
				glob[\lag] = (glob[\lag] - 0.1).clip(0,2);
				//glob[\patternnotes] = glob[\patternnotes].add(glob[\customnotes].choose.debug("add new custom"));
				glob[\tempo] = [0.2, 0.4].choose;
                // always return state at the end
                [glob, loc];
            }, nil],
        )
    );

var interp2 = interp.deepCopy();

SynthDef(\kalimba, {
        |out = 0, freq = 440, amp = 2, mix = 0.2, rel=1.4|
        var snd, click;
        // Basic tone is a SinOsc
        snd = SinOsc.ar(freq) * EnvGen.ar(Env.perc(0.03, rel, 1, -7), doneAction: 2);
        snd = HPF.ar( LPF.ar(snd, 380), 120);
        // The "clicking" sounds are modeled with a bank of resonators excited by enveloped white noise
        click = DynKlank.ar(`[
            // the resonant frequencies are randomized a little to add variation
            // there are two high resonant freqs and one quiet "bass" freq to give it some depth
            [240*ExpRand(0.97, 1.02), 2020*ExpRand(0.97, 1.02), 3151*ExpRand(0.97, 1.02)],
            [-9, 0, -5].dbamp,
            [0.8, 0.07, 0.08]
        ], BPF.ar(PinkNoise.ar, 6500, 0.1) * EnvGen.ar(Env.perc(0.001, 0.01))) * 1;
        snd = (snd*mix) + (click*(1-mix));
        snd = Mix( snd );
        Out.ar(out, Pan2.ar(snd, 0, amp));
    }).add;

SynthDef(\blips, {arg out = 0, freq = 440, numharm = 11, att = 0.01, rel = 0.7, amp = 1, pan = 0.3;
		var snd, env;
		env = Env.perc(att, rel, amp).kr(doneAction: 2);
		snd = BPF.ar(LeakDC.ar(Mix(Blip.ar([freq, freq*1.01], numharm, env))), 440, 0.4);
		Out.ar(out, Pan2.ar(snd, pan));
	}).add;

SynthDef("bird", { arg out, freq, sustain=0.7, amp=0.5, pan;
		var env, u=1;
		env = EnvGen.kr(Env.perc(0.01, sustain), 1, doneAction: Done.freeSelf);
		5.do { var d; d = exprand(0.01, 1); u = SinOsc.ar(d * 300, u, rrand(0.1,1.2) * d, 1) };
		Out.ar(out, Pan2.ar(SinOsc.ar(u + 1 * freq, 0, amp * env), pan));
	}).add;

SynthDef("plucking", { arg amp = 0.1, freq = 440, decay = 2, coef = 0.3;
		var env, snd;
		env = EnvGen.kr(Env.linen(0, decay, 0), doneAction: 2);
		snd = Pluck.ar(
			in: WhiteNoise.ar(amp),
			trig: Impulse.kr(0),
			maxdelaytime: 0.1,
			delaytime: freq.reciprocal,
			decaytime: decay,
			coef: coef);
		Out.ar(0, [snd, snd]);
	}).add;

s.sync;
    // up the rate a bit
	TempoClock.default = TempoClock.new(1.5);

fork {
        var skipfirstidx = 0; // increase to skip more steps at the beginning
        var sz = lsys.getCalculatedString.size();
		var p, q, pattern;

Pbindef(\p, \instrument, \plucking, \amp, 0.07, \decay, 2);
		Pbindef(\q, \instrument, \kalimba, \amp, 0.4, \rel, 1.4);
		Pbindef(\r, \instrument, \bird, \amp, 0.04, \rel, 0.2);

lsys.getCalculatedString.do({
            | chr, idx |

var transposedpattern;
            var trans;
            var trans2;
			var n1, n2, l, l2, t, t2, ts, ampl;
            ("*** PART" + (idx+1) + "OF" + sz + "***").postln;
            interp.step(idx);
            interp2.step(idx);
            // start playing from step skipfirstidx
            if (idx > skipfirstidx) {
                var repeats = 1;
                if (idx == (sz-1)) { repeats = 3; }; // don't repeat last pattern indefinitely
                trans = interp.globalState()[\transpose].debug("trans");
                trans2 = interp2.globalState()[\transpose].debug("trans2");

n1 = Pseq(trans * interp.globalState()[\patternnotes].debug("n1"),repeats);
				n2 = Pseq(trans2 * interp2.globalState()[\patternnotes].debug("n2"),repeats);

l = interp.globalState()[\lag].debug("lag");

t = interp.globalState()[\tempo].debug("tempo");
                t2 = interp2.globalState()[\tempo].debug("tempo2");
				ts = t + t2;

ampl = 0.06;
				if (trans2 >1.5 ) { ampl = 0.05 };

pattern = Ppar([
					if (t2 > 0.2) {
						Pbindef(\p, \dur, t2, \freq, n2, \legato, l, \decay, ts + t2, \amp, ampl )},
					Pbindef(\q, \dur, t, \freq, n1, \legato, l,  \rel, ts ),
					Pbindef(\r, \dur, t2, \freq, n2, \legato, l,  \rel, ts + t2, \pan, [t2, (0 - t2) ].choose )
				]);

if (player.notNil) { player.stop; };

player = pattern.play();

1.wait;
                if (idx == (sz-1)) {
                    "*** ABOUT TO FINISH ***".postln;
                };
            }

});
    }

});
)

You must be logged in to post a comment.

poetaster

24 PM

Platform: SuperCollider
Category: Composition Synthesizer
Revision: 0.1
License: GNU Lesser General Public License v3.0
Modified: 7 months ago
Views: 133

Likes: 1

Downloads: 8

Download

Source Chat

Succulent, after Bourke

Leave a Reply