Leslie Emulation true 2 2 ain = ain1 + ain2 aout1, aout2 leslieEmulation ain, <SPEED> Based on Hans Mikelson's Leslie Emulation leslieEmulation aa ak asig, kspeed xin isine chnget "leslie_sine" ifilter1 chnget "leslie_filter1" ifilter2 chnget "leslie_filter2" idistort chnget "leslie_distort" if (isine == 0) then isine ftgen 0, 0, 1024, 10, 1 ifilter1 ftgen 0, 0, 256, 7, 0, 110, .3, 18, 1, 18, .3, 110, 0 ifilter2 ftgen 0, 0, 256, 7, 0, 80, .5, 16, 1, 64, 1, 16, .5, 80, 0 idistort ftgen 0, 0, 1024, 8, -.8, 42, -.78, 100, -.7, 740, .7, 100, .78, 42, .8 chnset isine, "leslie_sine" chnset ifilter1, "leslie_filter1" chnset ifilter2, "leslie_filter2" chnset idistort, "leslie_distort" endif isep = .2 ; DISTORTION EFFECT asig = asig/40000 aclip tablei asig, idistort, 1, .5 aclip = aclip*30000 aleslie delayr .02, 1 ; ACCELERATION kenv linseg p4, p3+.02, p5 ; DOPPLER EFFECT koscl oscil 1, kspeed, isine, 0 koscr oscil 1, kspeed, isine, isep kdopl = .01-koscl*.0002 kdopr = .012-koscr*.0002 aleft deltapi kdopl aright deltapi kdopr delayw aclip ; FILTER EFFECT ; DIVIDE INTO THREE FREQUENCY RANGES FOR DIRECTIONAL SOUND. ; HIGH PASS alfhi atone aleft, 8000 arfhi atone aright, 8000 alfhi tone alfhi, 12000 arfhi tone arfhi, 12000 ; BAND PASS alfmid atone aleft, 4000 arfmid atone aright, 4000 alfmid tone alfmid, 8000 arfmid tone arfmid, 8000 ; LOW PASS alflow tone aleft, 4000 arflow tone aright, 4000 kflohi oscil 1, kspeed, ifilter1, 0 kfrohi oscil 1, kspeed, ifilter1, isep kflomid oscil 1, kspeed, ifilter2, 0 kfromid oscil 1, kspeed, ifilter2, isep ; AMPLITUDE EFFECT kalosc = koscl * .1 + 1 karosc = koscr * .1 + 1 outs alfhi*kflohi+alfmid*kflomid+alflow*kalosc,arfhi*kfrohi+arfmid*kfromid+arflow*karosc SPEED 48 53 0.0 20.0 4.0 60 7 6 <html><font size="+1">Leslie Emulation</font></html> 60 35 Speed