DistortionGuitar v1.0
Author: Atte André Jensen (atte.dk), 2007
Distorted guitar with flanger.
ilength = p3
ifreq = p4
ivol = p5
; defaults
ifreq = (ifreq >= 20) ? ifreq : cpspch(ifreq)
kvol = <volume>
; copy from BSB
kflange = <flange> * .99
kdist = <distortion> * 10 +.0001
; setup
iamp = 18000
igain = 100
idetune = .007
; envelope setup
iamp_attack = .001
iamp_release = .03
ifil_attack = .001
ifil_decay = 8
ifil_release = .1
; envelopes
aampenv expsegr .0001, iamp_attack, 1, ilength - iamp_attack - iamp_release, 1, iamp_release, .0001
aampenv = aampenv * iamp * .0001
kfiltenv linsegr 0, ifil_attack, 1, ifil_decay, 0, ifil_release, 0
; oscillators
aosc1 pluck 25000, ifreq * 2, ifreq * 2, 0, 1
aosc2 pluck 25000, ifreq * (1 + idetune), ifreq * (1 + idetune), 0, 1
aosc3 pluck 25000, ifreq * (1 - idetune), ifreq * (1 - idetune), 0, 1
; filter
aosc1 tonex aosc1, ifreq * 12 * kfiltenv * 2, 2
aosc2 tonex aosc2, ifreq * 12 * kfiltenv, 2
aosc3 tonex aosc3, ifreq * 12 * kfiltenv, 2
; mix
amixl = aosc1 + aosc2
amixr = aosc1 + aosc3
; distort
aleft distort1 amixl, kdist, 1/kdist, .2, .4
aright distort1 amixl, kdist, 1/kdist, .1, .5
; filter again
aleft tone aleft, ifreq + 4000
aright tone aright, ifreq + 4000
; flanger
aflang = .005
afl flanger aleft, aflang, .4
afr flanger aright, aflang, .6
; mix
aoutl = ((aleft * (1 - kflange)) + afl * kflange) * aampenv
aoutr = ((aright * (1 - kflange)) + afr * kflange) * aampenv
aoutl balance aoutl, amixl
aoutr balance aoutr, amixr
aoutl = aoutl * ivol * kvol
aoutr = aoutr * ivol * kvol
; output
blueMixerOut aoutl, aoutr
volume
167
58
true
0.0
1.0
1.0
60
false
176
134
distortion
28
58
true
0.0
1.0
0.9948365
60
true
30
134
100
134
flange
91
58
true
0.0
1.0
0.23384345
60
true
23
13
111
39