#sctoot — Public Fediverse posts

@draco variation, raga
<pre>
({var freq; freq = Duty.kr(Dseq(Dconst(4, 0.6666), inf),0,
Dseq([1, 16/15, 5/4, 4/3, 3/2, 8/5, 15/8, 8/5, 4/3, 3/2, 15/16, 5/4,1] * 220, inf)); FreeVerb.ar(BLowPass4.ar(
DynKlank.ar(`[[1, 3, 5, 7, 11] * freq,[1, 0.5, 0.33333, 0.25, 0.2].normalize,[1, 0.5, 0.3333, 0.25, 0.2]], Impulse.ar([1.01, 1]),1.0,0.0,Env([0.75, 2, 0.5], [12, 24], \welch, 1, 0).kr),
Env([600, 4800, 2400, 1200, 600],[8, 12, 12, 24],\sin,3,0).kr,0.5),0.33,0.75,0.75,0.5)}.play;
)
</pre> #sctoot

#SuperCollider #sctoot
({var freq; freq = Duty.kr(Dseq(Dconst(4, 0.6666), inf),0,Dseq([1, 6/5, 5/4, 4/3, 3/2] * 220, inf)); FreeVerb.ar(BLowPass4.ar(DynKlank.ar(`[[1, 3, 5, 7, 11] * freq,[1, 0.5, 0.33333, 0.25, 0.2].normalize,[1, 0.5, 0.3333, 0.25, 0.2]],Impulse.ar([1.01, 1]),1.0,0.0,Env([0.75, 2, 0.5], [12, 24], \welch, 1, 0).kr),Env([600, 4800, 2400, 1200, 600],[8, 12, 12, 24],\sin,3,0).kr,0.5),0.33,0.75,0.75,0.5)}.play;)

{Pan2.ar(Pulse.ar(LFPulse.kr(1/2,0.5).range(40.midicps,47.midicps)*LFPulse.kr(1/8).range(1,4))*LFPulse.kr(8,0,SinOsc.kr(0.05).range(0.1,0.9)),SinOsc.kr(1,0,10).clip2,0.2)}.play // #sctoot #OneLineVersion

(
{
var snd = Pulse.ar(
LFPulse.kr(1/2, 0.5)
.range(40.midicps,
47.midicps)
*
LFPulse.kr(1/8)
.range(1,4)
)
*
LFPulse.kr(
8,
width: SinOsc.kr(0.05)
.range(0.1,0.9)
);

Pan2.ar(
in: snd,
pos: SinOsc.kr(1, 10).clip2,
level: 0.2);

}.play
)
#sctoot
#SuperCollider
:sccube:

// another version of drone with
// resonant low pass filters
(
150.do({{
RLPF.ar(
in: Saw.ar(
freq:71
+ [5.0.rand,
7.0.rand])
* 0.06,

freq: LFNoise1
.kr(0.1.rand + 0.01)
.exprange(50,10000),

rq: 0.5.rand
+ 0.1
)
}.play;})
)
// #sctoot #SuperCollider @LearnToMakeMusic

// how to quickly make
// a drone out of 100 sawtooth
// oscilators in #SuperCollider

(
100.do({
{Saw.ar(
freq: 71
+ [5.0.rand,
7.0.rand])
* 0.08
}.play;
})
)

// #sctoot

cannot stop listening to this warm sawtooth waveform

(play({ VarSaw.ar([50,50.3], 0, SinOsc.kr(0.01,1).range(0.05,0.95), 0.5)!2 + VarSaw.ar([101,99.3], 0, SinOsc.kr(0.06,0).range(0.2,0.8), 0.5)!2 * 0.2});)

#sctoot :sccube:

have Lorenz attractor provide you with intervals and lengths:

(
Pbind(
\dur, Pflatten(1,
Plorenz() * 0.2),
\legato, 0.2,
\degree, Plorenz()
).play;
)

#sctoot #ChaosTheory

(SynthDef(\wbl, {|out=0,wflo=1,wfhi=6,decay=0,gate=1,wfmax=8500,freq,iph|Out.ar(out,MoogVCF.ar((Saw.ar([freq,freq*1.025], mul:2)).clip2(0.5),LFCub.kr(LFPulse.kr(0.25,iph,0.25).range(wflo,wfhi)).exprange(40,wfmax),0.4,2)*Linen.kr(gate,releaseTime:0.01,doneAction:2))}).add;Pbind(\instrument,\wbl,\legato,0.98,\dur,4,\wflo,Prand([1,2,3],inf),\wfhi,Prand([4,6,8],inf),\wfmax,Pseq([4,6,3,1,9]*500,inf),\iph,Prand([0,0.25,0.5,0.75],inf),\degree,Pseq([2,0,-2,-2],8),\octave,3,).play;)
// #sctoot

had great fun with transpositions within Pbind.

I especially think "\mtransposition" - modal transposition is underexplored ATM.

not proper #sctoot because code is more than 1000 characters, so outside link is necessary, but anyway.. enjoy.

http://sccode.org/1-5cQ

#SuperCollider #audio #music #MastoArt #AlgoMusic

(SynthDef("plck", {|out,freq,cf|Out.ar(out,LeakDC.ar(Pluck.ar(PinkNoise.ar(1),Impulse.kr(0),0.1,freq.reciprocal,5,cf))*EnvGen.kr(Env.linen(0,5,0),doneAction:2))}).add;b=Bus.audio();play({var in=In.ar(b);Out.ar(0,in+JPverb.ar(in*0.5,t60:4))});Pbind(\instrument,\plck,\out,b,\scale,Scale.major,\octave,4,\degree,Pseq([1,3,7,8,Prand([7,10,11,13,14]),8,7,3],inf),\dur,Pseq([Pwrand([Pseq([0.2,0.2]),0.4,Pseq([0.1],4),Pseq([0.05],4)],[0.5,0.3,0.1,0.1])], 240),\cf,{1.0.rand}).play)// #sctoot #SuperCollider

some fun with #Henon chaotic generator.

(uncomment the line with Greyhole if you don't have sc3plugins)

(
// henonN synthdef FM to squarewave //

play({
var x = Pulse.ar(
HenonN.ar(
5000,
LFNoise2.kr(1,0.2,1.2),
LFNoise2.kr(1, 0.15, 0.15),
mul:0.6
).range(40, LFNoise2.kr(0.1).range(1000,10000)),
mul: 0.2).ring3(0.5).clip2(0.8);
x=LeakDC.ar(x).dup;
x= x+(Greyhole.ar(in:x, feedback:0.2, diff: 1, delayTime: 0.6) * 0.7);
})
)

#sctoot #SuperCollider #glitch #noise #chaos

@[email protected] nice! I am also a fan of the new #sctoot tag!

some sctweeting there on birbsite, actually a friend Lukas Nystrand posted something but twitter garbled it but i was curious so i fixed it a little

https://gitlab.com/snippets/1937709

#SuperCollider

play{Splay.ar({SinOsc.ar(LFDNoise1.kr(11,0.012,0.75)*LFDClipNoise.kr(0.4!5).range(0,5).midiratio*[60,63,67,70,48].midicps,0,LFDNoise1.kr(1!5,0.25,0.4)).sum}!2*0.5)};

#sctoot