From 383a3f47bf0329e887b0ff950364a98af2456f3d Mon Sep 17 00:00:00 2001
From: Cyrille Henry <nusmuk@users.sourceforge.net>
Date: Tue, 13 Jun 2006 14:41:56 +0000
Subject: *** empty log message ***

svn path=/trunk/externals/nusmuk/; revision=5216
---
 msd2D/07_sable.pd    | 503 +++++++++++++++++++++++++++++++++++++++++++++++++++
 msd2D/lb.pd          |  13 ++
 msd2D/sound_sable.pd |  67 +++++++
 3 files changed, 583 insertions(+)
 create mode 100644 msd2D/07_sable.pd
 create mode 100644 msd2D/lb.pd
 create mode 100644 msd2D/sound_sable.pd

(limited to 'msd2D')

diff --git a/msd2D/07_sable.pd b/msd2D/07_sable.pd
new file mode 100644
index 0000000..806df24
--- /dev/null
+++ b/msd2D/07_sable.pd
@@ -0,0 +1,503 @@
+#N canvas 546 101 632 692 10;
+#X obj 363 187 gemhead;
+#X obj 363 234 world_light;
+#X msg 364 141 \; pd dsp 1;
+#X msg 136 184 FSAA 4;
+#N canvas 451 61 450 536 toaster 0;
+#X obj 36 198 r T01;
+#N canvas 0 0 376 479 filtre 0;
+#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 130 160 /;
+#X obj 59 285 / 2;
+#X obj 59 223 * 1;
+#X msg 130 139 1 \$1;
+#X obj 142 92 loadbang;
+#X msg 141 117 1000;
+#X connect 0 0 8 0;
+#X connect 2 0 7 0;
+#X connect 3 0 7 1;
+#X connect 4 0 9 0;
+#X connect 5 0 3 0;
+#X connect 5 0 8 1;
+#X connect 6 0 5 0;
+#X connect 7 0 2 1;
+#X connect 7 0 1 0;
+#X connect 8 0 2 0;
+#X connect 9 0 6 0;
+#X connect 10 0 11 0;
+#X connect 11 0 9 0;
+#X restore 78 246 pd filtre;
+#X obj 33 226 t f f;
+#X obj 54 278 f;
+#X obj 51 255 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 32 399 outlet;
+#N canvas 0 0 376 479 filtre 0;
+#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 130 160 /;
+#X obj 59 285 / 2;
+#X obj 59 223 * 1;
+#X msg 130 139 1 \$1;
+#X obj 142 92 loadbang;
+#X msg 141 117 1000;
+#X connect 0 0 8 0;
+#X connect 2 0 7 0;
+#X connect 3 0 7 1;
+#X connect 4 0 9 0;
+#X connect 5 0 3 0;
+#X connect 5 0 8 1;
+#X connect 6 0 5 0;
+#X connect 7 0 2 1;
+#X connect 7 0 1 0;
+#X connect 8 0 2 0;
+#X connect 9 0 6 0;
+#X connect 10 0 11 0;
+#X connect 11 0 9 0;
+#X restore 243 256 pd filtre;
+#X obj 198 236 t f f;
+#X obj 219 288 f;
+#X obj 216 265 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 195 413 outlet;
+#X obj 201 208 r T02;
+#X floatatom 101 303 9 0 0 0 - - -;
+#X floatatom 260 322 9 0 0 0 - - -;
+#X obj 27 310 - 37286;
+#X obj 32 333 / 30;
+#X obj 195 342 / 30;
+#N canvas 0 0 376 479 filtre 0;
+#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 130 160 /;
+#X obj 59 285 / 2;
+#X obj 59 223 * 1;
+#X msg 130 139 1 \$1;
+#X obj 142 92 loadbang;
+#X msg 141 117 10;
+#X connect 0 0 8 0;
+#X connect 2 0 7 0;
+#X connect 3 0 7 1;
+#X connect 4 0 9 0;
+#X connect 5 0 3 0;
+#X connect 5 0 8 1;
+#X connect 6 0 5 0;
+#X connect 7 0 2 1;
+#X connect 7 0 1 0;
+#X connect 8 0 2 0;
+#X connect 9 0 6 0;
+#X connect 10 0 11 0;
+#X connect 11 0 9 0;
+#X restore 195 373 pd filtre;
+#N canvas 0 0 376 479 filtre 0;
+#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 130 160 /;
+#X obj 59 285 / 2;
+#X obj 59 223 * 1;
+#X msg 130 139 1 \$1;
+#X obj 142 92 loadbang;
+#X msg 141 117 10;
+#X connect 0 0 8 0;
+#X connect 2 0 7 0;
+#X connect 3 0 7 1;
+#X connect 4 0 9 0;
+#X connect 5 0 3 0;
+#X connect 5 0 8 1;
+#X connect 6 0 5 0;
+#X connect 7 0 2 1;
+#X connect 7 0 1 0;
+#X connect 8 0 2 0;
+#X connect 9 0 6 0;
+#X connect 10 0 11 0;
+#X connect 11 0 9 0;
+#X restore 31 362 pd filtre;
+#X obj 192 317 - 32797;
+#N canvas 0 0 450 300 receive 0;
+#X obj 17 103 send T01;
+#X obj 176 102 send T09;
+#X obj 195 134 send T10;
+#X obj 35 134 send T02;
+#X obj 56 166 send T03;
+#X obj 216 169 send T11;
+#X obj 236 201 send T12;
+#X obj 76 200 send T04;
+#X obj 96 103 send T05;
+#X obj 256 101 send T13;
+#X obj 274 135 send T14;
+#X obj 116 135 send T06;
+#X obj 296 168 send T15;
+#X obj 135 168 send T07;
+#X obj 316 201 send T16;
+#X obj 155 201 send T08;
+#X obj 17 20 dumpOSC 5679;
+#X obj 17 45 route /toaster;
+#X obj 17 70 unpack f f f f f f f f f f f f f f f f;
+#X obj 168 9 dumpOSC 5555;
+#X obj 166 40 route /toaster/sensors;
+#X obj 263 20 route /warhol/sensors;
+#X connect 16 0 17 0;
+#X connect 16 0 20 0;
+#X connect 17 0 18 0;
+#X connect 18 0 0 0;
+#X connect 18 1 3 0;
+#X connect 18 2 4 0;
+#X connect 18 3 7 0;
+#X connect 18 4 8 0;
+#X connect 18 5 11 0;
+#X connect 18 6 13 0;
+#X connect 18 7 15 0;
+#X connect 18 8 1 0;
+#X connect 18 9 2 0;
+#X connect 18 10 5 0;
+#X connect 18 11 6 0;
+#X connect 18 12 9 0;
+#X connect 18 13 10 0;
+#X connect 18 14 12 0;
+#X connect 18 15 14 0;
+#X connect 19 0 20 0;
+#X connect 19 0 17 0;
+#X connect 19 0 21 0;
+#X connect 20 0 18 0;
+#X connect 21 0 18 0;
+#X restore 56 48 pd receive;
+#X connect 0 0 2 0;
+#X connect 1 0 3 1;
+#X connect 2 0 14 0;
+#X connect 2 1 1 0;
+#X connect 3 0 12 0;
+#X connect 3 0 14 1;
+#X connect 4 0 3 0;
+#X connect 6 0 8 1;
+#X connect 7 0 19 0;
+#X connect 7 1 6 0;
+#X connect 8 0 13 0;
+#X connect 8 0 19 1;
+#X connect 9 0 8 0;
+#X connect 11 0 7 0;
+#X connect 14 0 15 0;
+#X connect 15 0 18 0;
+#X connect 16 0 17 0;
+#X connect 17 0 10 0;
+#X connect 18 0 5 0;
+#X connect 19 0 16 0;
+#X restore 306 474 pd toaster;
+#X obj 51 575 msd2D --------------------------------;
+#N canvas 1705 74 296 421 massrender 0;
+#X obj 62 68 inlet;
+#X obj 62 311 translateXYZ;
+#X obj 62 285 separator;
+#X obj 62 225 any;
+#X obj 78 199 gemhead 45;
+#X obj 62 103 unpack s f f;
+#X obj 62 337 sphere 0.2 20;
+#X obj 67 142 t b b;
+#X obj 64 364 color;
+#X msg 207 229 1 1 1;
+#X obj 232 61 inlet;
+#X msg 231 255 1 0 0;
+#X connect 0 0 5 0;
+#X connect 1 0 6 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 4 0 3 1;
+#X connect 5 0 7 0;
+#X connect 5 1 1 1;
+#X connect 5 2 1 2;
+#X connect 6 0 8 0;
+#X connect 7 0 9 0;
+#X connect 7 1 3 0;
+#X connect 9 0 8 1;
+#X connect 10 0 11 0;
+#X connect 11 0 8 1;
+#X restore 51 627 pd massrender;
+#X obj 51 350 gemhead;
+#X obj 212 397 gcanvas 80 80;
+#X obj 51 328 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X msg 51 373 get massesPos sable;
+#N canvas 754 153 608 476 creation 0;
+#X obj 198 405 t a;
+#X obj 196 30 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X msg 207 72 reset;
+#X obj 128 28 loadbang;
+#X text 234 32 Reset;
+#X text 263 89 Random positions and masses;
+#N canvas 826 356 716 390 masses 0;
+#X msg 417 145 seed 1;
+#X msg 342 144 seed 2;
+#X obj 43 15 inlet;
+#X obj 238 362 outlet;
+#X obj 419 97 loadbang;
+#X obj 223 68 t b b;
+#X obj 43 78 f;
+#X obj 73 78 + 1;
+#X msg 43 41 0;
+#X msg 237 294 mass sable 1 1 \$1 \$2;
+#X obj 237 274 pack f f;
+#X obj 254 218 - 3;
+#X obj 336 223 - 3;
+#X obj 253 170 random 30;
+#X obj 339 172 random 30;
+#X obj 336 201 / 5;
+#X obj 254 196 / 5;
+#X obj 74 101 moses 32.5;
+#X connect 0 0 14 0;
+#X connect 1 0 13 0;
+#X connect 2 0 8 0;
+#X connect 4 0 1 0;
+#X connect 4 0 0 0;
+#X connect 5 0 13 0;
+#X connect 5 1 14 0;
+#X connect 6 0 7 0;
+#X connect 6 0 5 0;
+#X connect 7 0 17 0;
+#X connect 8 0 6 0;
+#X connect 9 0 3 0;
+#X connect 10 0 9 0;
+#X connect 11 0 10 0;
+#X connect 12 0 10 1;
+#X connect 13 0 16 0;
+#X connect 14 0 15 0;
+#X connect 15 0 12 0;
+#X connect 16 0 11 0;
+#X connect 17 0 6 0;
+#X restore 185 93 pd masses;
+#X obj 128 49 t b b b b;
+#X obj 40 149 t b b b b;
+#X msg 155 133 mass fixe 0 1 0 0;
+#X msg 138 176 tLink dampX fixe sable 0 0.001 0 1 1 0 1000;
+#X msg 131 198 tLink dampY fixe sable 0 0.001 1 0 1 0 1000;
+#X obj 197 434 outlet;
+#X obj 94 7 inlet;
+#X msg 36 375 Xmax 1111 \, Xmin -1111 \, Ymax 1111 \, Ymin -1111;
+#X msg 48 338 setL linkD 1000 \, setL linkG 1000 \, setL linkH 1000
+\, setL linkB 1000;
+#X msg 108 256 link linkD MlinkD sable 0.01 0 1 1000 100000;
+#X msg 103 276 link linkG MlinkG sable 0.01 0 1 1000 100000;
+#X msg 90 295 link linkH MlinkH sable 0.01 0 1 1000 100000;
+#X msg 78 315 link linkB MlinkB sable 0.01 0 1 1000 100000;
+#X msg 167 113 link rebond sable sable 0.003 0.005 1 0 0.4;
+#X msg 146 153 setL rebond 0.4;
+#X msg 120 221 mass MlinkD 0 1 -993.8 0 \, mass MlinkG 0 1 993.8 0
+\, mass MlinkH 0 1 0 996.2 \, mass MlinkB 0 1 0 -996.2;
+#X connect 0 0 12 0;
+#X connect 1 0 7 0;
+#X connect 2 0 0 0;
+#X connect 3 0 7 0;
+#X connect 6 0 0 0;
+#X connect 7 0 8 0;
+#X connect 7 0 21 0;
+#X connect 7 1 20 0;
+#X connect 7 1 9 0;
+#X connect 7 2 6 0;
+#X connect 7 3 2 0;
+#X connect 8 1 15 0;
+#X connect 8 2 16 0;
+#X connect 8 2 18 0;
+#X connect 8 2 19 0;
+#X connect 8 2 17 0;
+#X connect 8 3 10 0;
+#X connect 8 3 11 0;
+#X connect 8 3 22 0;
+#X connect 9 0 0 0;
+#X connect 10 0 0 0;
+#X connect 11 0 0 0;
+#X connect 13 0 7 0;
+#X connect 14 0 0 0;
+#X connect 15 0 0 0;
+#X connect 16 0 0 0;
+#X connect 17 0 0 0;
+#X connect 18 0 0 0;
+#X connect 19 0 0 0;
+#X connect 20 0 0 0;
+#X connect 21 0 0 0;
+#X connect 22 0 0 0;
+#X restore 68 494 pd creation;
+#X obj 89 515 bang~;
+#X msg 89 539 get massesForces;
+#N canvas 0 0 450 300 simulation_gravite 0;
+#X msg 28 224 forceX sable \$1;
+#X msg 142 224 forceY sable \$1;
+#X obj 29 60 min 80;
+#X obj 28 82 max 0;
+#X obj 28 107 - 40;
+#X obj 142 60 min 80;
+#X obj 141 82 max 0;
+#X obj 143 151 - 40;
+#X obj 142 102 * -1;
+#X obj 143 126 + 80;
+#X obj 48 132 bang~;
+#X obj 30 39 inlet;
+#X obj 140 38 inlet;
+#X obj 25 257 outlet;
+#X obj 125 179 f;
+#X obj 36 178 f;
+#X obj 31 201 / 2e+06;
+#X obj 145 200 / 2e+06;
+#X obj 291 45 inlet;
+#X obj 401 44 inlet;
+#X connect 0 0 13 0;
+#X connect 1 0 13 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 15 1;
+#X connect 5 0 6 0;
+#X connect 6 0 8 0;
+#X connect 7 0 14 1;
+#X connect 8 0 9 0;
+#X connect 9 0 7 0;
+#X connect 10 0 14 0;
+#X connect 10 0 15 0;
+#X connect 11 0 2 0;
+#X connect 12 0 5 0;
+#X connect 14 0 17 0;
+#X connect 15 0 16 0;
+#X connect 16 0 0 0;
+#X connect 17 0 1 0;
+#X connect 18 0 15 1;
+#X connect 19 0 14 1;
+#X restore 212 496 pd simulation_gravite;
+#X obj 68 475 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 65 417 metro 1;
+#X obj 65 396 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X msg 109 145 view 0 0 40 0 0 0 0 1 0;
+#X msg 119 165 perspec -0.1 0.1 -0.1 0.1 1 100;
+#X obj 116 119 b;
+#X obj 135 96 loadbang;
+#X obj 116 95 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 363 212 rotateXYZ -30 -20 0;
+#X obj 65 444 t b b;
+#X msg 209 242 destroy;
+#X obj 209 197 key;
+#X obj 209 218 sel 27;
+#X obj 364 67 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 364 90 s lb;
+#X obj 364 120 lb;
+#X obj 126 396 lb;
+#X msg 90 396 1;
+#X msg 88 61 dimen 1680 1050 \, cursor 0;
+#X text 390 475 <- sensors;
+#X text 321 450 <- sensors simulation;
+#X obj 52 282 gemwin 58;
+#X msg 51 13 dimen 672 420;
+#X msg 69 38 create \, lighting 1 \, 1;
+#N canvas 0 0 450 300 sound 0;
+#X obj 19 279 dac~;
+#X obj 202 220 *~ 1;
+#X obj 10 40 sound_sable 0 1;
+#X obj 268 191 sound_sable 28 29;
+#X obj 43 101 sound_sable 12 13;
+#X obj 20 61 sound_sable 4 5;
+#X obj 79 164 sound_sable 24 25;
+#X obj 33 80 sound_sable 8 9;
+#X obj 56 123 sound_sable 16 17;
+#X obj 66 144 sound_sable 20 21;
+#X obj 191 43 sound_sable 2 3;
+#X obj 201 64 sound_sable 6 7;
+#X obj 214 83 sound_sable 10 11;
+#X obj 224 104 sound_sable 14 15;
+#X obj 237 126 sound_sable 18 19;
+#X obj 247 148 sound_sable 22 23;
+#X obj 260 167 sound_sable 26 27;
+#X obj 277 212 sound_sable 30 31;
+#X obj 19 246 *~ 0.2;
+#X obj 13 11 inlet;
+#X connect 1 0 18 0;
+#X connect 2 0 18 0;
+#X connect 2 1 5 0;
+#X connect 3 0 1 0;
+#X connect 3 1 17 0;
+#X connect 4 0 18 0;
+#X connect 4 1 8 0;
+#X connect 5 0 18 0;
+#X connect 5 1 7 0;
+#X connect 6 0 18 0;
+#X connect 6 1 10 0;
+#X connect 7 0 18 0;
+#X connect 7 1 4 0;
+#X connect 8 0 18 0;
+#X connect 8 1 9 0;
+#X connect 9 0 18 0;
+#X connect 9 1 6 0;
+#X connect 10 0 1 0;
+#X connect 10 1 11 0;
+#X connect 11 0 1 0;
+#X connect 11 1 12 0;
+#X connect 12 0 1 0;
+#X connect 12 1 13 0;
+#X connect 13 0 1 0;
+#X connect 13 1 14 0;
+#X connect 14 0 1 0;
+#X connect 14 1 15 0;
+#X connect 15 0 1 0;
+#X connect 15 1 16 0;
+#X connect 16 0 1 0;
+#X connect 16 1 3 0;
+#X connect 17 0 1 0;
+#X connect 18 0 0 0;
+#X connect 18 0 0 1;
+#X connect 19 0 2 0;
+#X restore 153 626 pd sound;
+#X obj 51 596 route massesPosId massesForces;
+#X connect 0 0 23 0;
+#X connect 3 0 36 0;
+#X connect 4 0 14 2;
+#X connect 4 1 14 3;
+#X connect 5 0 40 0;
+#X connect 7 0 10 0;
+#X connect 8 0 14 0;
+#X connect 8 1 14 1;
+#X connect 9 0 7 0;
+#X connect 10 0 5 0;
+#X connect 11 0 5 0;
+#X connect 12 0 13 0;
+#X connect 13 0 5 0;
+#X connect 14 0 5 0;
+#X connect 15 0 11 0;
+#X connect 16 0 24 0;
+#X connect 17 0 16 0;
+#X connect 18 0 36 0;
+#X connect 19 0 36 0;
+#X connect 20 0 18 0;
+#X connect 20 0 19 0;
+#X connect 20 0 3 0;
+#X connect 21 0 20 0;
+#X connect 22 0 20 0;
+#X connect 23 0 1 0;
+#X connect 24 0 5 0;
+#X connect 24 1 6 1;
+#X connect 25 0 36 0;
+#X connect 26 0 27 0;
+#X connect 27 0 25 0;
+#X connect 28 0 29 0;
+#X connect 30 0 2 0;
+#X connect 31 0 32 0;
+#X connect 32 0 17 0;
+#X connect 33 0 36 0;
+#X connect 37 0 36 0;
+#X connect 38 0 36 0;
+#X connect 40 0 6 0;
+#X connect 40 1 39 0;
diff --git a/msd2D/lb.pd b/msd2D/lb.pd
new file mode 100644
index 0000000..1433464
--- /dev/null
+++ b/msd2D/lb.pd
@@ -0,0 +1,13 @@
+#N canvas 0 0 450 300 10;
+#X obj 18 86 loadbang;
+#X obj 18 63 universal;
+#X msg 18 41 loadbang loadbang;
+#X obj 18 17 inlet;
+#X obj 18 108 outlet;
+#X obj 104 84 r lb;
+#X obj 104 105 t b;
+#X connect 0 0 4 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 5 0 6 0;
+#X connect 6 0 4 0;
diff --git a/msd2D/sound_sable.pd b/msd2D/sound_sable.pd
new file mode 100644
index 0000000..75f48a6
--- /dev/null
+++ b/msd2D/sound_sable.pd
@@ -0,0 +1,67 @@
+#N canvas 420 100 846 647 10;
+#X obj 62 56 inlet;
+#X obj 179 112 outlet;
+#X obj 63 159 unpack f f;
+#X obj 63 231 +;
+#X obj 63 182 t f f;
+#X obj 63 205 *;
+#X obj 128 181 t f f;
+#X obj 128 204 *;
+#X obj 65 453 line~;
+#X obj 66 543 *~;
+#X obj 143 412 random 1000;
+#X obj 142 479 osc~;
+#X obj 66 571 outlet~;
+#X obj 65 404 min 0.1;
+#X obj 181 162 unpack f f;
+#X obj 181 234 +;
+#X obj 181 185 t f f;
+#X obj 181 208 *;
+#X obj 246 184 t f f;
+#X obj 246 207 *;
+#X obj 61 289 max;
+#X obj 143 434 / 3;
+#X obj 65 87 route \$1 \$2;
+#X obj 60 332 max 0;
+#X obj 63 252 * 1e+06;
+#X obj 180 255 * 1e+06;
+#X msg 64 430 \$1 0.5;
+#X obj 142 457 + 300;
+#X obj 143 390 lb;
+#X obj 60 312 - 0.009;
+#X connect 0 0 22 0;
+#X connect 2 0 4 0;
+#X connect 2 1 6 0;
+#X connect 3 0 24 0;
+#X connect 4 0 5 0;
+#X connect 4 1 5 1;
+#X connect 5 0 3 0;
+#X connect 6 0 7 0;
+#X connect 6 1 7 1;
+#X connect 7 0 3 1;
+#X connect 8 0 9 0;
+#X connect 9 0 12 0;
+#X connect 10 0 21 0;
+#X connect 11 0 9 1;
+#X connect 13 0 26 0;
+#X connect 14 0 16 0;
+#X connect 14 1 18 0;
+#X connect 15 0 25 0;
+#X connect 16 0 17 0;
+#X connect 16 1 17 1;
+#X connect 17 0 15 0;
+#X connect 18 0 19 0;
+#X connect 18 1 19 1;
+#X connect 19 0 15 1;
+#X connect 20 0 29 0;
+#X connect 21 0 27 0;
+#X connect 22 0 2 0;
+#X connect 22 1 14 0;
+#X connect 22 2 1 0;
+#X connect 23 0 13 0;
+#X connect 24 0 20 0;
+#X connect 25 0 20 1;
+#X connect 26 0 8 0;
+#X connect 27 0 11 0;
+#X connect 28 0 10 0;
+#X connect 29 0 23 0;
-- 
cgit v1.2.1