#N canvas 393 289 548 328 10;
#X obj 40 40 mtof;
#X obj 43 17 hsl 128 15 0 127 0 1 empty empty empty -2 -6 0 8 -262144
-1 -1 6900 1;
#N canvas 0 22 450 300 (subpatch) 0;
#X array square 1000 float 0;
#X coords 0 1 999 -1 200 100 1;
#X restore 270 155 graph;
#X obj 119 156 tgl 15 1 empty empty empty 0 -6 0 10 -262144 -1 -1 1
1;
#X obj 40 64 phasor~;
#X obj 82 207 tabwrite~ square;
#X obj 40 237 dac~;
#X text 248 242 -1;
#X text 254 197 0;
#X text 254 151 1;
#X text 140 154 Graph output;
#X text 81 238 Line out to soundcard.;
#X obj 119 179 metro 100;
#X obj 40 91 expr~ $v1 > $v2;
#X obj 190 16 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 5200 1;
#X obj 193 59 expr~ $v1/100;
#X text 202 33 Adjust slider to change duty cycle;
#X text 449 9 osc3-pulse.pd;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 3 0 12 0;
#X connect 4 0 13 0;
#X connect 12 0 5 0;
#X connect 13 0 6 0;
#X connect 13 0 6 1;
#X connect 13 0 5 0;
#X connect 14 0 15 0;
#X connect 15 0 13 1;