From 575e234b005d45dbcdf2afb274df56aac995ef2a Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Thu, 13 Dec 2007 04:10:52 +0000 Subject: imported jsarlo's DSP windowing objects from http://crca.ucsd.edu/~jsarlo/pd/windowing.tar.gz which has a date of 2002-04-06 svn path=/trunk/externals/windowing/; revision=9090 --- windowing.pd | 100 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 100 insertions(+) create mode 100644 windowing.pd (limited to 'windowing.pd') diff --git a/windowing.pd b/windowing.pd new file mode 100644 index 0000000..5254373 --- /dev/null +++ b/windowing.pd @@ -0,0 +1,100 @@ +#N canvas 117 0 857 741 10; +#X obj 13 70 hanning~; +#X obj 13 96 tabsend~ hanning; +#X obj 13 47 sig~ 1; +#X obj 181 48 sig~ 1; +#X obj 181 72 hamming~; +#X obj 181 97 tabsend~ hamming; +#X obj 15 186 sig~ 1; +#X obj 183 187 sig~ 1; +#X obj 15 209 blackman~; +#X obj 183 211 connes~; +#X obj 14 335 sig~ 1; +#X obj 182 339 sig~ 1; +#X obj 14 361 cosine~; +#X obj 182 363 bartlett~; +#X obj 15 492 sig~ 1; +#X obj 183 494 sig~ 1; +#X obj 15 515 welch~; +#X obj 183 518 lanczos~; +#X obj 16 624 sig~ 1; +#X obj 16 683 tabsend~ gaussian; +#X floatatom 68 624 5 0 0; +#X obj 184 643 sig~ 1; +#X floatatom 236 643 5 0 0; +#X obj 184 702 tabsend~ kaiser; +#X obj 15 235 tabsend~ blackman; +#X obj 183 236 tabsend~ connes; +#X obj 14 387 tabsend~ cosine; +#X obj 182 388 tabsend~ bartlett; +#X obj 15 542 tabsend~ welch; +#X obj 183 543 tabsend~ lanczos; +#X graph graph1 0 -1 63 1 369 152 569 12; +#X array hanning 64 float 0; +#X pop; +#X graph graph2 0 -1 63 1 630 151 830 11; +#X array hamming 64 float 0; +#X pop; +#X graph graph3 0 -1 63 1 369 295 569 155; +#X array blackman 64 float 0; +#X pop; +#X graph graph4 0 -1 63 1 631 294 831 154; +#X array connes 64 float 0; +#X pop; +#X graph graph5 0 -1 63 1 369 438 569 298; +#X array cosine 64 float 0; +#X pop; +#X graph graph6 0 -1 63 1 631 437 831 297; +#X array bartlett 64 float 0; +#X pop; +#X graph graph7 0 -1 63 1 369 582 569 442; +#X array welch 64 float 0; +#X pop; +#X graph graph8 0 -1 63 1 631 581 831 441; +#X array lanczos 64 float 0; +#X pop; +#X graph graph9 0 -1 63 1 369 726 569 586; +#X array gaussian 64 float 0; +#X pop; +#X graph graph10 0 -1 63 1 631 725 831 585; +#X array kaiser 64 float 0; +#X pop; +#X obj 16 657 gaussian~ 0.5; +#X obj 184 676 kaiser~ 10; +#X text 250 362 (triangle); +#X text 245 518 (sinc); +#X text 12 23 0.5*(1+cos(pi*x)); +#X text 179 24 0.54+0.46*(cos(pi*x)); +#X text 14 164 0.8*cos(2*pi*x); +#X text 180 161 (1-x^2)^2; +#X text 14 149 0.42+(0.5*cos(pi*x))+; +#X text 13 311 cos(pi*x/2); +#X text 179 312 1-x^2; +#X text 14 465 1 - abs(x); +#X text 180 466 sin(pi*x)/(pi*x); +#X text 16 602 2^(-(x/d)^2); +#X text 184 622 modified Bessel function; +#X text 184 608 where Io is 0th order; +#X text 183 593 Io(a*sqrt(1-x^2))/Io(a); +#X connect 0 0 1 0; +#X connect 2 0 0 0; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 6 0 8 0; +#X connect 7 0 9 0; +#X connect 8 0 24 0; +#X connect 9 0 25 0; +#X connect 10 0 12 0; +#X connect 11 0 13 0; +#X connect 12 0 26 0; +#X connect 13 0 27 0; +#X connect 14 0 16 0; +#X connect 15 0 17 0; +#X connect 16 0 28 0; +#X connect 17 0 29 0; +#X connect 18 0 40 0; +#X connect 20 0 40 0; +#X connect 21 0 41 0; +#X connect 22 0 41 0; +#X connect 40 0 19 0; +#X connect 41 0 23 0; -- cgit v1.2.1