#N canvas 456 349 569 596 10;
#X declare -lib nettles;
#X obj 23 165 ==~;
#X obj 23 240 !=~;
#X obj 23 265 <~;
#X obj 23 290 >~;
#X obj 23 321 <=~;
#X obj 23 350 >=~;
#X obj 23 409 !/~;
#X obj 23 443 %~;
#X obj 23 523 +=~;
#X obj 23 190 _==1~;
#X obj 23 215 _==2~;
#X obj 23 91 !-;
#X obj 23 115 !/;
#X obj 23 380 !-~;
#X text 71 190 sigeq - outlet is 1 when inlets are equal as floats
;
#X text 72 164 sigeq - outlet is 1 when inlets are equal as ints?;
#X msg 23 140 _algo n;
#X text 85 141 switch mode: 0 \, 1 \, 2;
#X text 71 114 rdiv : output = right inlet / left inlet;
#X text 70 91 rminus : output = right inlet - left inlet;
#X text 72 241 signeq : output = 1 when inlets are unequal;
#X text 72 266 siglt : output = 1 when left inlet is larger than right
;
#X text 68 521 sigaccum : is the accumulation of all previous samples
;
#X text 74 409 sigrover : outlet is the remainder of the left inlet
divided by the right inlet;
#X text 74 442 sigmod : outlet is the right inlet divided through the
left inlet;
#X text 73 379 sigrminus : outlet = 1 when inlets are unequal;
#X text 73 350 siggeq : outlet = 1 when left inlet is greater or equal
than right;
#X text 73 321 sigleq : outlet = 1 when left inlet is less or equal
than right;
#X text 72 289 siggt : outlet = 1 when left inlet is greater than right
;
#X obj 22 503 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 21 482 set 0;
#X text 67 481 set sum to a value;
#X text 69 502 set sum to 0;
#X obj 0 557 cnv 15 552 21 empty empty empty 20 12 0 14 -233017 -33289
0;
#N canvas 319 385 428 109 Related_objects 0;
#X obj 0 0 cnv 15 425 20 empty empty empty 3 12 0 14 -204280 -1 0;
#X text 6 1 Related Objects;
#X restore 205 559 pd Related_objects;
#X obj 0 0 cnv 15 552 40 empty empty nettles 3 12 0 18 -204280 -1 0
;
#X text 72 214 sigeq - fast compare \, 8 samples at once;
#N canvas 616 258 377 299 META 0;
#X text 0 20 LICENSE SIBSD;
#X text 0 100 LIBRARY cyclone;
#X text 0 80 OUTLET_0 signal;
#X text 1 121 VERSION 0.1-alpha57;
#X text 1 139 AUTHOR Krzysztof Czaja;
#X text 2 157 RELEASE_DATE 2002;
#X text 3 176 WEBSITE http://suita.chopin.edu.pl/~czaja/miXed/externs/cyclone.html
;
#X text 3 208 HELP_PATCH_AUTHORS Christoph Kummerer. Revised by Jonathan
Wilkes for Pd-extended 0.42 to conform to the PDDP template. Alex Cleveland
updated this patch for Pd-l2ork version 2013.05.28. Fred Jan Kraan
adapted the patch to pd-extended 2015-02-02;
#X text 0 40 DESCRIPTION apply binary operations;
#X text 0 60 INLET_0 float signal message;
#X text 0 0 KEYWORDS bin ops for control messages and signals;
#X restore 503 559 pd META;
#N canvas 110 125 1114 741 signal 0;
#X obj 391 134 !=~;
#X obj 390 103 sig~;
#X obj 438 103 sig~;
#X obj 392 159 Snapshot~ 100;
#X obj 392 183 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 390 75 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1
-1 2;
#X obj 438 75 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1
-1 2;
#X obj 22 273 sig~;
#X obj 70 273 sig~;
#X obj 24 329 Snapshot~ 100;
#X obj 24 353 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 22 245 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1
-1 0;
#X obj 70 245 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1
-1 1;
#X obj 23 304 <~;
#X obj 394 273 sig~;
#X obj 442 273 sig~;
#X obj 396 329 Snapshot~ 100;
#X obj 396 353 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 394 245 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144
-1 -1 1;
#X obj 442 245 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144
-1 -1 0;
#X obj 395 304 >~;
#X obj 14 436 sig~;
#X obj 62 436 sig~;
#X obj 16 492 Snapshot~ 100;
#X obj 16 517 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 14 408 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1
-1 2;
#X obj 62 408 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1
-1 0;
#X obj 15 467 <=~;
#X obj 394 434 sig~;
#X obj 442 434 sig~;
#X obj 396 490 Snapshot~ 100;
#X obj 396 515 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 394 406 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144
-1 -1 1;
#X obj 442 406 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144
-1 -1 2;
#X obj 395 465 >=~;
#X obj 763 103 sig~;
#X obj 811 103 sig~;
#X obj 765 159 Snapshot~ 100;
#X obj 763 75 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1
-1 2;
#X obj 811 75 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1
-1 0;
#X obj 764 134 !-~;
#X text 389 53 signeq : outlet = 1 when inlets are unequal;
#X text 20 219 siglt : outlet = 1 when left inlet is less than right
;
#X text 391 214 siggt : outlet = 1 when left inlet is greater than
right;
#X text 9 377 sigleq : outlet = 1 when left inlet is less or equal
than right;
#X text 389 376 siggeq : outlet = 1 when left inlet is greater or equal
than right;
#X obj 394 603 sig~;
#X obj 442 603 sig~;
#X obj 396 659 Snapshot~ 100;
#X obj 395 634 %~;
#X floatatom 442 582 5 0 0 0 - - -, f 5;
#X floatatom 394 582 5 0 0 0 - - -, f 5;
#X text 390 543 sigrover : outlet is the remainder of the left inlet
divided by the right inlet;
#X floatatom 396 686 5 0 0 0 - - -, f 5;
#X obj 10 603 sig~;
#X obj 58 603 sig~;
#X obj 12 659 Snapshot~ 100;
#X floatatom 58 582 5 0 0 0 - - -, f 5;
#X floatatom 10 582 5 0 0 0 - - -, f 5;
#X floatatom 12 686 5 0 0 0 - - -, f 5;
#X obj 11 634 !/~;
#X text 4 542 sigmod : outlet is the right inlet divided through the
left inlet;
#X obj 777 621 sig~;
#X obj 779 677 Snapshot~ 100;
#X floatatom 779 704 8 0 0 0 - - -, f 8;
#X obj 778 652 +=~;
#X obj 777 571 hradio 15 1 1 5 empty empty empty 0 -8 0 10 -262144
-1 -1 2;
#X obj 777 591 - 2;
#X text 856 570 2;
#X text 760 570 -2;
#X text 772 545 sigaccum : is the accumulation of all previous samples
;
#X obj 819 625 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 842 625 set 42;
#X obj 0 0 cnv 15 552 40 empty empty empty 3 12 0 18 -204280 -1 0;
#X floatatom 765 183 5 0 0 0 - - -, f 5;
#X text 759 52 sigrminus : outlet = left inlet minus right inlet;
#X obj 777 467 dspSwitch~;
#X obj 86 115 sig~;
#X obj 134 115 sig~;
#X obj 88 171 Snapshot~ 100;
#X floatatom 134 94 5 0 0 0 - - -, f 5;
#X floatatom 86 94 5 0 0 0 - - -, f 5;
#X obj 87 146 ==~;
#X msg 17 74 _algo 0;
#X msg 18 94 _algo 1;
#X msg 18 117 _algo 2;
#X obj 88 195 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 13 52 sigeq : outlet = 1 when inlets are equal;
#X obj 223 117 _==1~;
#X obj 223 139 _==2~;
#X text 200 98 alternate objects:;
#X text 18 20 signal_operators;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 2 0 0 1;
#X connect 3 0 4 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 13 0;
#X connect 8 0 13 1;
#X connect 9 0 10 0;
#X connect 11 0 7 0;
#X connect 12 0 8 0;
#X connect 13 0 9 0;
#X connect 14 0 20 0;
#X connect 15 0 20 1;
#X connect 16 0 17 0;
#X connect 18 0 14 0;
#X connect 19 0 15 0;
#X connect 20 0 16 0;
#X connect 21 0 27 0;
#X connect 22 0 27 1;
#X connect 23 0 24 0;
#X connect 25 0 21 0;
#X connect 26 0 22 0;
#X connect 27 0 23 0;
#X connect 28 0 34 0;
#X connect 29 0 34 1;
#X connect 30 0 31 0;
#X connect 32 0 28 0;
#X connect 33 0 29 0;
#X connect 34 0 30 0;
#X connect 35 0 40 0;
#X connect 36 0 40 1;
#X connect 37 0 74 0;
#X connect 38 0 35 0;
#X connect 39 0 36 0;
#X connect 40 0 37 0;
#X connect 46 0 49 0;
#X connect 47 0 49 1;
#X connect 48 0 53 0;
#X connect 49 0 48 0;
#X connect 50 0 47 0;
#X connect 51 0 46 0;
#X connect 54 0 60 0;
#X connect 55 0 60 1;
#X connect 56 0 59 0;
#X connect 57 0 55 0;
#X connect 58 0 54 0;
#X connect 60 0 56 0;
#X connect 62 0 65 0;
#X connect 63 0 64 0;
#X connect 65 0 63 0;
#X connect 66 0 67 0;
#X connect 67 0 62 0;
#X connect 71 0 65 0;
#X connect 72 0 65 0;
#X connect 77 0 82 0;
#X connect 78 0 82 1;
#X connect 79 0 86 0;
#X connect 80 0 78 0;
#X connect 81 0 77 0;
#X connect 82 0 79 0;
#X connect 83 0 82 0;
#X connect 84 0 82 0;
#X connect 85 0 82 0;
#X restore 425 177 pd signal ops;
#N canvas 588 290 450 414 control 0;
#X obj 0 0 cnv 15 552 40 empty empty empty 3 12 0 18 -204280 -1 0;
#X text 8 19 control message operators;
#X obj 59 149 !-;
#X msg 35 106 1;
#X msg 84 105 1;
#X msg 94 126 2;
#X msg 74 84 0;
#X msg 51 277 1;
#X msg 100 276 1;
#X msg 110 297 2;
#X obj 75 320 !/;
#X msg 90 255 -1;
#X msg 51 253 2;
#X msg 33 80 -1;
#X text 28 55 rminus : output = right inlet - left inlet;
#X text 25 219 rdiv : output = right inlet / left inlet;
#X floatatom 59 176 5 0 0 0 - - -, f 5;
#X floatatom 75 347 5 0 0 0 - - -, f 5;
#X connect 2 0 16 0;
#X connect 3 0 2 0;
#X connect 4 0 2 1;
#X connect 5 0 2 1;
#X connect 6 0 2 1;
#X connect 7 0 10 0;
#X connect 8 0 10 1;
#X connect 9 0 10 1;
#X connect 10 0 17 0;
#X connect 11 0 10 1;
#X connect 12 0 10 0;
#X connect 13 0 2 0;
#X restore 424 103 pd control ops;
#X obj 413 44 declare -lib nettles;
#X text 12 23 logical operators;
#X connect 16 0 0 0;
#X connect 29 0 8 0;
#X connect 30 0 8 0;