Dodd the Distorter true 2 2 setksmps 1 alast1 init 0 alast2 init 0 alsto1 init 0 alsto2 init 0 inorm = 0dbfs kdry = <dry> idelamp = <delAmp> idelfrq = <delFrq> adel1 jspline idelamp *.5, idelfrq, idelfrq adel2 jspline idelamp *.5, idelfrq, idelfrq adel1 = adel1 + (idelamp * .5) adel2 = adel2 + (idelamp * .5) ; notmalize signal to 1 ain1 = ain1 / inorm ain2 = ain2 / inorm ; abracadabra adiff1 = abs(ain1 - alast1) adiff2 = abs(ain2 - alast2) asign1 divz adiff1, ain1 - alast1, 1 asign2 divz adiff2, ain2 - alast2, 1 aout1 = alsto1 + (sqrt(sqrt(adiff1)) * asign1) aout2 = alsto2 + (sqrt(sqrt(adiff2)) * asign2) if (idelamp == 0) then alast1 = ain1 alast2 = ain2 else alast1 vdelay ain1, adel1, idelamp alast2 vdelay ain2, adel2, idelamp endif alsto1 = aout1 alsto2 = aout2 ;reconstruct original amplitude aout1 = aout1 * inorm / <scale> aout2 = aout2 * inorm / <scale> if (<dcBlock> > 0) then aout1 dcblock aout1 aout2 dcblock aout2 endif aout1 = (ain1*kdry)+(aout1*(1-kdry)) aout2 = (ain2*kdry)+(aout2*(1-kdry)) Experimental distortion unit of my own design. Basically, it tries to exagerate differences between adjascent samples, which winds up having the effect of sharpening all curves. The comparative samples can be delayed, adding more character to the distortion. Scale factor helps tame the resultant signal amplitude. scale 23 19 0.0 50.0 9.766606 120 50 156 Scale Factor delAmp 152 19 0.0 1.0 0.0 120 195 154 Del. Amp. delFrq 30 189 0.0 500.0 1.0 0.0 200 100 225 Del. Freq. dcBlock 30 266 DCBlock true dry 205 229 0.0 1.0 0.0 60 215 307 Dry Mix