patches/lib/harmony/square~.pd

#N canvas 1 57 803 353 16;
#X obj 60 362 outlet~;
#X text 147 32 <-freq;
#X text 304 79 pulsewidth->;
#X obj 65 236 expr~ ((($v1 > $v2) * 2) - 1);
#X obj 71 181 phasor~;
#X obj 445 78 inlet~;
#X obj 357 168 wrap~;
#X obj 82 34 inlet~;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 3 1;
#X connect 7 0 4 0;