-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathLissajous_curves.pd
271 lines (271 loc) · 6.97 KB
/
Lissajous_curves.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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
#N canvas 604 22 752 791 10;
#X obj -110 -62 cnv 15 700 30 empty empty LISSAJOUS_CURVES 20 15 0
14 -1 -262144 0;
#X obj -110 -28 cnv 15 150 30 empty empty CC_BY-NC-SA 20 15 0 14 -260097
-262144 0;
#X obj 45 -28 cnv 15 150 30 empty empty COREY_KERELIUK 20 15 0 14 -257985
-1 0;
#X obj -109 12 cnv 15 250 110 empty empty create_gemwin: 20 12 0 11
-233017 -66577 0;
#X obj -88 73 gemwin;
#X msg -41 73 0 \, destroy;
#X obj -108 130 cnv 15 450 400 empty empty plot_curves: 20 12 0 11
-233017 -66577 0;
#X obj -8 257 GEMglBegin;
#X floatatom 60 228 5 0 0 0 - - -;
#X obj -86 154 gemhead;
#X obj -86 496 GEMglEnd;
#X msg 49 165 GL_LINE_STRIP;
#X msg 146 164 GL_LINE_LOOP;
#X obj -86 228 t a a a;
#X obj -67 329 t a b;
#X obj -18 329 f 0;
#X obj 9 329 + 1;
#X msg 235 163 GL_POINTS;
#X obj -86 197 GEMglLineWidth 1;
#X obj 49 206 GLdefine GL_POINTS;
#X obj -18 444 * 2;
#X obj 32 443 * 2;
#X obj 49 146 loadbang;
#X obj 350 131 cnv 15 250 400 empty empty motion_blur: 20 12 0 11 -233017
-66577 0;
#X obj 370 272 pix_snap2tex;
#X obj 370 301 alpha;
#X obj 370 361 square 4;
#X obj 372 202 t b a;
#X msg 417 242 0 0;
#X obj 372 164 gemhead -1;
#X floatatom 483 304 10 0 0 0 - - -;
#X obj 370 331 colorRGB 1 1 1 0.1;
#X obj 454 205 loadbang;
#X msg 484 281 0.9;
#X obj -107 538 cnv 15 450 750 empty empty generate_audio: 20 12 0
11 -228856 -66577 0;
#X obj 142 991 osc~ 200;
#X obj -76 994 osc~ 100;
#X obj 141 1144 s~ osc2;
#X obj -76 1140 s~ osc1;
#X obj 141 1079 *~;
#X obj 205 1044 vline~;
#X obj -76 1082 *~;
#X floatatom -77 820 5 0 0 0 - - -;
#X floatatom 4 816 5 0 0 0 - - -;
#X obj -59 581 tgl 15 0 empty empty empty 17 7 0 10 -4034 -1 -1 0 1
;
#X obj -59 627 f 0;
#X obj -33 627 + 1;
#X obj -59 648 % 4;
#X obj -59 708 sel 0 1 2 3;
#X obj 205 690 t b f;
#X obj -38 755 f 100;
#X obj 18 775 f 200;
#X obj 44 755 f 100;
#X obj -59 602 metro 1200;
#N canvas 0 23 450 300 delay 0;
#X obj 109 50 inlet~;
#X obj 108 231 outlet~;
#X obj 108 124 +~;
#X obj 148 209 delwrite~ dline001 2000;
#X obj 166 106 delread~ dline001 500;
#X obj 166 52 inlet;
#X obj 223 52 inlet;
#X obj 148 185 *~;
#X obj 223 129 expr max(min($f1 \, 0.999) \, -0.999);
#X obj 166 82 expr min($f1 \, 2000);
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 2 0 7 0;
#X connect 4 0 2 1;
#X connect 5 0 9 0;
#X connect 6 0 8 0;
#X connect 7 0 3 0;
#X connect 8 0 7 1;
#X connect 9 0 4 0;
#X restore -76 1111 pd delay;
#N canvas 0 23 450 300 delay 0;
#X obj 109 50 inlet~;
#X obj 108 231 outlet~;
#X obj 108 124 +~;
#X obj 166 52 inlet;
#X obj 223 52 inlet;
#X obj 148 185 *~;
#X obj 223 129 expr max(min($f1 \, 0.999) \, -0.999);
#X obj 166 82 expr min($f1 \, 2000);
#X obj 148 209 delwrite~ dline002 2000;
#X obj 166 106 delread~ dline002 500;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 2 0 5 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 8 0;
#X connect 6 0 5 1;
#X connect 7 0 9 0;
#X connect 9 0 2 1;
#X restore 141 1113 pd delay;
#X floatatom 214 1162 5 0 0 0 - - -;
#X floatatom 213 1123 5 -1 1 0 - - -;
#X obj -77 756 f 100;
#X obj 3 755 f 202;
#X obj 62 775 f 133.333;
#X obj -60 775 f 101;
#X obj -20 776 f 120;
#X obj 142 963 *~ 2;
#X obj -76 1240 dac~;
#X obj -23 1186 r~ osc2;
#X obj -76 1186 r~ osc1;
#X obj 350 539 cnv 15 250 600 empty empty save_audio_in_table: 20 12
0 11 -233017 -66577 0;
#X obj 376 644 r~ osc1;
#X obj 480 644 r~ osc2;
#X obj 480 672 tabwrite~ tab2;
#X obj 376 672 tabwrite~ tab1;
#X msg 31 73 bang;
#X msg 534 93 \; pd dsp 1;
#X obj -76 969 *~ 2.01;
#X text -40 1241 <--- send to soundcard;
#X msg -88 44 dimen 640 360 \, FSAA 8 \, create \, 1;
#X msg 447 240 640 360;
#X obj -38 174 s gh;
#X obj 440 603 r gh;
#X obj -38 153 t b;
#X obj -67 464 GEMglVertex2f;
#X obj 36 329 % 1024;
#X obj -67 298 repeat 1024;
#N canvas 0 22 450 300 (subpatch) 0;
#X array tab1 1024 float 2;
#X coords 0 -1 1023 1 200 140 1;
#X restore 372 762 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array tab2 1024 float 2;
#X coords 0 1 1023 -1 200 140 1;
#X restore 372 938 graph;
#X obj -18 418 tabread tab1;
#X obj 65 418 tabread tab2;
#X text -38 579 <----------------------- click to start audio;
#X obj 534 71 loadbang;
#X text 122 44 <------------- click to open graphics window;
#X obj -76 1208 *~ 0.25;
#X obj -23 1206 *~ 0.25;
#X obj 5 861 line;
#X obj -76 865 line;
#X msg -77 843 \$1 20;
#X msg 4 839 \$1 20;
#X obj 5 884 pipe 1;
#X msg 205 1017 0.7 6 0 \, 0 400 10;
#X obj 217 1150 hsl 32 8 0 1999 0 0 empty empty empty -2 -8 0 10 -4034
-1 -1 0 1;
#X obj 216 1111 hsl 32 8 0 0.99 0 0 empty empty empty -2 -8 0 10 -4032
-1 -1 0 1;
#X text 256 1105 delay amount;
#X text 257 1144 delay time;
#X floatatom -8 1160 5 0 0 0 - - -;
#X floatatom -9 1121 5 -1 1 0 - - -;
#X obj -5 1148 hsl 32 8 0 1999 0 0 empty empty empty -2 -8 0 10 -4034
-1 -1 0 1;
#X obj -6 1109 hsl 32 8 0 0.99 0 0 empty empty empty -2 -8 0 10 -4032
-1 -1 0 1;
#X text 34 1103 delay amount;
#X text 35 1142 delay time;
#X connect 5 0 4 0;
#X connect 9 0 18 0;
#X connect 9 0 80 0;
#X connect 11 0 19 0;
#X connect 12 0 19 0;
#X connect 13 0 10 0;
#X connect 13 1 83 0;
#X connect 13 2 7 0;
#X connect 14 0 81 0;
#X connect 14 1 15 0;
#X connect 15 0 16 0;
#X connect 15 0 86 0;
#X connect 15 0 87 0;
#X connect 16 0 82 0;
#X connect 17 0 19 0;
#X connect 18 0 13 0;
#X connect 19 0 7 1;
#X connect 19 0 8 0;
#X connect 20 0 81 1;
#X connect 21 0 81 2;
#X connect 22 0 11 0;
#X connect 24 0 25 0;
#X connect 25 0 31 0;
#X connect 27 0 24 0;
#X connect 27 1 24 0;
#X connect 28 0 24 1;
#X connect 29 0 27 0;
#X connect 30 0 31 4;
#X connect 31 0 26 0;
#X connect 32 0 77 0;
#X connect 32 0 28 0;
#X connect 32 0 33 0;
#X connect 33 0 30 0;
#X connect 35 0 39 0;
#X connect 36 0 41 0;
#X connect 39 0 55 0;
#X connect 40 0 39 1;
#X connect 40 0 41 1;
#X connect 41 0 54 0;
#X connect 42 0 95 0;
#X connect 43 0 96 0;
#X connect 44 0 53 0;
#X connect 45 0 46 0;
#X connect 45 0 47 0;
#X connect 46 0 45 1;
#X connect 47 0 49 0;
#X connect 48 0 58 0;
#X connect 48 0 61 0;
#X connect 48 1 50 0;
#X connect 48 1 62 0;
#X connect 48 2 51 0;
#X connect 48 2 59 0;
#X connect 48 3 52 0;
#X connect 48 3 60 0;
#X connect 49 0 98 0;
#X connect 49 1 48 0;
#X connect 50 0 42 0;
#X connect 51 0 43 0;
#X connect 52 0 42 0;
#X connect 53 0 45 0;
#X connect 54 0 38 0;
#X connect 55 0 37 0;
#X connect 58 0 42 0;
#X connect 59 0 42 0;
#X connect 60 0 43 0;
#X connect 61 0 43 0;
#X connect 62 0 43 0;
#X connect 63 0 35 0;
#X connect 65 0 92 0;
#X connect 66 0 91 0;
#X connect 68 0 71 0;
#X connect 69 0 70 0;
#X connect 72 0 4 0;
#X connect 74 0 36 0;
#X connect 76 0 4 0;
#X connect 77 0 24 2;
#X connect 79 0 71 0;
#X connect 79 0 70 0;
#X connect 80 0 78 0;
#X connect 82 0 15 1;
#X connect 83 0 14 0;
#X connect 86 0 20 0;
#X connect 87 0 21 0;
#X connect 89 0 73 0;
#X connect 91 0 64 0;
#X connect 91 0 64 1;
#X connect 92 0 64 1;
#X connect 92 0 64 0;
#X connect 93 0 97 0;
#X connect 94 0 74 0;
#X connect 95 0 94 0;
#X connect 96 0 93 0;
#X connect 97 0 63 0;
#X connect 98 0 40 0;
#X connect 99 0 55 1;
#X connect 99 0 56 0;
#X connect 100 0 57 0;
#X connect 100 0 55 2;
#X connect 105 0 103 0;
#X connect 105 0 54 1;
#X connect 106 0 104 0;
#X connect 106 0 54 2;