luka
/
ark_d.amorphic
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

untabify

chaos_201207
Luka Prinčič 2020-07-08 15:00:54 +02:00
parent 70c3c0101b
commit c520d49c9e
1 changed files with 88 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
work/bufCyc.scd
View File

@ -11,10 +11,7 @@
( (
SynthDef(\bufCyc, { SynthDef(\bufCyc, {
arg bufnum, gate=1, freq=440, chanDetune=1, out=0, amp = 1, arg bufnum, gate=1, freq=440, chanDetune=1, out=0, amp = 1,
attackTime=0.01, releaseTime=1, attackTime=0.01, releaseTime=1, fltfact = 1;
fltfact = 1
;
var snd, env; var snd, env;
env = Linen.kr(gate, attackTime:attackTime, releaseTime:releaseTime, doneAction:2); env = Linen.kr(gate, attackTime:attackTime, releaseTime:releaseTime, doneAction:2);
@ -24,7 +21,6 @@ SynthDef(\bufCyc, {
snd = BufRd.ar( snd = BufRd.ar(
numChannels: 1, numChannels: 1,
bufnum: bufnum, bufnum: bufnum,
//phase: LFSaw.ar(BufDur.ir(bufnum).reciprocal).range(0, BufFrames.ir(bufnum)),
phase: LFSaw.ar(freq).range(0, BufFrames.ir(bufnum)), phase: LFSaw.ar(freq).range(0, BufFrames.ir(bufnum)),
loop: 1, loop: 1,
interpolation: 2); interpolation: 2);
@ -34,8 +30,8 @@ SynthDef(\bufCyc, {
snd = RLPF.ar(snd, (freq * fltfact).min(20000), rq: 0.3).clip2(1.0.linrand+0.8); snd = RLPF.ar(snd, (freq * fltfact).min(20000), rq: 0.3).clip2(1.0.linrand+0.8);
snd = snd * amp * env; snd = snd * amp * env;
Out.ar(out, snd);
Out.ar(out, snd);
}).add; }).add;
) )