NoisePerc v1.0 Author: Atte André Jensen (atte.dk), 2007 Percussive instrument with resonant filter and distortion. git_noise_perc_dist ftgen 0,0, 257, 9, .5,1,270,1.5,.33,90,2.5,.2,270,3.5,.143,90,4.5,.111,270 kvol = p4; 0-1 kfreq = p5; hz irise = p6; secunds ifall = p7; seconds kpan = p8; -1(-11)=left, 1(-9)= right ireverse= p9; 0 or 1 ; setup igain = 1 ; defaults irise = (irise == 0) ? <ampEnvRise> : irise ifall = (ifall == 0) ? <ampEnvFall> : ifall kfreq = (kfreq == 0) ? <freq> : kfreq kvol = (kvol == 0) ? <volume> : kvol kpan = (kpan >= -1) ? <pan> : kpan + 10 ireverse= (ireverse == 0) ? <reverse> : ireverse ; set from BSB kfenvdepth = <fenvdepth> ifrise = <filterEnvRise> iffall = <filterEnvFall> idist = <distortion> ; calculate stuff iamp = 10000 * igain kres = (<resonance> * 499) + 1 ; perhaps reverse envelope cigoto (ireverse == 1), reverse igoto endif_reverse reverse: itmp = irise irise = ifall ifall = itmp itmp = ifrise ifrise = iffall iffall = itmp endif_reverse: ; envelopes kkeepalive linsegr 1, irise + ifall, 0 aampenv expseg .001, irise, 1, ifall, .001 kfreqenv linseg 0, ifrise, 1, iffall, 0 ; oscillator anoise rand iamp ; filter a1, a2, afilt svfilter anoise, (kfreqenv * kfenvdepth * kfreq) + kfreq, kres ; distort adist distort afilt, idist, git_noise_perc_dist adist balance adist, anoise ; apply envelope aout = adist * aampenv * kvol ; output blueMixerOut aout * (1 - kpan), aout * (1 + kpan) volume 233 50 true 0.0 1.0 1.0 60 false 242 126 Volume 41 126 Rise 190 126 Pan 105 126 Fall reverse 25 365 ENV Reverse false true 43 238 Freq ampEnvRise 30 50 false 1.0E-4 0.01 8.763264E-4 60 true freq 26 162 true 0.0 10000.0 8140.3135 60 true pan 170 50 true -1.0 1.0 0.0 60 false ampEnvFall 93 50 false 0.0010 0.2 0.0045997887 60 true resonance 89 162 true 0.0 1.0 0.21214853 60 true 88 238 Resonance fenvdepth 172 162 true 0.0 1.0 0.21516009 60 true 170 238 ENV Depth filterEnvRise 235 162 false 1.0E-4 0.01 0.00591359 60 true filterEnvFall 298 162 false 1.0E-4 0.2 0.054554295 60 true 253 238 Rise 317 238 Fall 137 3 <html><font size="6"><b>NoisePerc</b></font></html> 184 33 v 1.0 10 170 <html>F<br>I<br>L<br>T<br>E<br>R</html> 10 71 <html>A<br>M<br>P</html> 17 143 ----------------------------------------------- 15 271 ----------------------------------------------- 10 300 <html>G<br>L<br>O<br>B<br>A<br>L</html> distortion 150 293 true 0.0 1.0 0.042831022 60 true 153 369 Distortion