-
Notifications
You must be signed in to change notification settings - Fork 6
/
16a-camera_wavetable.pd
139 lines (139 loc) · 3.61 KB
/
16a-camera_wavetable.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
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
139
#N canvas 1228 74 692 877 10;
#X declare -lib Gem;
#X msg 39 139 create \, 1;
#X msg 46 160 0 \, destroy;
#X obj 332 240 pix_texture;
#X obj 175 541 pix_data;
#X obj 39 228 gemwin 12;
#X obj 173 240 pix_rgba;
#X obj 332 307 rectangle 4 3;
#X obj 251 162 pix_video;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-camera 515 float 4;
#X coords 0 1 514 0 200 140 1;
#X restore 238 650 graph;
#X obj 220 566 tabwrite \$0-camera;
#X obj 214 420 f;
#X obj 41 557 hsl 128 15 0 127 0 0 empty \$0-tone empty -2 -8 0 10
-262144 -1 -1 4700 1;
#X obj 108 620 mtof;
#X obj 38 773 dac~;
#X obj 205 446 t f f;
#X obj 108 668 tabosc4~ \$0-camera;
#X obj 205 473 / 515;
#X msg 220 518 0.5;
#X obj 243 419 + 1;
#X text 31 102 http://www.mediaartnet.org/artist/fischinger/biography/
;
#X obj 220 496 loadbang;
#X msg 54 205 frame \$1;
#X floatatom 54 184 5 1 60 0 - - -, f 5;
#X obj 332 217 pix_separator;
#X obj 173 217 pix_separator;
#X obj 251 140 gemhead;
#X obj 108 644 sig~;
#X obj 73 644 mtof;
#X obj 73 693 tabosc4~ \$0-camera;
#X obj 73 668 sig~;
#X obj 73 621 - 7;
#X obj 38 668 mtof;
#X obj 38 717 tabosc4~ \$0-camera;
#X obj 38 693 sig~;
#X obj 38 645 - 3;
#X obj 272 419 % 516;
#X obj 175 391 t b a b;
#X obj 371 265 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#N canvas 0 50 450 300 line 0;
#X obj 29 60 translateXYZ 0 0 0.1;
#X obj 29 37 gemhead;
#X obj 29 83 rectangle 4 0.01;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X restore 445 159 pd line;
#N canvas 0 56 312 198 init 1;
#X obj 21 26 loadbang;
#X msg 33 55 \; pd dsp 1;
#X obj 21 121 s \$0-tone;
#X msg 21 96 47;
#X obj 121 26 declare -lib Gem;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 3 0 2 0;
#X restore 445 138 pd init;
#X obj 38 577 t f f f;
#X obj 38 748 *~ 0.4;
#X text 31 114 http://beta.see-this-sound.at/werke/296;
#X obj 15 554 cnv 15 20 20 empty empty 2 6 10 0 14 -261234 -66577 0
;
#X obj 16 137 cnv 15 20 20 empty empty 1 6 10 0 14 -261234 -66577 0
;
#X obj 14 -18 cnv 15 480 60 empty empty Camera_to_wavetable 20 30 0
20 -262130 -99865 0;
#X text 31 47 This Patch fills the grey-values of a centered horizontal
line throufh the video image in a wavetable and plays it.;
#X text 30 74 Print ornament_sound.pdf and hold the patterns in front
of the camera. Inspired by the Work of Oskar Fischinger:;
#X obj 325 521 - 515;
#X obj 325 543 abs;
#X obj 332 284 mn-flip;
#X obj 177 369 gemlist;
#X obj 177 347 until;
#X obj 191 285 route gem_state;
#X obj 191 305 route float;
#X obj 191 264 t a a;
#X text 22 798 Max Neupert - Bauhaus Universität Weimar 2008 \, 2016
;
#X msg 177 327 516;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 50 0;
#X connect 3 2 9 0;
#X connect 5 0 55 0;
#X connect 7 0 24 0;
#X connect 7 0 23 0;
#X connect 10 0 14 0;
#X connect 10 0 18 0;
#X connect 11 0 40 0;
#X connect 12 0 26 0;
#X connect 14 0 16 0;
#X connect 14 1 48 0;
#X connect 15 0 41 0;
#X connect 16 0 3 2;
#X connect 17 0 3 3;
#X connect 18 0 35 0;
#X connect 20 0 17 0;
#X connect 21 0 4 0;
#X connect 22 0 21 0;
#X connect 23 0 2 0;
#X connect 24 0 5 0;
#X connect 25 0 7 0;
#X connect 26 0 15 0;
#X connect 27 0 29 0;
#X connect 28 0 41 0;
#X connect 29 0 28 0;
#X connect 30 0 27 0;
#X connect 31 0 33 0;
#X connect 32 0 41 0;
#X connect 33 0 32 0;
#X connect 34 0 31 0;
#X connect 35 0 10 1;
#X connect 36 0 3 0;
#X connect 36 1 3 1;
#X connect 36 2 10 0;
#X connect 37 0 50 1;
#X connect 40 0 34 0;
#X connect 40 1 30 0;
#X connect 40 2 12 0;
#X connect 41 0 13 1;
#X connect 41 0 13 0;
#X connect 48 0 49 0;
#X connect 49 0 9 1;
#X connect 50 0 6 0;
#X connect 51 0 36 0;
#X connect 52 0 51 0;
#X connect 53 0 54 0;
#X connect 54 1 57 0;
#X connect 55 0 53 0;
#X connect 55 1 51 1;
#X connect 57 0 52 0;