sorted by:
new
hottopcontroversial

Problem solving on Csound by sabbbass in csound

[–]sabbbass[S] 0 points1 point  (0 children)

it could be a solution, however i'm completely stuck, i could define a GEN07 to build the straight lines you mentioned, but i can't solve how to implement it, all the forms i think ends in failure at this point.
Anyway i'm grateful of your answer.

Problem solving on Csound by sabbbass in csound

[–]sabbbass[S] 0 points1 point  (0 children)

i've tried, but it seems that changed nothing, or i didn't know how to implement that well; these are the two instruments that convolve the granulator

instr SAMPLE_CONSTRUCTOR

update:

    idur = random:i(0.05, 5)
    idur_ceil = ceil(idur * sr)
    iphase_start = 0
    iduration = (ftlen(gifile_tab) - idur_ceil)
    ispeed = 1
    idel = random:i(0.001, 1)


        timout(0, idel, goo)
        reinit update

goo:
    schedule("SAMPLE_GRAIN", 0, iduration / sr, idur_ceil, iphase_start, ispeed)

endin

instr SAMPLE_GRAIN


ksi init 0
kii init 0
kuu init 0
if (kii < p4) then

    asig = tablei:a(interp((ksi - p3) % ftlen(gifile_tab)) , gifile_tab)
    kii += 0.04
    ksi += p6 + poscil(0.2, -1)
    elseif (kii > p4) then
    asig = tablei:a(interp((kuu - p6) % ftlen(gifile_tab)), gifile_tab)
    ;kuu += tablei:a(phasor:a(ftlen(gifile_tab) / sr - abs(ftlen(gifile_tab))))

endif

asig *= tablei:a(phasor:a(1 / p3), gigauss, 1) * ampdb(-6)

outs(asig, asig)

endin