Csound Csound-dev Csound-tekno Search About

Re: Whatever happened to...?

Date1998-10-28 19:14
FromMichael Tarleton
SubjectRe: Whatever happened to...?
My orch:

sr=44100
kr=4410
ksmps=10
nchnls=1


instr 1
        idur  = p3
        iamp  = p4
        icpm  = p5
        index = 3
        idev  = index*icpm
        irad1  irnd (1)
        irad2  irnd (1)
        iofst  ibirnd (.005)
        ifrda  irnd (3)
        ifrd1 = int (ifrda+1)
        icps  = int (icpm)

        kcenv      envlpx      iamp, .01, idur, idur*.03, 5, .5, .01
        amodo   oscili    idev, icps*(3+iofst), ifrd1, irad1
        amod    oscili    idev, icps*3        , ifrd1, irad1
        acar    oscili    kcenv, icps+amod+amodo, 1, irad2
        amod2   oscili    idev, icps*1.5        , ifrd1, irad1
        acar2   oscili    kcenv, icps*.5+amod, 1, irad2
        afilt   butterhp  acar, icps
        outs    afilt+(acar2*.3), afilt+(acar2*.3)
endin

My score: (for testing)

f1 0 8192 10 1

i1 0 10 20000 220

>