| That was it! Thanks Tobiah, I owe you a beer or two. Now I just need to
find out how to slow it down, which should be no problem. That and
realizing the fact that I should also have added my sound in to my outs.
Here is the almost final instr for thoughs that are interested.
Tohm Judson
**********************************************************************
instr 1 ; Samplefeedbac.orc
iamp= p4 ;max amplitude
ifc= p5 ;center frq
indx= p6 ;max. modulation index
iwait= p8
igate= p9
asmpl soundin p7,2 ;calls Sample
afrq init ifc ;init. oscil frq to center frq
kOsgt linseg 0,iwait,0,igate, 1 ;Oscil Gate control
a1 oscil kOsgt,afrq+asmpl,1 ;oscil,normalized to 1
kndx line 0,p3,indx ;vary modulation index
afm = afrq * a1 ;calculate modulation frq
adev = afm * kndx ;calculate deviation frq
afrq = ifc + adev ;calculate oscil frq
kamp linseg 0,.1,iamp,p3-.2,iamp,.1,0
aout1= a1 * kamp
aout2= aout1+asmpl
outs aout2,aout2
endin
**********************************************************************
;SampleFeedbac.sco
f1 0 8192 10 1
;instr start dur amp center mod samplename wait gate
i1 0 45 10000 880 .9 "siren.aiff" 10 35
e
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
-- |