blob: 804c7bc25efb20d0b957a25030c21d776aafb7f0 (
plain)
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
|
#N canvas 423 238 487 445 10;
#X floatatom 32 12 0 0 0 0 - - -;
#N canvas 0 0 454 304 cpu 0;
#X obj 61 159 cputime;
#X obj 61 19 loadbang;
#X obj 61 103 metro 1000;
#X msg 61 47 1;
#X floatatom 61 75 0 0 0 0 - - -;
#X obj 61 131 t b b;
#X obj 61 219 * 0.1;
#X obj 61 188 int;
#X text 106 75 <-- on/off;
#X obj 61 246 outlet;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 5 0 0 0;
#X connect 5 1 0 1;
#X connect 6 0 9 0;
#X connect 7 0 6 0;
#X restore 32 -14 pd cpu;
#X obj 89 219 tabwrite~ array99;
#X msg 80 14 \; pd dsp 1 \;;
#X obj 80 -14 loadbang;
#X obj 26 221 dac~;
#X obj 27 171 hip~ 20;
#N canvas 0 0 450 300 (subpatch) 0;
#X array array99 3000 float 0;
#X coords 0 1 2999 -1 150 100 1;
#X restore 49 257 graph;
#N canvas 0 0 531 530 corde 0;
#X obj 86 32 t b b b b;
#X msg 143 71 reset;
#X obj 92 4 inlet;
#X obj 141 409 outlet;
#X obj 72 270 pack f f;
#X obj 83 200 t f f;
#X obj 108 223 + 1;
#X text 254 75 number of masss on the string;
#X obj 144 220 + 1;
#X obj 104 112 + 1;
#N canvas 0 0 454 304 uzi 0;
#X obj 70 50 inlet;
#X obj 70 154 f;
#X obj 95 129 + 1;
#X msg 67 103 0;
#X obj 71 199 moses;
#X obj 69 74 t b f;
#X obj 71 232 outlet;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 4 0 6 0;
#X connect 5 0 3 0;
#X connect 5 1 4 1;
#X restore 83 160 pd uzi;
#N canvas 0 0 454 304 uzi 0;
#X obj 70 50 inlet;
#X obj 70 154 f;
#X obj 95 129 + 1;
#X msg 67 103 0;
#X obj 71 199 moses;
#X obj 69 74 t b f;
#X obj 71 232 outlet;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 4 0 6 0;
#X connect 5 0 3 0;
#X connect 5 1 4 1;
#X restore 138 156 pd uzi;
#X obj 137 127 20;
#X obj 86 136 21;
#X obj 109 244 % 21;
#X msg 221 78 50;
#X msg 149 181 mass 20 1;
#X msg 69 297 link \$1 \$2 0.1 0.03;
#X msg 204 360 inForce 0 3 1;
#X msg 206 332 outPos 0 7 1;
#X connect 0 0 19 0;
#X connect 0 0 18 0;
#X connect 0 1 13 0;
#X connect 0 2 12 0;
#X connect 0 3 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 4 0 17 0;
#X connect 5 0 4 0;
#X connect 5 1 6 0;
#X connect 6 0 14 0;
#X connect 8 0 14 1;
#X connect 9 0 13 1;
#X connect 10 0 5 0;
#X connect 11 0 16 0;
#X connect 12 0 11 0;
#X connect 13 0 10 0;
#X connect 14 0 4 1;
#X connect 15 0 8 0;
#X connect 15 0 9 0;
#X connect 15 0 12 1;
#X connect 16 0 3 0;
#X connect 17 0 3 0;
#X connect 18 0 3 0;
#X connect 19 0 3 0;
#X restore 28 96 pd corde;
#X obj 28 74 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 89 193 metro 100;
#X obj 89 167 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 115 170 loadbang;
#X obj 28 122 pmpd~ 1 1;
#X obj 45 74 loadbang;
#X obj 111 97 line~;
#X msg 111 71 0.05 \, 0 1;
#X obj 28 146 *~ 0.7;
#X text 190 70 <- send a force to a point of the string;
#X connect 1 0 0 0;
#X connect 4 0 3 0;
#X connect 6 0 2 0;
#X connect 6 0 5 0;
#X connect 6 0 5 1;
#X connect 8 0 13 0;
#X connect 9 0 8 0;
#X connect 10 0 2 0;
#X connect 11 0 10 0;
#X connect 12 0 10 0;
#X connect 13 0 17 0;
#X connect 14 0 8 0;
#X connect 15 0 13 0;
#X connect 16 0 15 0;
#X connect 17 0 6 0;
|
