https://twitter.com/sosoBOTpi/status/959181020363816960 の音源のソースコード

kin2lia1.scd

~stususn =0.809263;

(
 SynthDef("kin2lia1",  {
    arg note=0, amp=1;
    var a = (note+61.478).midicps;
    var duration = 2.5*~stususn;
    var factor = 0.8;
	var divisor = 1.0+factor+(factor*factor)+(factor*factor*factor)+(factor*factor*factor*factor);
    var snd = LPF.ar(
            freq:Env.linen(0.01,0, 1.1*duration,a*14).kr(2),
            in:
             Env.perc(0.01, duration, level:amp/divisor).kr(2)*
             (SinOsc.ar(a, rrand(0,2*pi), mul: 1)+
              SinOsc.ar(a*2.76, rrand(0,2*pi), factor)+
              SinOsc.ar(a*5.4,  rrand(0,2*pi), factor*factor)+
              SinOsc.ar(a*8.93,  rrand(0,2*pi), factor*factor*factor)+
              SinOsc.ar(a*13.34,  rrand(0,2*pi), factor*factor*factor*factor)
             )
        );
    Out.ar(0, snd);
}).add;
)

Synth("kin2lia1", [\note, 11, \amp, 0.2]);
Synth("kin2lia1", [\note, 13, \amp, 0.2]);
Synth("kin2lia1", [\note, 15, \amp, 0.2]);
Synth("kin2lia1", [\note, 16, \amp, 0.2]);
Synth("kin2lia1", [\note, 18, \amp, 0.2]);

(
s.record;

Pbind(
 \instrument, "kin2lia1",
 \degree, Prand([0,1,2,3,4,5,6,7],inf),
 \dur, Prand([0.5*~stususn, 0.25*~stususn], inf),
 \amp, Pwhite(0.5, 1),
 ).play;

s.stopRecording;
s.makeWindow;
)