From 1c27ea426cabcda7e2ebc5f62839eb792bef64ab Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Fri, 3 Feb 2006 22:41:45 +0000 Subject: added in some of Cyrille's ds objects svn path=/trunk/externals/mapping/; revision=4546 --- breakpoint.pd | 47 ++++++++++++++++ distance.pd | 10 ++++ gaussian.pd | 21 ++++++++ help/breakpoint-help.pd | 139 ++++++++++++++++++++++++++++++++++++++++++++++++ help/distance-help.pd | 11 ++++ help/gaussian-help.pd | 41 ++++++++++++++ help/iir-help.pd | 31 +++++++++++ help/timeroll-help.pd | 12 +++++ iir.pd | 28 ++++++++++ pd/breakpoint.pd | 47 ++++++++++++++++ pd/distance.pd | 10 ++++ pd/gaussian.pd | 21 ++++++++ pd/iir.pd | 28 ++++++++++ pd/timeroll.pd | 29 ++++++++++ timeroll.pd | 29 ++++++++++ 15 files changed, 504 insertions(+) create mode 100644 breakpoint.pd create mode 100644 distance.pd create mode 100644 gaussian.pd create mode 100644 help/breakpoint-help.pd create mode 100644 help/distance-help.pd create mode 100644 help/gaussian-help.pd create mode 100644 help/iir-help.pd create mode 100644 help/timeroll-help.pd create mode 100644 iir.pd create mode 100644 pd/breakpoint.pd create mode 100644 pd/distance.pd create mode 100644 pd/gaussian.pd create mode 100644 pd/iir.pd create mode 100644 pd/timeroll.pd create mode 100644 timeroll.pd diff --git a/breakpoint.pd b/breakpoint.pd new file mode 100644 index 0000000..28d5846 --- /dev/null +++ b/breakpoint.pd @@ -0,0 +1,47 @@ +#N canvas 0 0 433 427 10; +#X obj 42 29 inlet; +#X obj 101 28 inlet; +#X obj 250 26 inlet; +#X obj 42 81 moses \$1; +#X obj 42 105 / \$1; +#X obj 93 104 - \$1; +#X obj 157 86 t b f; +#X obj 174 63 loadbang; +#X obj 93 161 / 1; +#X msg 157 108 1; +#X obj 157 132 - \$1; +#X obj 42 245 f; +#X obj 42 208 * \$2; +#X obj 93 207 + \$2; +#X obj 250 93 t b f; +#X msg 250 115 1; +#X obj 250 139 - \$2; +#X obj 93 183 *; +#X obj 42 276 outlet; +#X connect 0 0 3 0; +#X connect 1 0 3 1; +#X connect 1 0 4 1; +#X connect 1 0 5 1; +#X connect 1 0 6 0; +#X connect 2 0 14 0; +#X connect 2 0 13 1; +#X connect 2 0 12 1; +#X connect 3 0 4 0; +#X connect 3 1 5 0; +#X connect 4 0 12 0; +#X connect 5 0 8 0; +#X connect 6 0 9 0; +#X connect 6 1 10 1; +#X connect 7 0 9 0; +#X connect 7 0 15 0; +#X connect 8 0 17 0; +#X connect 9 0 10 0; +#X connect 10 0 8 1; +#X connect 11 0 18 0; +#X connect 12 0 11 0; +#X connect 13 0 11 0; +#X connect 14 0 15 0; +#X connect 14 1 16 1; +#X connect 15 0 16 0; +#X connect 16 0 17 1; +#X connect 17 0 13 0; diff --git a/distance.pd b/distance.pd new file mode 100644 index 0000000..73a6c09 --- /dev/null +++ b/distance.pd @@ -0,0 +1,10 @@ +#N canvas 0 0 450 300 10; +#X obj 80 47 inlet; +#X obj 150 49 inlet; +#X obj 80 129 abs; +#X obj 80 195 outlet; +#X obj 80 95 - \$1; +#X connect 0 0 4 0; +#X connect 1 0 4 1; +#X connect 2 0 3 0; +#X connect 4 0 2 0; diff --git a/gaussian.pd b/gaussian.pd new file mode 100644 index 0000000..1c51f42 --- /dev/null +++ b/gaussian.pd @@ -0,0 +1,21 @@ +#N canvas 0 0 450 300 10; +#X obj 65 26 inlet; +#X obj 277 22 inlet; +#X obj 65 218 * -1; +#X obj 65 244 exp; +#X obj 66 124 *; +#X obj 66 91 t f f; +#X obj 67 271 outlet; +#X obj 65 187 / \$2; +#X obj 66 63 - \$1; +#X obj 142 20 inlet; +#X connect 0 0 8 0; +#X connect 1 0 7 1; +#X connect 2 0 3 0; +#X connect 3 0 6 0; +#X connect 4 0 7 0; +#X connect 5 0 4 0; +#X connect 5 1 4 1; +#X connect 7 0 2 0; +#X connect 8 0 5 0; +#X connect 9 0 8 1; diff --git a/help/breakpoint-help.pd b/help/breakpoint-help.pd new file mode 100644 index 0000000..8d48253 --- /dev/null +++ b/help/breakpoint-help.pd @@ -0,0 +1,139 @@ +#N canvas 584 82 885 571 10; +#X obj 20 38 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 +-1 -1 0 1; +#X obj 20 213 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 +-1 -1 0 1; +#X floatatom 91 156 5 0 0 0 - - -; +#X floatatom 162 157 5 0 0 0 - - -; +#X floatatom 144 247 5 0 1 0 - - -; +#X obj 144 271 t b f; +#X floatatom 236 247 5 0 1 0 - - -; +#X obj 236 271 t b f; +#X obj 82 271 loadbang; +#X text 111 541 XY relation of the breakpoint object; +#N canvas 0 0 450 300 float 0; +#X obj 71 23 inlet; +#X obj 48 191 outlet; +#X obj 150 22 inlet; +#X obj 71 93 list prepend; +#X obj 71 118 list; +#X obj 48 141 list; +#X obj 48 166 list trim; +#X obj 150 45 t b b; +#X msg 150 70 list; +#X connect 0 0 3 0; +#X connect 2 0 7 0; +#X connect 3 0 4 0; +#X connect 4 0 3 1; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 1 0; +#X connect 7 0 8 0; +#X connect 7 1 5 0; +#X connect 8 0 3 1; +#X restore 82 353 pd float to list ___________; +#N canvas 0 0 450 300 generate 0; +#X obj 55 38 inlet; +#X msg 55 65 0; +#X obj 55 91 f; +#X obj 55 164 + 1; +#X obj 55 137 t f f; +#X obj 85 192 outlet; +#X obj 148 192 outlet; +#X obj 148 166 t b; +#X obj 85 164 / 100; +#X obj 55 114 moses 101; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 9 0; +#X connect 3 0 2 0; +#X connect 4 0 3 0; +#X connect 4 1 8 0; +#X connect 7 0 6 0; +#X connect 8 0 5 0; +#X connect 9 0 4 0; +#X connect 9 1 7 0; +#X restore 82 302 pd generate list ___________; +#X floatatom 513 224 5 0 1 0 - - -; +#X obj 513 248 t b f; +#X floatatom 584 223 5 0 0 0 - - -; +#X obj 584 247 t b f; +#X obj 451 248 loadbang; +#N canvas 0 0 450 300 float 0; +#X obj 71 23 inlet; +#X obj 48 191 outlet; +#X obj 150 22 inlet; +#X obj 71 93 list prepend; +#X obj 71 118 list; +#X obj 48 141 list; +#X obj 48 166 list trim; +#X obj 150 45 t b b; +#X msg 150 70 list; +#X connect 0 0 3 0; +#X connect 2 0 7 0; +#X connect 3 0 4 0; +#X connect 4 0 3 1; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 1 0; +#X connect 7 0 8 0; +#X connect 7 1 5 0; +#X connect 8 0 3 1; +#X restore 451 358 pd float to list ___________; +#N canvas 0 0 450 300 generate 0; +#X obj 55 38 inlet; +#X msg 55 65 0; +#X obj 55 91 f; +#X obj 55 164 + 1; +#X obj 55 137 t f f; +#X obj 85 192 outlet; +#X obj 148 192 outlet; +#X obj 148 166 t b; +#X obj 85 164 / 100; +#X obj 55 114 moses 101; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 9 0; +#X connect 3 0 2 0; +#X connect 4 0 3 0; +#X connect 4 1 8 0; +#X connect 7 0 6 0; +#X connect 8 0 5 0; +#X connect 9 0 4 0; +#X connect 9 1 7 0; +#X restore 451 279 pd generate list ___________; +#X text 110 70 for X go thru 0 to \$1 \, Y go thrus 0 to \$2.; +#X text 109 89 for X go thru \$1 to 1 \, Y go thrus \$2 to 1; +#X obj 20 180 breakpoint 0.8 0.3; +#X obj 82 327 breakpoint 0.8 0.3 _____; +#X obj 82 381 multi_slider 100; +#X obj 452 388 multi_slider 100; +#X obj 451 304 breakpoint 0.3 0.5 _____; +#X obj 451 332 nl 1 ________________; +#X connect 0 0 21 0; +#X connect 2 0 21 1; +#X connect 3 0 21 2; +#X connect 4 0 5 0; +#X connect 5 0 11 0; +#X connect 5 1 22 1; +#X connect 6 0 7 0; +#X connect 7 0 11 0; +#X connect 7 1 22 2; +#X connect 8 0 11 0; +#X connect 10 0 23 0; +#X connect 11 0 22 0; +#X connect 11 1 10 1; +#X connect 12 0 13 0; +#X connect 13 0 18 0; +#X connect 13 1 25 1; +#X connect 14 0 15 0; +#X connect 15 0 18 0; +#X connect 15 1 26 1; +#X connect 16 0 18 0; +#X connect 17 0 24 0; +#X connect 18 0 25 0; +#X connect 18 1 17 1; +#X connect 21 0 1 0; +#X connect 22 0 10 0; +#X connect 25 0 26 0; +#X connect 26 0 17 0; diff --git a/help/distance-help.pd b/help/distance-help.pd new file mode 100644 index 0000000..ff66e88 --- /dev/null +++ b/help/distance-help.pd @@ -0,0 +1,11 @@ +#N canvas 525 336 510 503 10; +#X obj 59 212 distance 0.3; +#X obj 59 240 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 +-1 -1 3810 1; +#X obj 59 69 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 +-1 -1 0 1; +#X text 126 29 distance from a point and a stream; +#X floatatom 138 187 5 0 0 0 - - -; +#X connect 0 0 1 0; +#X connect 2 0 0 0; +#X connect 4 0 0 1; diff --git a/help/gaussian-help.pd b/help/gaussian-help.pd new file mode 100644 index 0000000..1897251 --- /dev/null +++ b/help/gaussian-help.pd @@ -0,0 +1,41 @@ +#N canvas 0 0 745 731 10; +#X floatatom 204 287 5 0 0 0 - - -; +#X obj 94 354 tolist; +#X obj 93 393 multi_slider 100; +#X floatatom 148 286 5 0 0 0 - - -; +#X obj 96 316 gaussian 0.1 0.5; +#N canvas 580 100 450 300 generate 0; +#X obj 54 122 f; +#X obj 53 150 + 1; +#X obj 52 174 moses 100; +#X obj 58 213 t f f; +#X msg 52 89 -1; +#X obj 116 214 bang; +#X obj 86 244 / 100; +#X obj 72 62 loadbang; +#X obj 49 34 inlet; +#X obj 83 270 outlet; +#X obj 140 270 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 2 1 5 0; +#X connect 3 0 0 0; +#X connect 3 1 6 0; +#X connect 4 0 0 0; +#X connect 5 0 10 0; +#X connect 6 0 9 0; +#X connect 7 0 4 0; +#X connect 8 0 4 0; +#X restore 91 258 pd generate list; +#X obj 95 230 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 271 77 generate a gausian curve; +#X text 236 110 i nead to check the corect equation of this one.; +#X connect 0 0 4 2; +#X connect 1 0 2 0; +#X connect 3 0 4 1; +#X connect 4 0 1 0; +#X connect 5 0 4 0; +#X connect 5 1 1 1; +#X connect 6 0 5 0; diff --git a/help/iir-help.pd b/help/iir-help.pd new file mode 100644 index 0000000..8967f87 --- /dev/null +++ b/help/iir-help.pd @@ -0,0 +1,31 @@ +#N canvas 127 104 679 509 10; +#X floatatom 471 193 5 0 0 0 - - -; +#X text 22 11 data; +#X obj 27 172 t f f; +#X msg 67 100 0; +#X obj 234 267 -; +#X msg 68 121 1; +#X obj 234 294 timeroll; +#X obj 449 294 timeroll; +#X obj 449 234 iir 5; +#X obj 28 294 timeroll; +#X text 180 65 (check if it's true); +#X obj 27 30 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 +-1 -1 12700 1; +#X text 89 27 [iir] computes a infinite impulse response low-pass filter +of order one; +#X text 273 269 high-pass; +#X text 482 264 low-pass; +#X text 302 468 noise; +#X text 83 465 original; +#X text 530 467 signal; +#X connect 0 0 8 1; +#X connect 2 0 4 0; +#X connect 2 0 9 0; +#X connect 2 1 8 0; +#X connect 3 0 2 0; +#X connect 4 0 6 0; +#X connect 5 0 2 0; +#X connect 8 0 4 1; +#X connect 8 0 7 0; +#X connect 11 0 2 0; diff --git a/help/timeroll-help.pd b/help/timeroll-help.pd new file mode 100644 index 0000000..8339cfb --- /dev/null +++ b/help/timeroll-help.pd @@ -0,0 +1,12 @@ +#N canvas 0 0 306 391 10; +#X obj 21 97 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144 +-1 -1 8700 1; +#X floatatom 38 19 5 0 0 0 - - -; +#X text 84 17 from 0 to 1; +#X obj 38 37 resample 50; +#X obj 38 60 _clip; +#X obj 38 81 timeroll; +#X connect 0 0 3 0; +#X connect 1 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 5 0; diff --git a/iir.pd b/iir.pd new file mode 100644 index 0000000..eea00a8 --- /dev/null +++ b/iir.pd @@ -0,0 +1,28 @@ +#N canvas 246 155 294 362 10; +#X obj 59 42 inlet; +#X obj 59 314 outlet; +#X obj 59 247 +; +#X obj 130 240 + 1; +#X obj 130 42 inlet; +#X obj 130 183 1; +#X obj 90 69 loadbang; +#X obj 130 160 /; +#X msg 130 139 1 \$1; +#X obj 90 90 \$1; +#X obj 90 112 sel 0; +#X obj 59 285 / 2; +#X obj 59 223 * 1; +#X connect 0 0 12 0; +#X connect 2 0 11 0; +#X connect 3 0 11 1; +#X connect 4 0 8 0; +#X connect 5 0 3 0; +#X connect 5 0 12 1; +#X connect 6 0 9 0; +#X connect 7 0 5 0; +#X connect 8 0 7 0; +#X connect 9 0 10 0; +#X connect 10 1 8 0; +#X connect 11 0 2 1; +#X connect 11 0 1 0; +#X connect 12 0 2 0; diff --git a/pd/breakpoint.pd b/pd/breakpoint.pd new file mode 100644 index 0000000..28d5846 --- /dev/null +++ b/pd/breakpoint.pd @@ -0,0 +1,47 @@ +#N canvas 0 0 433 427 10; +#X obj 42 29 inlet; +#X obj 101 28 inlet; +#X obj 250 26 inlet; +#X obj 42 81 moses \$1; +#X obj 42 105 / \$1; +#X obj 93 104 - \$1; +#X obj 157 86 t b f; +#X obj 174 63 loadbang; +#X obj 93 161 / 1; +#X msg 157 108 1; +#X obj 157 132 - \$1; +#X obj 42 245 f; +#X obj 42 208 * \$2; +#X obj 93 207 + \$2; +#X obj 250 93 t b f; +#X msg 250 115 1; +#X obj 250 139 - \$2; +#X obj 93 183 *; +#X obj 42 276 outlet; +#X connect 0 0 3 0; +#X connect 1 0 3 1; +#X connect 1 0 4 1; +#X connect 1 0 5 1; +#X connect 1 0 6 0; +#X connect 2 0 14 0; +#X connect 2 0 13 1; +#X connect 2 0 12 1; +#X connect 3 0 4 0; +#X connect 3 1 5 0; +#X connect 4 0 12 0; +#X connect 5 0 8 0; +#X connect 6 0 9 0; +#X connect 6 1 10 1; +#X connect 7 0 9 0; +#X connect 7 0 15 0; +#X connect 8 0 17 0; +#X connect 9 0 10 0; +#X connect 10 0 8 1; +#X connect 11 0 18 0; +#X connect 12 0 11 0; +#X connect 13 0 11 0; +#X connect 14 0 15 0; +#X connect 14 1 16 1; +#X connect 15 0 16 0; +#X connect 16 0 17 1; +#X connect 17 0 13 0; diff --git a/pd/distance.pd b/pd/distance.pd new file mode 100644 index 0000000..73a6c09 --- /dev/null +++ b/pd/distance.pd @@ -0,0 +1,10 @@ +#N canvas 0 0 450 300 10; +#X obj 80 47 inlet; +#X obj 150 49 inlet; +#X obj 80 129 abs; +#X obj 80 195 outlet; +#X obj 80 95 - \$1; +#X connect 0 0 4 0; +#X connect 1 0 4 1; +#X connect 2 0 3 0; +#X connect 4 0 2 0; diff --git a/pd/gaussian.pd b/pd/gaussian.pd new file mode 100644 index 0000000..1c51f42 --- /dev/null +++ b/pd/gaussian.pd @@ -0,0 +1,21 @@ +#N canvas 0 0 450 300 10; +#X obj 65 26 inlet; +#X obj 277 22 inlet; +#X obj 65 218 * -1; +#X obj 65 244 exp; +#X obj 66 124 *; +#X obj 66 91 t f f; +#X obj 67 271 outlet; +#X obj 65 187 / \$2; +#X obj 66 63 - \$1; +#X obj 142 20 inlet; +#X connect 0 0 8 0; +#X connect 1 0 7 1; +#X connect 2 0 3 0; +#X connect 3 0 6 0; +#X connect 4 0 7 0; +#X connect 5 0 4 0; +#X connect 5 1 4 1; +#X connect 7 0 2 0; +#X connect 8 0 5 0; +#X connect 9 0 8 1; diff --git a/pd/iir.pd b/pd/iir.pd new file mode 100644 index 0000000..eea00a8 --- /dev/null +++ b/pd/iir.pd @@ -0,0 +1,28 @@ +#N canvas 246 155 294 362 10; +#X obj 59 42 inlet; +#X obj 59 314 outlet; +#X obj 59 247 +; +#X obj 130 240 + 1; +#X obj 130 42 inlet; +#X obj 130 183 1; +#X obj 90 69 loadbang; +#X obj 130 160 /; +#X msg 130 139 1 \$1; +#X obj 90 90 \$1; +#X obj 90 112 sel 0; +#X obj 59 285 / 2; +#X obj 59 223 * 1; +#X connect 0 0 12 0; +#X connect 2 0 11 0; +#X connect 3 0 11 1; +#X connect 4 0 8 0; +#X connect 5 0 3 0; +#X connect 5 0 12 1; +#X connect 6 0 9 0; +#X connect 7 0 5 0; +#X connect 8 0 7 0; +#X connect 9 0 10 0; +#X connect 10 1 8 0; +#X connect 11 0 2 1; +#X connect 11 0 1 0; +#X connect 12 0 2 0; diff --git a/pd/timeroll.pd b/pd/timeroll.pd new file mode 100644 index 0000000..d56e3d3 --- /dev/null +++ b/pd/timeroll.pd @@ -0,0 +1,29 @@ +#N canvas 0 0 854 220 10; +#N canvas 0 0 450 300 graph2 0; +#X array \$0-_ 100 float 2; +#X coords 0 0.77 100 -0.01 200 100 1; +#X restore 10 55 graph; +#X obj 272 76 list; +#X obj 272 98 list append 0; +#X obj 272 122 list trim; +#X obj 295 45 list split 100; +#X obj 272 14 inlet; +#X obj 388 13 inlet; +#X obj 388 106 pack f \$0; +#X obj 272 146 s \$0-_; +#X msg 388 133 \; \$2-_ resize \$1; +#X text 315 14 data; +#X text 429 15 size of the array (default = 100 or \$1); +#X obj 11 29 cnv 15 198 125 empty empty empty 20 12 0 14 -262144 -66577 +0; +#X connect 1 0 2 0; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 8 0; +#X connect 4 0 1 1; +#X connect 4 2 1 1; +#X connect 5 0 1 0; +#X connect 6 0 4 1; +#X connect 6 0 7 0; +#X connect 7 0 9 0; +#X coords 0 -1 1 1 200 145 1 10 10; diff --git a/timeroll.pd b/timeroll.pd new file mode 100644 index 0000000..d56e3d3 --- /dev/null +++ b/timeroll.pd @@ -0,0 +1,29 @@ +#N canvas 0 0 854 220 10; +#N canvas 0 0 450 300 graph2 0; +#X array \$0-_ 100 float 2; +#X coords 0 0.77 100 -0.01 200 100 1; +#X restore 10 55 graph; +#X obj 272 76 list; +#X obj 272 98 list append 0; +#X obj 272 122 list trim; +#X obj 295 45 list split 100; +#X obj 272 14 inlet; +#X obj 388 13 inlet; +#X obj 388 106 pack f \$0; +#X obj 272 146 s \$0-_; +#X msg 388 133 \; \$2-_ resize \$1; +#X text 315 14 data; +#X text 429 15 size of the array (default = 100 or \$1); +#X obj 11 29 cnv 15 198 125 empty empty empty 20 12 0 14 -262144 -66577 +0; +#X connect 1 0 2 0; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 8 0; +#X connect 4 0 1 1; +#X connect 4 2 1 1; +#X connect 5 0 1 0; +#X connect 6 0 4 1; +#X connect 6 0 7 0; +#X connect 7 0 9 0; +#X coords 0 -1 1 1 200 145 1 10 10; -- cgit v1.2.1