| Here's the final version of Samplefeedbac.orc. Tobiah's idea helped alot.
The idea behind this instr is to start with a sampled sound and then
evolve/alter it over a predetermined time. I like to set my time of start
to the "Golden Mean," which is a favorite of mine. However, it can be setup
to "distort" or "feedback" at any time. I think it makes a great sound with
most aiff files I've tried. An important thing is, as with the feedbac.orc,
that you play with the mod point. Below 1 creates a more tru feedback,
while above it distorts the sound alot. You will see in the .sco that I
have listed the "Points on expseg." I put it at the end for the simplicity
of puting all the points under one section, even though they have different
p-fields. I plan also to add a panning effect and maybe some reverb.
Anyway, mess around with it, I've gotten alot of different sound ideas from
it. Thanks for everyones help!
Tohm Judson
**********************************************************************;
SampleFeedbac.orc
sr = 44100
kr = 4410
ksmps = 10
nchnls = 2
instr 1 ; feedback fm
iamp= p4 ;max amplitude
ifc= p5 ;center frq
indx= p6 ;max. modulation index
itime= (p3-(p3*p8))/3
asmpl soundin p7,2 ;calls Sample
afrq init ifc ;init. oscil frq to center frq
kOsgt expseg .001,p3*p8,.001,itime,p9,itime,p10,itime,p11;line
a1 oscil kOsgt,afrq+asmpl,1 ;oscillator, 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 % of wait Points on expseg
i1 0 50 10000 880 .9 "heart.aiff" .617 .25 .5 1
e
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
-- |