Mercurial > hg > beaglert

comparison examples/08-PureData/rubberDuckie/_main.pd @ 531:ddb86944e138 prerelease

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cleaned up all pd examples (and removed some). added polysynth and vangelisiser to instruments examples
author chnrx <chris.heinrichs@gmail.com>
date Thu, 23 Jun 2016 20:40:05 +0100
parents 8fcfbfb32aa0
children
comparison
equal deleted inserted replaced
525:1ca196e35105 531:ddb86944e138
1 #N canvas 275 573 442 207 10; 1 #N canvas 1363 702 483 627 10;
2 #X obj 39 149 dac~ 1 2; 2 #X obj 39 209 dac~ 1 2;
3 #X text 218 143 ---------------------------------;
4 #X text 218 133 @krighxz / BELA / heavy / 12/2015;
5 #X text 242 152 beaglert.cc / enzienaudio.com;
6 #X text 35 32 Rubber Duckie; 3 #X text 35 32 Rubber Duckie;
7 #X text 35 42 =============; 4 #X text 35 42 =============;
8 #N canvas 325 86 823 605 duckie 0; 5 #X text 251 15 ............................;
9 #X obj 186 510 *~; 6 #X text 251 25 . ____ ._____ _ .......___ .;
10 #X obj 306 517 *~; 7 #X text 251 35 .| __ )| ____| |....../ _ |.;
11 #X obj 372 468 noise~; 8 #X text 251 55 .| |_) | |___| |___ / ___ |.;
12 #X obj 372 492 bp~ 3000 10; 9 #X text 251 65 .|____/|_____|_____/_/..._|.io;
13 #X obj 366 162 abs~; 10 #X text 251 75 ............................;
14 #X obj 509 158 sig~ 0; 11 #X text 251 45 .| __ || __|.| |...../ _| |.;
15 #X obj 467 371 +~; 12 #X obj 39 141 sigdelta;
16 #X obj 411 210 -~ 0.55; 13 #X obj 39 176 duckie;
17 #X obj 411 231 /~ 0.2; 14 #X text 113 176 <<< open this abstraction to see how the model works
18 #X obj 411 252 clip~ 0 1;
19 #X obj 411 282 *~;
20 #X obj 411 308 *~ 1000;
21 #X obj 366 334 +~;
22 #X obj 366 308 +~ 800;
23 #X obj 186 536 *~ 0.2;
24 #X obj 366 282 *~ 800;
25 #N canvas 568 775 135 226 <~ 0;
26 #X obj 20 -43 -~;
27 #X obj 20 27 +~ 1e-37;
28 #X obj 20 6 clip~ -1e-37 0;
29 #X obj 20 -88 inlet~;
30 #X obj 64 -87 inlet~;
31 #X obj 20 -64 max~;
32 #X obj 20 -19 *~ -1;
33 #X obj 20 79 outlet~;
34 #X obj 20 48 *~ 1e+37;
35 #X connect 0 0 6 0;
36 #X connect 1 0 8 0;
37 #X connect 2 0 1 0;
38 #X connect 3 0 5 0;
39 #X connect 4 0 0 1;
40 #X connect 4 0 5 1;
41 #X connect 5 0 0 0;
42 #X connect 6 0 2 0;
43 #X connect 8 0 7 0;
44 #X restore 186 367 pd <~ 0;
45 #N canvas 568 775 135 226 <~ 0;
46 #X obj 20 -43 -~;
47 #X obj 20 27 +~ 1e-37;
48 #X obj 20 6 clip~ -1e-37 0;
49 #X obj 20 -88 inlet~;
50 #X obj 64 -87 inlet~;
51 #X obj 20 -64 max~;
52 #X obj 20 -19 *~ -1;
53 #X obj 20 79 outlet~;
54 #X obj 20 48 *~ 1e+37;
55 #X connect 0 0 6 0;
56 #X connect 1 0 8 0;
57 #X connect 2 0 1 0;
58 #X connect 3 0 5 0;
59 #X connect 4 0 0 1;
60 #X connect 4 0 5 1;
61 #X connect 5 0 0 0;
62 #X connect 6 0 2 0;
63 #X connect 8 0 7 0;
64 #X restore 482 181 pd <~;
65 #X obj 186 428 *~;
66 #X obj 225 345 sig~ 1;
67 #X obj 186 394 lop~ 10;
68 #X text 524 393 << band-limited pulse;
69 #X text 10 367 reed stops when overblown >>;
70 #X obj 186 460 *~;
71 #X obj 186 480 *~;
72 #X text 25 470 exp amplitude response >>;
73 #X text 537 238 << detune frequency on change of direction;
74 #X obj 482 236 *~ -300;
75 #X obj 306 485 *~;
76 #X obj 306 449 *~ 0.1;
77 #X text 448 493 << noise simulates non-oscillating airflow when overblown
78 ; 15 ;
79 #X obj 186 561 outlet~; 16 #X text 113 141 <<< calculate differential on input signal;
80 #N canvas 58 1286 407 525 pulse 0; 17 #X obj 39 107 adc~ 3;
81 #X obj 83 340 *~; 18 #X text 113 107 <<< use FSR on analog input 1;
82 #X obj 83 366 *~; 19 #X text 53 260 .........................................................
83 #X obj 31 366 sig~ 1; 20 ;
84 #X obj 52 419 /~; 21 #X text 53 270 .........................==~~~~..........................
85 #X obj 67 393 +~; 22 ;
86 #X text 116 366 X^2; 23 #X text 53 280 .......................=?+?====~~~.......................
87 #X text 97 396 1+X^2; 24 ;
88 #X text 84 421 1/(1+X^2); 25 #X text 53 290 ......................++++==========.....................
89 #X obj 83 317 osc~; 26 ;
90 #X obj 167 320 clip~ 0 999999; 27 #X text 53 300 .....................??+++++++++=====....................
91 #X obj 52 483 outlet~; 28 ;
92 #X text 271 218 << tweak all this; 29 #X text 53 310 ....................N???+++...++++====...................
93 #X text 25 14 based on F04.waveshaping.pulse.pd; 30 ;
94 #X obj 83 84 /~ 2; 31 #X text 53 320 ...................N??????.O8O++++====~..................
95 #X obj 167 148 -~; 32 ;
96 #X obj 167 170 /~ 127; 33 #X text 53 330 ..................??I+==??.DD++++++====..................
97 #X obj 52 452 hip~ 5; 34 ;
98 #X obj 167 202 *~; 35 #X text 53 350 .............7\$777$III????=++++++++====..................
99 #X obj 167 232 *~; 36 ;
100 #X obj 167 262 *~; 37 #X text 53 360 .............I$ZZZZ$$I???+?=+????+++===..................
101 #X obj 167 294 *~ 1000; 38 ;
102 #X obj 118 125 sig~ 139; 39 #X text 53 370 ................ZOZZZZ\$7III???+????++++=..=====..........
103 #X obj 83 58 inlet~; 40 ;
104 #N canvas 331 1377 215 174 _ftom 0; 41 #X text 53 390 ..............\$77II77$$$\$7\$77?II????+===========.........
105 #X obj -482 -776 tabread4~ _ftom; 42 ;
106 #X obj -482 -818 /~ 10000; 43 #X text 53 400 ................7$$$$$$$$$$IIII????++============........
107 #X obj -482 -797 *~ 256; 44 ;
108 #N canvas 0 23 450 278 (subpatch) 0; 45 #X text 53 410 ..............=+?I7\$7777777IIII???+++============:.......
109 #X array _ftom 256 float 3; 46 ;
110 #A 0 0 27.0762 39.0762 46.0958 51.0762 54.9394 58.0958 60.7645 63.0762 47 #X text 53 430 ...........:????IIIIIIII??????++++++==============.......
111 65.1153 66.9394 68.5894 70.0958 71.4815 72.7645 73.9589 75.0762 76.1258 48 ;
112 77.1153 78.0514 78.9394 79.784 80.5894 81.359 82.0958 82.8025 83.4815 49 #X text 53 450 ..........????????????++++++++====================~......
113 84.1349 84.7645 85.372 85.9589 86.5266 87.0762 87.609 88.1258 88.6276 50 ;
114 89.1153 89.5897 90.0514 90.5011 90.9394 91.3669 91.784 92.1914 92.5894 51 #X text 53 440 ..........~???????????????+++++++++=+============~:......
115 92.9785 93.359 93.7313 94.0958 94.4528 94.8025 95.1453 95.4815 95.8113 52 ;
116 96.1349 96.4525 96.7645 97.0709 97.372 97.6679 97.9589 98.2451 98.5266 53 #X text 53 460 .........+???????????+++++++++===================~~......
117 98.8036 99.0762 99.3446 99.609 99.8693 100.126 100.379 100.628 100.873 54 ;
118 101.115 101.354 101.59 101.822 102.051 102.278 102.501 102.722 102.939 55 #X text 53 470 .........+???????????+++++++++++++++++++==========.......
119 103.154 103.367 103.577 103.784 103.989 104.191 104.392 104.589 104.785 56 ;
120 104.978 105.17 105.359 105.546 105.731 105.914 106.096 106.275 106.453 57 #X text 53 480 .........+????????????????????????+????++++=======.......
121 106.629 106.803 106.975 107.145 107.314 107.482 107.647 107.811 107.974 58 ;
122 108.135 108.294 108.453 108.609 108.764 108.918 109.071 109.222 109.372 59 #X text 53 490 .........:??????????????????????????????++++=====........
123 109.521 109.668 109.814 109.959 110.103 110.245 110.386 110.527 110.666 60 ;
124 110.804 110.94 111.076 111.211 111.345 111.477 111.609 111.74 111.869 61 #X text 53 500 ..........???????????????????????????II???+++===:........
125 111.998 112.126 112.253 112.379 112.504 112.628 112.751 112.873 112.995 62 ;
126 113.115 113.235 113.354 113.472 113.59 113.706 113.822 113.937 114.051 63 #X text 53 510 ...........?II?????????????IIIIII?I???I???+++++=.........
127 114.165 114.278 114.39 114.501 114.612 114.722 114.831 114.939 115.047 64 ;
128 115.154 115.261 115.367 115.472 115.577 115.681 115.784 115.887 115.989 65 #X text 53 530 ..............+777IIIIIIIIIIIIIIIIIIIIIIIII$I+:..........
129 116.09 116.191 116.292 116.392 116.491 116.589 116.688 116.785 116.882 66 ;
130 116.978 117.074 117.17 117.265 117.359 117.453 117.546 117.639 117.731 67 #X text 53 520 ............7IIIIII??????IIIIIIIIIIIIIIII????I=:.........
131 117.823 117.915 118.005 118.096 118.186 118.275 118.364 118.453 118.541 68 ;
132 118.629 118.716 118.803 118.889 118.975 119.06 119.145 119.23 119.314 69 #X text 53 540 ...............:=?$Z777IIIIIIIIIIIII77ZI+~:..............
133 119.398 119.482 119.565 119.647 119.729 119.811 119.893 119.974 120.055 70 ;
134 120.135 120.215 120.294 120.374 120.453 120.531 120.609 120.687 120.764 71 #X text 53 550 ........................::~~~~~~:........................
135 120.842 120.918 120.995 121.071 121.147 121.222 121.297 121.372 121.446 72 ;
136 121.521 121.594 121.668 121.741 121.814 121.887 121.959 122.031 122.103 73 #X text 53 560 .........................................................
137 122.174 122.245 122.316 122.386 122.457 122.527 122.596 122.666 122.735 74 ;
138 122.804 122.872 122.94 123.008; 75 #X text 53 340 .............7$$|\\\$7I?????=++++++++++===..................
139 #X coords 0 127 256 -12 50 50 1 0 0; 76 ;
140 #X restore -546 -793 graph; 77 #X text 53 420 .............+??I77$||\\\$7777III???++++++============......
141 #X obj -482 -838 clip~ 0 10000; 78 ;
142 #X obj -482 -858 inlet~; 79 #X text 53 380 ..............7$$$$ZZZOZ$|\$7777?????++++++=+===..........
143 #X obj -482 -755 outlet~; 80 ;
144 #X text -567 -722 shoddy temp replacement for ftom~;
145 #X connect 0 0 6 0;
146 #X connect 1 0 2 0;
147 #X connect 2 0 0 0;
148 #X connect 4 0 1 0;
149 #X connect 5 0 4 0;
150 #X restore 182 125 pd _ftom;
151 #X connect 0 0 1 0;
152 #X connect 0 0 1 1;
153 #X connect 1 0 4 1;
154 #X connect 2 0 3 0;
155 #X connect 2 0 4 0;
156 #X connect 3 0 16 0;
157 #X connect 4 0 3 1;
158 #X connect 8 0 0 0;
159 #X connect 9 0 0 1;
160 #X connect 13 0 8 0;
161 #X connect 13 0 23 0;
162 #X connect 14 0 15 0;
163 #X connect 15 0 17 0;
164 #X connect 15 0 17 1;
165 #X connect 16 0 10 0;
166 #X connect 17 0 18 0;
167 #X connect 17 0 18 1;
168 #X connect 18 0 19 0;
169 #X connect 18 0 19 1;
170 #X connect 19 0 20 0;
171 #X connect 20 0 9 0;
172 #X connect 21 0 14 0;
173 #X connect 22 0 13 0;
174 #X connect 23 0 14 1;
175 #X restore 467 394 pd pulse;
176 #X obj 366 105 inlet~;
177 #X text 295 104 airflow >>;
178 #X text 218 118 ('squeeze pressure');
179 #X text 13 20 Sound model of a rubber duckie toy;
180 #X text 14 51 Hint: use the differential of a continuous signal as
181 input for a realistic response;
182 #X text 13 29 ==================================;
183 #X obj 366 133 lop~ 0.5;
184 #X text 423 132 << airflow resistance;
185 #X connect 0 0 14 0;
186 #X connect 1 0 14 0;
187 #X connect 2 0 3 0;
188 #X connect 3 0 1 1;
189 #X connect 4 0 7 0;
190 #X connect 4 0 15 0;
191 #X connect 4 0 29 0;
192 #X connect 4 0 18 1;
193 #X connect 4 0 16 0;
194 #X connect 5 0 17 1;
195 #X connect 6 0 32 0;
196 #X connect 7 0 8 0;
197 #X connect 8 0 9 0;
198 #X connect 9 0 10 0;
199 #X connect 9 0 10 1;
200 #X connect 10 0 11 0; 81 #X connect 10 0 11 0;
201 #X connect 11 0 12 1; 82 #X connect 11 0 0 0;
202 #X connect 12 0 6 0; 83 #X connect 11 0 0 1;
203 #X connect 13 0 12 0; 84 #X connect 14 0 10 0;
204 #X connect 14 0 31 0;
205 #X connect 15 0 13 0;
206 #X connect 16 0 20 0;
207 #X connect 17 0 27 0;
208 #X connect 18 0 23 0;
209 #X connect 18 0 23 1;
210 #X connect 19 0 16 1;
211 #X connect 20 0 18 0;
212 #X connect 23 0 24 1;
213 #X connect 23 0 24 0;
214 #X connect 24 0 0 0;
215 #X connect 27 0 6 1;
216 #X connect 28 0 1 0;
217 #X connect 29 0 28 1;
218 #X connect 29 0 28 0;
219 #X connect 32 0 0 1;
220 #X connect 33 0 39 0;
221 #X connect 39 0 4 0;
222 #X connect 39 0 17 0;
223 #X restore 39 127 pd duckie;
224 #X obj 39 77 adc~ 10;
225 #N canvas 0 22 504 229 differential 0;
226 #X obj 27 80 rzero~ 1;
227 #X obj 72 57 sig~ 1;
228 #X obj 27 152 *~ 44100;
229 #X obj 72 131 samplerate~;
230 #X obj 72 110 loadbang;
231 #X obj 27 25 inlet~;
232 #X obj 27 190 outlet~;
233 #X text 84 83 y[n] = x[n] - x[n-1];
234 #X text 121 57 <<< heavy currently requires signal input to set coefficient
235 ;
236 #X text 91 151 <<< multiply by samplerate to get velocity;
237 #X connect 0 0 2 0;
238 #X connect 1 0 0 1;
239 #X connect 2 0 6 0;
240 #X connect 3 0 2 1;
241 #X connect 4 0 3 0;
242 #X connect 5 0 0 0;
243 #X restore 39 101 pd differential;
244 #X connect 6 0 0 0;
245 #X connect 6 0 0 1;
246 #X connect 7 0 8 0;
247 #X connect 8 0 6 0;