vs-invert-bipolar.pd

#N canvas 522 23 686 606 10;
#X obj 133 78 inlet~ signal;
#X obj 233 78 inlet~ signal;
#X text 329 326 Derek Holzer;
#X text 329 350 Berlin July 2017;
#X text 329 375 macumbista@gmail.com;
#X obj 133 363 outlet~ signal;
#X obj 133 227 *~;
#X obj 163 227 *~;
#X obj 133 327 +~;
#X obj 163 166 expr~ ($v1 * -1);
#X obj 233 105 expr~ if ($v1 <= 0 \, 1 \, 0);
#X obj 268 136 expr~ if ($v1 > 0 \, 1 \, 0);
#X connect 0 0 6 0;
#X connect 0 0 9 0;
#X connect 1 0 10 0;
#X connect 1 0 11 0;
#X connect 6 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 5 0;
#X connect 9 0 7 0;
#X connect 10 0 6 1;
#X connect 11 0 7 1;