Csound Csound-dev Csound-tekno Search About

Finally

Date1999-05-09 06:32
FromPatrick Pagano
SubjectFinally
Hi Folks
many thanks to you all for help on Delay and reverb(especially Tobiah)
got them both working !!!!
what I am trying to do know is to get a looping delay functioning heres
my files
sr = 44100
kr = 4410
ksmps = 10
nchnls = 2

gasig init 0
instr 1
     idur        =         p3
     iamp        =         p4

     iattack     =         p5
     irelease    =         p6
     irvbtime    =         p7
     irvbgain    =         p8
     ifqc           =         p9
     kamp        linen     iamp, iattack, idur, irelease
     asig        oscili      iamp,ifqc,1
     arampsig    =         kamp * asig
     aeffect     reverb    asig, irvbtime
     arvbreturn  =         aeffect * irvbgain
     gasig=gasig+ arampsig+arvbreturn
  endin


instr 99
                kDelaydecay     init            .4;;;;;;;;;;;;;;;do I
add it here??
                iDelaytime      init            1;;;;;;;;;;;;;or here???

                asig7            delayr          iDelaytime
                                delayw          kDelaydecay * (gasig+
asig7);;;;;;;;;;do i need to add a deltapi????
                                outs             asig7 + gasig,asig7
+gasig

                gasig           =               0
endin
f1 0  8192 10  1     ;GEN10 Sine Wave

; p1=Instr  p2:Start  p3:Duration  p4:iamp  p5:iattack  p6:irelease
p7:irvbtime  p8:irvbgain  p9:ifqc
i1                      0    28   40    0.2    0.2    2.3    0.1    512
i1                      1    27   25    0.5    0.6    2.5    0.5    567
i1              2.222222    26    20    0.4    0.2    1.7    0.2    588
i1              4.444445    24    40    0.1    0.1    1.3    0.1    756
i1              6.666667    22    30    0.1    0.2    1.9    0.2    768
i1              8.888889    20    40    0.4    0.2    1.4    0.2    784
;;;;;;;;;LaMonte Youngs Well Tuned Piano Frequencies
i1              11.11111    17    30    0.2    0.1    1.4    0.1    896
i1              13.33333    15    40    0.5    0.1    2.1    0.1    1008

i1              15.55556    13    40    0.4    0.1    1.2    0.1    1024

i1              17.77778    11    60    0.4    0.2    2.5    0.2    1134

i1              18.33333    10    60    0.5    0.1    2.1    0.1    1152

i1              19.55556    10    40    0.4    0.1    1.2    0.1    1344

i1              19.77778    10    40    0.4    0.2    2.5    0.2    1512

i1                    20    10    40    0.1    0.1    1.4    0.1    1536

i99 0 30
e
;;;;;;;;how do i go about this
Any help is always appreciated
Pat