From ce4cd4503e8d92146f19ef033d0c0a52cde794a8 Mon Sep 17 00:00:00 2001 From: musil Date: Thu, 11 Dec 2008 17:50:02 +0000 Subject: moved help-files from help to ../ svn path=/trunk/externals/iem/iem_spec2/; revision=10439 --- help/spec2_1p1z_freq~-help.pd | 92 ---------------- help/spec2_1p1z_time~-help.pd | 80 -------------- help/spec2_abs~-help.pd | 14 --- help/spec2_add_scalar~-help.pd | 14 --- help/spec2_add~-help.pd | 13 --- help/spec2_block_delay~-help.pd | 69 ------------ help/spec2_clip_max~-help.pd | 36 ------- help/spec2_clip_min~-help.pd | 36 ------- help/spec2_dbtopow~-help.pd | 14 --- help/spec2_dbtorms~-help.pd | 14 --- help/spec2_matrix_bundle_stat~-help.pd | 153 --------------------------- help/spec2_mul_scalar~-help.pd | 14 --- help/spec2_mul~-help.pd | 14 --- help/spec2_powtodb~-help.pd | 14 --- help/spec2_rmstodb~-help.pd | 14 --- help/spec2_shift~-help.pd | 40 ------- help/spec2_sqrt~-help.pd | 31 ------ help/spec2_stretch~-help.pd | 42 -------- help/spec2_sub~-help.pd | 14 --- help/spec2_sum~-help.pd | 67 ------------ help/spec2_tab_conv~-help.pd | 185 --------------------------------- help/spec2_tabreceive_enable~-help.pd | 139 ------------------------- help/spec2_tabreceive~-help.pd | 125 ---------------------- spec2_1p1z_freq~-help.pd | 92 ++++++++++++++++ spec2_1p1z_time~-help.pd | 80 ++++++++++++++ spec2_abs~-help.pd | 14 +++ spec2_add_scalar~-help.pd | 14 +++ spec2_add~-help.pd | 13 +++ spec2_block_delay~-help.pd | 69 ++++++++++++ spec2_clip_max~-help.pd | 36 +++++++ spec2_clip_min~-help.pd | 36 +++++++ spec2_dbtopow~-help.pd | 14 +++ spec2_dbtorms~-help.pd | 14 +++ spec2_matrix_bundle_stat~-help.pd | 153 +++++++++++++++++++++++++++ spec2_mul_scalar~-help.pd | 14 +++ spec2_mul~-help.pd | 14 +++ spec2_powtodb~-help.pd | 14 +++ spec2_rmstodb~-help.pd | 14 +++ spec2_shift~-help.pd | 40 +++++++ spec2_sqrt~-help.pd | 31 ++++++ spec2_stretch~-help.pd | 42 ++++++++ spec2_sub~-help.pd | 14 +++ spec2_sum~-help.pd | 67 ++++++++++++ spec2_tab_conv~-help.pd | 185 +++++++++++++++++++++++++++++++++ spec2_tabreceive_enable~-help.pd | 139 +++++++++++++++++++++++++ spec2_tabreceive~-help.pd | 125 ++++++++++++++++++++++ 46 files changed, 1234 insertions(+), 1234 deletions(-) delete mode 100644 help/spec2_1p1z_freq~-help.pd delete mode 100644 help/spec2_1p1z_time~-help.pd delete mode 100644 help/spec2_abs~-help.pd delete mode 100644 help/spec2_add_scalar~-help.pd delete mode 100644 help/spec2_add~-help.pd delete mode 100644 help/spec2_block_delay~-help.pd delete mode 100644 help/spec2_clip_max~-help.pd delete mode 100644 help/spec2_clip_min~-help.pd delete mode 100644 help/spec2_dbtopow~-help.pd delete mode 100644 help/spec2_dbtorms~-help.pd delete mode 100644 help/spec2_matrix_bundle_stat~-help.pd delete mode 100644 help/spec2_mul_scalar~-help.pd delete mode 100644 help/spec2_mul~-help.pd delete mode 100644 help/spec2_powtodb~-help.pd delete mode 100644 help/spec2_rmstodb~-help.pd delete mode 100644 help/spec2_shift~-help.pd delete mode 100644 help/spec2_sqrt~-help.pd delete mode 100644 help/spec2_stretch~-help.pd delete mode 100644 help/spec2_sub~-help.pd delete mode 100644 help/spec2_sum~-help.pd delete mode 100644 help/spec2_tab_conv~-help.pd delete mode 100644 help/spec2_tabreceive_enable~-help.pd delete mode 100644 help/spec2_tabreceive~-help.pd create mode 100644 spec2_1p1z_freq~-help.pd create mode 100644 spec2_1p1z_time~-help.pd create mode 100644 spec2_abs~-help.pd create mode 100644 spec2_add_scalar~-help.pd create mode 100644 spec2_add~-help.pd create mode 100644 spec2_block_delay~-help.pd create mode 100644 spec2_clip_max~-help.pd create mode 100644 spec2_clip_min~-help.pd create mode 100644 spec2_dbtopow~-help.pd create mode 100644 spec2_dbtorms~-help.pd create mode 100644 spec2_matrix_bundle_stat~-help.pd create mode 100644 spec2_mul_scalar~-help.pd create mode 100644 spec2_mul~-help.pd create mode 100644 spec2_powtodb~-help.pd create mode 100644 spec2_rmstodb~-help.pd create mode 100644 spec2_shift~-help.pd create mode 100644 spec2_sqrt~-help.pd create mode 100644 spec2_stretch~-help.pd create mode 100644 spec2_sub~-help.pd create mode 100644 spec2_sum~-help.pd create mode 100644 spec2_tab_conv~-help.pd create mode 100644 spec2_tabreceive_enable~-help.pd create mode 100644 spec2_tabreceive~-help.pd diff --git a/help/spec2_1p1z_freq~-help.pd b/help/spec2_1p1z_freq~-help.pd deleted file mode 100644 index 8eb269c..0000000 --- a/help/spec2_1p1z_freq~-help.pd +++ /dev/null @@ -1,92 +0,0 @@ -#N canvas 20 32 724 388 10; -#X obj 42 70 dsp; -#X obj 42 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 -; -#X floatatom 42 111 5 0 0 0 - - -; -#X floatatom 55 94 5 0 0 0 - - -; -#N canvas 0 0 450 300 graph1 0; -#X array scope 256 float 0; -#X coords 0 100 255 0 300 200 1; -#X restore 346 82 graph; -#X text 130 39 iem_spec2 calculates only blocksize/2 + 1 samples of -block; -#N canvas 0 0 633 408 tables 0; -#N canvas 0 0 450 300 graph1 0; -#X array hann 259 float 0; -#X coords 0 1 258 -1 200 140 1; -#X restore 30 31 graph; -#X obj 246 34 loadbang; -#X msg 246 55 \; hann cosinesum 256 0.5 -0.5; -#X connect 1 0 2 0; -#X restore 149 82 pd tables; -#X obj 42 145 noise~; -#X obj 237 93 osc~ 11025; -#X msg 292 58 0; -#X obj 42 169 bpq2~ 7000 6 100; -#X msg 206 187 1 0 0; -#X msg 205 121 0.1 0 0.9; -#X text 90 302 IEM KUG; -#X text 74 290 musil; -#X text 104 290 @; -#X text 110 290 iem.at; -#X text 73 312 Graz \, Austria; -#X text 25 279 (c) Thomas Musil 2000 - 2006; -#X text 18 5 spec2_1p1z_freq~; -#N canvas 190 113 569 461 spec_analyse_by_1p1z_freq 0; -#X obj 100 51 inlet~; -#X obj 352 46 block~ 256 2; -#X obj 102 156 rfft~; -#X obj 101 108 *~; -#X obj 298 46 inlet; -#X obj 114 86 spec2_tabreceive~ hann; -#X obj 97 186 *~; -#X obj 124 186 *~; -#X obj 104 211 +~; -#X obj 104 266 powtodb~; -#X obj 104 291 tabsend~ scope; -#X obj 180 174 /; -#X obj 101 131 *~ 0.032; -#X msg 189 149 1 32; -#X obj 188 127 loadbang; -#X obj 300 225 spec2_1p1z_freq~ 0.5 0 0.5; -#X connect 0 0 3 0; -#X connect 2 0 6 0; -#X connect 2 0 6 1; -#X connect 2 1 7 0; -#X connect 2 1 7 1; -#X connect 3 0 12 0; -#X connect 4 0 15 0; -#X connect 5 0 3 1; -#X connect 6 0 8 0; -#X connect 7 0 8 1; -#X connect 8 0 15 0; -#X connect 9 0 10 0; -#X connect 11 0 12 1; -#X connect 12 0 2 0; -#X connect 13 0 11 0; -#X connect 14 0 13 0; -#X connect 15 0 9 0; -#X restore 42 214 pd spec_analyse_by_1p1z_freq; -#X msg 205 143 0.3 0 0.7; -#X msg 205 165 0.5 0 0.5; -#X msg 105 123 6; -#X msg 107 143 3; -#X msg 134 122 16; -#X msg 164 121 66; -#X text 168 3 filter the spectrum with a 1p1z-IIR filter; -#X text 169 14 first time from the left to right; -#X text 169 26 second time from the right to left; -#X connect 0 0 2 0; -#X connect 0 1 3 0; -#X connect 1 0 0 0; -#X connect 7 0 10 0; -#X connect 9 0 8 1; -#X connect 10 0 20 0; -#X connect 11 0 20 1; -#X connect 12 0 20 1; -#X connect 21 0 20 1; -#X connect 22 0 20 1; -#X connect 23 0 10 2; -#X connect 24 0 10 2; -#X connect 25 0 10 2; -#X connect 26 0 10 2; diff --git a/help/spec2_1p1z_time~-help.pd b/help/spec2_1p1z_time~-help.pd deleted file mode 100644 index f583f4e..0000000 --- a/help/spec2_1p1z_time~-help.pd +++ /dev/null @@ -1,80 +0,0 @@ -#N canvas 20 32 712 376 10; -#X obj 42 70 dsp; -#X obj 42 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 -; -#X floatatom 42 111 5 0 0 0 - - -; -#X floatatom 55 94 5 0 0 0 - - -; -#N canvas 0 0 450 300 graph1 0; -#X array scope 256 float 0; -#X coords 0 100 255 0 300 200 1; -#X restore 346 82 graph; -#X text 18 5 spec2_1p1z_time~; -#X text 132 20 iem_spec2 calculates only blocksize/2 + 1 samples of -block; -#N canvas 0 0 629 404 tables 0; -#N canvas 0 0 450 300 graph1 0; -#X array hann 259 float 0; -#X coords 0 1 258 -1 200 140 1; -#X restore 30 31 graph; -#X obj 246 34 loadbang; -#X msg 246 55 \; hann cosinesum 256 0.5 -0.5; -#X connect 1 0 2 0; -#X restore 149 82 pd tables; -#X obj 42 145 noise~; -#X obj 237 93 osc~ 11025; -#X msg 292 58 0; -#X obj 42 169 bpq2~ 7000 6 100; -#X msg 201 187 1 0 0; -#X msg 200 165 0.1 0 0.9; -#X msg 200 143 0.01 0 0.99; -#N canvas 190 113 557 449 spec_analyse_by_1p1z_time 0; -#X obj 100 51 inlet~; -#X obj 352 46 block~ 256 2; -#X obj 102 156 rfft~; -#X obj 101 108 *~; -#X obj 300 225 spec2_1p1z_time~ 0.5 0 0.5; -#X obj 298 46 inlet; -#X obj 114 86 spec2_tabreceive~ hann; -#X obj 97 186 *~; -#X obj 124 186 *~; -#X obj 104 211 +~; -#X obj 104 266 powtodb~; -#X obj 104 291 tabsend~ scope; -#X obj 180 174 /; -#X obj 101 131 *~ 0.032; -#X msg 189 149 1 32; -#X obj 188 127 loadbang; -#X connect 0 0 3 0; -#X connect 2 0 7 0; -#X connect 2 0 7 1; -#X connect 2 1 8 0; -#X connect 2 1 8 1; -#X connect 3 0 13 0; -#X connect 4 0 10 0; -#X connect 5 0 4 0; -#X connect 6 0 3 1; -#X connect 7 0 9 0; -#X connect 8 0 9 1; -#X connect 9 0 4 0; -#X connect 10 0 11 0; -#X connect 12 0 13 1; -#X connect 13 0 2 0; -#X connect 14 0 12 0; -#X connect 15 0 14 0; -#X restore 42 214 pd spec_analyse_by_1p1z_time; -#X text 90 302 IEM KUG; -#X text 74 290 musil; -#X text 104 290 @; -#X text 110 290 iem.at; -#X text 73 312 Graz \, Austria; -#X text 25 279 (c) Thomas Musil 2000 - 2006; -#X text 168 3 makes a feedback of the spectrum; -#X connect 0 0 2 0; -#X connect 0 1 3 0; -#X connect 1 0 0 0; -#X connect 8 0 11 0; -#X connect 10 0 9 1; -#X connect 11 0 15 0; -#X connect 12 0 15 1; -#X connect 13 0 15 1; -#X connect 14 0 15 1; diff --git a/help/spec2_abs~-help.pd b/help/spec2_abs~-help.pd deleted file mode 100644 index be08be8..0000000 --- a/help/spec2_abs~-help.pd +++ /dev/null @@ -1,14 +0,0 @@ -#N canvas 52 28 470 264 10; -#X text 102 53 no arg; -#X text 83 169 IEM KUG; -#X text 67 157 musil; -#X text 97 157 @; -#X text 103 157 iem.at; -#X text 66 179 Graz \, Austria; -#X text 18 146 (c) Thomas Musil 2000 - 2006; -#X text 183 49 like; -#X obj 29 52 spec2_abs~; -#X text 30 16 spec2_abs~; -#X obj 226 52 abs~; -#X text 109 25 with (blocksize/2 + 1) bins; -#X text 106 14 take absolute value of a signal spectrum; diff --git a/help/spec2_add_scalar~-help.pd b/help/spec2_add_scalar~-help.pd deleted file mode 100644 index 02cedca..0000000 --- a/help/spec2_add_scalar~-help.pd +++ /dev/null @@ -1,14 +0,0 @@ -#N canvas 52 28 575 275 10; -#X text 83 169 IEM KUG; -#X text 67 157 musil; -#X text 97 157 @; -#X text 103 157 iem.at; -#X text 66 179 Graz \, Austria; -#X text 18 146 (c) Thomas Musil 2000 - 2006; -#X text 361 51 like; -#X obj 412 52 +~ 0; -#X text 134 53 1.arg: value to add; -#X text 106 14 add a value to a signal spectrum with (blocksize/2 + -1) bins; -#X obj 30 52 spec2+s~ 0; -#X text 30 14 spec2+s~; diff --git a/help/spec2_add~-help.pd b/help/spec2_add~-help.pd deleted file mode 100644 index c8a4a18..0000000 --- a/help/spec2_add~-help.pd +++ /dev/null @@ -1,13 +0,0 @@ -#N canvas 52 28 474 268 10; -#X obj 30 52 spec2+~; -#X text 86 51 no arg; -#X text 83 169 IEM KUG; -#X text 67 157 musil; -#X text 97 157 @; -#X text 103 157 iem.at; -#X text 66 179 Graz \, Austria; -#X text 18 146 (c) Thomas Musil 2000 - 2006; -#X text 30 15 spec2+~; -#X text 183 49 like; -#X obj 234 50 +~; -#X text 106 14 add 2 signal spectras with (blocksize/2 + 1) bins; diff --git a/help/spec2_block_delay~-help.pd b/help/spec2_block_delay~-help.pd deleted file mode 100644 index fa8f493..0000000 --- a/help/spec2_block_delay~-help.pd +++ /dev/null @@ -1,69 +0,0 @@ -#N canvas 90 35 769 482 10; -#X obj 42 70 dsp; -#X obj 42 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 -; -#X floatatom 42 111 5 0 0 0 - - -; -#X floatatom 55 94 5 0 0 0 - - -; -#N canvas 0 0 450 300 graph1 0; -#X array array101 192 float 0; -#X coords 0 1 191 -1 382 128 1; -#X restore 319 224 graph; -#X obj 46 156 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 19 4 spec2_block_delay~; -#X text 202 216 no arguments; -#X text 90 402 IEM KUG; -#X text 74 390 musil; -#X text 104 390 @; -#X text 110 390 iem.at; -#X text 73 412 Graz \, Austria; -#X text 25 379 (c) Thomas Musil 2000 - 2006; -#X obj 84 217 spec2_block_delay~; -#X text 146 21 but copy only (blocksize/2 + 1) samples; -#N canvas 0 0 470 320 init 0; -#X obj 52 43 t f f; -#X obj 50 -10 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 43 77 + 0.5; -#X obj 52 -36 loadbang; -#X obj 50 11 for++ -64 63; -#X obj 56 107 / 64; -#X obj 101 105 + 64; -#X obj 57 147 tabwrite array100; -#X msg 161 -9 \; array100 xticks 0 32 2; -#X msg 174 75 \; array101 xticks 0 32 2; -#X msg 177 125 \; array101 xlabel -1.1 0 32 64 96 128 160 192; -#X msg 165 30 \; array100 xlabel -1.1 0 32 64 96 128; -#X connect 0 0 2 0; -#X connect 0 1 6 0; -#X connect 1 0 4 0; -#X connect 2 0 5 0; -#X connect 3 0 1 0; -#X connect 3 0 8 0; -#X connect 3 0 11 0; -#X connect 3 0 9 0; -#X connect 3 0 10 0; -#X connect 4 0 0 0; -#X connect 5 0 7 0; -#X connect 6 0 7 1; -#X restore 323 394 pd init; -#N canvas 0 0 450 300 graph1 0; -#X array array100 128 float 0; -#X coords 0 1 127 -1 256 128 1; -#X restore 319 62 graph; -#X obj 84 192 tabplay~ array100; -#X obj 46 252 tabwrite~ array101; -#X text 161 4 delay spectrum around blocksize samples; -#X text 484 372 0 .. 32: preceding signal (== 0); -#X text 480 385 33 .. 63: ignored input ramp; -#X text 481 399 64 .. 96: delayed ramp signal; -#X text 477 412 97 .. 127: ignored input ramp; -#X text 473 425 128 .. 160: delayed ramp signal; -#X text 471 438 161 .. 191: ignored input signal (== 0); -#X connect 0 0 2 0; -#X connect 0 1 3 0; -#X connect 1 0 0 0; -#X connect 5 0 18 0; -#X connect 5 0 19 0; -#X connect 14 0 19 0; -#X connect 18 0 14 0; diff --git a/help/spec2_clip_max~-help.pd b/help/spec2_clip_max~-help.pd deleted file mode 100644 index e2871b9..0000000 --- a/help/spec2_clip_max~-help.pd +++ /dev/null @@ -1,36 +0,0 @@ -#N canvas 52 28 606 339 10; -#X text 230 141 no arg; -#X text 81 272 IEM KUG; -#X text 65 260 musil; -#X text 95 260 @; -#X text 101 260 iem.at; -#X text 64 282 Graz \, Austria; -#X text 16 249 (c) Thomas Musil 2000 - 2006; -#X text 351 143 like; -#X obj 128 141 spec2_clip_max~; -#X obj 128 118 sig~; -#X floatatom 128 98 5 0 0 0 - - -; -#X obj 212 118 sig~; -#X floatatom 212 98 5 0 0 0 - - -; -#X obj 401 144 min~; -#X text 9 6 spec2_clip_max~; -#X obj 21 61 dsp; -#X obj 21 38 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X floatatom 21 107 5 0 0 0 - - -; -#X floatatom 34 86 5 0 0 0 - - -; -#X text 120 28 iem_spec2 calculates only blocksize/2 + 1 samples of -block; -#X text 139 9 restrict a signal to lie lower than max limit; -#X obj 84 179 print~; -#X obj 85 159 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X connect 8 0 21 0; -#X connect 9 0 8 0; -#X connect 10 0 9 0; -#X connect 11 0 8 1; -#X connect 12 0 11 0; -#X connect 15 0 17 0; -#X connect 15 1 18 0; -#X connect 16 0 15 0; -#X connect 22 0 21 0; diff --git a/help/spec2_clip_min~-help.pd b/help/spec2_clip_min~-help.pd deleted file mode 100644 index eb782fa..0000000 --- a/help/spec2_clip_min~-help.pd +++ /dev/null @@ -1,36 +0,0 @@ -#N canvas 52 28 546 330 10; -#X text 230 141 no arg; -#X text 81 272 IEM KUG; -#X text 65 260 musil; -#X text 95 260 @; -#X text 101 260 iem.at; -#X text 64 282 Graz \, Austria; -#X text 16 249 (c) Thomas Musil 2000 - 2006; -#X text 351 143 like; -#X obj 128 118 sig~; -#X floatatom 128 98 5 0 0 0 - - -; -#X obj 212 118 sig~; -#X floatatom 212 98 5 0 0 0 - - -; -#X obj 21 61 dsp; -#X obj 21 38 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 -; -#X floatatom 21 107 5 0 0 0 - - -; -#X floatatom 34 86 5 0 0 0 - - -; -#X text 120 28 iem_spec2 calculates only blocksize/2 + 1 samples of -block; -#X text 9 6 spec2_clip_min~; -#X text 139 9 restrict a signal to lie higher than min limit; -#X obj 401 144 max~; -#X obj 128 141 spec2_clip_min~; -#X obj 84 179 print~; -#X obj 85 159 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X connect 8 0 20 0; -#X connect 9 0 8 0; -#X connect 10 0 20 1; -#X connect 11 0 10 0; -#X connect 12 0 14 0; -#X connect 12 1 15 0; -#X connect 13 0 12 0; -#X connect 20 0 21 0; -#X connect 22 0 21 0; diff --git a/help/spec2_dbtopow~-help.pd b/help/spec2_dbtopow~-help.pd deleted file mode 100644 index 00282c9..0000000 --- a/help/spec2_dbtopow~-help.pd +++ /dev/null @@ -1,14 +0,0 @@ -#N canvas 52 29 470 263 10; -#X text 120 53 no arg; -#X text 83 169 IEM KUG; -#X text 67 157 musil; -#X text 97 157 @; -#X text 103 157 iem.at; -#X text 66 179 Graz \, Austria; -#X text 18 146 (c) Thomas Musil 2000 - 2006; -#X text 211 52 like; -#X text 135 24 with (blocksize/2 + 1) bins; -#X obj 243 54 dbtopow~; -#X obj 26 53 spec2_dbtopow~; -#X text 29 15 spec2_dbtopow~; -#X text 132 13 convert dB to power of a signal spectrum; diff --git a/help/spec2_dbtorms~-help.pd b/help/spec2_dbtorms~-help.pd deleted file mode 100644 index 11d99cb..0000000 --- a/help/spec2_dbtorms~-help.pd +++ /dev/null @@ -1,14 +0,0 @@ -#N canvas 52 29 470 263 10; -#X text 120 53 no arg; -#X text 83 169 IEM KUG; -#X text 67 157 musil; -#X text 97 157 @; -#X text 103 157 iem.at; -#X text 66 179 Graz \, Austria; -#X text 18 146 (c) Thomas Musil 2000 - 2006; -#X text 211 52 like; -#X text 135 24 with (blocksize/2 + 1) bins; -#X text 29 15 spec2_dbtorms~; -#X obj 243 54 dbtorms~; -#X obj 26 53 spec2_dbtorms~; -#X text 132 13 convert dB to rms value of a signal spectrum; diff --git a/help/spec2_matrix_bundle_stat~-help.pd b/help/spec2_matrix_bundle_stat~-help.pd deleted file mode 100644 index 746f42a..0000000 --- a/help/spec2_matrix_bundle_stat~-help.pd +++ /dev/null @@ -1,153 +0,0 @@ -#N canvas 106 40 882 682 10; -#X obj 18 44 dsp; -#X obj 18 14 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X floatatom 18 100 5 0 0 0 - - -; -#X floatatom 33 74 5 0 0 0 - - -; -#X obj 46 322 sig~ 1; -#X obj 96 353 sig~ 2; -#X obj 145 377 sig~ 4; -#X obj 195 402 sig~ 8; -#X obj 234 431 sig~ 16; -#X obj 47 488 unsig~; -#X floatatom 47 512 5 0 0 0 - - -; -#X obj 245 491 unsig~; -#X floatatom 245 515 5 0 0 0 - - -; -#X obj 298 442 any; -#X msg 298 154 bundle 0 0 0 0 0; -#X msg 298 180 bundle 1 1 1 1 1; -#X msg 298 201 bundle 2 2 2 2 2; -#X msg 298 227 bundle 1 0 0 0 0; -#X msg 298 247 bundle 0 1 0 0 0; -#X msg 298 267 bundle 0 0 1 0 0; -#X msg 298 287 bundle 0 0 0 1 0; -#X msg 298 307 bundle 0 0 0 0 1; -#X msg 298 333 bundle 2 0 0 0 0; -#X msg 298 353 bundle 0 2 0 0 0; -#X msg 298 373 bundle 0 0 2 0 0; -#X msg 298 393 bundle 0 0 0 2 0; -#X msg 298 413 bundle 0 0 0 0 2; -#X obj 432 442 pp element; -#X obj 432 419 pack 0 0; -#X obj 432 397 f; -#X floatatom 475 368 4 1 5 0 - - -; -#X floatatom 445 368 4 0 2 0 - - -; -#X obj 422 375 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 706 15 SIG_OUT = A * SIG_IN; -#X text 234 14 multiplies a n-dimensional signal-in-vector with a dynamic -static (like sig~) signal-matrix to a n-dimensional signal-out-vector -; -#X text 725 33 A is quadratic; -#X text 662 50 dim(SIG_OUT) = dim(SIG_IN) = n; -#X text 234 51 each matrix-column has only one one \, the other elements -are zero; -#X text 301 475 2.arg Nr. of outlets = rows; -#X text 301 464 1.arg Nr. of inlets = columns; -#X text 517 336 message "element"; -#X text 531 365 2.) item column_index (1 .. nr_columns); -#X text 531 353 1.) item row_index (0 .. nr_rows); -#X text 446 111 message "bundle"; -#X text 556 381 where the single one of the column will be placed; -#X text 557 393 if (row-index == 0) -> the column has only zeros; -#X text 449 126 (nr_inlets = nr_columns) row-indices (0 .. -nr_row); -#X text 454 162 if (row-index == 0) -> the column has only zeros; -#X text 453 150 where the single one of each column will be placed -; -#N canvas 176 206 818 475 block_______________________ 0; -#X obj 564 88 block~ 128 2; -#X obj 48 29 inlet~; -#X obj 51 260 outlet~; -#X obj 103 30 inlet~; -#X obj 159 29 inlet~; -#X obj 214 30 inlet~; -#X obj 272 30 inlet~; -#X obj 246 257 outlet~; -#X obj 51 209 spec2_matrix_bundle_stat~ 5 2; -#X obj 350 30 inlet; -#X obj 586 308 for++ 0 127 0.1; -#X obj 586 332 moses 64; -#X msg 586 359 1 \$1; -#X msg 637 358 0 \$1; -#X obj 586 287 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 586 267 loadbang; -#X obj 540 240 table \$0_rect 128; -#X obj 586 385 tabwrite \$0_rect; -#X obj 64 57 tabreceive~ \$0_rect; -#X obj 48 79 *~; -#X obj 116 81 tabreceive~ \$0_rect; -#X obj 100 103 *~; -#X obj 170 103 tabreceive~ \$0_rect; -#X obj 154 125 *~; -#X obj 220 124 tabreceive~ \$0_rect; -#X obj 204 146 *~; -#X obj 270 146 tabreceive~ \$0_rect; -#X obj 254 168 *~; -#X connect 1 0 19 0; -#X connect 3 0 21 0; -#X connect 4 0 23 0; -#X connect 5 0 25 0; -#X connect 6 0 27 0; -#X connect 8 0 2 0; -#X connect 8 1 7 0; -#X connect 9 0 8 0; -#X connect 10 0 11 0; -#X connect 11 0 12 0; -#X connect 11 1 13 0; -#X connect 12 0 17 0; -#X connect 13 0 17 0; -#X connect 14 0 10 0; -#X connect 15 0 14 0; -#X connect 18 0 19 1; -#X connect 19 0 8 0; -#X connect 20 0 21 1; -#X connect 21 0 8 1; -#X connect 22 0 23 1; -#X connect 23 0 8 2; -#X connect 24 0 25 1; -#X connect 25 0 8 3; -#X connect 26 0 27 1; -#X connect 27 0 8 4; -#X restore 48 463 pd block_______________________; -#X text 50 13 spec2_matrix_bundle_stat~; -#X text 90 575 IEM KUG; -#X text 74 563 musil; -#X text 104 563 @; -#X text 110 563 iem.at; -#X text 73 585 Graz \, Austria; -#X text 25 552 (c) Thomas Musil 2000 - 2006; -#X text 234 83 it calculates matrix only with (blocksize/2 + 1) samples -per signalvector; -#X connect 0 0 2 0; -#X connect 0 1 3 0; -#X connect 1 0 0 0; -#X connect 4 0 49 0; -#X connect 5 0 49 1; -#X connect 6 0 49 2; -#X connect 7 0 49 3; -#X connect 8 0 49 4; -#X connect 9 0 10 0; -#X connect 11 0 12 0; -#X connect 13 0 49 5; -#X connect 14 0 13 0; -#X connect 15 0 13 0; -#X connect 16 0 13 0; -#X connect 17 0 13 0; -#X connect 18 0 13 0; -#X connect 19 0 13 0; -#X connect 20 0 13 0; -#X connect 21 0 13 0; -#X connect 22 0 13 0; -#X connect 23 0 13 0; -#X connect 24 0 13 0; -#X connect 25 0 13 0; -#X connect 26 0 13 0; -#X connect 28 0 27 0; -#X connect 29 0 28 0; -#X connect 30 0 28 1; -#X connect 31 0 29 1; -#X connect 32 0 29 0; -#X connect 49 0 9 0; -#X connect 49 1 11 0; diff --git a/help/spec2_mul_scalar~-help.pd b/help/spec2_mul_scalar~-help.pd deleted file mode 100644 index d0f6caf..0000000 --- a/help/spec2_mul_scalar~-help.pd +++ /dev/null @@ -1,14 +0,0 @@ -#N canvas 52 28 591 268 10; -#X text 83 169 IEM KUG; -#X text 67 157 musil; -#X text 97 157 @; -#X text 103 157 iem.at; -#X text 66 179 Graz \, Austria; -#X text 18 146 (c) Thomas Musil 2000 - 2006; -#X text 361 51 like; -#X text 30 14 spec2*s~; -#X text 107 26 with (blocksize/2 + 1) bins; -#X text 106 14 multiply a value with a signal spectrum; -#X text 134 53 1.arg: value to multiply; -#X obj 30 52 spec2*s~ 0; -#X obj 412 52 *~ 0; diff --git a/help/spec2_mul~-help.pd b/help/spec2_mul~-help.pd deleted file mode 100644 index 65e173a..0000000 --- a/help/spec2_mul~-help.pd +++ /dev/null @@ -1,14 +0,0 @@ -#N canvas 52 28 474 268 10; -#X text 86 51 no arg; -#X text 83 169 IEM KUG; -#X text 67 157 musil; -#X text 97 157 @; -#X text 103 157 iem.at; -#X text 66 179 Graz \, Austria; -#X text 18 146 (c) Thomas Musil 2000 - 2006; -#X text 183 49 like; -#X text 30 15 spec2*~; -#X obj 30 52 spec2*~; -#X obj 234 50 *~; -#X text 106 14 multiply 2 signal spectras with (blocksize/2 + 1) bins -; diff --git a/help/spec2_powtodb~-help.pd b/help/spec2_powtodb~-help.pd deleted file mode 100644 index fd48690..0000000 --- a/help/spec2_powtodb~-help.pd +++ /dev/null @@ -1,14 +0,0 @@ -#N canvas 52 29 470 263 10; -#X text 120 53 no arg; -#X text 83 169 IEM KUG; -#X text 67 157 musil; -#X text 97 157 @; -#X text 103 157 iem.at; -#X text 66 179 Graz \, Austria; -#X text 18 146 (c) Thomas Musil 2000 - 2006; -#X text 211 52 like; -#X text 135 24 with (blocksize/2 + 1) bins; -#X obj 26 53 spec2_powtodb~; -#X text 29 15 spec2_powtodb~; -#X obj 243 54 powtodb~; -#X text 133 13 convert power to db of a signal spectrum; diff --git a/help/spec2_rmstodb~-help.pd b/help/spec2_rmstodb~-help.pd deleted file mode 100644 index c3c6db0..0000000 --- a/help/spec2_rmstodb~-help.pd +++ /dev/null @@ -1,14 +0,0 @@ -#N canvas 52 29 470 263 10; -#X text 120 53 no arg; -#X text 83 169 IEM KUG; -#X text 67 157 musil; -#X text 97 157 @; -#X text 103 157 iem.at; -#X text 66 179 Graz \, Austria; -#X text 18 146 (c) Thomas Musil 2000 - 2006; -#X text 211 52 like; -#X text 135 24 with (blocksize/2 + 1) bins; -#X text 29 15 spec2_rmstodb~; -#X text 132 13 convert rms value to db of a signal spectrum; -#X obj 26 53 spec2_rmstodb~; -#X obj 243 54 rmstodb~; diff --git a/help/spec2_shift~-help.pd b/help/spec2_shift~-help.pd deleted file mode 100644 index d87cc5f..0000000 --- a/help/spec2_shift~-help.pd +++ /dev/null @@ -1,40 +0,0 @@ -#N canvas 10 8 548 293 10; -#X obj 15 90 dsp; -#X obj 15 67 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X floatatom 15 131 5 0 0 0 - - -; -#X floatatom 28 114 5 0 0 0 - - -; -#N canvas 0 0 450 300 graph2 0; -#X array array100 64 float 1; -#A 0 -0.550001 -0.750001 -0.700001 -0.600001 -0.500001 -0.400001 -0.400001 --0.350001 -0.25 -0.2 -0.15 -0.1 -0.0500001 -0.0500001 3.72529e-008 -0.0500001 0.0500001 0.1 0.1 0.15 0.2 0.2 0.250001 0.250001 0.300001 -0.350001 0.350001 0.400001 0.500001 0.500001 0.516668 0.533334 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; -#X coords 0 1 63 -1 64 40 1; -#X restore 436 66 graph; -#X text 83 210 IEM KUG; -#X text 67 198 musil; -#X text 97 198 @; -#X text 103 198 iem.at; -#X text 66 220 Graz \, Austria; -#X text 18 187 (c) Thomas Musil 2000 - 2006; -#N canvas 0 0 450 300 graph2 0; -#X array array101 64 float 0; -#X coords 0 1 63 -1 64 40 1; -#X restore 436 126 graph; -#X obj 143 102 spec2_shift~ 10; -#X obj 144 131 tabsend~ array101; -#X obj 142 71 tabreceive~ array100; -#X floatatom 105 51 5 -32 32 0 - - -; -#X text 15 10 spec2_shift~; -#X text 248 101 1.arg: shift width; -#X text 136 6 shift a spectrum of (blocksize/2 + 1) to the left or -right about n bins (+- blocksize/2); -#X text 80 37 shift width; -#X connect 0 0 2 0; -#X connect 0 1 3 0; -#X connect 1 0 0 0; -#X connect 12 0 13 0; -#X connect 14 0 12 0; -#X connect 15 0 12 0; diff --git a/help/spec2_sqrt~-help.pd b/help/spec2_sqrt~-help.pd deleted file mode 100644 index 15dbfe0..0000000 --- a/help/spec2_sqrt~-help.pd +++ /dev/null @@ -1,31 +0,0 @@ -#N canvas 52 28 437 304 10; -#X text 218 120 no arg; -#X text 89 234 IEM KUG; -#X text 73 222 musil; -#X text 103 222 @; -#X text 109 222 iem.at; -#X text 72 244 Graz \, Austria; -#X text 24 211 (c) Thomas Musil 2000 - 2006; -#X text 327 115 like; -#X text 109 25 with (blocksize/2 + 1) bins; -#X text 17 13 spec2_sqrt~; -#X obj 144 120 spec2_sqrt~; -#X obj 359 116 sqrt~; -#X obj 143 98 sig~ 16; -#X obj 143 148 print~; -#X obj 111 119 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 29 97 dsp; -#X obj 29 71 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X floatatom 143 79 5 0 0 0 - - -; -#X floatatom 29 142 5 0 0 0 - - -; -#X floatatom 42 122 5 0 0 0 - - -; -#X text 106 14 take square root value of a signal spectrum; -#X connect 10 0 13 0; -#X connect 12 0 10 0; -#X connect 14 0 13 0; -#X connect 15 0 18 0; -#X connect 15 1 19 0; -#X connect 16 0 15 0; -#X connect 17 0 12 0; diff --git a/help/spec2_stretch~-help.pd b/help/spec2_stretch~-help.pd deleted file mode 100644 index 3f69ed0..0000000 --- a/help/spec2_stretch~-help.pd +++ /dev/null @@ -1,42 +0,0 @@ -#N canvas 10 8 548 293 10; -#X obj 15 90 dsp; -#X obj 15 67 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 -; -#X floatatom 15 131 5 0 0 0 - - -; -#X floatatom 28 114 5 0 0 0 - - -; -#N canvas 0 0 450 300 graph2 0; -#X array array100 64 float 1; -#A 0 -0.550001 -0.750001 -0.700001 -0.600001 -0.500001 -0.400001 -0.400001 --0.350001 -0.25 -0.2 -0.15 -0.1 -0.0500001 -0.0500001 3.72529e-008 -0.0500001 0.0500001 0.1 0.1 0.15 0.2 0.2 0.250001 0.250001 0.300001 -0.350001 0.350001 0.400001 0.500001 0.500001 0.516668 0.533334 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; -#X coords 0 1 63 -1 64 40 1; -#X restore 436 66 graph; -#X text 83 210 IEM KUG; -#X text 67 198 musil; -#X text 97 198 @; -#X text 103 198 iem.at; -#X text 66 220 Graz \, Austria; -#X text 18 187 (c) Thomas Musil 2000 - 2006; -#N canvas 0 0 450 300 graph2 0; -#X array array101 64 float 0; -#X coords 0 1 63 -1 64 40 1; -#X restore 436 126 graph; -#X obj 144 131 tabsend~ array101; -#X obj 142 71 tabreceive~ array100; -#X floatatom 93 41 5 20 500 0 - - -; -#X obj 143 102 spec2_stretch~ 1; -#X obj 93 58 / 100; -#X floatatom 93 78 5 0 0 0 - - -; -#X text 16 10 spec2_stretch~; -#X text 137 6 stretch a spectrum of (blocksize/2 + 1) by a factor; -#X text 256 102 1.arg: stretch factor; -#X connect 0 0 2 0; -#X connect 0 1 3 0; -#X connect 1 0 0 0; -#X connect 13 0 15 0; -#X connect 14 0 16 0; -#X connect 15 0 12 0; -#X connect 16 0 17 0; -#X connect 17 0 15 0; diff --git a/help/spec2_sub~-help.pd b/help/spec2_sub~-help.pd deleted file mode 100644 index 9acd02a..0000000 --- a/help/spec2_sub~-help.pd +++ /dev/null @@ -1,14 +0,0 @@ -#N canvas 52 28 466 260 10; -#X text 86 51 no arg; -#X text 83 169 IEM KUG; -#X text 67 157 musil; -#X text 97 157 @; -#X text 103 157 iem.at; -#X text 66 179 Graz \, Austria; -#X text 18 146 (c) Thomas Musil 2000 - 2006; -#X text 183 49 like; -#X obj 30 52 spec2-~; -#X text 30 15 spec2-~; -#X obj 234 50 -~; -#X text 106 14 subtract 2 signal spectras with (blocksize/2 + 1) bins -; diff --git a/help/spec2_sum~-help.pd b/help/spec2_sum~-help.pd deleted file mode 100644 index af87bc9..0000000 --- a/help/spec2_sum~-help.pd +++ /dev/null @@ -1,67 +0,0 @@ -#N canvas 90 35 781 494 10; -#X obj 42 70 dsp; -#X obj 42 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 -; -#X floatatom 42 111 5 0 0 0 - - -; -#X floatatom 55 94 5 0 0 0 - - -; -#N canvas 0 0 450 300 graph1 0; -#X array array101 192 float 0; -#X coords 0 50 191 -50 382 128 1; -#X restore 319 224 graph; -#X obj 46 156 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 202 216 no arguments; -#X text 90 402 IEM KUG; -#X text 74 390 musil; -#X text 104 390 @; -#X text 110 390 iem.at; -#X text 73 412 Graz \, Austria; -#X text 25 379 (c) Thomas Musil 2000 - 2006; -#N canvas 0 0 754 332 init 0; -#X obj 52 43 t f f; -#X obj 50 -10 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 52 -36 loadbang; -#X obj 57 147 tabwrite array100; -#X msg 161 -9 \; array100 xticks 0 32 2; -#X msg 174 75 \; array101 xticks 0 32 2; -#X msg 165 30 \; array100 xlabel -1.1 0 32 64 96 128; -#X obj 50 11 for++ 0 127; -#X obj 56 107 / 128; -#X msg 431 -9 \; array100 yticks 0 0.5 2; -#X msg 435 30 \; array100 ylabel -6 -1 -0.5 0 0.5 1; -#X msg 177 125 \; array101 xlabel -55 0 32 64 96 128 160 192; -#X msg 444 75 \; array101 yticks 0 25 2; -#X msg 447 125 \; array101 ylabel -6 -50 -25 0 25 50; -#X connect 0 0 8 0; -#X connect 0 1 3 1; -#X connect 1 0 7 0; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 2 0 6 0; -#X connect 2 0 5 0; -#X connect 2 0 11 0; -#X connect 2 0 9 0; -#X connect 2 0 10 0; -#X connect 2 0 12 0; -#X connect 2 0 13 0; -#X connect 7 0 0 0; -#X connect 8 0 3 0; -#X restore 323 394 pd init; -#N canvas 0 0 450 300 graph1 0; -#X array array100 128 float 0; -#X coords 0 1 127 -1 256 128 1; -#X restore 319 62 graph; -#X obj 84 192 tabplay~ array100; -#X obj 46 252 tabwrite~ array101; -#X obj 84 218 spec2_sum~; -#X text 19 4 spec2_sum~; -#X text 400 5 (blocksize/2 + 1) bins; -#X text 161 4 accumulate the sum of the spectrum with; -#X connect 0 0 2 0; -#X connect 0 1 3 0; -#X connect 1 0 0 0; -#X connect 5 0 15 0; -#X connect 5 0 16 0; -#X connect 15 0 17 0; -#X connect 17 0 16 0; diff --git a/help/spec2_tab_conv~-help.pd b/help/spec2_tab_conv~-help.pd deleted file mode 100644 index 168488b..0000000 --- a/help/spec2_tab_conv~-help.pd +++ /dev/null @@ -1,185 +0,0 @@ -#N canvas 9 18 777 596 10; -#X obj 44 49 dsp; -#X obj 44 26 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X floatatom 44 90 5 0 0 0 - - -; -#X floatatom 57 73 5 0 0 0 - - -; -#N canvas 0 0 450 300 graph1 0; -#X array win 50 float 0; -#X coords 0 1 49 -1 200 140 1; -#X restore 267 333 graph; -#X floatatom 64 144 7 0 0 0 - - -; -#X obj 189 188 noise~; -#X floatatom 316 170 5 2 40 0 - - -; -#X msg 316 147 8; -#X text 22 -1 spec2_tab_conv~; -#X obj 64 166 osc~ 5000; -#N canvas 148 208 734 434 gen_win 0; -#X obj 92 43 inlet; -#X obj 92 121 - 1; -#X obj 92 142 t f f; -#X obj 92 167 / 20; -#X obj 92 188 * 3.14159; -#X obj 92 211 sin; -#X msg 92 232 \$1 \$1; -#X obj 92 254 *; -#X obj 92 65 t b f b; -#X msg 253 218 1 \$1; -#X obj 253 240 /; -#X obj 224 367 outlet; -#X obj 225 315 f; -#X msg 224 337 set win \$1; -#X obj 527 33 table hwin 50; -#X obj 242 124 tab_const hwin; -#X obj 92 274 tabwrite hwin; -#X obj 191 146 tab_sum hwin; -#X obj 253 264 tab_mul_scalar hwin hwin; -#X obj 191 192 tab_copy hwin win; -#X obj 93 95 for++ 1 20; -#X connect 0 0 8 0; -#X connect 1 0 2 0; -#X connect 2 0 3 0; -#X connect 2 1 16 1; -#X connect 3 0 4 0; -#X connect 4 0 5 0; -#X connect 5 0 6 0; -#X connect 6 0 7 0; -#X connect 7 0 16 0; -#X connect 8 0 20 0; -#X connect 8 1 3 1; -#X connect 8 1 12 1; -#X connect 8 1 20 1; -#X connect 8 2 15 0; -#X connect 9 0 10 0; -#X connect 10 0 18 0; -#X connect 12 0 13 0; -#X connect 13 0 11 0; -#X connect 17 0 19 0; -#X connect 17 1 9 0; -#X connect 19 0 12 0; -#X connect 20 0 1 0; -#X connect 20 1 17 0; -#X restore 316 189 pd gen_win; -#X obj 316 124 loadbang; -#N canvas 6 92 777 603 spec2_blockfilter~ 0; -#X obj 59 29 inlet~; -#X obj 72 488 outlet~; -#X obj 61 101 rfft~; -#X obj 71 392 rifft~; -#X obj 407 22 inlet; -#X text 199 240 1.arg: table-name; -#X obj 474 23 block~ 256 2; -#N canvas 0 0 450 300 graph1 0; -#X array hsin 256 float 0; -#X coords 0 1 255 -1 200 140 1; -#X restore 423 296 graph; -#X obj 458 140 for++ 0 255 0.1; -#X obj 458 119 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 458 160 t f f; -#X obj 457 190 / 256; -#X obj 457 210 * 3.14159; -#X obj 457 229 sin; -#X obj 457 251 tabwrite hsin; -#X obj 72 51 tabreceive~ hsin; -#X obj 60 73 *~; -#X obj 458 95 loadbang; -#X obj 241 100 rfft~; -#X obj 252 50 tabreceive~ hsin; -#X obj 240 72 *~; -#X obj 241 26 inlet~; -#X obj 84 417 tabreceive~ hsin; -#X obj 72 439 *~; -#X text 199 251 2.arg: table-size; -#X obj 72 463 /~ 32768; -#X obj 59 290 spec2_dbtorms~; -#X obj 65 363 spec2*~; -#X obj 122 366 spec2*~; -#X obj 58 178 spec2+~; -#X obj 47 151 spec2*~; -#X obj 94 151 spec2*~; -#X obj 58 201 spec2_powtodb~; -#X obj 59 247 spec2_tab_conv~ win 8; -#X connect 0 0 16 0; -#X connect 2 0 30 0; -#X connect 2 0 30 1; -#X connect 2 1 31 0; -#X connect 2 1 31 1; -#X connect 3 0 23 0; -#X connect 4 0 33 0; -#X connect 8 0 10 0; -#X connect 9 0 8 0; -#X connect 10 0 11 0; -#X connect 10 1 14 1; -#X connect 11 0 12 0; -#X connect 12 0 13 0; -#X connect 13 0 14 0; -#X connect 15 0 16 1; -#X connect 16 0 2 0; -#X connect 17 0 9 0; -#X connect 18 0 27 1; -#X connect 18 1 28 1; -#X connect 19 0 20 1; -#X connect 20 0 18 0; -#X connect 21 0 20 0; -#X connect 22 0 23 1; -#X connect 23 0 25 0; -#X connect 25 0 1 0; -#X connect 26 0 27 0; -#X connect 26 0 28 0; -#X connect 27 0 3 0; -#X connect 28 0 3 1; -#X connect 29 0 32 0; -#X connect 30 0 29 0; -#X connect 31 0 29 1; -#X connect 32 0 33 0; -#X connect 33 0 26 0; -#X restore 64 211 pd spec2_blockfilter~ using spec2_tab_conv~; -#X text 550 227 1.arg: table-name; -#X text 551 240 2.arg: table-size; -#X msg 429 209 set win 8; -#X obj 408 234 spec2_tab_conv~ win 8; -#X obj 68 298 dac~; -#X obj 144 311 prvu~; -#X obj 145 339 vu 15 120 empty empty -1 -8 0 8 -66577 -1 1 0; -#X floatatom 143 505 5 0 0 0 - - -; -#X floatatom 154 479 5 0 0 0 - - -; -#X msg 156 288 reset; -#X text 146 4 convolute a spectrum of size (blocksize/2 + 1) with a -table of size n; -#X obj 69 266 *~ 0.003; -#X obj 133 255 dbtorms; -#X obj 201 252 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 --1 -1 0 1; -#X obj 161 131 mtof; -#X obj 165 111 hsl 137 15 0 136 0 0 empty empty empty -2 -6 0 8 -262144 --1 -1 0 1; -#X text 98 553 IEM KUG; -#X text 82 541 musil; -#X text 112 541 @; -#X text 118 541 iem.at; -#X text 81 563 Graz \, Austria; -#X text 33 530 (c) Thomas Musil 2000 - 2006; -#X connect 0 0 2 0; -#X connect 0 1 3 0; -#X connect 1 0 0 0; -#X connect 5 0 10 0; -#X connect 6 0 13 1; -#X connect 7 0 11 0; -#X connect 8 0 7 0; -#X connect 10 0 13 0; -#X connect 11 0 13 2; -#X connect 12 0 8 0; -#X connect 13 0 25 0; -#X connect 16 0 17 0; -#X connect 19 0 20 0; -#X connect 20 0 21 0; -#X connect 20 1 22 0; -#X connect 23 0 19 0; -#X connect 25 0 19 0; -#X connect 25 0 18 0; -#X connect 25 0 18 1; -#X connect 26 0 25 1; -#X connect 27 0 26 0; -#X connect 28 0 5 0; -#X connect 29 0 28 0; diff --git a/help/spec2_tabreceive_enable~-help.pd b/help/spec2_tabreceive_enable~-help.pd deleted file mode 100644 index c4ecebf..0000000 --- a/help/spec2_tabreceive_enable~-help.pd +++ /dev/null @@ -1,139 +0,0 @@ -#N canvas 22 17 939 438 10; -#X obj 44 49 dsp; -#X obj 44 26 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X floatatom 44 90 5 0 0 0 - - -; -#X floatatom 57 73 5 0 0 0 - - -; -#N canvas 0 0 450 300 graph1 0; -#X array scope 512 float 0; -#X coords 0 1 511 -1 512 100 1; -#X restore 371 240 graph; -#X obj 121 178 tabwrite~ scope; -#X obj 211 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#N canvas 0 0 450 300 graph2 0; -#X array filter 256 float 1; -#A 0 0 0 0 0 0 0 0 0.04 0.04 0.08 0.14 0.18 0.2 0.24 0.26 0.28 0.32 -0.34 0.36 0.38 0.4 0.42 0.44 0.44 0.46 0.5 0.54 0.58 0.6 0.62 0.646667 -0.673334 0.7 0.74 0.76 0.78 0 0 0 0 0 0 -0.06 -0.0866667 -0.113333 --0.14 -0.175 -0.21 -0.245 -0.28 -0.31 -0.34 -0.366667 -0.393333 -0.42 --0.45 -0.48 -0.52 -0.56 -0.58 -0.62 -0.62 -0.66 -0.67 -0.68 -0.7 -0.74 --0.76 -0.78 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.8 0.78 0.76 0.68 0.62 0.58 -0.5 0.473334 0.446667 0.42 0.38 0.34 0.3 0.266667 0.233333 0.2 0.17 -0.14 0.11 0.08 0.05 0.02 0 0 0 0 0 0 -0.68 -0.68 -0.62 -0.56 -0.52 --0.48 -0.45 -0.42 -0.37 -0.32 -0.28 -0.24 -0.19 -0.14 -0.12 -0.1 -0.08 --0.02 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; -#X coords 0 1 255 -1 256 100 1; -#X restore 502 -33 graph; -#X obj 136 91 del 100; -#X msg 781 2 \; filter const 0; -#X text 14 -28 spec2_tabreceive_enable~; -#X obj 278 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X text 295 47 enable; -#X text 209 -15 and enables/disables reading the table; -#N canvas 63 41 965 587 spec2_blockfilter~ 0; -#X obj 100 51 inlet~; -#X obj 102 381 outlet~; -#X obj 271 120 block~ 256 2; -#N canvas 0 0 450 300 graph1 0; -#X array rect 256 float 0; -#X coords 0 1 255 -1 200 140 1; -#X restore 460 21 graph; -#X obj 276 459 tab_const rect; -#X obj 279 396 t b b; -#X msg 304 421 0 128 1; -#X msg 224 419 128 128 0; -#X obj 279 374 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 279 350 loadbang; -#X obj 101 309 /~ 256; -#X obj 101 108 *~; -#X obj 114 85 spec2_tabreceive~ rect; -#N canvas 0 0 450 300 graph1 0; -#X array real 256 float 0; -#X coords 0 1 255 -1 200 140 1; -#X restore 691 177 graph; -#N canvas 0 0 450 300 graph1 0; -#X array imag 256 float 0; -#X coords 0 1 255 -1 200 140 1; -#X restore 691 326 graph; -#X obj 697 56 inlet; -#X obj 697 80 t b; -#X text 351 190 1.arg: table-name; -#X obj 291 54 inlet; -#X obj 101 131 rfft~; -#X obj 102 280 rifft~; -#X obj 158 260 spec2+~; -#X obj 40 257 spec2-~; -#X obj 32 212 spec2*~; -#X obj 85 215 spec2*~; -#X obj 146 214 spec2*~; -#X obj 205 214 spec2*~; -#X obj 247 149 spec2_tabreceive_enable~ real 0; -#X obj 263 174 spec2_tabreceive_enable~ imag 0; -#X text 352 205 2.arg: enable-state; -#X obj 697 102 tab_rfft filter real imag 256; -#X connect 0 0 11 0; -#X connect 5 0 7 0; -#X connect 5 1 6 0; -#X connect 6 0 4 0; -#X connect 7 0 4 0; -#X connect 8 0 5 0; -#X connect 9 0 8 0; -#X connect 10 0 1 0; -#X connect 11 0 19 0; -#X connect 12 0 11 1; -#X connect 15 0 16 0; -#X connect 16 0 30 0; -#X connect 18 0 27 0; -#X connect 18 0 28 0; -#X connect 19 0 23 0; -#X connect 19 0 25 0; -#X connect 19 1 24 0; -#X connect 19 1 26 0; -#X connect 20 0 10 0; -#X connect 21 0 20 1; -#X connect 22 0 20 0; -#X connect 23 0 22 0; -#X connect 24 0 22 1; -#X connect 25 0 21 0; -#X connect 26 0 21 1; -#X connect 27 0 23 1; -#X connect 27 0 26 1; -#X connect 28 0 24 1; -#X connect 28 0 25 1; -#X restore 158 141 pd spec2_blockfilter~ using spec2_tabreceive_enable~ -; -#X text 749 122 1.arg: table-name; -#X msg 561 99 symbol filter; -#X text 749 134 2.arg: enable-state; -#X obj 536 129 spec2_tabreceive_enable~ filter 1; -#X msg 496 89 1; -#X msg 524 89 0; -#X obj 159 117 dirac~; -#X text 150 2 iem_spec2 calculates only (blocksize/2 + 1) samples; -#X text 180 -27 receives spectrum from table with (blocksize/2 + 1) -; -#X text 90 302 IEM KUG; -#X text 74 290 musil; -#X text 104 290 @; -#X text 110 290 iem.at; -#X text 73 312 Graz \, Austria; -#X text 25 279 (c) Thomas Musil 2000 - 2006; -#X connect 0 0 2 0; -#X connect 0 1 3 0; -#X connect 1 0 0 0; -#X connect 6 0 14 2; -#X connect 6 0 8 0; -#X connect 8 0 5 0; -#X connect 8 0 21 0; -#X connect 11 0 14 1; -#X connect 14 0 5 0; -#X connect 16 0 18 0; -#X connect 19 0 18 0; -#X connect 20 0 18 0; -#X connect 21 0 14 0; diff --git a/help/spec2_tabreceive~-help.pd b/help/spec2_tabreceive~-help.pd deleted file mode 100644 index c2c06be..0000000 --- a/help/spec2_tabreceive~-help.pd +++ /dev/null @@ -1,125 +0,0 @@ -#N canvas 9 28 944 451 10; -#X obj 44 49 dsp; -#X obj 44 26 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 -; -#X floatatom 44 90 5 0 0 0 - - -; -#X floatatom 57 73 5 0 0 0 - - -; -#N canvas 0 0 450 300 graph1 0; -#X array scope 512 float 0; -#X coords 0 1 511 -1 512 100 1; -#X restore 350 236 graph; -#X obj 211 175 tabwrite~ scope; -#X obj 269 55 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 17 -25 spec2_tabreceive~; -#N canvas 0 0 450 300 graph2 0; -#X array filter 256 float 1; -#A 0 0 0 0 0 0 0 0 0.04 0.04 0.08 0.14 0.18 0.2 0.24 0.26 0.28 0.32 -0.34 0.36 0.38 0.4 0.42 0.44 0.44 0.46 0.5 0.54 0.58 0.6 0.62 0.646667 -0.673334 0.7 0.74 0.76 0.78 0 0 0 0 0 0 -0.06 -0.0866667 -0.113333 --0.14 -0.175 -0.21 -0.245 -0.28 -0.31 -0.34 -0.366667 -0.393333 -0.42 --0.45 -0.48 -0.52 -0.56 -0.58 -0.62 -0.62 -0.66 -0.67 -0.68 -0.7 -0.74 --0.76 -0.78 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.8 0.78 0.76 0.68 0.62 0.58 -0.5 0.473334 0.446667 0.42 0.38 0.34 0.3 0.266667 0.233333 0.2 0.17 -0.14 0.11 0.08 0.05 0.02 0 0 0 0 0 0 -0.68 -0.68 -0.62 -0.56 -0.52 --0.48 -0.45 -0.42 -0.37 -0.32 -0.28 -0.24 -0.19 -0.14 -0.12 -0.1 -0.08 --0.02 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; -#X coords 0 1 255 -1 256 100 1; -#X restore 488 -33 graph; -#X obj 226 88 del 100; -#X msg 767 2 \; filter const 0; -#N canvas 70 41 953 575 spec2_blockfilter~ 0; -#X obj 100 51 inlet~; -#X obj 102 381 outlet~; -#X obj 271 120 block~ 256 2; -#N canvas 0 0 450 300 graph1 0; -#X array rect 256 float 0; -#X coords 0 1 255 -1 200 140 1; -#X restore 460 21 graph; -#X obj 276 459 tab_const rect; -#X obj 279 396 t b b; -#X msg 304 421 0 128 1; -#X msg 224 419 128 128 0; -#X obj 279 374 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 279 350 loadbang; -#X obj 100 135 rfft~; -#X obj 101 284 rifft~; -#X obj 101 309 /~ 256; -#X obj 101 108 *~; -#X obj 114 85 spec2_tabreceive~ rect; -#N canvas 0 0 450 300 graph1 0; -#X array real 256 float 0; -#X coords 0 1 255 -1 200 140 1; -#X restore 691 177 graph; -#N canvas 0 0 450 300 graph1 0; -#X array imag 256 float 0; -#X coords 0 1 255 -1 200 140 1; -#X restore 691 326 graph; -#X obj 697 56 inlet; -#X obj 697 80 t b; -#X obj 246 153 spec2_tabreceive~ real; -#X obj 262 178 spec2_tabreceive~ imag; -#X text 407 178 1.arg: table-name; -#X obj 157 264 spec2+~; -#X obj 39 261 spec2-~; -#X obj 31 216 spec2*~; -#X obj 84 219 spec2*~; -#X obj 145 218 spec2*~; -#X obj 204 218 spec2*~; -#X obj 697 102 tab_rfft filter real imag 256; -#X connect 0 0 13 0; -#X connect 5 0 7 0; -#X connect 5 1 6 0; -#X connect 6 0 4 0; -#X connect 7 0 4 0; -#X connect 8 0 5 0; -#X connect 9 0 8 0; -#X connect 10 0 24 0; -#X connect 10 0 26 0; -#X connect 10 1 25 0; -#X connect 10 1 27 0; -#X connect 11 0 12 0; -#X connect 12 0 1 0; -#X connect 13 0 10 0; -#X connect 14 0 13 1; -#X connect 17 0 18 0; -#X connect 18 0 28 0; -#X connect 19 0 24 1; -#X connect 19 0 27 1; -#X connect 20 0 25 1; -#X connect 20 0 26 1; -#X connect 22 0 11 1; -#X connect 23 0 11 0; -#X connect 24 0 23 0; -#X connect 25 0 23 1; -#X connect 26 0 22 0; -#X connect 27 0 22 1; -#X restore 248 137 pd spec2_blockfilter~ using spec2_tabreceive~; -#X obj 582 122 spec2_tabreceive~ filter; -#X text 735 121 1.arg: table-name; -#X msg 607 92 symbol filter; -#X text 90 302 IEM KUG; -#X text 74 290 musil; -#X text 104 290 @; -#X text 110 290 iem.at; -#X text 73 312 Graz \, Austria; -#X text 25 279 (c) Thomas Musil 2000 - 2006; -#X obj 249 114 dirac~; -#X text 143 -11 iem_spec2 calculates only (blocksize/2 + 1) samples -; -#X text 140 -27 receives spectrum from table with (blocksize/2 + 1) -; -#X connect 0 0 2 0; -#X connect 0 1 3 0; -#X connect 1 0 0 0; -#X connect 6 0 11 1; -#X connect 6 0 9 0; -#X connect 9 0 5 0; -#X connect 9 0 21 0; -#X connect 11 0 5 0; -#X connect 14 0 12 0; -#X connect 21 0 11 0; diff --git a/spec2_1p1z_freq~-help.pd b/spec2_1p1z_freq~-help.pd new file mode 100644 index 0000000..8eb269c --- /dev/null +++ b/spec2_1p1z_freq~-help.pd @@ -0,0 +1,92 @@ +#N canvas 20 32 724 388 10; +#X obj 42 70 dsp; +#X obj 42 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 +; +#X floatatom 42 111 5 0 0 0 - - -; +#X floatatom 55 94 5 0 0 0 - - -; +#N canvas 0 0 450 300 graph1 0; +#X array scope 256 float 0; +#X coords 0 100 255 0 300 200 1; +#X restore 346 82 graph; +#X text 130 39 iem_spec2 calculates only blocksize/2 + 1 samples of +block; +#N canvas 0 0 633 408 tables 0; +#N canvas 0 0 450 300 graph1 0; +#X array hann 259 float 0; +#X coords 0 1 258 -1 200 140 1; +#X restore 30 31 graph; +#X obj 246 34 loadbang; +#X msg 246 55 \; hann cosinesum 256 0.5 -0.5; +#X connect 1 0 2 0; +#X restore 149 82 pd tables; +#X obj 42 145 noise~; +#X obj 237 93 osc~ 11025; +#X msg 292 58 0; +#X obj 42 169 bpq2~ 7000 6 100; +#X msg 206 187 1 0 0; +#X msg 205 121 0.1 0 0.9; +#X text 90 302 IEM KUG; +#X text 74 290 musil; +#X text 104 290 @; +#X text 110 290 iem.at; +#X text 73 312 Graz \, Austria; +#X text 25 279 (c) Thomas Musil 2000 - 2006; +#X text 18 5 spec2_1p1z_freq~; +#N canvas 190 113 569 461 spec_analyse_by_1p1z_freq 0; +#X obj 100 51 inlet~; +#X obj 352 46 block~ 256 2; +#X obj 102 156 rfft~; +#X obj 101 108 *~; +#X obj 298 46 inlet; +#X obj 114 86 spec2_tabreceive~ hann; +#X obj 97 186 *~; +#X obj 124 186 *~; +#X obj 104 211 +~; +#X obj 104 266 powtodb~; +#X obj 104 291 tabsend~ scope; +#X obj 180 174 /; +#X obj 101 131 *~ 0.032; +#X msg 189 149 1 32; +#X obj 188 127 loadbang; +#X obj 300 225 spec2_1p1z_freq~ 0.5 0 0.5; +#X connect 0 0 3 0; +#X connect 2 0 6 0; +#X connect 2 0 6 1; +#X connect 2 1 7 0; +#X connect 2 1 7 1; +#X connect 3 0 12 0; +#X connect 4 0 15 0; +#X connect 5 0 3 1; +#X connect 6 0 8 0; +#X connect 7 0 8 1; +#X connect 8 0 15 0; +#X connect 9 0 10 0; +#X connect 11 0 12 1; +#X connect 12 0 2 0; +#X connect 13 0 11 0; +#X connect 14 0 13 0; +#X connect 15 0 9 0; +#X restore 42 214 pd spec_analyse_by_1p1z_freq; +#X msg 205 143 0.3 0 0.7; +#X msg 205 165 0.5 0 0.5; +#X msg 105 123 6; +#X msg 107 143 3; +#X msg 134 122 16; +#X msg 164 121 66; +#X text 168 3 filter the spectrum with a 1p1z-IIR filter; +#X text 169 14 first time from the left to right; +#X text 169 26 second time from the right to left; +#X connect 0 0 2 0; +#X connect 0 1 3 0; +#X connect 1 0 0 0; +#X connect 7 0 10 0; +#X connect 9 0 8 1; +#X connect 10 0 20 0; +#X connect 11 0 20 1; +#X connect 12 0 20 1; +#X connect 21 0 20 1; +#X connect 22 0 20 1; +#X connect 23 0 10 2; +#X connect 24 0 10 2; +#X connect 25 0 10 2; +#X connect 26 0 10 2; diff --git a/spec2_1p1z_time~-help.pd b/spec2_1p1z_time~-help.pd new file mode 100644 index 0000000..f583f4e --- /dev/null +++ b/spec2_1p1z_time~-help.pd @@ -0,0 +1,80 @@ +#N canvas 20 32 712 376 10; +#X obj 42 70 dsp; +#X obj 42 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 +; +#X floatatom 42 111 5 0 0 0 - - -; +#X floatatom 55 94 5 0 0 0 - - -; +#N canvas 0 0 450 300 graph1 0; +#X array scope 256 float 0; +#X coords 0 100 255 0 300 200 1; +#X restore 346 82 graph; +#X text 18 5 spec2_1p1z_time~; +#X text 132 20 iem_spec2 calculates only blocksize/2 + 1 samples of +block; +#N canvas 0 0 629 404 tables 0; +#N canvas 0 0 450 300 graph1 0; +#X array hann 259 float 0; +#X coords 0 1 258 -1 200 140 1; +#X restore 30 31 graph; +#X obj 246 34 loadbang; +#X msg 246 55 \; hann cosinesum 256 0.5 -0.5; +#X connect 1 0 2 0; +#X restore 149 82 pd tables; +#X obj 42 145 noise~; +#X obj 237 93 osc~ 11025; +#X msg 292 58 0; +#X obj 42 169 bpq2~ 7000 6 100; +#X msg 201 187 1 0 0; +#X msg 200 165 0.1 0 0.9; +#X msg 200 143 0.01 0 0.99; +#N canvas 190 113 557 449 spec_analyse_by_1p1z_time 0; +#X obj 100 51 inlet~; +#X obj 352 46 block~ 256 2; +#X obj 102 156 rfft~; +#X obj 101 108 *~; +#X obj 300 225 spec2_1p1z_time~ 0.5 0 0.5; +#X obj 298 46 inlet; +#X obj 114 86 spec2_tabreceive~ hann; +#X obj 97 186 *~; +#X obj 124 186 *~; +#X obj 104 211 +~; +#X obj 104 266 powtodb~; +#X obj 104 291 tabsend~ scope; +#X obj 180 174 /; +#X obj 101 131 *~ 0.032; +#X msg 189 149 1 32; +#X obj 188 127 loadbang; +#X connect 0 0 3 0; +#X connect 2 0 7 0; +#X connect 2 0 7 1; +#X connect 2 1 8 0; +#X connect 2 1 8 1; +#X connect 3 0 13 0; +#X connect 4 0 10 0; +#X connect 5 0 4 0; +#X connect 6 0 3 1; +#X connect 7 0 9 0; +#X connect 8 0 9 1; +#X connect 9 0 4 0; +#X connect 10 0 11 0; +#X connect 12 0 13 1; +#X connect 13 0 2 0; +#X connect 14 0 12 0; +#X connect 15 0 14 0; +#X restore 42 214 pd spec_analyse_by_1p1z_time; +#X text 90 302 IEM KUG; +#X text 74 290 musil; +#X text 104 290 @; +#X text 110 290 iem.at; +#X text 73 312 Graz \, Austria; +#X text 25 279 (c) Thomas Musil 2000 - 2006; +#X text 168 3 makes a feedback of the spectrum; +#X connect 0 0 2 0; +#X connect 0 1 3 0; +#X connect 1 0 0 0; +#X connect 8 0 11 0; +#X connect 10 0 9 1; +#X connect 11 0 15 0; +#X connect 12 0 15 1; +#X connect 13 0 15 1; +#X connect 14 0 15 1; diff --git a/spec2_abs~-help.pd b/spec2_abs~-help.pd new file mode 100644 index 0000000..be08be8 --- /dev/null +++ b/spec2_abs~-help.pd @@ -0,0 +1,14 @@ +#N canvas 52 28 470 264 10; +#X text 102 53 no arg; +#X text 83 169 IEM KUG; +#X text 67 157 musil; +#X text 97 157 @; +#X text 103 157 iem.at; +#X text 66 179 Graz \, Austria; +#X text 18 146 (c) Thomas Musil 2000 - 2006; +#X text 183 49 like; +#X obj 29 52 spec2_abs~; +#X text 30 16 spec2_abs~; +#X obj 226 52 abs~; +#X text 109 25 with (blocksize/2 + 1) bins; +#X text 106 14 take absolute value of a signal spectrum; diff --git a/spec2_add_scalar~-help.pd b/spec2_add_scalar~-help.pd new file mode 100644 index 0000000..02cedca --- /dev/null +++ b/spec2_add_scalar~-help.pd @@ -0,0 +1,14 @@ +#N canvas 52 28 575 275 10; +#X text 83 169 IEM KUG; +#X text 67 157 musil; +#X text 97 157 @; +#X text 103 157 iem.at; +#X text 66 179 Graz \, Austria; +#X text 18 146 (c) Thomas Musil 2000 - 2006; +#X text 361 51 like; +#X obj 412 52 +~ 0; +#X text 134 53 1.arg: value to add; +#X text 106 14 add a value to a signal spectrum with (blocksize/2 + +1) bins; +#X obj 30 52 spec2+s~ 0; +#X text 30 14 spec2+s~; diff --git a/spec2_add~-help.pd b/spec2_add~-help.pd new file mode 100644 index 0000000..c8a4a18 --- /dev/null +++ b/spec2_add~-help.pd @@ -0,0 +1,13 @@ +#N canvas 52 28 474 268 10; +#X obj 30 52 spec2+~; +#X text 86 51 no arg; +#X text 83 169 IEM KUG; +#X text 67 157 musil; +#X text 97 157 @; +#X text 103 157 iem.at; +#X text 66 179 Graz \, Austria; +#X text 18 146 (c) Thomas Musil 2000 - 2006; +#X text 30 15 spec2+~; +#X text 183 49 like; +#X obj 234 50 +~; +#X text 106 14 add 2 signal spectras with (blocksize/2 + 1) bins; diff --git a/spec2_block_delay~-help.pd b/spec2_block_delay~-help.pd new file mode 100644 index 0000000..fa8f493 --- /dev/null +++ b/spec2_block_delay~-help.pd @@ -0,0 +1,69 @@ +#N canvas 90 35 769 482 10; +#X obj 42 70 dsp; +#X obj 42 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 +; +#X floatatom 42 111 5 0 0 0 - - -; +#X floatatom 55 94 5 0 0 0 - - -; +#N canvas 0 0 450 300 graph1 0; +#X array array101 192 float 0; +#X coords 0 1 191 -1 382 128 1; +#X restore 319 224 graph; +#X obj 46 156 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 19 4 spec2_block_delay~; +#X text 202 216 no arguments; +#X text 90 402 IEM KUG; +#X text 74 390 musil; +#X text 104 390 @; +#X text 110 390 iem.at; +#X text 73 412 Graz \, Austria; +#X text 25 379 (c) Thomas Musil 2000 - 2006; +#X obj 84 217 spec2_block_delay~; +#X text 146 21 but copy only (blocksize/2 + 1) samples; +#N canvas 0 0 470 320 init 0; +#X obj 52 43 t f f; +#X obj 50 -10 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 43 77 + 0.5; +#X obj 52 -36 loadbang; +#X obj 50 11 for++ -64 63; +#X obj 56 107 / 64; +#X obj 101 105 + 64; +#X obj 57 147 tabwrite array100; +#X msg 161 -9 \; array100 xticks 0 32 2; +#X msg 174 75 \; array101 xticks 0 32 2; +#X msg 177 125 \; array101 xlabel -1.1 0 32 64 96 128 160 192; +#X msg 165 30 \; array100 xlabel -1.1 0 32 64 96 128; +#X connect 0 0 2 0; +#X connect 0 1 6 0; +#X connect 1 0 4 0; +#X connect 2 0 5 0; +#X connect 3 0 1 0; +#X connect 3 0 8 0; +#X connect 3 0 11 0; +#X connect 3 0 9 0; +#X connect 3 0 10 0; +#X connect 4 0 0 0; +#X connect 5 0 7 0; +#X connect 6 0 7 1; +#X restore 323 394 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array array100 128 float 0; +#X coords 0 1 127 -1 256 128 1; +#X restore 319 62 graph; +#X obj 84 192 tabplay~ array100; +#X obj 46 252 tabwrite~ array101; +#X text 161 4 delay spectrum around blocksize samples; +#X text 484 372 0 .. 32: preceding signal (== 0); +#X text 480 385 33 .. 63: ignored input ramp; +#X text 481 399 64 .. 96: delayed ramp signal; +#X text 477 412 97 .. 127: ignored input ramp; +#X text 473 425 128 .. 160: delayed ramp signal; +#X text 471 438 161 .. 191: ignored input signal (== 0); +#X connect 0 0 2 0; +#X connect 0 1 3 0; +#X connect 1 0 0 0; +#X connect 5 0 18 0; +#X connect 5 0 19 0; +#X connect 14 0 19 0; +#X connect 18 0 14 0; diff --git a/spec2_clip_max~-help.pd b/spec2_clip_max~-help.pd new file mode 100644 index 0000000..e2871b9 --- /dev/null +++ b/spec2_clip_max~-help.pd @@ -0,0 +1,36 @@ +#N canvas 52 28 606 339 10; +#X text 230 141 no arg; +#X text 81 272 IEM KUG; +#X text 65 260 musil; +#X text 95 260 @; +#X text 101 260 iem.at; +#X text 64 282 Graz \, Austria; +#X text 16 249 (c) Thomas Musil 2000 - 2006; +#X text 351 143 like; +#X obj 128 141 spec2_clip_max~; +#X obj 128 118 sig~; +#X floatatom 128 98 5 0 0 0 - - -; +#X obj 212 118 sig~; +#X floatatom 212 98 5 0 0 0 - - -; +#X obj 401 144 min~; +#X text 9 6 spec2_clip_max~; +#X obj 21 61 dsp; +#X obj 21 38 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X floatatom 21 107 5 0 0 0 - - -; +#X floatatom 34 86 5 0 0 0 - - -; +#X text 120 28 iem_spec2 calculates only blocksize/2 + 1 samples of +block; +#X text 139 9 restrict a signal to lie lower than max limit; +#X obj 84 179 print~; +#X obj 85 159 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X connect 8 0 21 0; +#X connect 9 0 8 0; +#X connect 10 0 9 0; +#X connect 11 0 8 1; +#X connect 12 0 11 0; +#X connect 15 0 17 0; +#X connect 15 1 18 0; +#X connect 16 0 15 0; +#X connect 22 0 21 0; diff --git a/spec2_clip_min~-help.pd b/spec2_clip_min~-help.pd new file mode 100644 index 0000000..eb782fa --- /dev/null +++ b/spec2_clip_min~-help.pd @@ -0,0 +1,36 @@ +#N canvas 52 28 546 330 10; +#X text 230 141 no arg; +#X text 81 272 IEM KUG; +#X text 65 260 musil; +#X text 95 260 @; +#X text 101 260 iem.at; +#X text 64 282 Graz \, Austria; +#X text 16 249 (c) Thomas Musil 2000 - 2006; +#X text 351 143 like; +#X obj 128 118 sig~; +#X floatatom 128 98 5 0 0 0 - - -; +#X obj 212 118 sig~; +#X floatatom 212 98 5 0 0 0 - - -; +#X obj 21 61 dsp; +#X obj 21 38 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 +; +#X floatatom 21 107 5 0 0 0 - - -; +#X floatatom 34 86 5 0 0 0 - - -; +#X text 120 28 iem_spec2 calculates only blocksize/2 + 1 samples of +block; +#X text 9 6 spec2_clip_min~; +#X text 139 9 restrict a signal to lie higher than min limit; +#X obj 401 144 max~; +#X obj 128 141 spec2_clip_min~; +#X obj 84 179 print~; +#X obj 85 159 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X connect 8 0 20 0; +#X connect 9 0 8 0; +#X connect 10 0 20 1; +#X connect 11 0 10 0; +#X connect 12 0 14 0; +#X connect 12 1 15 0; +#X connect 13 0 12 0; +#X connect 20 0 21 0; +#X connect 22 0 21 0; diff --git a/spec2_dbtopow~-help.pd b/spec2_dbtopow~-help.pd new file mode 100644 index 0000000..00282c9 --- /dev/null +++ b/spec2_dbtopow~-help.pd @@ -0,0 +1,14 @@ +#N canvas 52 29 470 263 10; +#X text 120 53 no arg; +#X text 83 169 IEM KUG; +#X text 67 157 musil; +#X text 97 157 @; +#X text 103 157 iem.at; +#X text 66 179 Graz \, Austria; +#X text 18 146 (c) Thomas Musil 2000 - 2006; +#X text 211 52 like; +#X text 135 24 with (blocksize/2 + 1) bins; +#X obj 243 54 dbtopow~; +#X obj 26 53 spec2_dbtopow~; +#X text 29 15 spec2_dbtopow~; +#X text 132 13 convert dB to power of a signal spectrum; diff --git a/spec2_dbtorms~-help.pd b/spec2_dbtorms~-help.pd new file mode 100644 index 0000000..11d99cb --- /dev/null +++ b/spec2_dbtorms~-help.pd @@ -0,0 +1,14 @@ +#N canvas 52 29 470 263 10; +#X text 120 53 no arg; +#X text 83 169 IEM KUG; +#X text 67 157 musil; +#X text 97 157 @; +#X text 103 157 iem.at; +#X text 66 179 Graz \, Austria; +#X text 18 146 (c) Thomas Musil 2000 - 2006; +#X text 211 52 like; +#X text 135 24 with (blocksize/2 + 1) bins; +#X text 29 15 spec2_dbtorms~; +#X obj 243 54 dbtorms~; +#X obj 26 53 spec2_dbtorms~; +#X text 132 13 convert dB to rms value of a signal spectrum; diff --git a/spec2_matrix_bundle_stat~-help.pd b/spec2_matrix_bundle_stat~-help.pd new file mode 100644 index 0000000..746f42a --- /dev/null +++ b/spec2_matrix_bundle_stat~-help.pd @@ -0,0 +1,153 @@ +#N canvas 106 40 882 682 10; +#X obj 18 44 dsp; +#X obj 18 14 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X floatatom 18 100 5 0 0 0 - - -; +#X floatatom 33 74 5 0 0 0 - - -; +#X obj 46 322 sig~ 1; +#X obj 96 353 sig~ 2; +#X obj 145 377 sig~ 4; +#X obj 195 402 sig~ 8; +#X obj 234 431 sig~ 16; +#X obj 47 488 unsig~; +#X floatatom 47 512 5 0 0 0 - - -; +#X obj 245 491 unsig~; +#X floatatom 245 515 5 0 0 0 - - -; +#X obj 298 442 any; +#X msg 298 154 bundle 0 0 0 0 0; +#X msg 298 180 bundle 1 1 1 1 1; +#X msg 298 201 bundle 2 2 2 2 2; +#X msg 298 227 bundle 1 0 0 0 0; +#X msg 298 247 bundle 0 1 0 0 0; +#X msg 298 267 bundle 0 0 1 0 0; +#X msg 298 287 bundle 0 0 0 1 0; +#X msg 298 307 bundle 0 0 0 0 1; +#X msg 298 333 bundle 2 0 0 0 0; +#X msg 298 353 bundle 0 2 0 0 0; +#X msg 298 373 bundle 0 0 2 0 0; +#X msg 298 393 bundle 0 0 0 2 0; +#X msg 298 413 bundle 0 0 0 0 2; +#X obj 432 442 pp element; +#X obj 432 419 pack 0 0; +#X obj 432 397 f; +#X floatatom 475 368 4 1 5 0 - - -; +#X floatatom 445 368 4 0 2 0 - - -; +#X obj 422 375 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 706 15 SIG_OUT = A * SIG_IN; +#X text 234 14 multiplies a n-dimensional signal-in-vector with a dynamic +static (like sig~) signal-matrix to a n-dimensional signal-out-vector +; +#X text 725 33 A is quadratic; +#X text 662 50 dim(SIG_OUT) = dim(SIG_IN) = n; +#X text 234 51 each matrix-column has only one one \, the other elements +are zero; +#X text 301 475 2.arg Nr. of outlets = rows; +#X text 301 464 1.arg Nr. of inlets = columns; +#X text 517 336 message "element"; +#X text 531 365 2.) item column_index (1 .. nr_columns); +#X text 531 353 1.) item row_index (0 .. nr_rows); +#X text 446 111 message "bundle"; +#X text 556 381 where the single one of the column will be placed; +#X text 557 393 if (row-index == 0) -> the column has only zeros; +#X text 449 126 (nr_inlets = nr_columns) row-indices (0 .. +nr_row); +#X text 454 162 if (row-index == 0) -> the column has only zeros; +#X text 453 150 where the single one of each column will be placed +; +#N canvas 176 206 818 475 block_______________________ 0; +#X obj 564 88 block~ 128 2; +#X obj 48 29 inlet~; +#X obj 51 260 outlet~; +#X obj 103 30 inlet~; +#X obj 159 29 inlet~; +#X obj 214 30 inlet~; +#X obj 272 30 inlet~; +#X obj 246 257 outlet~; +#X obj 51 209 spec2_matrix_bundle_stat~ 5 2; +#X obj 350 30 inlet; +#X obj 586 308 for++ 0 127 0.1; +#X obj 586 332 moses 64; +#X msg 586 359 1 \$1; +#X msg 637 358 0 \$1; +#X obj 586 287 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 586 267 loadbang; +#X obj 540 240 table \$0_rect 128; +#X obj 586 385 tabwrite \$0_rect; +#X obj 64 57 tabreceive~ \$0_rect; +#X obj 48 79 *~; +#X obj 116 81 tabreceive~ \$0_rect; +#X obj 100 103 *~; +#X obj 170 103 tabreceive~ \$0_rect; +#X obj 154 125 *~; +#X obj 220 124 tabreceive~ \$0_rect; +#X obj 204 146 *~; +#X obj 270 146 tabreceive~ \$0_rect; +#X obj 254 168 *~; +#X connect 1 0 19 0; +#X connect 3 0 21 0; +#X connect 4 0 23 0; +#X connect 5 0 25 0; +#X connect 6 0 27 0; +#X connect 8 0 2 0; +#X connect 8 1 7 0; +#X connect 9 0 8 0; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 11 1 13 0; +#X connect 12 0 17 0; +#X connect 13 0 17 0; +#X connect 14 0 10 0; +#X connect 15 0 14 0; +#X connect 18 0 19 1; +#X connect 19 0 8 0; +#X connect 20 0 21 1; +#X connect 21 0 8 1; +#X connect 22 0 23 1; +#X connect 23 0 8 2; +#X connect 24 0 25 1; +#X connect 25 0 8 3; +#X connect 26 0 27 1; +#X connect 27 0 8 4; +#X restore 48 463 pd block_______________________; +#X text 50 13 spec2_matrix_bundle_stat~; +#X text 90 575 IEM KUG; +#X text 74 563 musil; +#X text 104 563 @; +#X text 110 563 iem.at; +#X text 73 585 Graz \, Austria; +#X text 25 552 (c) Thomas Musil 2000 - 2006; +#X text 234 83 it calculates matrix only with (blocksize/2 + 1) samples +per signalvector; +#X connect 0 0 2 0; +#X connect 0 1 3 0; +#X connect 1 0 0 0; +#X connect 4 0 49 0; +#X connect 5 0 49 1; +#X connect 6 0 49 2; +#X connect 7 0 49 3; +#X connect 8 0 49 4; +#X connect 9 0 10 0; +#X connect 11 0 12 0; +#X connect 13 0 49 5; +#X connect 14 0 13 0; +#X connect 15 0 13 0; +#X connect 16 0 13 0; +#X connect 17 0 13 0; +#X connect 18 0 13 0; +#X connect 19 0 13 0; +#X connect 20 0 13 0; +#X connect 21 0 13 0; +#X connect 22 0 13 0; +#X connect 23 0 13 0; +#X connect 24 0 13 0; +#X connect 25 0 13 0; +#X connect 26 0 13 0; +#X connect 28 0 27 0; +#X connect 29 0 28 0; +#X connect 30 0 28 1; +#X connect 31 0 29 1; +#X connect 32 0 29 0; +#X connect 49 0 9 0; +#X connect 49 1 11 0; diff --git a/spec2_mul_scalar~-help.pd b/spec2_mul_scalar~-help.pd new file mode 100644 index 0000000..d0f6caf --- /dev/null +++ b/spec2_mul_scalar~-help.pd @@ -0,0 +1,14 @@ +#N canvas 52 28 591 268 10; +#X text 83 169 IEM KUG; +#X text 67 157 musil; +#X text 97 157 @; +#X text 103 157 iem.at; +#X text 66 179 Graz \, Austria; +#X text 18 146 (c) Thomas Musil 2000 - 2006; +#X text 361 51 like; +#X text 30 14 spec2*s~; +#X text 107 26 with (blocksize/2 + 1) bins; +#X text 106 14 multiply a value with a signal spectrum; +#X text 134 53 1.arg: value to multiply; +#X obj 30 52 spec2*s~ 0; +#X obj 412 52 *~ 0; diff --git a/spec2_mul~-help.pd b/spec2_mul~-help.pd new file mode 100644 index 0000000..65e173a --- /dev/null +++ b/spec2_mul~-help.pd @@ -0,0 +1,14 @@ +#N canvas 52 28 474 268 10; +#X text 86 51 no arg; +#X text 83 169 IEM KUG; +#X text 67 157 musil; +#X text 97 157 @; +#X text 103 157 iem.at; +#X text 66 179 Graz \, Austria; +#X text 18 146 (c) Thomas Musil 2000 - 2006; +#X text 183 49 like; +#X text 30 15 spec2*~; +#X obj 30 52 spec2*~; +#X obj 234 50 *~; +#X text 106 14 multiply 2 signal spectras with (blocksize/2 + 1) bins +; diff --git a/spec2_powtodb~-help.pd b/spec2_powtodb~-help.pd new file mode 100644 index 0000000..fd48690 --- /dev/null +++ b/spec2_powtodb~-help.pd @@ -0,0 +1,14 @@ +#N canvas 52 29 470 263 10; +#X text 120 53 no arg; +#X text 83 169 IEM KUG; +#X text 67 157 musil; +#X text 97 157 @; +#X text 103 157 iem.at; +#X text 66 179 Graz \, Austria; +#X text 18 146 (c) Thomas Musil 2000 - 2006; +#X text 211 52 like; +#X text 135 24 with (blocksize/2 + 1) bins; +#X obj 26 53 spec2_powtodb~; +#X text 29 15 spec2_powtodb~; +#X obj 243 54 powtodb~; +#X text 133 13 convert power to db of a signal spectrum; diff --git a/spec2_rmstodb~-help.pd b/spec2_rmstodb~-help.pd new file mode 100644 index 0000000..c3c6db0 --- /dev/null +++ b/spec2_rmstodb~-help.pd @@ -0,0 +1,14 @@ +#N canvas 52 29 470 263 10; +#X text 120 53 no arg; +#X text 83 169 IEM KUG; +#X text 67 157 musil; +#X text 97 157 @; +#X text 103 157 iem.at; +#X text 66 179 Graz \, Austria; +#X text 18 146 (c) Thomas Musil 2000 - 2006; +#X text 211 52 like; +#X text 135 24 with (blocksize/2 + 1) bins; +#X text 29 15 spec2_rmstodb~; +#X text 132 13 convert rms value to db of a signal spectrum; +#X obj 26 53 spec2_rmstodb~; +#X obj 243 54 rmstodb~; diff --git a/spec2_shift~-help.pd b/spec2_shift~-help.pd new file mode 100644 index 0000000..d87cc5f --- /dev/null +++ b/spec2_shift~-help.pd @@ -0,0 +1,40 @@ +#N canvas 10 8 548 293 10; +#X obj 15 90 dsp; +#X obj 15 67 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X floatatom 15 131 5 0 0 0 - - -; +#X floatatom 28 114 5 0 0 0 - - -; +#N canvas 0 0 450 300 graph2 0; +#X array array100 64 float 1; +#A 0 -0.550001 -0.750001 -0.700001 -0.600001 -0.500001 -0.400001 -0.400001 +-0.350001 -0.25 -0.2 -0.15 -0.1 -0.0500001 -0.0500001 3.72529e-008 +0.0500001 0.0500001 0.1 0.1 0.15 0.2 0.2 0.250001 0.250001 0.300001 +0.350001 0.350001 0.400001 0.500001 0.500001 0.516668 0.533334 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; +#X coords 0 1 63 -1 64 40 1; +#X restore 436 66 graph; +#X text 83 210 IEM KUG; +#X text 67 198 musil; +#X text 97 198 @; +#X text 103 198 iem.at; +#X text 66 220 Graz \, Austria; +#X text 18 187 (c) Thomas Musil 2000 - 2006; +#N canvas 0 0 450 300 graph2 0; +#X array array101 64 float 0; +#X coords 0 1 63 -1 64 40 1; +#X restore 436 126 graph; +#X obj 143 102 spec2_shift~ 10; +#X obj 144 131 tabsend~ array101; +#X obj 142 71 tabreceive~ array100; +#X floatatom 105 51 5 -32 32 0 - - -; +#X text 15 10 spec2_shift~; +#X text 248 101 1.arg: shift width; +#X text 136 6 shift a spectrum of (blocksize/2 + 1) to the left or +right about n bins (+- blocksize/2); +#X text 80 37 shift width; +#X connect 0 0 2 0; +#X connect 0 1 3 0; +#X connect 1 0 0 0; +#X connect 12 0 13 0; +#X connect 14 0 12 0; +#X connect 15 0 12 0; diff --git a/spec2_sqrt~-help.pd b/spec2_sqrt~-help.pd new file mode 100644 index 0000000..15dbfe0 --- /dev/null +++ b/spec2_sqrt~-help.pd @@ -0,0 +1,31 @@ +#N canvas 52 28 437 304 10; +#X text 218 120 no arg; +#X text 89 234 IEM KUG; +#X text 73 222 musil; +#X text 103 222 @; +#X text 109 222 iem.at; +#X text 72 244 Graz \, Austria; +#X text 24 211 (c) Thomas Musil 2000 - 2006; +#X text 327 115 like; +#X text 109 25 with (blocksize/2 + 1) bins; +#X text 17 13 spec2_sqrt~; +#X obj 144 120 spec2_sqrt~; +#X obj 359 116 sqrt~; +#X obj 143 98 sig~ 16; +#X obj 143 148 print~; +#X obj 111 119 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 29 97 dsp; +#X obj 29 71 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X floatatom 143 79 5 0 0 0 - - -; +#X floatatom 29 142 5 0 0 0 - - -; +#X floatatom 42 122 5 0 0 0 - - -; +#X text 106 14 take square root value of a signal spectrum; +#X connect 10 0 13 0; +#X connect 12 0 10 0; +#X connect 14 0 13 0; +#X connect 15 0 18 0; +#X connect 15 1 19 0; +#X connect 16 0 15 0; +#X connect 17 0 12 0; diff --git a/spec2_stretch~-help.pd b/spec2_stretch~-help.pd new file mode 100644 index 0000000..3f69ed0 --- /dev/null +++ b/spec2_stretch~-help.pd @@ -0,0 +1,42 @@ +#N canvas 10 8 548 293 10; +#X obj 15 90 dsp; +#X obj 15 67 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 +; +#X floatatom 15 131 5 0 0 0 - - -; +#X floatatom 28 114 5 0 0 0 - - -; +#N canvas 0 0 450 300 graph2 0; +#X array array100 64 float 1; +#A 0 -0.550001 -0.750001 -0.700001 -0.600001 -0.500001 -0.400001 -0.400001 +-0.350001 -0.25 -0.2 -0.15 -0.1 -0.0500001 -0.0500001 3.72529e-008 +0.0500001 0.0500001 0.1 0.1 0.15 0.2 0.2 0.250001 0.250001 0.300001 +0.350001 0.350001 0.400001 0.500001 0.500001 0.516668 0.533334 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; +#X coords 0 1 63 -1 64 40 1; +#X restore 436 66 graph; +#X text 83 210 IEM KUG; +#X text 67 198 musil; +#X text 97 198 @; +#X text 103 198 iem.at; +#X text 66 220 Graz \, Austria; +#X text 18 187 (c) Thomas Musil 2000 - 2006; +#N canvas 0 0 450 300 graph2 0; +#X array array101 64 float 0; +#X coords 0 1 63 -1 64 40 1; +#X restore 436 126 graph; +#X obj 144 131 tabsend~ array101; +#X obj 142 71 tabreceive~ array100; +#X floatatom 93 41 5 20 500 0 - - -; +#X obj 143 102 spec2_stretch~ 1; +#X obj 93 58 / 100; +#X floatatom 93 78 5 0 0 0 - - -; +#X text 16 10 spec2_stretch~; +#X text 137 6 stretch a spectrum of (blocksize/2 + 1) by a factor; +#X text 256 102 1.arg: stretch factor; +#X connect 0 0 2 0; +#X connect 0 1 3 0; +#X connect 1 0 0 0; +#X connect 13 0 15 0; +#X connect 14 0 16 0; +#X connect 15 0 12 0; +#X connect 16 0 17 0; +#X connect 17 0 15 0; diff --git a/spec2_sub~-help.pd b/spec2_sub~-help.pd new file mode 100644 index 0000000..9acd02a --- /dev/null +++ b/spec2_sub~-help.pd @@ -0,0 +1,14 @@ +#N canvas 52 28 466 260 10; +#X text 86 51 no arg; +#X text 83 169 IEM KUG; +#X text 67 157 musil; +#X text 97 157 @; +#X text 103 157 iem.at; +#X text 66 179 Graz \, Austria; +#X text 18 146 (c) Thomas Musil 2000 - 2006; +#X text 183 49 like; +#X obj 30 52 spec2-~; +#X text 30 15 spec2-~; +#X obj 234 50 -~; +#X text 106 14 subtract 2 signal spectras with (blocksize/2 + 1) bins +; diff --git a/spec2_sum~-help.pd b/spec2_sum~-help.pd new file mode 100644 index 0000000..af87bc9 --- /dev/null +++ b/spec2_sum~-help.pd @@ -0,0 +1,67 @@ +#N canvas 90 35 781 494 10; +#X obj 42 70 dsp; +#X obj 42 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 +; +#X floatatom 42 111 5 0 0 0 - - -; +#X floatatom 55 94 5 0 0 0 - - -; +#N canvas 0 0 450 300 graph1 0; +#X array array101 192 float 0; +#X coords 0 50 191 -50 382 128 1; +#X restore 319 224 graph; +#X obj 46 156 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 202 216 no arguments; +#X text 90 402 IEM KUG; +#X text 74 390 musil; +#X text 104 390 @; +#X text 110 390 iem.at; +#X text 73 412 Graz \, Austria; +#X text 25 379 (c) Thomas Musil 2000 - 2006; +#N canvas 0 0 754 332 init 0; +#X obj 52 43 t f f; +#X obj 50 -10 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 52 -36 loadbang; +#X obj 57 147 tabwrite array100; +#X msg 161 -9 \; array100 xticks 0 32 2; +#X msg 174 75 \; array101 xticks 0 32 2; +#X msg 165 30 \; array100 xlabel -1.1 0 32 64 96 128; +#X obj 50 11 for++ 0 127; +#X obj 56 107 / 128; +#X msg 431 -9 \; array100 yticks 0 0.5 2; +#X msg 435 30 \; array100 ylabel -6 -1 -0.5 0 0.5 1; +#X msg 177 125 \; array101 xlabel -55 0 32 64 96 128 160 192; +#X msg 444 75 \; array101 yticks 0 25 2; +#X msg 447 125 \; array101 ylabel -6 -50 -25 0 25 50; +#X connect 0 0 8 0; +#X connect 0 1 3 1; +#X connect 1 0 7 0; +#X connect 2 0 1 0; +#X connect 2 0 4 0; +#X connect 2 0 6 0; +#X connect 2 0 5 0; +#X connect 2 0 11 0; +#X connect 2 0 9 0; +#X connect 2 0 10 0; +#X connect 2 0 12 0; +#X connect 2 0 13 0; +#X connect 7 0 0 0; +#X connect 8 0 3 0; +#X restore 323 394 pd init; +#N canvas 0 0 450 300 graph1 0; +#X array array100 128 float 0; +#X coords 0 1 127 -1 256 128 1; +#X restore 319 62 graph; +#X obj 84 192 tabplay~ array100; +#X obj 46 252 tabwrite~ array101; +#X obj 84 218 spec2_sum~; +#X text 19 4 spec2_sum~; +#X text 400 5 (blocksize/2 + 1) bins; +#X text 161 4 accumulate the sum of the spectrum with; +#X connect 0 0 2 0; +#X connect 0 1 3 0; +#X connect 1 0 0 0; +#X connect 5 0 15 0; +#X connect 5 0 16 0; +#X connect 15 0 17 0; +#X connect 17 0 16 0; diff --git a/spec2_tab_conv~-help.pd b/spec2_tab_conv~-help.pd new file mode 100644 index 0000000..168488b --- /dev/null +++ b/spec2_tab_conv~-help.pd @@ -0,0 +1,185 @@ +#N canvas 9 18 777 596 10; +#X obj 44 49 dsp; +#X obj 44 26 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X floatatom 44 90 5 0 0 0 - - -; +#X floatatom 57 73 5 0 0 0 - - -; +#N canvas 0 0 450 300 graph1 0; +#X array win 50 float 0; +#X coords 0 1 49 -1 200 140 1; +#X restore 267 333 graph; +#X floatatom 64 144 7 0 0 0 - - -; +#X obj 189 188 noise~; +#X floatatom 316 170 5 2 40 0 - - -; +#X msg 316 147 8; +#X text 22 -1 spec2_tab_conv~; +#X obj 64 166 osc~ 5000; +#N canvas 148 208 734 434 gen_win 0; +#X obj 92 43 inlet; +#X obj 92 121 - 1; +#X obj 92 142 t f f; +#X obj 92 167 / 20; +#X obj 92 188 * 3.14159; +#X obj 92 211 sin; +#X msg 92 232 \$1 \$1; +#X obj 92 254 *; +#X obj 92 65 t b f b; +#X msg 253 218 1 \$1; +#X obj 253 240 /; +#X obj 224 367 outlet; +#X obj 225 315 f; +#X msg 224 337 set win \$1; +#X obj 527 33 table hwin 50; +#X obj 242 124 tab_const hwin; +#X obj 92 274 tabwrite hwin; +#X obj 191 146 tab_sum hwin; +#X obj 253 264 tab_mul_scalar hwin hwin; +#X obj 191 192 tab_copy hwin win; +#X obj 93 95 for++ 1 20; +#X connect 0 0 8 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 2 1 16 1; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 16 0; +#X connect 8 0 20 0; +#X connect 8 1 3 1; +#X connect 8 1 12 1; +#X connect 8 1 20 1; +#X connect 8 2 15 0; +#X connect 9 0 10 0; +#X connect 10 0 18 0; +#X connect 12 0 13 0; +#X connect 13 0 11 0; +#X connect 17 0 19 0; +#X connect 17 1 9 0; +#X connect 19 0 12 0; +#X connect 20 0 1 0; +#X connect 20 1 17 0; +#X restore 316 189 pd gen_win; +#X obj 316 124 loadbang; +#N canvas 6 92 777 603 spec2_blockfilter~ 0; +#X obj 59 29 inlet~; +#X obj 72 488 outlet~; +#X obj 61 101 rfft~; +#X obj 71 392 rifft~; +#X obj 407 22 inlet; +#X text 199 240 1.arg: table-name; +#X obj 474 23 block~ 256 2; +#N canvas 0 0 450 300 graph1 0; +#X array hsin 256 float 0; +#X coords 0 1 255 -1 200 140 1; +#X restore 423 296 graph; +#X obj 458 140 for++ 0 255 0.1; +#X obj 458 119 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 458 160 t f f; +#X obj 457 190 / 256; +#X obj 457 210 * 3.14159; +#X obj 457 229 sin; +#X obj 457 251 tabwrite hsin; +#X obj 72 51 tabreceive~ hsin; +#X obj 60 73 *~; +#X obj 458 95 loadbang; +#X obj 241 100 rfft~; +#X obj 252 50 tabreceive~ hsin; +#X obj 240 72 *~; +#X obj 241 26 inlet~; +#X obj 84 417 tabreceive~ hsin; +#X obj 72 439 *~; +#X text 199 251 2.arg: table-size; +#X obj 72 463 /~ 32768; +#X obj 59 290 spec2_dbtorms~; +#X obj 65 363 spec2*~; +#X obj 122 366 spec2*~; +#X obj 58 178 spec2+~; +#X obj 47 151 spec2*~; +#X obj 94 151 spec2*~; +#X obj 58 201 spec2_powtodb~; +#X obj 59 247 spec2_tab_conv~ win 8; +#X connect 0 0 16 0; +#X connect 2 0 30 0; +#X connect 2 0 30 1; +#X connect 2 1 31 0; +#X connect 2 1 31 1; +#X connect 3 0 23 0; +#X connect 4 0 33 0; +#X connect 8 0 10 0; +#X connect 9 0 8 0; +#X connect 10 0 11 0; +#X connect 10 1 14 1; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 15 0 16 1; +#X connect 16 0 2 0; +#X connect 17 0 9 0; +#X connect 18 0 27 1; +#X connect 18 1 28 1; +#X connect 19 0 20 1; +#X connect 20 0 18 0; +#X connect 21 0 20 0; +#X connect 22 0 23 1; +#X connect 23 0 25 0; +#X connect 25 0 1 0; +#X connect 26 0 27 0; +#X connect 26 0 28 0; +#X connect 27 0 3 0; +#X connect 28 0 3 1; +#X connect 29 0 32 0; +#X connect 30 0 29 0; +#X connect 31 0 29 1; +#X connect 32 0 33 0; +#X connect 33 0 26 0; +#X restore 64 211 pd spec2_blockfilter~ using spec2_tab_conv~; +#X text 550 227 1.arg: table-name; +#X text 551 240 2.arg: table-size; +#X msg 429 209 set win 8; +#X obj 408 234 spec2_tab_conv~ win 8; +#X obj 68 298 dac~; +#X obj 144 311 prvu~; +#X obj 145 339 vu 15 120 empty empty -1 -8 0 8 -66577 -1 1 0; +#X floatatom 143 505 5 0 0 0 - - -; +#X floatatom 154 479 5 0 0 0 - - -; +#X msg 156 288 reset; +#X text 146 4 convolute a spectrum of size (blocksize/2 + 1) with a +table of size n; +#X obj 69 266 *~ 0.003; +#X obj 133 255 dbtorms; +#X obj 201 252 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 +-1 -1 0 1; +#X obj 161 131 mtof; +#X obj 165 111 hsl 137 15 0 136 0 0 empty empty empty -2 -6 0 8 -262144 +-1 -1 0 1; +#X text 98 553 IEM KUG; +#X text 82 541 musil; +#X text 112 541 @; +#X text 118 541 iem.at; +#X text 81 563 Graz \, Austria; +#X text 33 530 (c) Thomas Musil 2000 - 2006; +#X connect 0 0 2 0; +#X connect 0 1 3 0; +#X connect 1 0 0 0; +#X connect 5 0 10 0; +#X connect 6 0 13 1; +#X connect 7 0 11 0; +#X connect 8 0 7 0; +#X connect 10 0 13 0; +#X connect 11 0 13 2; +#X connect 12 0 8 0; +#X connect 13 0 25 0; +#X connect 16 0 17 0; +#X connect 19 0 20 0; +#X connect 20 0 21 0; +#X connect 20 1 22 0; +#X connect 23 0 19 0; +#X connect 25 0 19 0; +#X connect 25 0 18 0; +#X connect 25 0 18 1; +#X connect 26 0 25 1; +#X connect 27 0 26 0; +#X connect 28 0 5 0; +#X connect 29 0 28 0; diff --git a/spec2_tabreceive_enable~-help.pd b/spec2_tabreceive_enable~-help.pd new file mode 100644 index 0000000..c4ecebf --- /dev/null +++ b/spec2_tabreceive_enable~-help.pd @@ -0,0 +1,139 @@ +#N canvas 22 17 939 438 10; +#X obj 44 49 dsp; +#X obj 44 26 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X floatatom 44 90 5 0 0 0 - - -; +#X floatatom 57 73 5 0 0 0 - - -; +#N canvas 0 0 450 300 graph1 0; +#X array scope 512 float 0; +#X coords 0 1 511 -1 512 100 1; +#X restore 371 240 graph; +#X obj 121 178 tabwrite~ scope; +#X obj 211 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#N canvas 0 0 450 300 graph2 0; +#X array filter 256 float 1; +#A 0 0 0 0 0 0 0 0 0.04 0.04 0.08 0.14 0.18 0.2 0.24 0.26 0.28 0.32 +0.34 0.36 0.38 0.4 0.42 0.44 0.44 0.46 0.5 0.54 0.58 0.6 0.62 0.646667 +0.673334 0.7 0.74 0.76 0.78 0 0 0 0 0 0 -0.06 -0.0866667 -0.113333 +-0.14 -0.175 -0.21 -0.245 -0.28 -0.31 -0.34 -0.366667 -0.393333 -0.42 +-0.45 -0.48 -0.52 -0.56 -0.58 -0.62 -0.62 -0.66 -0.67 -0.68 -0.7 -0.74 +-0.76 -0.78 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.8 0.78 0.76 0.68 0.62 0.58 +0.5 0.473334 0.446667 0.42 0.38 0.34 0.3 0.266667 0.233333 0.2 0.17 +0.14 0.11 0.08 0.05 0.02 0 0 0 0 0 0 -0.68 -0.68 -0.62 -0.56 -0.52 +-0.48 -0.45 -0.42 -0.37 -0.32 -0.28 -0.24 -0.19 -0.14 -0.12 -0.1 -0.08 +-0.02 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; +#X coords 0 1 255 -1 256 100 1; +#X restore 502 -33 graph; +#X obj 136 91 del 100; +#X msg 781 2 \; filter const 0; +#X text 14 -28 spec2_tabreceive_enable~; +#X obj 278 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X text 295 47 enable; +#X text 209 -15 and enables/disables reading the table; +#N canvas 63 41 965 587 spec2_blockfilter~ 0; +#X obj 100 51 inlet~; +#X obj 102 381 outlet~; +#X obj 271 120 block~ 256 2; +#N canvas 0 0 450 300 graph1 0; +#X array rect 256 float 0; +#X coords 0 1 255 -1 200 140 1; +#X restore 460 21 graph; +#X obj 276 459 tab_const rect; +#X obj 279 396 t b b; +#X msg 304 421 0 128 1; +#X msg 224 419 128 128 0; +#X obj 279 374 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 279 350 loadbang; +#X obj 101 309 /~ 256; +#X obj 101 108 *~; +#X obj 114 85 spec2_tabreceive~ rect; +#N canvas 0 0 450 300 graph1 0; +#X array real 256 float 0; +#X coords 0 1 255 -1 200 140 1; +#X restore 691 177 graph; +#N canvas 0 0 450 300 graph1 0; +#X array imag 256 float 0; +#X coords 0 1 255 -1 200 140 1; +#X restore 691 326 graph; +#X obj 697 56 inlet; +#X obj 697 80 t b; +#X text 351 190 1.arg: table-name; +#X obj 291 54 inlet; +#X obj 101 131 rfft~; +#X obj 102 280 rifft~; +#X obj 158 260 spec2+~; +#X obj 40 257 spec2-~; +#X obj 32 212 spec2*~; +#X obj 85 215 spec2*~; +#X obj 146 214 spec2*~; +#X obj 205 214 spec2*~; +#X obj 247 149 spec2_tabreceive_enable~ real 0; +#X obj 263 174 spec2_tabreceive_enable~ imag 0; +#X text 352 205 2.arg: enable-state; +#X obj 697 102 tab_rfft filter real imag 256; +#X connect 0 0 11 0; +#X connect 5 0 7 0; +#X connect 5 1 6 0; +#X connect 6 0 4 0; +#X connect 7 0 4 0; +#X connect 8 0 5 0; +#X connect 9 0 8 0; +#X connect 10 0 1 0; +#X connect 11 0 19 0; +#X connect 12 0 11 1; +#X connect 15 0 16 0; +#X connect 16 0 30 0; +#X connect 18 0 27 0; +#X connect 18 0 28 0; +#X connect 19 0 23 0; +#X connect 19 0 25 0; +#X connect 19 1 24 0; +#X connect 19 1 26 0; +#X connect 20 0 10 0; +#X connect 21 0 20 1; +#X connect 22 0 20 0; +#X connect 23 0 22 0; +#X connect 24 0 22 1; +#X connect 25 0 21 0; +#X connect 26 0 21 1; +#X connect 27 0 23 1; +#X connect 27 0 26 1; +#X connect 28 0 24 1; +#X connect 28 0 25 1; +#X restore 158 141 pd spec2_blockfilter~ using spec2_tabreceive_enable~ +; +#X text 749 122 1.arg: table-name; +#X msg 561 99 symbol filter; +#X text 749 134 2.arg: enable-state; +#X obj 536 129 spec2_tabreceive_enable~ filter 1; +#X msg 496 89 1; +#X msg 524 89 0; +#X obj 159 117 dirac~; +#X text 150 2 iem_spec2 calculates only (blocksize/2 + 1) samples; +#X text 180 -27 receives spectrum from table with (blocksize/2 + 1) +; +#X text 90 302 IEM KUG; +#X text 74 290 musil; +#X text 104 290 @; +#X text 110 290 iem.at; +#X text 73 312 Graz \, Austria; +#X text 25 279 (c) Thomas Musil 2000 - 2006; +#X connect 0 0 2 0; +#X connect 0 1 3 0; +#X connect 1 0 0 0; +#X connect 6 0 14 2; +#X connect 6 0 8 0; +#X connect 8 0 5 0; +#X connect 8 0 21 0; +#X connect 11 0 14 1; +#X connect 14 0 5 0; +#X connect 16 0 18 0; +#X connect 19 0 18 0; +#X connect 20 0 18 0; +#X connect 21 0 14 0; diff --git a/spec2_tabreceive~-help.pd b/spec2_tabreceive~-help.pd new file mode 100644 index 0000000..c2c06be --- /dev/null +++ b/spec2_tabreceive~-help.pd @@ -0,0 +1,125 @@ +#N canvas 9 28 944 451 10; +#X obj 44 49 dsp; +#X obj 44 26 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X floatatom 44 90 5 0 0 0 - - -; +#X floatatom 57 73 5 0 0 0 - - -; +#N canvas 0 0 450 300 graph1 0; +#X array scope 512 float 0; +#X coords 0 1 511 -1 512 100 1; +#X restore 350 236 graph; +#X obj 211 175 tabwrite~ scope; +#X obj 269 55 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 17 -25 spec2_tabreceive~; +#N canvas 0 0 450 300 graph2 0; +#X array filter 256 float 1; +#A 0 0 0 0 0 0 0 0 0.04 0.04 0.08 0.14 0.18 0.2 0.24 0.26 0.28 0.32 +0.34 0.36 0.38 0.4 0.42 0.44 0.44 0.46 0.5 0.54 0.58 0.6 0.62 0.646667 +0.673334 0.7 0.74 0.76 0.78 0 0 0 0 0 0 -0.06 -0.0866667 -0.113333 +-0.14 -0.175 -0.21 -0.245 -0.28 -0.31 -0.34 -0.366667 -0.393333 -0.42 +-0.45 -0.48 -0.52 -0.56 -0.58 -0.62 -0.62 -0.66 -0.67 -0.68 -0.7 -0.74 +-0.76 -0.78 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.8 0.78 0.76 0.68 0.62 0.58 +0.5 0.473334 0.446667 0.42 0.38 0.34 0.3 0.266667 0.233333 0.2 0.17 +0.14 0.11 0.08 0.05 0.02 0 0 0 0 0 0 -0.68 -0.68 -0.62 -0.56 -0.52 +-0.48 -0.45 -0.42 -0.37 -0.32 -0.28 -0.24 -0.19 -0.14 -0.12 -0.1 -0.08 +-0.02 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; +#X coords 0 1 255 -1 256 100 1; +#X restore 488 -33 graph; +#X obj 226 88 del 100; +#X msg 767 2 \; filter const 0; +#N canvas 70 41 953 575 spec2_blockfilter~ 0; +#X obj 100 51 inlet~; +#X obj 102 381 outlet~; +#X obj 271 120 block~ 256 2; +#N canvas 0 0 450 300 graph1 0; +#X array rect 256 float 0; +#X coords 0 1 255 -1 200 140 1; +#X restore 460 21 graph; +#X obj 276 459 tab_const rect; +#X obj 279 396 t b b; +#X msg 304 421 0 128 1; +#X msg 224 419 128 128 0; +#X obj 279 374 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 279 350 loadbang; +#X obj 100 135 rfft~; +#X obj 101 284 rifft~; +#X obj 101 309 /~ 256; +#X obj 101 108 *~; +#X obj 114 85 spec2_tabreceive~ rect; +#N canvas 0 0 450 300 graph1 0; +#X array real 256 float 0; +#X coords 0 1 255 -1 200 140 1; +#X restore 691 177 graph; +#N canvas 0 0 450 300 graph1 0; +#X array imag 256 float 0; +#X coords 0 1 255 -1 200 140 1; +#X restore 691 326 graph; +#X obj 697 56 inlet; +#X obj 697 80 t b; +#X obj 246 153 spec2_tabreceive~ real; +#X obj 262 178 spec2_tabreceive~ imag; +#X text 407 178 1.arg: table-name; +#X obj 157 264 spec2+~; +#X obj 39 261 spec2-~; +#X obj 31 216 spec2*~; +#X obj 84 219 spec2*~; +#X obj 145 218 spec2*~; +#X obj 204 218 spec2*~; +#X obj 697 102 tab_rfft filter real imag 256; +#X connect 0 0 13 0; +#X connect 5 0 7 0; +#X connect 5 1 6 0; +#X connect 6 0 4 0; +#X connect 7 0 4 0; +#X connect 8 0 5 0; +#X connect 9 0 8 0; +#X connect 10 0 24 0; +#X connect 10 0 26 0; +#X connect 10 1 25 0; +#X connect 10 1 27 0; +#X connect 11 0 12 0; +#X connect 12 0 1 0; +#X connect 13 0 10 0; +#X connect 14 0 13 1; +#X connect 17 0 18 0; +#X connect 18 0 28 0; +#X connect 19 0 24 1; +#X connect 19 0 27 1; +#X connect 20 0 25 1; +#X connect 20 0 26 1; +#X connect 22 0 11 1; +#X connect 23 0 11 0; +#X connect 24 0 23 0; +#X connect 25 0 23 1; +#X connect 26 0 22 0; +#X connect 27 0 22 1; +#X restore 248 137 pd spec2_blockfilter~ using spec2_tabreceive~; +#X obj 582 122 spec2_tabreceive~ filter; +#X text 735 121 1.arg: table-name; +#X msg 607 92 symbol filter; +#X text 90 302 IEM KUG; +#X text 74 290 musil; +#X text 104 290 @; +#X text 110 290 iem.at; +#X text 73 312 Graz \, Austria; +#X text 25 279 (c) Thomas Musil 2000 - 2006; +#X obj 249 114 dirac~; +#X text 143 -11 iem_spec2 calculates only (blocksize/2 + 1) samples +; +#X text 140 -27 receives spectrum from table with (blocksize/2 + 1) +; +#X connect 0 0 2 0; +#X connect 0 1 3 0; +#X connect 1 0 0 0; +#X connect 6 0 11 1; +#X connect 6 0 9 0; +#X connect 9 0 5 0; +#X connect 9 0 21 0; +#X connect 11 0 5 0; +#X connect 14 0 12 0; +#X connect 21 0 11 0; -- cgit v1.2.1