| Dear list:
I'm trying to build an instrument using Hans Mickelson's
Cross-Fade delay unit, but it makes this strange high pitched
noise towards the end. Any suggestions ? :
---------------------------------
; rDelay.orc
sr=44100
kr=4410
ksmps=10
nchnls=2
gasigl init 0
gasigr init 0
; Synth
instr 1
ipch = cpspch(p4)
ifc = p5
irez = p6
ipan = p7
irlvl = (p8*100)+8
adc linseg 0, .002, 1, p3-.004, 1, .002, 0 ; declick envelope
kenv oscil 12000, 1/p3, 10 ; amplitude envelope
asig oscil kenv, ipch, 1 ; note this !
kfe oscil 1, 1/p3, 11 ; frequency envelope
kfc = (ifc+(ifc*kfe))*.5 ; scale freq
a1 rezzy asig, kfc, irez*irlvl ; filter
a2 balance a1, asig ; get back original level
al = a2*p7*adc ; pan & declick
ar = a2*(1-p7)*adc
outs al, ar
gasigl = al
gasigr = ar
endin
; Delay
instr 40
itim1 = p4
ifdbk1 = p5
ixfdbk1 = p6
itim2 = p7
ifdbk2 = p8
ixfdbk2 = p9
asigl = gasigl
asigr = gasigr
aoutl init 0
aoutr init 0
aoutl delayr itim1
delayw asigl+(ifdbk1*aoutl)+(ixfdbk1*aoutr)
aoutr delayr itim2
delayw asigr+(ifdbk2*aoutr)+(ixfdbk2*aoutl)
outs aoutl, aoutr
gasigl init 0
gasigr init 0
endin
; rDelay.sco
; Triangle Wave
f1 0 8192 10 1 .5 .25 .125 .0625 .03125 .015625 .0078125 .00390625
.001953125 .0009765625
; envelopes
f10 0 2049 7 0 10 1 50 .5 1200 .4 779 0
f11 0 2049 7 0 10 1 2020 1 19 0
t 0 134
; str dur pitch Lp rez pan rzlvl
i1 0 .25 8.00 100 10 1 0 ;
i1 .25 . 10.07 . . .2
i1 .5 . 10.10 . . .8
i1 .75 . 11.03 . . 0
i1 1 .25 8.00 120 20 1
i1 1.25 . 8.07 . . .2
i1 1.5 . 8.10 . . .8
i1 1.75 . 9.03 . . 0
i1 2 .25 10.00 250 30 1 1
i1 2.25 . 10.07 > . .2 >
i1 2.5 . 10.10 . . .8 .
i1 2.75 . 11.03 . . 0
i1 3 .25 9.03 . 10 1
i1 3.25 . 9.00 . . .2
i1 3.5 . 9.10 . . .8
i1 3.75 . 10.10 080 . 0 .8
; str dur t1 fbck1 xfbck1 t2 fbck2 xfbck2
i40 0 16 .448 .1 .3 .336 .1 .3
e
------
leaddaet@earthlink.net |