|
18 | 18 |
|
19 | 19 | (without-namespace-in-synthdef
|
20 | 20 |
|
| 21 | + (defsynth sonic-pi-fx_vowel |
| 22 | + [amp 1 |
| 23 | + amp_slide 0 |
| 24 | + amp_slide_shape 1 |
| 25 | + amp_slide_curve 0 |
| 26 | + mix 1 |
| 27 | + mix_slide 0 |
| 28 | + mix_slide_shape 1 |
| 29 | + mix_slide_curve 0 |
| 30 | + voice 0 |
| 31 | + vowel_sound 1 |
| 32 | + pre_amp 1 |
| 33 | + pre_amp_slide 0 |
| 34 | + pre_amp_slide_shape 1 |
| 35 | + pre_amp_slide_curve 0 |
| 36 | + in_bus 0 |
| 37 | + out_bus 0] |
| 38 | + (let [amp (varlag amp amp_slide amp_slide_curve amp_slide_shape) |
| 39 | + pre_amp (varlag pre_amp pre_amp_slide pre_amp_slide_curve pre_amp_slide_shape) |
| 40 | + mix (varlag mix mix_slide mix_slide_curve mix_slide_shape) |
| 41 | + freqs [800, 1150, 2900, 3900, 4950 |
| 42 | + 350, 2000, 2800, 3600, 4950 |
| 43 | + 270, 2140, 2950, 3900, 4950 |
| 44 | + 450, 800, 2830, 3800, 4950 |
| 45 | + 325, 700, 2700, 3800, 4950 |
| 46 | + 800, 1150, 2800, 3500, 4950 |
| 47 | + 400, 1600, 2700, 3300, 4950 |
| 48 | + 350, 1700, 2700, 3700, 4950 |
| 49 | + 450, 800, 2830, 3500, 4950 |
| 50 | + 325, 700, 2530, 3500, 4950 |
| 51 | + 660, 1120, 2750, 3000, 3350 |
| 52 | + 440, 1800, 2700, 3000, 3300 |
| 53 | + 270, 1850, 2900, 3350, 3590 |
| 54 | + 430, 820, 2700, 3000, 3300 |
| 55 | + 370, 630, 2750, 3000, 3400 |
| 56 | + 650, 1080, 2650, 2900, 3250 |
| 57 | + 400, 1700, 2600, 3200, 3580 |
| 58 | + 290, 1870, 2800, 3250, 3540 |
| 59 | + 400, 800, 2600, 2800, 3000 |
| 60 | + 350, 600, 2700, 2900, 3300 |
| 61 | + 600, 1040, 2250, 2450, 2750 |
| 62 | + 400, 1620, 2400, 2800, 3100 |
| 63 | + 250, 1750, 2600, 3050, 3340 |
| 64 | + 400, 750, 2400, 2600, 2900 |
| 65 | + 350, 600, 2400, 2675, 2950] |
| 66 | + amps [1.0 0.5011872336272722 0.025118864315095784 0.09999999999999998 0.0031622776601683764 |
| 67 | + 1.0 0.09999999999999998 0.17782794100389226 0.009999999999999995 0.0015848931924611136 |
| 68 | + 1.0 0.251188643150958 0.050118723362727206 0.050118723362727206 0.006309573444801925 |
| 69 | + 1.0 0.2818382931264453 0.0794328234724281 0.0794328234724281 0.0031622776601683764 |
| 70 | + 1.0 0.1584893192461113 0.017782794100389226 0.009999999999999995 9.999999999999994E-4 |
| 71 | + 1.0 0.6309573444801931 0.09999999999999998 0.015848931924611127 9.999999999999994E-4 |
| 72 | + 1.0 0.06309573444801932 0.031622776601683784 0.017782794100389226 9.999999999999994E-4 |
| 73 | + 1.0 0.09999999999999998 0.031622776601683784 0.015848931924611127 9.999999999999994E-4 |
| 74 | + 1.0 0.3548133892335754 0.1584893192461113 0.03981071705534973 0.001778279410038922 |
| 75 | + 1.0 0.251188643150958 0.031622776601683784 0.009999999999999995 6.309573444801923E-4 |
| 76 | + 1.0 0.5011872336272722 0.07079457843841379 0.06309573444801932 0.012589254117941666 |
| 77 | + 1.0 0.19952623149688797 0.12589254117941667 0.09999999999999998 0.09999999999999998 |
| 78 | + 1.0 0.06309573444801932 0.06309573444801932 0.015848931924611127 0.015848931924611127 |
| 79 | + 1.0 0.3162277660168379 0.050118723362727206 0.0794328234724281 0.019952623149688792 |
| 80 | + 1.0 0.09999999999999998 0.07079457843841379 0.031622776601683784 0.019952623149688792 |
| 81 | + 1.0 0.5011872336272722 0.44668359215096315 0.3981071705534972 0.0794328234724281 |
| 82 | + 1.0 0.19952623149688797 0.251188643150958 0.19952623149688797 0.09999999999999998 |
| 83 | + 1.0 0.17782794100389226 0.12589254117941667 0.09999999999999998 0.031622776601683784 |
| 84 | + 1.0 0.3162277660168379 0.251188643150958 0.251188643150958 0.050118723362727206 |
| 85 | + 1.0 0.09999999999999998 0.14125375446227542 0.19952623149688797 0.050118723362727206 |
| 86 | + 1.0 0.44668359215096315 0.3548133892335754 0.3548133892335754 0.09999999999999998 |
| 87 | + 1.0 0.251188643150958 0.3548133892335754 0.251188643150958 0.12589254117941667 |
| 88 | + 1.0 0.031622776601683784 0.1584893192461113 0.0794328234724281 0.03981071705534973 |
| 89 | + 1.0 0.2818382931264453 0.08912509381337454 0.09999999999999998 0.009999999999999995 |
| 90 | + 1.0 0.09999999999999998 0.025118864315095784 0.03981071705534973 0.015848931924611127] |
| 91 | + bws [1/80 1/90 1/120 1/130 1/140 |
| 92 | + 1/60 1/100 1/120 1/150 1/200 |
| 93 | + 1/60 1/90 1/100 1/120 1/120 |
| 94 | + 1/70 1/80 1/100 1/130 1/135 |
| 95 | + 1/50 1/60 1/170 1/180 1/200 |
| 96 | + 1/80 1/90 1/120 1/130 1/140 |
| 97 | + 1/60 1/80 1/120 1/150 1/200 |
| 98 | + 1/50 1/100 1/120 1/150 1/200 |
| 99 | + 1/70 1/80 1/100 1/130 1/135 |
| 100 | + 1/50 1/60 1/170 1/180 1/200 |
| 101 | + 1/80 1/90 1/120 1/130 1/140 |
| 102 | + 1/70 1/80 1/100 1/120 1/120 |
| 103 | + 1/40 1/90 1/100 1/120 1/120 |
| 104 | + 1/40 1/80 1/100 1/120 1/120 |
| 105 | + 1/40 1/60 1/100 1/120 1/120 |
| 106 | + 1/80 1/90 1/120 1/130 1/140 |
| 107 | + 1/70 1/80 1/100 1/120 1/120 |
| 108 | + 1/40 1/90 1/100 1/120 1/120 |
| 109 | + 1/40 1/80 1/100 1/120 1/120 |
| 110 | + 1/40 1/60 1/100 1/120 1/120 |
| 111 | + 1/60 1/70 1/110 1/120 1/130 |
| 112 | + 1/40 1/80 1/100 1/120 1/120 |
| 113 | + 1/60 1/90 1/100 1/120 1/120 |
| 114 | + 1/40 1/80 1/100 1/120 1/120 |
| 115 | + 1/40 1/80 1/100 1/120 1/120] |
| 116 | + ;; voice is 0 indexed, vowel_sound is 1 indexed |
| 117 | + vowel_freq_one (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 5)) freqs) |
| 118 | + vowel_freq_two (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 4)) freqs) |
| 119 | + vowel_freq_three (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 3)) freqs) |
| 120 | + vowel_freq_four (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 2)) freqs) |
| 121 | + vowel_freq_five (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 1)) freqs) |
| 122 | + vowel_amp_one (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 5)) amps) |
| 123 | + vowel_amp_two (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 4)) amps) |
| 124 | + vowel_amp_three (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 3)) amps) |
| 125 | + vowel_amp_four (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 2)) amps) |
| 126 | + vowel_amp_five (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 1)) amps) |
| 127 | + vowel_bw_one (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 5)) bws) |
| 128 | + vowel_bw_two (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 4)) bws) |
| 129 | + vowel_bw_three (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 3)) bws) |
| 130 | + vowel_bw_four (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 2)) bws) |
| 131 | + vowel_bw_five (select:kr (+ (* 5 voice) (- (* 5 vowel_sound) 1)) bws) |
| 132 | + amp-fudge 5 |
| 133 | + [in-l in-r] (* (* amp-fudge pre_amp) (in in_bus 2)) |
| 134 | + new-l (+ (b-band-pass in-l vowel_freq_one (* vowel_bw_one vowel_amp_one)) |
| 135 | + (b-band-pass in-l vowel_freq_two (* vowel_bw_two vowel_amp_two)) |
| 136 | + (b-band-pass in-l vowel_freq_three (* vowel_bw_three vowel_amp_three)) |
| 137 | + (b-band-pass in-l vowel_freq_four (* vowel_bw_four vowel_amp_four)) |
| 138 | + (b-band-pass in-l vowel_freq_five (* vowel_bw_five vowel_amp_five))) |
| 139 | + new-r (+ (b-band-pass in-r vowel_freq_one (* vowel_bw_one vowel_amp_one)) |
| 140 | + (b-band-pass in-r vowel_freq_two (* vowel_bw_two vowel_amp_two)) |
| 141 | + (b-band-pass in-r vowel_freq_three (* vowel_bw_three vowel_amp_three)) |
| 142 | + (b-band-pass in-r vowel_freq_four (* vowel_bw_four vowel_amp_four)) |
| 143 | + (b-band-pass in-r vowel_freq_five (* vowel_bw_five vowel_amp_five))) |
| 144 | + fin-l (x-fade2 in-l new-l (- (* mix 2) 1) (* amp-fudge amp)) |
| 145 | + fin-r (x-fade2 in-r new-r (- (* mix 2) 1) (* amp-fudge amp))] |
| 146 | + (out out_bus [fin-l fin-r]))) |
| 147 | + |
21 | 148 | (defsynth sonic-pi-fx_krush
|
22 | 149 | [amp 1
|
23 | 150 | amp_slide 0
|
|
1604 | 1731 | (core/save-synthdef sonic-pi-fx_ring_mod)
|
1605 | 1732 | (core/save-synthdef sonic-pi-fx_octaver)
|
1606 | 1733 | (core/save-synthdef sonic-pi-fx_flanger)
|
1607 |
| - ) |
| 1734 | + (core/save-synthdef sonic-pi-fx_vowel)) |
0 commit comments