From 47950158fef8a54a1b1e416f5dc7cf6cedcf2989 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sat, 4 Feb 2006 03:29:40 +0000
Subject: added some more handy objects from Cyrille's collection with only
 tiny modifications

svn path=/trunk/externals/mapping/; revision=4551
---
 distance2d.pd           |  30 ++++++++++++++
 help/distance2d-help.pd |  39 ++++++++++++++++++
 help/lop-help.pd        |  23 +++++++++++
 help/wave-help.pd       |  19 +++++++++
 lop.pd                  | 106 ++++++++++++++++++++++++++++++++++++++++++++++++
 pd/distance2d.pd        |  30 ++++++++++++++
 pd/lop.pd               | 106 ++++++++++++++++++++++++++++++++++++++++++++++++
 pd/wave.pd              |  68 +++++++++++++++++++++++++++++++
 wave.pd                 |  68 +++++++++++++++++++++++++++++++
 9 files changed, 489 insertions(+)
 create mode 100644 distance2d.pd
 create mode 100644 help/distance2d-help.pd
 create mode 100644 help/lop-help.pd
 create mode 100644 help/wave-help.pd
 create mode 100644 lop.pd
 create mode 100644 pd/distance2d.pd
 create mode 100644 pd/lop.pd
 create mode 100644 pd/wave.pd
 create mode 100644 wave.pd

diff --git a/distance2d.pd b/distance2d.pd
new file mode 100644
index 0000000..6fc1d3d
--- /dev/null
+++ b/distance2d.pd
@@ -0,0 +1,30 @@
+#N canvas 0 0 450 505 10;
+#X obj 80 47 inlet;
+#X obj 91 285 outlet;
+#X obj 80 80 unpack f f;
+#X obj 216 44 inlet;
+#X obj 216 77 unpack f f;
+#X obj 144 180 t f f;
+#X obj 143 205 *;
+#X obj 82 177 t f f;
+#X obj 81 202 *;
+#X obj 89 238 +;
+#X obj 92 263 sqrt;
+#X obj 84 151 - \$1;
+#X obj 144 152 - \$2;
+#X connect 0 0 2 0;
+#X connect 2 0 11 0;
+#X connect 2 1 12 0;
+#X connect 3 0 4 0;
+#X connect 4 0 11 1;
+#X connect 4 1 12 1;
+#X connect 5 0 6 0;
+#X connect 5 1 6 1;
+#X connect 6 0 9 1;
+#X connect 7 0 8 0;
+#X connect 7 1 8 1;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 1 0;
+#X connect 11 0 7 0;
+#X connect 12 0 5 0;
diff --git a/help/distance2d-help.pd b/help/distance2d-help.pd
new file mode 100644
index 0000000..e0a7ee9
--- /dev/null
+++ b/help/distance2d-help.pd
@@ -0,0 +1,39 @@
+#N canvas 443 111 675 756 10;
+#X obj 54 541 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 4348 1;
+#X obj 54 96 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 1900 1;
+#X floatatom 175 457 5 0 0 0 - - -;
+#X obj 54 503 distance2d 0.3 0.5;
+#X obj 175 478 pack f f;
+#X floatatom 226 457 5 0 0 0 - - -;
+#X text 126 29 distance from a point and a stream in 2d;
+#X obj 75 96 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 4400 1;
+#X obj 54 278 pack f f;
+#X obj 75 243 t b f;
+#X obj 121 69 gcanvas 100 100;
+#X obj 121 179 / 100;
+#X obj 214 181 / 100;
+#X obj 121 205 pack f f;
+#X obj 175 317 gcanvas 100 100;
+#X obj 175 427 / 100;
+#X obj 268 429 / 100;
+#X connect 1 0 8 0;
+#X connect 2 0 4 0;
+#X connect 3 0 0 0;
+#X connect 4 0 3 1;
+#X connect 5 0 4 1;
+#X connect 7 0 9 0;
+#X connect 8 0 3 0;
+#X connect 9 0 8 0;
+#X connect 9 1 8 1;
+#X connect 10 0 11 0;
+#X connect 10 1 12 0;
+#X connect 11 0 13 0;
+#X connect 12 0 13 1;
+#X connect 13 0 3 0;
+#X connect 14 0 15 0;
+#X connect 14 1 16 0;
+#X connect 15 0 2 0;
+#X connect 16 0 5 0;
diff --git a/help/lop-help.pd b/help/lop-help.pd
new file mode 100644
index 0000000..f66a259
--- /dev/null
+++ b/help/lop-help.pd
@@ -0,0 +1,23 @@
+#N canvas 36 39 631 752 10;
+#X obj 289 -297 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 2510 0;
+#X floatatom 335 -115 5 0 0 0 - - -;
+#X floatatom 405 -100 5 0 0 0 - - -;
+#X floatatom 372 5 5 0 0 0 - - -;
+#X floatatom 241 -106 5 0 0 0 - - -;
+#X floatatom 301 -146 5 0 0 0 - - -;
+#X floatatom 461 -144 5 0 0 0 - - -;
+#X obj 289 -50 resample 100;
+#X obj 289 -19 lop 1;
+#X obj 289 33 timeroll;
+#X text 193 -367 this should be a filter independant to data flow frequency.
+;
+#X text 182 -329 need some more work;
+#X connect 0 0 4 0;
+#X connect 0 0 7 0;
+#X connect 1 0 8 2;
+#X connect 2 0 8 3;
+#X connect 5 0 8 1;
+#X connect 7 0 8 0;
+#X connect 8 0 3 0;
+#X connect 8 0 9 0;
diff --git a/help/wave-help.pd b/help/wave-help.pd
new file mode 100644
index 0000000..9060116
--- /dev/null
+++ b/help/wave-help.pd
@@ -0,0 +1,19 @@
+#N canvas 70 75 477 576 10;
+#X floatatom 29 40 5 0 0 0 - - -;
+#X floatatom 59 79 5 0 0 0 - - -;
+#X floatatom 102 97 5 0 0 0 - - -;
+#X obj 23 118 wave 25 0.4;
+#X obj 26 23 hsl 200 15 -1 5 0 0 empty empty center_position -2 -6
+0 8 -262131 -1 -1 19900 1;
+#X obj 105 79 hsl 128 15 0.01 10 1 0 empty empty empty -2 -6 0 8 -257472
+-1 -1 9700 1;
+#X obj 23 156 multi_slider 50;
+#X obj 61 61 hsl 128 15 0 50 0 0 empty empty number_of_points -2 -6
+0 8 -225280 -1 -1 12700 1;
+#X connect 1 0 3 1;
+#X connect 2 0 3 2;
+#X connect 3 0 6 0;
+#X connect 4 0 3 0;
+#X connect 4 0 0 0;
+#X connect 5 0 2 0;
+#X connect 7 0 1 0;
diff --git a/lop.pd b/lop.pd
new file mode 100644
index 0000000..c978353
--- /dev/null
+++ b/lop.pd
@@ -0,0 +1,106 @@
+#N canvas 1205 247 289 326 10;
+#N canvas 0 0 587 495 coef 0;
+#X obj 62 26 inlet;
+#X obj 213 34 inlet;
+#X text 388 334 B;
+#X obj 224 163 f;
+#X obj 222 241 * 2;
+#X obj 220 216 sqrt;
+#X obj 236 284 cos;
+#X obj 222 305 *;
+#X obj 237 262 * 6.28;
+#X obj 150 110 t b f;
+#X text 257 36 d;
+#X obj 221 129 pow;
+#X msg 224 100 0.5;
+#X obj 225 79 t b f;
+#X obj 221 332 outlet;
+#X obj 323 335 outlet;
+#X connect 0 0 9 0;
+#X connect 1 0 13 0;
+#X connect 3 0 15 0;
+#X connect 3 0 5 0;
+#X connect 4 0 7 0;
+#X connect 5 0 4 0;
+#X connect 6 0 7 1;
+#X connect 7 0 14 0;
+#X connect 8 0 6 0;
+#X connect 9 0 3 0;
+#X connect 9 1 8 0;
+#X connect 11 0 3 0;
+#X connect 12 0 11 0;
+#X connect 13 0 12 0;
+#X connect 13 1 11 1;
+#X restore 85 133 pd coef;
+#N canvas 765 291 521 640 biquad 0;
+#X obj 259 22 inlet;
+#X obj 420 20 inlet;
+#X obj 151 265 f;
+#X obj 132 530 f;
+#X obj 74 196 f;
+#X obj 75 299 *;
+#X obj 74 402 +;
+#X obj 151 339 *;
+#X obj 74 220 t f f b;
+#X obj 74 453 +;
+#X obj 151 361 * -1;
+#X obj 45 20 inlet;
+#X msg 34 135 0 \, 0 \, 0;
+#X obj 138 562 outlet;
+#X obj 38 95 route reset;
+#X obj 161 21 inlet;
+#X obj 103 133 t b b f;
+#X obj 259 73 -;
+#X obj 259 138 * -1;
+#X obj 258 102 - 1;
+#X obj 164 405 *;
+#X obj 219 405 +;
+#X obj 219 434 f;
+#X obj 75 481 +;
+#X msg 103 158 0 0;
+#X connect 0 0 5 1;
+#X connect 0 0 17 0;
+#X connect 1 0 7 1;
+#X connect 1 0 17 1;
+#X connect 2 0 7 0;
+#X connect 3 0 4 1;
+#X connect 3 0 13 0;
+#X connect 4 0 8 0;
+#X connect 5 0 6 0;
+#X connect 6 0 9 0;
+#X connect 7 0 10 0;
+#X connect 8 0 5 0;
+#X connect 8 1 2 1;
+#X connect 8 2 2 0;
+#X connect 9 0 23 0;
+#X connect 10 0 6 1;
+#X connect 11 0 14 0;
+#X connect 12 0 4 0;
+#X connect 14 0 12 0;
+#X connect 14 1 16 0;
+#X connect 15 0 21 0;
+#X connect 16 0 24 0;
+#X connect 16 1 4 0;
+#X connect 16 2 20 0;
+#X connect 17 0 19 0;
+#X connect 18 0 20 1;
+#X connect 19 0 18 0;
+#X connect 20 0 9 1;
+#X connect 21 0 22 0;
+#X connect 22 0 21 1;
+#X connect 22 0 23 1;
+#X connect 23 0 3 0;
+#X connect 24 0 21 0;
+#X restore 47 218 pd biquad;
+#X obj 47 259 outlet;
+#X obj 47 42 inlet;
+#X obj 85 87 inlet;
+#X obj 66 63 inlet;
+#X obj 129 110 inlet;
+#X connect 0 0 1 2;
+#X connect 0 1 1 3;
+#X connect 1 0 2 0;
+#X connect 3 0 1 0;
+#X connect 4 0 0 0;
+#X connect 5 0 1 1;
+#X connect 6 0 0 1;
diff --git a/pd/distance2d.pd b/pd/distance2d.pd
new file mode 100644
index 0000000..6fc1d3d
--- /dev/null
+++ b/pd/distance2d.pd
@@ -0,0 +1,30 @@
+#N canvas 0 0 450 505 10;
+#X obj 80 47 inlet;
+#X obj 91 285 outlet;
+#X obj 80 80 unpack f f;
+#X obj 216 44 inlet;
+#X obj 216 77 unpack f f;
+#X obj 144 180 t f f;
+#X obj 143 205 *;
+#X obj 82 177 t f f;
+#X obj 81 202 *;
+#X obj 89 238 +;
+#X obj 92 263 sqrt;
+#X obj 84 151 - \$1;
+#X obj 144 152 - \$2;
+#X connect 0 0 2 0;
+#X connect 2 0 11 0;
+#X connect 2 1 12 0;
+#X connect 3 0 4 0;
+#X connect 4 0 11 1;
+#X connect 4 1 12 1;
+#X connect 5 0 6 0;
+#X connect 5 1 6 1;
+#X connect 6 0 9 1;
+#X connect 7 0 8 0;
+#X connect 7 1 8 1;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 1 0;
+#X connect 11 0 7 0;
+#X connect 12 0 5 0;
diff --git a/pd/lop.pd b/pd/lop.pd
new file mode 100644
index 0000000..c978353
--- /dev/null
+++ b/pd/lop.pd
@@ -0,0 +1,106 @@
+#N canvas 1205 247 289 326 10;
+#N canvas 0 0 587 495 coef 0;
+#X obj 62 26 inlet;
+#X obj 213 34 inlet;
+#X text 388 334 B;
+#X obj 224 163 f;
+#X obj 222 241 * 2;
+#X obj 220 216 sqrt;
+#X obj 236 284 cos;
+#X obj 222 305 *;
+#X obj 237 262 * 6.28;
+#X obj 150 110 t b f;
+#X text 257 36 d;
+#X obj 221 129 pow;
+#X msg 224 100 0.5;
+#X obj 225 79 t b f;
+#X obj 221 332 outlet;
+#X obj 323 335 outlet;
+#X connect 0 0 9 0;
+#X connect 1 0 13 0;
+#X connect 3 0 15 0;
+#X connect 3 0 5 0;
+#X connect 4 0 7 0;
+#X connect 5 0 4 0;
+#X connect 6 0 7 1;
+#X connect 7 0 14 0;
+#X connect 8 0 6 0;
+#X connect 9 0 3 0;
+#X connect 9 1 8 0;
+#X connect 11 0 3 0;
+#X connect 12 0 11 0;
+#X connect 13 0 12 0;
+#X connect 13 1 11 1;
+#X restore 85 133 pd coef;
+#N canvas 765 291 521 640 biquad 0;
+#X obj 259 22 inlet;
+#X obj 420 20 inlet;
+#X obj 151 265 f;
+#X obj 132 530 f;
+#X obj 74 196 f;
+#X obj 75 299 *;
+#X obj 74 402 +;
+#X obj 151 339 *;
+#X obj 74 220 t f f b;
+#X obj 74 453 +;
+#X obj 151 361 * -1;
+#X obj 45 20 inlet;
+#X msg 34 135 0 \, 0 \, 0;
+#X obj 138 562 outlet;
+#X obj 38 95 route reset;
+#X obj 161 21 inlet;
+#X obj 103 133 t b b f;
+#X obj 259 73 -;
+#X obj 259 138 * -1;
+#X obj 258 102 - 1;
+#X obj 164 405 *;
+#X obj 219 405 +;
+#X obj 219 434 f;
+#X obj 75 481 +;
+#X msg 103 158 0 0;
+#X connect 0 0 5 1;
+#X connect 0 0 17 0;
+#X connect 1 0 7 1;
+#X connect 1 0 17 1;
+#X connect 2 0 7 0;
+#X connect 3 0 4 1;
+#X connect 3 0 13 0;
+#X connect 4 0 8 0;
+#X connect 5 0 6 0;
+#X connect 6 0 9 0;
+#X connect 7 0 10 0;
+#X connect 8 0 5 0;
+#X connect 8 1 2 1;
+#X connect 8 2 2 0;
+#X connect 9 0 23 0;
+#X connect 10 0 6 1;
+#X connect 11 0 14 0;
+#X connect 12 0 4 0;
+#X connect 14 0 12 0;
+#X connect 14 1 16 0;
+#X connect 15 0 21 0;
+#X connect 16 0 24 0;
+#X connect 16 1 4 0;
+#X connect 16 2 20 0;
+#X connect 17 0 19 0;
+#X connect 18 0 20 1;
+#X connect 19 0 18 0;
+#X connect 20 0 9 1;
+#X connect 21 0 22 0;
+#X connect 22 0 21 1;
+#X connect 22 0 23 1;
+#X connect 23 0 3 0;
+#X connect 24 0 21 0;
+#X restore 47 218 pd biquad;
+#X obj 47 259 outlet;
+#X obj 47 42 inlet;
+#X obj 85 87 inlet;
+#X obj 66 63 inlet;
+#X obj 129 110 inlet;
+#X connect 0 0 1 2;
+#X connect 0 1 1 3;
+#X connect 1 0 2 0;
+#X connect 3 0 1 0;
+#X connect 4 0 0 0;
+#X connect 5 0 1 1;
+#X connect 6 0 0 1;
diff --git a/pd/wave.pd b/pd/wave.pd
new file mode 100644
index 0000000..d026a76
--- /dev/null
+++ b/pd/wave.pd
@@ -0,0 +1,68 @@
+#N canvas 360 127 609 536 10;
+#X obj 25 -15 inlet;
+#X obj 267 -14 inlet;
+#X obj 542 -11 inlet;
+#X text 66 -12 position;
+#X text 405 -9 largeur de la vague;
+#X obj 133 178 until;
+#X obj 133 212 f;
+#X obj 159 212 + 1;
+#X obj 133 260 /;
+#X obj 164 302 abs;
+#X obj 164 346 min 1;
+#X obj 164 365 - 1;
+#X obj 164 385 abs;
+#X obj 164 406 list prepend;
+#X obj 199 442 list;
+#X obj 176 464 list;
+#X obj 176 491 outlet;
+#X msg 73 134 0;
+#X obj 261 174 - 1;
+#X obj 133 130 max 1;
+#X obj 400 118 max 0;
+#X text 153 -14 number of points;
+#X obj 400 69 loadbang;
+#X obj 400 90 float_argument \$2 0.5;
+#X text 460 70 default: 0.5;
+#X obj 164 327 /;
+#X obj 26 74 trigger bang bang bang float bang;
+#X obj 164 282 -;
+#X obj 133 153 trigger float float;
+#X obj 132 26 loadbang;
+#X obj 133 105 float;
+#X obj 132 47 float_argument \$1 25;
+#X text 281 46 default: 25 points;
+#X connect 0 0 26 0;
+#X connect 1 0 31 1;
+#X connect 2 0 23 1;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 6 0 8 0;
+#X connect 7 0 6 1;
+#X connect 8 0 27 0;
+#X connect 9 0 25 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 13 1;
+#X connect 14 0 15 1;
+#X connect 15 0 16 0;
+#X connect 17 0 6 1;
+#X connect 18 0 8 1;
+#X connect 19 0 28 0;
+#X connect 20 0 25 1;
+#X connect 22 0 23 0;
+#X connect 23 0 20 0;
+#X connect 25 0 10 0;
+#X connect 26 0 15 0;
+#X connect 26 1 30 0;
+#X connect 26 2 17 0;
+#X connect 26 3 27 1;
+#X connect 26 4 13 1;
+#X connect 27 0 9 0;
+#X connect 28 0 5 0;
+#X connect 28 1 18 0;
+#X connect 29 0 31 0;
+#X connect 30 0 19 0;
+#X connect 31 0 30 0;
diff --git a/wave.pd b/wave.pd
new file mode 100644
index 0000000..d026a76
--- /dev/null
+++ b/wave.pd
@@ -0,0 +1,68 @@
+#N canvas 360 127 609 536 10;
+#X obj 25 -15 inlet;
+#X obj 267 -14 inlet;
+#X obj 542 -11 inlet;
+#X text 66 -12 position;
+#X text 405 -9 largeur de la vague;
+#X obj 133 178 until;
+#X obj 133 212 f;
+#X obj 159 212 + 1;
+#X obj 133 260 /;
+#X obj 164 302 abs;
+#X obj 164 346 min 1;
+#X obj 164 365 - 1;
+#X obj 164 385 abs;
+#X obj 164 406 list prepend;
+#X obj 199 442 list;
+#X obj 176 464 list;
+#X obj 176 491 outlet;
+#X msg 73 134 0;
+#X obj 261 174 - 1;
+#X obj 133 130 max 1;
+#X obj 400 118 max 0;
+#X text 153 -14 number of points;
+#X obj 400 69 loadbang;
+#X obj 400 90 float_argument \$2 0.5;
+#X text 460 70 default: 0.5;
+#X obj 164 327 /;
+#X obj 26 74 trigger bang bang bang float bang;
+#X obj 164 282 -;
+#X obj 133 153 trigger float float;
+#X obj 132 26 loadbang;
+#X obj 133 105 float;
+#X obj 132 47 float_argument \$1 25;
+#X text 281 46 default: 25 points;
+#X connect 0 0 26 0;
+#X connect 1 0 31 1;
+#X connect 2 0 23 1;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 6 0 8 0;
+#X connect 7 0 6 1;
+#X connect 8 0 27 0;
+#X connect 9 0 25 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 13 1;
+#X connect 14 0 15 1;
+#X connect 15 0 16 0;
+#X connect 17 0 6 1;
+#X connect 18 0 8 1;
+#X connect 19 0 28 0;
+#X connect 20 0 25 1;
+#X connect 22 0 23 0;
+#X connect 23 0 20 0;
+#X connect 25 0 10 0;
+#X connect 26 0 15 0;
+#X connect 26 1 30 0;
+#X connect 26 2 17 0;
+#X connect 26 3 27 1;
+#X connect 26 4 13 1;
+#X connect 27 0 9 0;
+#X connect 28 0 5 0;
+#X connect 28 1 18 0;
+#X connect 29 0 31 0;
+#X connect 30 0 19 0;
+#X connect 31 0 30 0;
-- 
cgit v1.2.1