blob: e367c8ffce850ed6f975f5b70834fbcf0739cde4 (
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
|
#N canvas 138 51 523 408 10;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-pwm~ 100 float 0;
#X coords 0 1.1 100 -0.1 200 100 1;
#X restore 58 236 graph;
#X obj 83 144 r metro;
#X text 355 21 <-- Click to start;
#X text 194 193 <-- graph the output;
#X text 302 287 see also:;
#X obj 311 20 tgl 25 0 empty empty start 0 -6 1 9 -24198 -1 -1 0 1
;
#X msg 311 48 \; pd dsp \$1 \; metro \$1;
#X obj 376 287 pwm;
#X obj 71 66 hsl 128 15 0 1 0 1 empty empty pulse_width -2 -6 1 12
-225280 -1 -1 10700 0;
#X floatatom 80 88 5 0 0 0 - - -;
#X text 139 112 argument = pwm rate in Hz;
#X obj 67 112 pwm~ 2000;
#X obj 83 169 metro 238.3;
#X obj 82 372 pddp/pddplink http://en.wikipedia.org/wiki/Pulse-width_modulation
;
#X text 22 351 for more info:;
#X text 16 11 pulse width modulation at audio rate;
#X obj 67 193 tabwrite~ \$0-pwm~;
#X connect 1 0 12 0;
#X connect 1 0 12 0;
#X connect 5 0 6 0;
#X connect 8 0 9 0;
#X connect 8 0 11 0;
#X connect 11 0 16 0;
#X connect 12 0 16 0;
|
