From 61d723c85b31647dc45cc070431d922436707cfa Mon Sep 17 00:00:00 2001 From: "N.N." Date: Fri, 28 Mar 2008 02:17:07 +0000 Subject: examples modified svn path=/trunk/externals/nusmuk/; revision=9635 --- msd/03_msdwave.pd | 166 +++++++++++++++++++++++++++--------------------------- 1 file changed, 82 insertions(+), 84 deletions(-) (limited to 'msd/03_msdwave.pd') diff --git a/msd/03_msdwave.pd b/msd/03_msdwave.pd index 8e196ce..816840a 100644 --- a/msd/03_msdwave.pd +++ b/msd/03_msdwave.pd @@ -1,4 +1,4 @@ -#N canvas 360 104 602 232 10; +#N canvas 617 175 594 188 10; #X obj 29 20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X text 49 19 Reset; @@ -7,7 +7,6 @@ #N canvas 0 22 981 585 structure_creation 0; #X msg 681 243 mass filet 1 100 0; #X msg 663 64 reset; -#X obj 690 527 s msdin; #X obj 418 25 t b b b b b b b b b b b b; #X obj 681 201 until; #X msg 681 170 400; @@ -37,47 +36,48 @@ 399; #X obj 418 -8 inlet; #X obj 326 61 loadbang; -#X connect 0 0 2 0; -#X connect 1 0 2 0; -#X connect 3 5 28 0; -#X connect 3 6 15 0; -#X connect 3 7 19 0; -#X connect 3 8 7 0; -#X connect 3 9 11 0; -#X connect 3 10 5 0; -#X connect 3 11 1 0; -#X connect 4 0 0 0; -#X connect 5 0 4 0; -#X connect 6 0 2 0; +#X obj 690 527 s \$0-msdin; +#X connect 0 0 30 0; +#X connect 1 0 30 0; +#X connect 2 5 27 0; +#X connect 2 6 14 0; +#X connect 2 7 18 0; +#X connect 2 8 6 0; +#X connect 2 9 10 0; +#X connect 2 10 4 0; +#X connect 2 11 1 0; +#X connect 3 0 0 0; +#X connect 4 0 3 0; +#X connect 5 0 30 0; +#X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 8 0 9 0; -#X connect 9 0 10 0; -#X connect 9 0 14 0; -#X connect 10 0 9 1; -#X connect 11 0 9 1; -#X connect 12 0 13 1; -#X connect 13 0 6 0; -#X connect 14 0 13 0; -#X connect 14 1 12 0; +#X connect 8 0 13 0; +#X connect 9 0 8 1; +#X connect 10 0 8 1; +#X connect 11 0 12 1; +#X connect 12 0 5 0; +#X connect 13 0 12 0; +#X connect 13 1 11 0; +#X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 16 0 17 0; -#X connect 17 0 18 0; -#X connect 17 0 20 0; -#X connect 18 0 17 1; -#X connect 19 0 17 1; -#X connect 20 0 23 0; -#X connect 20 1 21 0; -#X connect 21 0 22 0; -#X connect 22 0 23 1; -#X connect 23 0 25 0; -#X connect 24 0 27 0; -#X connect 25 0 24 0; -#X connect 25 1 26 0; -#X connect 26 0 24 1; -#X connect 27 0 2 0; +#X connect 16 0 19 0; +#X connect 17 0 16 1; +#X connect 18 0 16 1; +#X connect 19 0 22 0; +#X connect 19 1 20 0; +#X connect 20 0 21 0; +#X connect 21 0 22 1; +#X connect 22 0 24 0; +#X connect 23 0 26 0; +#X connect 24 0 23 0; +#X connect 24 1 25 0; +#X connect 25 0 23 1; +#X connect 26 0 30 0; +#X connect 27 0 30 0; #X connect 28 0 2 0; -#X connect 29 0 3 0; -#X connect 30 0 3 0; +#X connect 29 0 2 0; #X restore 29 39 pd structure_creation; #N canvas 813 63 450 300 gem 0; #X obj 114 171 gemwin; @@ -91,21 +91,21 @@ #X connect 4 0 2 0; #X connect 4 1 1 0; #X restore 30 85 pd gem; -#X obj 30 63 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1 +#X obj 30 63 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 ; #X text 200 -6 send forces; #X text 200 7 on a row; #N canvas 0 22 450 300 damping 0; #X msg 151 90 setD fil \$1; -#X obj 151 113 s msdin; #X obj 151 70 / 8; #X obj 151 47 inlet; -#X connect 0 0 1 0; -#X connect 2 0 0 0; -#X connect 3 0 2 0; +#X obj 151 113 s \$0-msdin; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; #X restore 301 119 pd damping; #X obj 304 100 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 0 1; +-1 -1 12700 1; #X text 300 79 change viscosity; #N canvas 0 22 450 300 row 0; #X msg 149 87 20; @@ -115,8 +115,8 @@ #X msg 208 113 6; #X obj 149 63 t b b; #X msg 149 153 forceX \$1 30; -#X obj 149 183 s msdin; #X obj 149 38 inlet; +#X obj 149 183 s \$0-msdin; #X connect 0 0 2 0; #X connect 1 0 3 0; #X connect 1 0 6 0; @@ -125,48 +125,46 @@ #X connect 4 0 1 1; #X connect 5 0 0 0; #X connect 5 1 4 0; -#X connect 6 0 7 0; -#X connect 8 0 5 0; +#X connect 6 0 8 0; +#X connect 7 0 5 0; #X restore 202 51 pd row; #X obj 201 105 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X text 199 70 send forces; #X text 50 63 Gem on/off; #X obj 305 38 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 0 1; +-1 -1 1300 1; #X text 300 17 change rigidity; #N canvas 0 22 450 300 rigi 0; -#X obj 151 113 s msdin; #X obj 151 47 inlet; #X obj 151 70 / 4; #X msg 151 90 setK fil \$1; +#X obj 151 113 s \$0-msdin; +#X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 3 0; -#X connect 3 0 0 0; #X restore 302 57 pd rigi; #X text 199 83 on a point; #N canvas 0 22 450 300 point 0; -#X obj 192 156 s msdin; #X msg 192 123 forceX 10 100; #X obj 193 95 inlet; +#X obj 192 156 s \$0-msdin; +#X connect 0 0 2 0; #X connect 1 0 0 0; -#X connect 2 0 1 0; #X restore 201 126 pd point; -#X text 469 -9 move a corner; +#X text 469 -2 move a corner; #N canvas 0 22 450 300 corner 0; #X msg 222 89 posX 0 \$1; #X obj 222 65 / 30; -#X obj 222 115 s msdin; #X obj 223 32 inlet; -#X connect 0 0 2 0; +#X obj 222 115 s \$0-msdin; +#X connect 0 0 3 0; #X connect 1 0 0 0; -#X connect 3 0 1 0; +#X connect 2 0 1 0; #X restore 471 155 pd corner; #X obj 471 17 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 0 1; #N canvas 696 124 709 588 compute 0; -#X obj 301 215 print msd; -#X obj 141 153 r msdin; #X msg 126 130 bang \, get massesPos; #X obj 126 27 gemhead; #X obj 126 224 route massesPos; @@ -193,35 +191,35 @@ ; #X obj 34 443 translateXYZ 0 0 -2; #X obj 34 477 rotateXYZ 0 20 0; -#X connect 1 0 18 0; -#X connect 2 0 18 0; +#X obj 141 153 r \$0-msdin; +#X connect 0 0 16 0; +#X connect 1 0 21 0; +#X connect 2 0 10 0; #X connect 3 0 23 0; -#X connect 4 0 12 0; -#X connect 5 0 25 0; -#X connect 6 0 5 0; +#X connect 4 0 3 0; +#X connect 5 0 7 0; +#X connect 5 0 11 0; +#X connect 5 1 6 3; +#X connect 6 0 20 0; #X connect 7 0 9 0; -#X connect 7 0 13 0; -#X connect 7 1 8 3; -#X connect 8 0 22 0; -#X connect 9 0 11 0; -#X connect 10 0 8 1; -#X connect 11 0 10 0; -#X connect 12 0 5 0; -#X connect 12 1 7 0; +#X connect 8 0 6 1; +#X connect 9 0 8 0; +#X connect 10 0 3 0; +#X connect 10 1 5 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; #X connect 13 0 14 0; -#X connect 14 0 15 0; -#X connect 15 0 16 0; -#X connect 16 0 8 2; -#X connect 17 0 6 0; -#X connect 18 0 4 0; -#X connect 18 1 0 0; -#X connect 19 0 21 0; -#X connect 21 0 20 0; -#X connect 23 0 2 0; -#X connect 23 1 24 0; -#X connect 24 0 18 0; -#X connect 25 0 26 0; -#X connect 26 0 8 0; +#X connect 14 0 6 2; +#X connect 15 0 4 0; +#X connect 16 0 2 0; +#X connect 17 0 19 0; +#X connect 19 0 18 0; +#X connect 21 0 0 0; +#X connect 21 1 22 0; +#X connect 22 0 16 0; +#X connect 23 0 24 0; +#X connect 24 0 6 0; +#X connect 25 0 16 0; #X restore 30 109 pd compute; #X connect 0 0 3 0; #X connect 2 0 11 0; -- cgit v1.2.1