1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
#N canvas 125 3 842 750 10;
#X text 281 321 Id \, M \, X0;
#X text 312 244 Id \, mass1 \, mass2 \, K \, D;
#X text 243 170 id \, outlet \, mass \, amplitude;
#X msg 221 378 reset;
#X obj 39 413 t a;
#X msg 202 324 mass 1 10 1;
#X obj 134 11 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 52 654 tabwrite~ array99;
#X obj 424 497 metro 100;
#X obj 424 471 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 190 658 tabwrite~ array98;
#N canvas 0 0 454 304 graph1 0;
#X array array97 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 662 269 graph;
#X msg 201 299 mass 1 10 1;
#X msg 15 54 \; pd dsp 1 \;;
#X obj 15 29 loadbang;
#X obj 450 474 loadbang;
#X msg 299 402 forceX 2 1;
#X obj 197 498 phasor~ 1;
#X obj 77 498 phasor~ 0.3;
#X floatatom 77 479 5 0 0 0 - - -;
#X floatatom 197 477 5 0 0 0 - - -;
#X floatatom 320 478 5 0 0 0 - - -;
#X msg 203 350 mass 1 10 1;
#X msg 161 145 out 1 0 1 1;
#X msg 162 171 out 1 1 2 1;
#X msg 163 197 out 1 2 3 1;
#N canvas 0 0 454 304 graph1 0;
#X array array98 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 662 165 graph;
#X obj 325 658 tabwrite~ array97;
#X obj 88 521 tabwrite~ array9;
#X obj 208 522 tabwrite~ array8;
#X obj 332 523 tabwrite~ array7;
#N canvas 0 0 450 300 graph1 0;
#X array array9 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 507 61 graph;
#N canvas 0 0 454 304 graph1 0;
#X array array7 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 507 269 graph;
#N canvas 0 0 454 304 graph1 0;
#X array array8 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 507 165 graph;
#X text 210 89 id \, inlet \, mass \, amplitude;
#X msg 134 116 in 1 2 3 1;
#X obj 37 714 dac~;
#X msg 182 222 link 1 0 1 0.1 0.001;
#X msg 181 244 link 1 0 2 0.5 0.001;
#X msg 182 267 link 1 0 3 0.3 0.001;
#X obj 39 629 hip~ 20;
#X obj 178 634 hip~ 20;
#X obj 312 632 hip~ 20;
#N canvas 0 0 450 300 graph1 0;
#X array array99 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 662 61 graph;
#X obj 39 599 pmpd~ 3 3;
#X obj 320 499 phasor~ 1.5;
#X msg 133 68 in 1 0 1 1;
#X msg 133 91 in 1 1 2 1;
#X obj 134 37 t b b b b b;
#X obj 405 635 metro 100;
#X obj 405 609 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 431 612 loadbang;
#X obj 77 543 /~ 50;
#X obj 38 689 +~ 0;
#X obj 197 544 /~ 20;
#X obj 321 546 /~ 20;
#X text 159 10 <- create the network;
#X connect 3 0 4 0;
#X connect 4 0 44 0;
#X connect 5 0 4 0;
#X connect 6 0 48 0;
#X connect 8 0 28 0;
#X connect 8 0 29 0;
#X connect 8 0 30 0;
#X connect 9 0 8 0;
#X connect 12 0 4 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 16 0 4 0;
#X connect 17 0 29 0;
#X connect 17 0 54 0;
#X connect 18 0 28 0;
#X connect 18 0 52 0;
#X connect 19 0 18 0;
#X connect 20 0 17 0;
#X connect 21 0 45 0;
#X connect 22 0 4 0;
#X connect 23 0 4 0;
#X connect 24 0 4 0;
#X connect 25 0 4 0;
#X connect 35 0 4 0;
#X connect 37 0 4 0;
#X connect 38 0 4 0;
#X connect 39 0 4 0;
#X connect 40 0 7 0;
#X connect 40 0 53 0;
#X connect 41 0 10 0;
#X connect 41 0 53 0;
#X connect 42 0 27 0;
#X connect 42 0 53 0;
#X connect 44 0 40 0;
#X connect 44 1 41 0;
#X connect 44 2 42 0;
#X connect 45 0 30 0;
#X connect 45 0 55 0;
#X connect 46 0 4 0;
#X connect 47 0 4 0;
#X connect 48 0 46 0;
#X connect 48 0 47 0;
#X connect 48 0 35 0;
#X connect 48 1 23 0;
#X connect 48 1 24 0;
#X connect 48 1 25 0;
#X connect 48 2 37 0;
#X connect 48 2 38 0;
#X connect 48 2 39 0;
#X connect 48 3 12 0;
#X connect 48 3 5 0;
#X connect 48 3 22 0;
#X connect 48 4 3 0;
#X connect 49 0 7 0;
#X connect 49 0 10 0;
#X connect 49 0 27 0;
#X connect 50 0 49 0;
#X connect 51 0 49 0;
#X connect 52 0 44 0;
#X connect 53 0 36 0;
#X connect 53 0 36 1;
#X connect 54 0 44 1;
#X connect 55 0 44 2;
|
