blob: 353bf91f9518de4d362d721788283192c9bffcd4 (
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
|
#N canvas 263 477 470 320 10;
#N canvas 0 22 478 328 swinger-block 0;
#X obj 150 160 outlet~;
#X obj 150 66 inlet~;
#X obj 229 70 inlet~;
#X obj 293 82 inlet;
#X obj 179 224 block~ 512;
#X obj 150 115 swinger~ 4 1;
#X connect 1 0 5 0;
#X connect 2 0 5 1;
#X connect 3 0 5 0;
#X connect 5 0 0 0;
#X restore 148 121 pd swinger-block;
#N canvas 0 22 478 328 messages 0;
#X obj 160 251 outlet;
#X obj 160 227 fftease-system;
#X connect 1 0 0 0;
#X restore 255 94 pd messages;
#X obj 148 189 dac~;
#X obj 148 156 *~ 1;
#X msg 210 210 \; pd dsp \$1;
#X obj 210 180 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X floatatom 212 143 5 0 0 0 - - -;
#X text 41 255 swinger~ replaces the phases of one signal (left) with
those from another (right). The result often sounds like victory. A
swinging trick: Don't connect any signal to the right inlet and listen
to the result.;
#N canvas 538 45 558 447 sound1 0;
#X obj 31 194 soundfiler;
#X obj 31 160 openpanel;
#N canvas 0 22 450 300 graph1 0;
#X array swinger-sound1 1.5435e+06 float 2;
#X coords 0 1 1.5435e+06 -1 200 140 1;
#X restore 237 13 graph;
#X msg 31 131 bang;
#X obj 227 284 outlet~;
#X msg 227 244 bang;
#X obj 348 228 spigot;
#X obj 385 205 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X text 133 244 then play it;
#X text 304 190 loop if you like;
#X msg 31 177 read -resize \$1 swinger-sound1;
#X obj 227 268 tabplay~ swinger-sound1;
#X text 64 132 open the sound;
#X connect 1 0 10 0;
#X connect 3 0 1 0;
#X connect 5 0 11 0;
#X connect 6 0 5 0;
#X connect 7 0 6 1;
#X connect 10 0 0 0;
#X connect 11 0 4 0;
#X connect 11 1 6 0;
#X restore 148 51 pd sound1;
#N canvas 0 22 758 461 sound2 0;
#X obj 161 265 soundfiler;
#X obj 161 231 openpanel;
#N canvas 0 22 450 300 graph1 0;
#X array swinger-sound2 4e+06 float 2;
#X coords 0 1 4e+06 -1 200 140 1;
#X restore 367 84 graph;
#X msg 161 202 bang;
#X obj 357 355 outlet~;
#X msg 357 315 bang;
#X obj 478 299 spigot;
#X obj 515 276 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X text 263 315 then play it;
#X text 434 261 loop if you like;
#X text 193 203 open the sound;
#X obj 357 339 tabplay~ swinger-sound2;
#X msg 161 248 read -resize \$1 swinger-sound2;
#X connect 1 0 12 0;
#X connect 3 0 1 0;
#X connect 5 0 11 0;
#X connect 6 0 5 0;
#X connect 7 0 6 1;
#X connect 11 0 4 0;
#X connect 11 1 6 0;
#X connect 12 0 0 0;
#X restore 201 73 pd sound2;
#X obj 314 128 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -131603
-1 -1 11500 1;
#X text 334 151 gain;
#X connect 0 0 3 0;
#X connect 1 0 0 2;
#X connect 3 0 2 0;
#X connect 3 0 2 1;
#X connect 5 0 4 0;
#X connect 6 0 3 1;
#X connect 8 0 0 0;
#X connect 9 0 0 1;
#X connect 10 0 6 0;
|
