aboutsummaryrefslogtreecommitdiff
path: root/nusmuk_audio/pwm~.pd
blob: a593e5f2c47a4a4ebf2130b4e035ddcebf2178ff (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
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
#N canvas 268 49 728 663 10;
#X obj 65 122 phasor~;
#X obj 66 59 inlet~;
#X obj 238 172 +~;
#X obj 255 64 inlet~;
#X obj 237 198 wrap~;
#X obj 334 327 sig~ 22050;
#X obj 334 284 samplerate~;
#X obj 334 232 loadbang;
#X obj 334 307 * 0.5;
#X obj 67 475 -~;
#X obj 67 503 outlet~;
#X obj 475 432 loadbang;
#X obj 475 495 table \$0-lookup 2;
#X obj 475 474 s \$0-lookup;
#X msg 475 453 0 0 1;
#X msg 344 257 bang;
#N canvas 315 401 852 607 sinc-phasor 0;
#X obj 173 131 -~ 0.5;
#X obj 421 192 *~ 2;
#X obj 459 191 /~;
#X obj 421 219 *~;
#X obj 422 241 abs~;
#X obj 421 263 +~ 1.8955;
#X obj 174 427 +~;
#N canvas 104 42 701 480 sin(x)/x 0;
#X obj 220 229 cos~;
#X obj 221 204 -~ 0.25;
#X msg 288 90 1;
#X floatatom 288 162 5 0 0 0 - - -;
#X obj 288 116 atan;
#X obj 288 137 * 8;
#X obj 220 181 /~ 6.238;
#X obj 288 67 loadbang;
#X obj 221 148 inlet~;
#X obj 219 291 outlet~;
#X obj 220 255 /~;
#X connect 0 0 10 0;
#X connect 1 0 0 0;
#X connect 2 0 4 0;
#X connect 3 0 6 1;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 8 0 6 0;
#X connect 8 0 10 1;
#X connect 10 0 9 0;
#X restore 421 293 pd sin(x)/x;
#X text 208 426 + v3;
#X obj 175 333 tabread~ \$0-lookup;
#X obj 174 311 +~ 1;
#X obj 127 78 inlet~;
#X text 123 53 phasor~;
#X obj 433 71 inlet~;
#X obj 510 72 inlet~;
#X text 506 47 SR;
#X text 429 46 freq;
#X obj 109 486 outlet~;
#X obj 328 217 wrap~;
#X obj 329 243 *~ 2;
#X obj 329 268 -~ 1;
#X obj 330 392 *~;
#X text 357 387 v2*sin(v4)/v4;
#X obj 110 460 -~;
#X connect 0 0 1 0;
#X connect 0 0 10 0;
#X connect 0 0 18 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 23 0;
#X connect 7 0 21 1;
#X connect 9 0 6 0;
#X connect 10 0 9 0;
#X connect 11 0 0 0;
#X connect 11 0 23 1;
#X connect 13 0 2 1;
#X connect 14 0 2 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 6 1;
#X connect 23 0 17 0;
#X restore 238 442 pd sinc-phasor;
#N canvas 315 401 852 607 sinc-phasor 0;
#X obj 173 131 -~ 0.5;
#X obj 421 192 *~ 2;
#X obj 459 191 /~;
#X obj 421 219 *~;
#X obj 422 241 abs~;
#X obj 421 263 +~ 1.8955;
#X obj 174 427 +~;
#N canvas 104 42 701 480 sin(x)/x 0;
#X obj 220 229 cos~;
#X obj 221 204 -~ 0.25;
#X msg 288 90 1;
#X floatatom 288 162 5 0 0 0 - - -;
#X obj 288 116 atan;
#X obj 288 137 * 8;
#X obj 220 181 /~ 6.238;
#X obj 288 67 loadbang;
#X obj 221 148 inlet~;
#X obj 219 291 outlet~;
#X obj 220 255 /~;
#X connect 0 0 10 0;
#X connect 1 0 0 0;
#X connect 2 0 4 0;
#X connect 3 0 6 1;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 8 0 6 0;
#X connect 8 0 10 1;
#X connect 10 0 9 0;
#X restore 421 293 pd sin(x)/x;
#X text 208 426 + v3;
#X obj 175 333 tabread~ \$0-lookup;
#X obj 174 311 +~ 1;
#X obj 127 78 inlet~;
#X text 123 53 phasor~;
#X obj 433 71 inlet~;
#X obj 510 72 inlet~;
#X text 506 47 SR;
#X text 429 46 freq;
#X obj 109 486 outlet~;
#X obj 328 217 wrap~;
#X obj 329 243 *~ 2;
#X obj 329 268 -~ 1;
#X obj 330 392 *~;
#X text 357 387 v2*sin(v4)/v4;
#X obj 110 460 -~;
#X connect 0 0 1 0;
#X connect 0 0 10 0;
#X connect 0 0 18 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 23 0;
#X connect 7 0 21 1;
#X connect 9 0 6 0;
#X connect 10 0 9 0;
#X connect 11 0 0 0;
#X connect 11 0 23 1;
#X connect 13 0 2 1;
#X connect 14 0 2 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 6 1;
#X connect 23 0 17 0;
#X restore 66 443 pd sinc-phasor;
#X connect 0 0 2 0;
#X connect 0 0 17 0;
#X connect 1 0 0 0;
#X connect 1 0 16 1;
#X connect 1 0 17 1;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X connect 4 0 16 0;
#X connect 5 0 16 2;
#X connect 5 0 17 2;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 5 0;
#X connect 9 0 10 0;
#X connect 11 0 14 0;
#X connect 14 0 13 0;
#X connect 15 0 6 0;
#X connect 16 0 9 1;
#X connect 17 0 9 0;