Newer
Older
Ivica Bukvic
committed
#N canvas 581 112 466 575 10;
#X obj 141 205 ggee/image @pd_extra/K12/objects/signal_sampler.png
1;
Ivica Bukvic
committed
#X obj 29 69 inlet;
#X obj -16 69 inlet~;
#X msg 142 114 open @pd_extra/K12/objects/signal_sampler.png;
#X obj -15 452 tabwrite~ \$0-buffer;
#X obj 140 494 tabread4~ \$0-buffer;
#X obj 99 203 tgl 15 0 \$0-tgl-s \$0-tgl-r empty 17 7 0 10 -258113
-1 -1 0 1;
#X obj 99 220 hsl 78 11 0 100 0 1 \$0-s-null \$0-r-null start 26 5
0 10 -262144 -1 -1 0 1;
#X obj 99 233 hsl 78 11 0 100 0 1 \$0-s-null \$0-r-null end 31 6 0
Ivica Bukvic
committed
10 -262144 -1 -1 1300 1;
Ivica Bukvic
committed
#X obj 139 622 outlet~;
#X obj 140 282 sel 1 0;
#X obj 47 307 delay 10000;
#X obj 139 203 nbx 1 14 0 9 0 0 empty empty empty 0 -8 0 12 -262144
Ivica Bukvic
committed
-1 -1 0 256 3;
#X text 122 201 snd:;
#N canvas 273 186 523 442 fileio_logic 0;
#X obj 142 -23 inlet;
#X obj 142 159 patch_name 99;
#X obj 142 203 tosymbol;
#X obj 142 262 gate 2 1;
#X obj 142 181 sprintf %s/%s.%d.aif;
#X obj 218 116 t b f 2;
#X obj 142 359 soundfiler;
#X obj 302 276 \$0;
#X obj 302 253 loadbang;
#X obj 257 312 pack s f;
#X obj 142 312 pack s f;
#X msg 257 335 write -aiff \$1 \$2-buffer;
#X msg 142 335 read \$1 \$2-buffer;
#X obj 218 93 f 0;
#N canvas 0 0 450 300 (subpatch) 0;
Ivica Bukvic
committed
#X array \$0-buffer 480000 float 2 black black;
#X coords 0 1 480000 -1 101 53 1;
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
#X restore 355 171 graph;
#X obj 218 -23 inlet;
#X text 255 -25 save as soon as the recording is finished;
#X obj 218 -1 t b;
#X text 45 -25 load a new file;
#X obj 142 -1 t b f 1 b;
#X obj 247 58 \$0;
#X msg 247 80 \; \$1-buffer const 0;
#X connect 0 0 19 0;
#X connect 1 0 4 0;
#X connect 1 1 4 1;
#X connect 2 0 3 1;
#X connect 3 0 10 0;
#X connect 3 1 9 0;
#X connect 4 0 2 0;
#X connect 5 0 1 0;
#X connect 5 1 4 2;
#X connect 5 2 3 0;
#X connect 7 0 9 1;
#X connect 7 0 10 1;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 12 0;
#X connect 11 0 6 0;
#X connect 12 0 6 0;
#X connect 13 0 5 0;
#X connect 15 0 17 0;
#X connect 17 0 13 0;
#X connect 19 0 1 0;
#X connect 19 1 4 2;
#X connect 19 1 13 1;
#X connect 19 2 3 0;
#X connect 19 3 20 0;
#X connect 20 0 21 0;
#X restore -40 356 pd fileio_logic;
#X obj 140 469 line~;
Ivica Bukvic
committed
#N canvas 463 197 360 305 play_logic 0;
#X obj 145 74 inlet;
#X obj 190 176 * 4800;
#X obj 145 176 * 4800;
#X obj 213 230 t b f;
#X obj 190 74 inlet;
Ivica Bukvic
committed
#X obj 252 230 t b f;
#X obj 289 230 t b f;
#X obj 11 71 - 60;
#X obj 11 115 expr pow(2 \, $f1);
#X obj 11 93 / 12;
Ivica Bukvic
committed
#X obj 145 200 t f f;
Ivica Bukvic
committed
#X obj 190 200 t f f;
#X obj 76 308 pack 0 0 0 0;
#X obj 76 329 outlet;
#X obj 160 284 expr (abs($f2-$f1))/$f3*1000/$f4;
#X obj 275 54 loadbang;
#X obj 275 99 samplerate~;
#X obj 275 76 metro 1000;
#X obj 275 121 change;
#X obj 223 149 / 10;
#X connect 1 0 13 0;
#X connect 2 0 11 0;
#X connect 3 0 16 0;
#X connect 3 1 16 1;
#X connect 4 0 1 0;
#X connect 5 0 8 0;
#X connect 6 0 16 0;
#X connect 6 1 16 2;
#X connect 7 0 16 0;
#X connect 7 1 16 3;
#X connect 8 0 10 0;
#X connect 9 0 12 0;
#X connect 10 0 9 0;
#X connect 11 0 14 1;
#X connect 11 1 16 0;
#X connect 12 0 14 0;
#X connect 12 1 7 0;
#X connect 13 0 14 2;
#X connect 13 1 3 0;
#X connect 14 0 15 0;
#X connect 16 0 14 3;
Ivica Bukvic
committed
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 20 0 6 0;
#X connect 21 0 2 1;
#X connect 21 0 1 1;
#X restore 275 401 pd play_logic;
#X msg 140 446 \$2 \, \$3 \$4;
#X msg 111 114 0;
#X obj 167 203 tgl 15 0 \$0-tgl-s \$0-tgl-play-r empty 17 7 0 10 -4034
-1 -1 0 1;
#X text 157 186 play;
Ivica Bukvic
committed
#X obj 29 141 t 1 f;
#X obj 275 465 delay;
#X msg 275 487 0;
#X msg 275 443 \$4;
#X obj 275 329 f 60;
#N canvas 289 190 450 300 envelope_logic 0;
#X obj 145 50 inlet;
#X msg 145 72 \$4;
#X obj 145 94 t f f;
#X obj 172 116 - 10;
#X obj 145 116 - 5;
#X obj 145 138 pack 0 0;
#X msg 145 160 0 \, 1 5 \, 1 \$2 5 \, 0 5 \$1;
#X obj 145 182 vline~;
#X obj 145 204 outlet~;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 3 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X restore 190 515 pd envelope_logic;
#X obj 140 546 *~;
#X obj 47 329 t b 0;
#X obj 148 342 \$0;
#X msg 148 364 \; \$1-buffer const 0;
#X obj 121 307 t b b;
#X obj 235 198 preset_node k12;
#X obj 234 174 preset_node k12;
#X obj 234 150 preset_node k12;
#X obj 159 307 t b b;
Ivica Bukvic
committed
#X obj 140 596 *~;
#X obj 191 569 vline~;
#X msg 191 545 0 5 \, 1 5 5;
#X obj 29 117 pipe 5;
Ivica Bukvic
committed
#X obj 29 92 t f b;
#X obj 275 350 t f b;
#X obj 275 371 pipe 5;
#X connect 1 0 21 0;
#X connect 2 0 44 0;
#X connect 3 0 5 0;
#X connect 6 0 5 0;
#X connect 7 0 31 0;
#X connect 8 0 13 0;
#X connect 9 0 19 1;
#X connect 9 0 38 0;
#X connect 10 0 37 0;
#X connect 13 0 35 0;
#X connect 13 1 39 0;
#X connect 14 0 32 0;
#X connect 15 0 36 0;
#X connect 18 0 7 0;
#X connect 19 0 20 0;
#X connect 19 0 28 0;
#X connect 19 0 30 0;
#X connect 21 0 15 0;
#X connect 22 0 24 0;
#X connect 24 0 29 0;
#X connect 25 0 22 0;
#X connect 25 1 29 1;
#X connect 26 0 27 0;
#X connect 27 0 22 0;
#X connect 28 0 26 0;
Ivica Bukvic
committed
#X connect 29 0 45 0;
#X connect 30 0 31 1;
#X connect 31 0 40 0;
#X connect 32 0 17 1;
#X connect 32 1 8 0;
#X connect 33 0 34 0;
#X connect 35 0 5 0;
#X connect 35 1 33 0;
#X connect 36 0 15 0;
#X connect 37 0 10 0;
#X connect 38 0 9 0;
#X connect 39 0 17 1;
#X connect 39 1 6 0;
#X connect 40 0 12 0;
#X connect 41 0 40 1;
#X connect 42 0 41 0;
#X connect 43 0 25 0;
#X connect 44 0 43 0;
#X connect 44 1 42 0;
Ivica Bukvic
committed
#X connect 45 0 46 0;
#X connect 45 1 42 0;
#X connect 46 0 19 0;