[PD-cvs] abstractions/puremeasurement/tools pm_filters_44100Hz.pd, NONE, 1.1 pm_scope.pd, NONE, 1.1

[Georg Holzmann]

Update of /cvsroot/pure-data/abstractions/puremeasurement/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5442/tools

Added Files:
	pm_filters_44100Hz.pd pm_scope.pd 
Log Message:
initial commit of PureMeasurement


--- NEW FILE: pm_filters_44100Hz.pd ---
#N canvas 526 235 729 701 10;
#X obj 171 34 hradio 20 1 1 26 empty empty empty 0 -6 0 8 -262144 -1
-1 1;
#X text 668 17 16k;
#X text 630 17 10k;
#X text 553 17 4k;
#X text 613 56 8k;
#X text 495 56 2k;
#X text 433 17 1k;
#X text 410 56 800;
#X text 445 56 1.25k;
#X text 468 17 1.6k;
#X text 508 17 2.5k;
#X text 524 56 3.15k;
#X text 589 17 6.3k;
#X text 644 56 12.5k;
#X text 389 17 630;
#X text 370 56 500;
#X text 349 17 400;
[...1692 lines suppressed...]
filters commonly used in acoustical measurements.;
#X text 16 314 The octave and third octave band-pass filters use exact
mid frequencies based on the 2^i and 2^(i/3) formulae \, respectively
(see IEC 1260).;
#X text 16 364 Please note that if you use adjacent octave or third
octave filters in parallel for synthesis purposes \, the resulting
frequency response will not have a flat passband behavior. You *can*
build analysis filter banks though.;
#X obj 17 445 cnv 15 236 65 empty empty empty 20 12 0 14 -262144 -66577
0;
#X text 23 463 matthias.blau AT fh-oldenburg.de;
#X text 21 477 IHA FH-OOW \, Oldenburg \, Germany;
#X text 16 437 ------------------------------------------------------------
;
#X text 16 255 ------------------------------------------------------------
;
#X text 19 449 (c) M. Blau 2004-2006;
#X text 22 491 updated for version v28II06;
#X connect 0 0 27 1;
#X connect 28 0 37 1;

--- NEW FILE: pm_scope.pd ---
#N canvas 180 170 640 735 10;
#X obj 68 45 cnv 10 200 130 empty empty empty 0 0 1 16 -225280 -42246
0;
#X obj 252 97 bng 12 250 50 0 \$0-scope1_y+ empty + 1 -10 1 14 -262144
-1 -1;
#X obj 252 114 bng 12 250 50 0 \$0-scope1_y- empty - 3 16 1 18 -262144
-1 -1;
#X obj 71 19 r~ i1;
#X obj 147 48 cnv 15 120 24 empty \$0-scope1_ovldstr OVERLOAD! 2 11
1 14 -225280 -225280 0;
#X obj 121 18 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 132 157 nbx 3 14 0 250 0 0 \$0-scope1_xtime \$0-set_scope1_xtime
msec 35 8 1 8 -262144 -1 -1 100 256;
#N canvas 352 0 832 750 scope1 0;
#X obj -2 -51 cnv 15 140 24 empty empty scope1 20 12 1 18 -233017 -1109
0;
#X obj 113 -51 cnv 15 120 24 empty empty subpatch 0 12 1 18 -233017
-1109 0;
#X obj 391 100 loadbang;
#X obj 263 374 delay 1000;
#X obj 15 102 inlet~;
#X obj 580 615 cnv 15 60 25 empty empty empty 20 12 0 14 -261681 -66577
0;
#X obj 286 596 cnv 15 60 40 empty empty empty 20 12 0 14 -261681 -66577
0;
#X obj 339 344 div 2;
#X obj 339 421 pow 0;
#X msg 339 398 10;
#X obj 382 375 select 0 1;
#X msg 382 404 1;
#X msg 414 404 3;
#X obj 366 448 * 1;
#X floatatom 346 300 5 0 0 0 - - -;
#X msg 309 224 1;
#X msg 392 224 1;
#X obj 309 249 + 1;
#X obj 392 249 - 1;
#X obj 392 274 * -1;
#X msg 346 224 0;
#X obj 396 495 / 10;
#X obj 375 530 * -1;
#X obj 292 161 cnv 15 90 25 empty empty empty 20 12 0 14 -262131 -66577
0;
#X obj 405 161 cnv 15 90 25 empty empty empty 20 12 0 14 -262131 -66577
0;
#X obj 561 63 cnv 15 115 20 empty empty empty 20 12 0 14 -261681 -66577
0;
#X text -4 136 ------------------------------------------------------------
;
#X text 416 136 ----------------------------------;
#X obj 42 478 cnv 15 125 20 empty empty empty 20 12 0 14 -228992 -66577
0;
#X msg 45 335 0;
#X obj 45 360 metro 1000;
#X obj 79 392 delay 500;
#X obj 83 101 inlet;
#X text 129 99 <-- bang to reset;
#X text 157 112 overload;
#X msg 45 414 14;
#X obj 80 238 cnv 15 125 20 empty empty empty 20 12 0 14 -228992 -66577
0;
#X obj 366 471 t b f;
#X obj 339 375 t b f;
#X obj 382 344 mod 2;
#X obj 346 320 t f f;
#X obj 2 314 threshold~ 0.98 100 -0.98 100;
#X obj 88 283 cnv 15 115 25 empty empty empty 20 12 0 14 -261681 -66577
0;
#X obj 520 373 phasor~;
#X obj 521 351 sig~;
#X obj 521 306 samplerate~;
#X obj 589 461 cnv 15 120 25 empty empty empty 20 12 0 14 -261681 -66577
0;
#X obj 594 369 cnv 15 110 25 empty empty empty 20 12 0 14 -262131 -66577
0;
#X obj 488 228 metro 400;
#X obj 511 588 clip~ -1 1;
#X obj 521 87 block~ 1024;
#X obj 521 328 / 1024;
#X obj 582 396 / 1000;
#X obj 582 418 * 44100;
#X obj 521 442 *~ 4410;
#X obj 153 -7 cnv 15 80 15 empty empty empty 20 12 0 14 -261681 -66577
0;
#X text 155 -8 arrays;
#X obj 153 9 cnv 15 80 15 empty empty empty 20 12 0 14 -228992 -66577
0;
#X text 155 9 symbols;
#X obj 153 25 cnv 15 80 15 empty empty empty 20 12 0 14 -262131 -66577
0;
#X text 154 25 floats;
#X text 30 -9 global variables:;
#X msg 597 164 100;
#X obj 608 184 cnv 15 140 25 empty empty empty 20 12 0 14 -262131 -66577
0;
#X msg 488 203 1;
#X msg 79 414 7;
#X obj 83 190 f \$0;
#X msg 83 226 \; \$1-scope1_ovldstr color 7 7;
#X obj 83 166 t b b;
#X obj 16 287 tabwrite~ \$0-scope1_buffer;
#X obj 279 165 r \$0-scope1_y-;
#X obj 392 165 r \$0-scope1_y+;
#X obj 521 65 table \$0-scope1_buffer 11050;
#X obj 597 189 s \$0-set_scope1_xtime;
#X obj 582 373 r \$0-scope1_xtime;
#X obj 522 465 tabread4~ \$0-scope1_buffer;
#X obj 511 619 tabwrite~ \$0-meas1;
#X obj 289 555 pack 0.1 1 -1 \$0;
#X obj 45 442 pack 7 7 \$0;
#X msg 45 464 \; \$3-scope1_ovldstr color \$2 \$1;
#X msg 289 582 \; \$4-meas1 bounds 0 \$2 1023 \$3 \; \$4-meas1 yticks
0 \$1 5 \; \$4-meas1 ylabel 1140 \$3 0 \$2;
#X text 243 -8 \$0-scope1_buffer \, \$0-meas1;
#X text 243 9 \$0-scope1_ovldstr;
#X text 243 25 \$0-scope1_y- \, \$0-scope1_y+ \, \$0-scope1_xtime \,
\$0-set_scope1_xtime;
#X connect 2 0 3 0;
#X connect 2 0 20 0;
#X connect 2 0 45 0;
#X connect 2 0 62 0;
#X connect 2 0 64 0;
#X connect 3 0 77 0;
#X connect 4 0 41 0;
#X connect 4 0 69 0;
#X connect 7 0 38 0;
#X connect 8 0 13 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 12 0;
#X connect 11 0 13 1;
#X connect 12 0 13 1;
#X connect 13 0 37 0;
#X connect 14 0 17 1;
#X connect 14 0 18 1;
#X connect 14 0 40 0;
#X connect 15 0 17 0;
#X connect 16 0 18 0;
#X connect 17 0 14 0;
#X connect 18 0 19 0;
#X connect 19 0 14 0;
#X connect 20 0 14 0;
#X connect 21 0 77 0;
#X connect 22 0 49 1;
#X connect 22 0 77 2;
#X connect 29 0 30 0;
#X connect 30 0 35 0;
#X connect 30 0 31 0;
#X connect 31 0 65 0;
#X connect 32 0 68 0;
#X connect 35 0 78 0;
#X connect 37 0 77 0;
#X connect 37 1 21 0;
#X connect 37 1 22 0;
#X connect 37 1 49 2;
#X connect 37 1 77 1;
#X connect 38 0 9 0;
#X connect 38 1 8 1;
#X connect 39 0 10 0;
#X connect 40 0 7 0;
#X connect 40 1 39 0;
#X connect 41 0 30 0;
#X connect 41 1 30 0;
#X connect 43 0 54 0;
#X connect 44 0 43 0;
#X connect 45 0 51 0;
#X connect 45 0 53 1;
#X connect 48 0 69 0;
#X connect 48 0 76 0;
#X connect 49 0 76 0;
#X connect 51 0 44 0;
#X connect 52 0 53 0;
#X connect 53 0 54 1;
#X connect 54 0 75 0;
#X connect 62 0 73 0;
#X connect 64 0 48 0;
#X connect 65 0 78 0;
#X connect 66 0 67 0;
#X connect 68 0 66 0;
#X connect 68 1 29 0;
#X connect 70 0 15 0;
#X connect 71 0 16 0;
#X connect 74 0 52 0;
#X connect 75 0 49 0;
#X connect 77 0 80 0;
#X connect 78 0 79 0;
#X coords 0 0 0.00222222 0.00333333 200 140 0;
#X restore 72 49 pd scope1;
#X text 70 156 x range:;
#X text 72 202 The pm oscilloscope.;
#X text 143 22 <--reset overload;
#X text 73 310 Note that the processing is done in the "scope1" subpatch
(click on it to view/edit).;
#X text 73 520 Note also that there is a scope~ object in the cyclone
library \, which you may prefer over the simple one presented here.
;
#X obj 73 588 cnv 15 236 65 empty empty empty 20 12 0 14 -262144 -66577
0;
#X text 75 592 (c) M. Blau 2004-2005;
#X text 79 606 matthias.blau AT fh-oldenburg.de;
#X text 77 620 IHA FH-OOW \, Oldenburg \, Germany;
#X text 72 580 ------------------------------------------------------------
;
#X text 72 212 ------------------------------------------------------------
;
#N canvas 0 0 450 300 graph14 0;
#X array \$0-meas1 1024 float 0;
#X coords 0 1 1023 -1 150 80 1;
#X restore 72 72 graph;
#X text 73 440 If you change the size of the display \, you will probably
have to adjust the position of the y-axis labels. To do so \, you have
to change the last line in the message box at the center bottom of
the subpatch: Substitute the 1140 in "$4-meas1 ylabel 1140 \$3 0 \$2"
by a more suitable value.;
#X text 73 350 If you want to use multiple scopes at the same time
\, you can simply copy the scope above. In addition \, you will have
to change the names of all global variables to contain e.g. "scope2"
instead of "scope1". Also the array that is displayed must be changed
from "$0-meas1" to e.g. "$0-meas2". (Hint: use a text editor to do
this).;
#X text 73 230 Principle of operation: the incoming signal (i1 in the
example above) is written to a buffer ($0-scope1_buffer) which is then
resampled using 4-point interpolation (1024 values via tabread4~).
The resampled values are written to the "meas1" array (which is displayed)
every 400ms.;
#X text 78 634 updated for version v28II06;
#X connect 3 0 7 0;
#X connect 5 0 7 1;