DistortionGuitar v2.2 Original Author of DistortionGuitar version 1: Atte André Jensen (atte.dk), 2007 Author of DistortionGuitar version 2: Menno Knevel, 2016 Originally: Distorted guitar with flanger, but now extended with some features version 2.2, november 2016 - all checbox code now checks out - improved delay start of vibrato version 2.1, november 2016 - added vibrato - added Zwel for every one of the 3 voices - improved mixing of the 3 resonace filters - option to change pitch while the note plays version 2, november 2016 - detune is variable now - now 0 dbfs = 1 (was = 32000) - filter attack and decay variable now - UDO with pluck has setksmps 1, so is independent of the ksmps of the csd - improved parameter value handling for stretching of pluck (method 4) EFFECT SECTION: - added 3 resonance filters for shaping of the body of the guitar - turn distortion on/off - turn Amplitude MOdulation on/off. several presets are present. ifreq = p4 ivol = p5 kfreq = <cutoff> ifreq = (ifreq >= 20) ? ifreq : cpspch(ifreq) ; pitch or frequency input kvol = ivol * <volume> kflange = <flange> * .99 ; effect inits kdist = <distortion> * 200000 kamp init 1 idetune = i(<detune>) kfr line 1, p3, i(<pitchchange>) ; frequency goes to new pitch while playing iamp_attack = 1.5 ; envelope setup iamp_release = .03 ifil_release = .1 kfiltenv linsegr 0, i(<fil_attack>), 1, i(<fil_decay>), 0, ifil_release, 0 ; envelope for filter ;==============vibrato============================== kvib k_Vibrato2 i(<Vibrato>), <vibdelay>, <vibdpth>, <vibspd>, i(<vibtypeLFO>), <jitterdepth> , <jitspd> ;=============Zwel=================================== kswell1 k_Zwel i(<OnSwell1>), i(<SwellPosition1>), i(<swellamp1>) kswell2 k_Zwel i(<OnSwell2>), i(<SwellPosition2>), i(<swellamp2>) kswell3 k_Zwel i(<OnSwell3>), i(<SwellPosition3>), i(<swellamp3>) ;=====Amplitude Modulatie switch====================== if (i(<AM_on>) == 1) then ; AM on/off kAM poscil <AM_depth>, <AM_freq> ; oscillators aosc1 k_mvpPluck (kAM *(kamp + kswell1))*<AM_depth> + kamp, (ifreq + kvib) * kfr, <method>, i(<par1>), i(<par2>), ifreq/(i(<buffer_size>)) aosc2 k_mvpPluck (kAM * (kamp + kswell2))*<AM_depth> + kamp, ifreq * kfr * (1 + idetune), <method>, i(<par1>), i(<par2>), ifreq/(i(<buffer_size>)) aosc3 k_mvpPluck (kAM * (kamp + kswell3))*<AM_depth> + kamp, ifreq * kfr * (1 - idetune), <method>, i(<par1>), i(<par2>), ifreq/(i(<buffer_size>)) else aosc1 k_mvpPluck kamp + kswell1, (ifreq + kvib) * kfr, <method>, i(<par1>), i(<par2>), ifreq/(i(<buffer_size>)) aosc2 k_mvpPluck kamp + kswell2, ifreq * kfr * (1 + idetune), <method>, i(<par1>), i(<par2>), ifreq/(i(<buffer_size>)) aosc3 k_mvpPluck kamp, ifreq + kswell3 * kfr * (1 - idetune), <method>, i(<par1>), i(<par2>), ifreq/(i(<buffer_size>)) endif ;==============scale================================== aosc1 *= <amp1> aosc2 *= <amp2> aosc3 *= <amp3> ;==============simple filter========================== aosc1 tonex aosc1, ifreq * 50 * kfiltenv, 8 ; with filter envelope aosc2 tonex aosc2, ifreq * 50 * kfiltenv, 8 aosc3 tonex aosc3, ifreq * 50 * kfiltenv , 8 amixl = aosc1 + aosc2 ; mix amixr = aosc1 + aosc3 ;===============distortion switch===================== if (i(<DIST_on>) == 1) then ; distortion on/off aleft distort1 amixl, kdist, 1/kdist, .2, .4 aright distort1 amixl, kdist, 1/kdist, .1, .5 else aleft = amixl aright = amixr endif ;===================================================== aleft tone aleft, ifreq + 40 * <cutoff> ; filter again aright tone aright, ifreq + 40 * <cutoff> ;=================resonance=========================== if (i(<MODE_on>) == 1) then ; switch MODE on/off amod1L mode aleft, <modfreq1>, <modQ1> ; mode 1 amod1R mode aright, <modfreq1>, <modQ1> if (i(<inverse1_on>) == 1) then ; invert mode1 amod1L = -1 * amod1L amod1R = -1 * amod1R endif amixmod1L ntrpol aleft, amod1L, <mixmod1> ; mix direct and mode1 amixmod1R ntrpol aright, amod1R, <mixmod1> amod2L mode aleft, <modfreq2>, <modQ2> ; mode 2 amod2R mode aright, <modfreq2>, <modQ2> if (i(<inverse2_on>) == 1) then ; invert mode2 amod2L = -1 * amod2L amod2R = -1 * amod2R endif amixmod2L ntrpol aleft, amod2L, <mixmod2> ; mix direct and mode2 amixmod2R ntrpol aright, amod2R, <mixmod2> amod3L mode aleft, <modfreq3>, <modQ3> ; mode 3 amod3R mode aright, <modfreq3>, <modQ3> if (i(<inverse3_on>) == 1) then ; invert mode3 amod3L = -1 * amod3L amod3R = -1 * amod3R endif amixmod3L ntrpol aleft, amod3L, <mixmod3> ; mix direct and mode3 amixmod3R ntrpol aright, amod3R, <mixmod3> amixmodL = (amixmod1L + amixmod2L + amixmod3L)*.33 ; mix all 3 mode outputs amixmodR = (amixmod1R + amixmod2L + amixmod3R)*.33 else amixmodL = aleft amixmodR = aright endif ;===============flanger======================== aflang = .005 ; flanger is always on afl flanger amixmodL, aflang, .4 afr flanger amixmodR, aflang, .6 aoutl = ((amixmodL * (1 - kflange)) + afl * kflange) ; mix flanger and direct aoutr = ((amixmodR * (1 - kflange)) + afr * kflange) aoutl balance aoutl, amixl aoutr balance aoutr, amixr aoutl dcblock2 aoutl ; get rid of DC aoutr dcblock2 aoutr aoutl = aoutl* kvol aoutr = aoutr * kvol blueMixerOut aoutl, aoutr ; output 5 15 DOT true volume 1130 585 true 0.0 1.0 0.53999 70 false 1140 675 Volume distortion 120 584 true 0.01 1.0 0.76231 60 true 120 675 amount 205 675 Flanger flange 195 585 true 0.0 1.0 0.0 60 true 23 13 <html><font size="8"><b>DistortionGuitar</b></font></html> 355 15 v 2.1 cutoff 975 405 true 0.1 100.0 100.0 60 true 945 495 total filter frequency amp1 475 15 true 0.0 1.0 0.1 1.0 150 true amp2 820 15 true 0.0 1.0 0.1 1.0 150 true amp3 1150 15 true 0.0 1.0 0.1 1.0 150 true DIST_on 95 555 true distortion false true 480 195 voice1 825 195 voice2 1155 195 voice3 fil_decay 1130 405 true 0.01 12.0 8.28299 60 true fil_attack 1057 405 true 0.001 3.0 0.2709 60 true 1095 495 envelope 870 240 detune method 37 158 false Simple averaging ------ ------ 1 Stretched averaging ------ ------ 2 Simple drum par 1 ------ 3 Stretched drum par 1 par 2 4 Weighted averaging par 1 par 2 5 1st order recursive filter ------ ------ 6 4 true par1 184 179 true 0.0 1.0 0.61 60 true par2 245 180 true 0.0 1.0 0.69998 60 true 35 105 <html><font size="+2">Pluck Quality</font></html> 50 300 damping buffer_size 30 285 true 1.0E-5 10.0 0.01 0.96001 1350 true detune 380 240 true 0.0 1.0 0.001 0.851 1000 true 1065 389 <html><font size="+.5">Attack</font></html> 1140 389 <html><font size="+.5">Decay</font></html> AM_on 295 555 true AM true true AM_freq 325 585 true 1.0 1000.0 80.899 60 true AM_depth 400 585 true 0.0 1.0 1.0 60 true 420 675 depth 330 675 frequency modfreq2 460 405 true 20.0 2000.0 475.108 60 true modQ2 535 405 true 1.0 500.0 15.96 60 true mixmod2 440 510 true 0.0 1.0 0.001 0.125 150 true modfreq1 255 405 true 20.0 2000.0 395.971 60 true modQ1 330 405 true 1.0 500.0 20.9368 60 true mixmod1 235 510 true 0.0 1.0 0.001 0.11800001 150 true 255 495 frequency 340 495 quality 240 525 dry 355 525 wet 450 525 dry 565 525 wet 45 375 <html><font size="+2">Body Shape</font></html> 195 120 (decay lenght) 35 330 _________ 125 330 _________ 80 330 _________ 170 330 _________ 260 330 _________ 215 330 _________ 275 330 _________ 330 330 _________ 420 330 _________ 375 330 _________ 465 330 _________ 555 330 _________ 510 330 _________ 570 330 _________ 620 330 _________ 710 330 _________ 665 330 _________ 755 330 _________ 845 330 _________ 800 330 _________ 860 330 _________ 915 330 _________ 1005 330 _________ 960 330 _________ 1050 330 _________ 1140 330 _________ 1095 330 _________ 1155 330 _________ 1210 330 _________ 1300 330 _________ 1255 330 _________ 1340 330 _________ 340 705 _________ 430 705 _________ 385 705 _________ 475 705 _________ 565 705 _________ 520 705 _________ 580 705 _________ 630 705 _________ 720 705 _________ 675 705 _________ 765 705 _________ 855 705 _________ 810 705 _________ 870 705 _________ 925 705 _________ 1015 705 _________ 970 705 _________ 1060 705 _________ 1150 705 _________ 1105 705 _________ 1165 705 _________ 1220 705 _________ 1310 705 _________ 1265 705 _________ 1350 705 _________ modfreq3 665 405 true 20.0 2000.0 217.658 60 true modQ3 740 405 true 1.0 500.0 370.256 60 true mixmod3 645 510 true 0.0 1.0 0.001 0.125 150 true 655 525 dry 770 525 wet 265 375 <html><font size="+1">resonance 1</font></html> 470 375 <html><font size="+1">resonance 2</font></html> 675 375 <html><font size="+1">resonance 3</font></html> 670 495 frequency 755 495 quality 465 495 frequency 550 495 quality 105 705 _________ 195 705 _________ 150 705 _________ 240 705 _________ 285 705 _________ 45 705 _________ 135 705 _________ 90 705 _________ 180 705 _________ 225 705 _________ MODE_on 185 420 true mode true true inverse3_on 780 390 true inverse true true inverse1_on 370 390 true inverse false true inverse2_on 580 390 true inverse false true pitchchange 395 15 true 0.1 2.0 0.01 1.0 150 true 380 195 deviate pitch Vibrato 555 560 true Vibrato true true vibdpth 650 600 true 0.0 20.0 8.0 55 true vibspd 730 600 true 0.0 20.0 6.84483 55 true vibtypeLFO 800 600 true 0.0 5.0 1.0 0.0 50 true 660 675 depth 730 675 frequency 815 675 type jitterdepth 860 600 true 0.0 5.0 2.64999 55 true 875 675 jitter jitspd 930 600 true 0.0 20.0 6.8 55 true 925 675 frequency SwellPosition1 515 65 true 0.05 0.99 0.05 0.55 200 true swellamp1 515 105 true -1.0 5.0 0.1 3.3000002 200 true OnSwell1 525 30 true Swell true true 635 85 position 635 125 amount SwellPosition2 860 65 true 0.05 0.99 0.05 0.70000005 200 true swellamp2 860 105 true -1.0 5.0 0.1 -0.8 200 true OnSwell2 870 30 true Swell false true 980 85 position 980 125 amount SwellPosition3 1190 60 true 0.05 0.99 0.05 0.3 200 true swellamp3 1190 100 true -1.0 5.0 0.1 2.9 200 true OnSwell3 1200 25 true Swell true true 1310 80 position 1310 120 amount 400 210 in note vibdelay 575 600 true 0.1 5.0 3.52993 55 true 590 675 delay ver2:1 ver2:80.8990020752 false false true 1.0 1.0 1.0 0.23000999 ver2:100 0.012 ver2:0.0693600029 ver2:0.001 ver2:6.3646202087 ver2:0 true false false id:1393165290 0.11800001 0.125 0.125 ver2:20.9368000031 ver2:15.9600000381 ver2:40.918800354 ver2:277.1740112305 ver2:475.108001709 ver2:1544.2600097656 ver2:0.6100000143 ver2:0.6999800205 ver2:0.8299999833 ver2:1 ver2:80.8990020752 false true false 1.0 1.0 1.0 0.23000999 ver2:100 0.012 ver2:0.7425500154 ver2:0.001 ver2:6.3646202087 ver2:0 true false false id:1393165289 0.11800001 0.125 0.125 ver2:20.9368000031 ver2:15.9600000381 ver2:40.918800354 ver2:277.1740112305 ver2:475.108001709 ver2:1544.2600097656 ver2:0.6100000143 ver2:0.6999800205 ver2:0.8299999833 ver2:1 ver2:80.8990020752 false false true 1.0 1.0 1.0 1.29001 ver2:100 0.0050000004 ver2:0.0693600029 ver2:0.2709099948 ver2:6.3646202087 ver2:0 false false true id:1393165285 0.11800001 0.125 0.125 ver2:20.9368000031 ver2:190.6100006104 ver2:5.9889302254 ver2:673.1770019531 ver2:178.108001709 ver2:1544.2600097656 ver2:0.6100000143 ver2:0.6999800205 ver2:0.8299999833 ver2:1 ver2:150.8280029297 false false true true false false 0.55 0.70000005 0.3 true 1.0 1.0 1.0 1.09001 ver2:56.0438041687 0.45800003 ver2:0.7029500008 ver2:0.3308700025 ver2:2.4079101086 ver2:0.0399900004 false true true ver2:17.5104007721 ver2:5 id:1393165285 0.0 0.0 0.9990001 ver2:20.9368000031 ver2:440.1090087891 ver2:5.9889302254 ver2:257.3590087891 ver2:534.507019043 ver2:1544.2600097656 ver2:0.05999 ver2:0.9499800205 1.25 2.3 -0.8 2.9 ver2:0.5899900198 ver2:4.9994702339 ver2:6.8448300362 0.0 ver2:0.5799900293 ver2:1 ver2:80.8990020752 true false true true false true 0.55 0.70000005 0.3 true 1.0 1.0 1.0 0.96001 ver2:100 0.851 ver2:0.7623100281 ver2:0.2709099948 ver2:8.2829904556 ver2:0 false false true ver2:6.8000001907 ver2:2.6499900818 id:1393165289 0.11800001 0.125 0.125 ver2:20.9368000031 ver2:15.9600000381 ver2:370.2560119629 ver2:395.9710083008 ver2:475.108001709 ver2:217.6580047607 ver2:0.6100000143 ver2:0.6999800205 1.0 3.3000002 -0.8 2.9 ver2:3.5299301147 ver2:8 ver2:6.8448300362 0.0 ver2:0.5399900079 k_mvpPluck a kkiiii kamp, kfreq, imethod, ipar1, ipar2, ibufsize xin setksmps 1 if (imethod==2) then ipar1 = 1 ipar2 = 0 elseif (imethod==4) then ipar2 *= 20 ipar2 += 1 elseif (imethod==5) then isum = ipar1 + ipar2 if ((isum)>1) then ipar1 /= (isum*1.0001) ipar2 /= (isum*1.0001) endif endif asig pluck kamp, kfreq, ibufsize, 0, imethod, ipar1, ipar2 xout asig use the pluck opcode with all its different decay settings k_Vibrato2 k iKKKiKK iOnVibrato, kvibdelay, kdepth, kspeed, itype, kjitdepth, kjitfreq xin if iOnVibrato == 1 then ; if switch = ON, add vibrato to sall voices kdp linseg 0, p3 * i(kvibdelay), i(kdepth) ; delay time before vibrato kvb lfo kdp, kspeed, itype ; LFO 0-5 kjit randi kjitdepth, kjitfreq ; create some jitter kvibrato = kvb + kjit ; add jitter and LFO else kvibrato = 0 ; if switch = OFF, there is no vibrato endif xout kvibrato provide a vibrato effect, with random-like values (jitter) k_Zwel K iKK iOnSwell,kposition, ksw xin if iOnSwell == 1 then ; switch Swell on/off irise = p3 * i(kposition) ; relative position 0 > position < 1 inside note ifall = p3 - irise kswell linseg 0, irise, i(ksw) , ifall, 0 else kswell = 0 ; if switch = OFF, no effect endif xout kswell intended to produce a peak or attenuation in the amplitude within a note