-
Notifications
You must be signed in to change notification settings - Fork 6
/
03-soundfile_table.pd
84 lines (84 loc) · 2.31 KB
/
03-soundfile_table.pd
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
#N canvas 428 259 629 646 10;
#X obj 35 -4 cnv 15 480 60 empty empty Soundfile_from_memory 20 30
0 20 -262130 -99865 0;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-soundfile 214599 float 2;
#X coords 0 1 214599 -1 200 140 1;
#X restore 294 106 graph;
#X obj 299 407 soundfiler;
#X obj 299 296 openpanel;
#X obj 299 272 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 37 445 dac~;
#X floatatom 312 538 20 0 0 0 - - -;
#X floatatom 326 511 20 0 0 0 - - -;
#X obj 326 461 / 48;
#X obj 299 431 t f f;
#X obj 37 210 *;
#X msg 37 245 \$1 50;
#X obj 40 119 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 37 348 vline~;
#X text 37 100 scratcher;
#X obj 37 386 tabread4~ \$0-soundfile;
#X msg 299 384 read -resize \$1 \$2;
#X obj 299 320 t a b;
#X obj 299 361 pack s s;
#X obj 344 340 symbol \$0-soundfile;
#X obj 52 178 r \$0-samples;
#X obj 301 561 s \$0-samples;
#X obj 337 486 s \$0-miliseconds;
#X text 293 75 An array holds the sample:;
#X text 320 272 open a soundfile and store it;
#N canvas 679 810 450 300 preset 0;
#X obj 35 167 outlet;
#X obj 35 70 pack f f;
#X obj 35 93 trigger list bang bang;
#X msg 99 130 addcomma;
#X obj 80 45 r \$0-miliseconds;
#X obj 35 20 r \$0-samples;
#X msg 35 129 add \$1 \$2;
#X msg 164 130 set 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 2 1 3 0;
#X connect 2 2 7 0;
#X connect 3 0 0 0;
#X connect 4 0 1 1;
#X connect 5 0 1 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X restore 66 284 pd preset;
#X text 185 310 play it whole;
#X text 359 460 samplingrate of 48 kHz is assumed here;
#X obj 275 268 cnv 15 20 20 empty empty 1 6 10 0 14 -261234 -66577
0;
#X obj 43 306 cnv 15 20 20 empty empty 2 6 10 0 14 -261234 -66577 0
;
#X obj 14 116 cnv 15 20 20 empty empty 2 6 10 0 14 -261234 -66577 0
;
#X text 18 618 Max Neupert - Bauhaus-Universität Weimar 2009-2012
;
#X msg 66 313 0 \, 214599 4470.81 \;;
#X connect 2 0 9 0;
#X connect 3 0 17 0;
#X connect 4 0 3 0;
#X connect 8 0 7 0;
#X connect 8 0 22 0;
#X connect 9 0 21 0;
#X connect 9 0 6 0;
#X connect 9 1 8 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 10 0;
#X connect 13 0 15 0;
#X connect 15 0 5 0;
#X connect 15 0 5 1;
#X connect 16 0 2 0;
#X connect 17 0 18 0;
#X connect 17 1 19 0;
#X connect 18 0 16 0;
#X connect 19 0 18 1;
#X connect 20 0 10 1;
#X connect 25 0 32 0;
#X connect 32 0 13 0;