#N canvas 6 82 1908 968 10; #X obj 410 211 pack f f f, f 15; #X obj 410 140 cyclone/counter 0 10; #X msg 447 115 0; #X obj 410 87 until; #X msg 410 64 11; #X floatatom 410 -33 5 0 0 0 - - -; #X obj 466 186 + 1; #X obj 410 161 t f f, f 10; #X obj 410 232 unpack f f f, f 34; #X obj 751 198 loadbang; #X obj 718 185 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 410 258 expr if ($f3 >= $s4[$f1] && $f3 <= $s4[$f2] \, 1 \, 0) \; $s4[$f1] \; $s4[$f2]; #X obj 410 331 pack 0 f f f, f 75; #X obj 410 40 t b f f, f 30; #X obj 410 306 sel 1; #X obj 410 356 unpack f f f f, f 67; #X obj 410 -13 t f f, f 42; #X obj 410 8 mod 12; #X obj 659 9 div 12; #X floatatom 659 30 5 0 0 0 - - -; #X obj 543 404 +; #X floatatom 543 425 5 0 0 0 - - -; #X obj 543 380 expr if ($f3 <= ($f1+($f2-$f1)/2) \, $f1 \, $f2) \; ; #X obj 449 93 loadbang; #X obj 659 50 * 12; #X obj 543 445 outlet; #N canvas 0 50 450 250 (subpatch) 0; #X array \$0-array1 12 float 3; #A 0 1 0 1 1 0 0 1 1 0 1 1 0; #X coords 0 12 12 0 200 140 1 0 0; #X restore 754 -66 graph; #X obj 839 452 loadbang; #X obj 801 484 symbol \$0-array1; #X obj 806 439 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 740 558 array set; #X obj 740 474 t l b; #X msg 770 509 0; #N canvas 0 50 450 250 (subpatch) 0; #X array \$0-array2 12 float 3; #A 0 0 2 3 6 7 9 10 0 0 0 0 0; #X coords 0 12 12 0 200 140 1 0 0; #X restore 881 123 graph; #X obj 134 117 tgl 15 0 \$0-N0 empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 153 124 tgl 15 0 \$0-N1 empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 134 136 tgl 15 0 \$0-N2 empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 153 144 tgl 15 0 \$0-N3 empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 134 155 tgl 15 0 \$0-N4 empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 134 174 tgl 15 0 \$0-N5 empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 153 181 tgl 15 0 \$0-N6 empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 153 201 tgl 15 0 \$0-N8 empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 134 193 tgl 15 0 \$0-N7 empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 134 212 tgl 15 0 \$0-N9 empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 153 221 tgl 15 0 \$0-N10 empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 134 230 tgl 15 0 \$0-N11 empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 261 47 loadbang; #X msg 261 68 0; #X obj 1115 7 r \$0-N0; #X obj 1115 28 t f b f b; #X msg 1166 53 0; #X obj 1137 81 pack f f; #X obj 1137 102 unpack f f; #X obj 1148 162 tabwrite \$0-array1; #X obj 1205 28 t f b f b; #X obj 1227 81 pack f f; #X obj 1227 102 unpack f f; #X obj 1305 28 t f b f b; #X obj 1327 81 pack f f; #X obj 1327 102 unpack f f; #X obj 1395 28 t f b f b; #X obj 1417 81 pack f f; #X obj 1417 102 unpack f f; #X obj 1485 28 t f b f b; #X obj 1507 81 pack f f; #X obj 1507 102 unpack f f; #X obj 1575 28 t f b f b; #X obj 1597 81 pack f f; #X obj 1597 102 unpack f f; #X obj 1675 28 t f b f b; #X obj 1697 81 pack f f; #X obj 1697 102 unpack f f; #X obj 1765 28 t f b f b; #X obj 1787 81 pack f f; #X obj 1787 102 unpack f f; #X obj 1855 28 t f b f b; #X obj 1877 81 pack f f; #X obj 1877 102 unpack f f; #X obj 1945 28 t f b f b; #X obj 1967 81 pack f f; #X obj 1967 102 unpack f f; #X obj 2045 28 t f b f b; #X obj 2067 81 pack f f; #X obj 2067 102 unpack f f; #X obj 2135 28 t f b f b; #X obj 2157 81 pack f f; #X obj 2157 102 unpack f f; #X obj 1205 7 r \$0-N1; #X obj 1305 7 r \$0-N2; #X obj 1395 7 r \$0-N3; #X obj 1485 7 r \$0-N4; #X obj 1575 7 r \$0-N5; #X obj 1675 7 r \$0-N6; #X obj 1765 7 r \$0-N7; #X obj 1855 7 r \$0-N8; #X obj 1945 7 r \$0-N9; #X obj 2045 7 r \$0-N10; #X obj 2135 7 r \$0-N11; #X msg 1256 53 1; #X msg 1356 53 2; #X msg 1446 53 3; #X msg 1536 53 4; #X msg 1626 53 5; #X msg 1726 53 6; #X msg 1816 53 7; #X msg 1906 53 8; #X msg 1996 53 9; #X msg 2096 53 10; #X msg 2186 53 11; #X obj 1311 385 tabread \$0-array1; #X obj 1279 408 spigot; #X obj 1248 363 t f f f, f 11; #X obj 1169 263 t f b; #X obj 1169 288 until; #X obj 1169 313 f; #X obj 1245 313 + 1; #X msg 1218 289 0; #X text 1206 239 number of iterations; #X text 1253 289 initial value; #X obj 1168 190 bng 15 250 50 0 empty empty Start 17 7 0 10 -262144 -1 -1; #X msg 1169 238 12; #X obj 1169 338 t f f f, f 27; #X obj 1169 364 mod 12; #X obj 1298 455 f; #X obj 1336 455 + 1; #X obj 1279 429 t f b f; #X obj 1192 484 tabwrite \$0-array2; #X msg 1170 408 0; #X obj 1455 285 loadbang; #X obj 1422 272 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 1417 317 symbol \$0-array2; #X msg 1413 343 \; \$1 const 0; #X obj 1405 434 print note; #X obj 1170 387 sel 11; #X obj 1168 210 t b b; #X obj 713 230 symbol \$0-array2; #X obj 104 249 cnv 15 70 18 empty empty Quantizer 8 9 0 10 -224702 -66577 0; #X text 101 102 Note; #X obj 413 -63 inlet; #X text 102 264 Note; #X connect 0 0 8 0; #X connect 1 0 7 0; #X connect 2 0 1 1; #X connect 3 0 1 0; #X connect 4 0 3 0; #X connect 5 0 16 0; #X connect 6 0 0 1; #X connect 7 0 0 0; #X connect 7 1 6 0; #X connect 8 0 11 0; #X connect 8 1 11 1; #X connect 8 2 11 2; #X connect 9 0 135 0; #X connect 10 0 135 0; #X connect 11 0 14 0; #X connect 11 1 12 1; #X connect 11 2 12 2; #X connect 12 0 15 0; #X connect 13 0 4 0; #X connect 13 1 0 2; #X connect 13 2 12 3; #X connect 14 0 12 0; #X connect 15 1 22 0; #X connect 15 2 22 1; #X connect 15 3 22 2; #X connect 16 0 17 0; #X connect 16 1 18 0; #X connect 17 0 13 0; #X connect 18 0 19 0; #X connect 19 0 24 0; #X connect 20 0 21 0; #X connect 21 0 25 0; #X connect 22 0 20 0; #X connect 23 0 2 0; #X connect 24 0 20 1; #X connect 27 0 28 0; #X connect 28 0 30 2; #X connect 29 0 28 0; #X connect 31 0 30 0; #X connect 31 1 32 0; #X connect 32 0 30 1; #X connect 46 0 47 0; #X connect 47 0 35 0; #X connect 47 0 45 0; #X connect 47 0 44 0; #X connect 47 0 43 0; #X connect 47 0 42 0; #X connect 47 0 41 0; #X connect 47 0 40 0; #X connect 47 0 39 0; #X connect 47 0 38 0; #X connect 47 0 37 0; #X connect 47 0 36 0; #X connect 47 0 34 0; #X connect 48 0 49 0; #X connect 49 1 119 0; #X connect 49 2 51 0; #X connect 49 3 50 0; #X connect 50 0 51 1; #X connect 51 0 52 0; #X connect 52 0 53 0; #X connect 52 1 53 1; #X connect 54 1 119 0; #X connect 54 2 55 0; #X connect 54 3 98 0; #X connect 55 0 56 0; #X connect 56 0 53 0; #X connect 56 1 53 1; #X connect 57 1 119 0; #X connect 57 2 58 0; #X connect 57 3 99 0; #X connect 58 0 59 0; #X connect 59 0 53 0; #X connect 59 1 53 1; #X connect 60 1 119 0; #X connect 60 2 61 0; #X connect 60 3 100 0; #X connect 61 0 62 0; #X connect 62 0 53 0; #X connect 62 1 53 1; #X connect 63 1 119 0; #X connect 63 2 64 0; #X connect 63 3 101 0; #X connect 64 0 65 0; #X connect 65 0 53 0; #X connect 65 1 53 1; #X connect 66 1 119 0; #X connect 66 2 67 0; #X connect 66 3 102 0; #X connect 67 0 68 0; #X connect 68 0 53 0; #X connect 68 1 53 1; #X connect 69 1 119 0; #X connect 69 2 70 0; #X connect 69 3 103 0; #X connect 70 0 71 0; #X connect 71 0 53 0; #X connect 71 1 53 1; #X connect 72 1 119 0; #X connect 72 2 73 0; #X connect 72 3 104 0; #X connect 73 0 74 0; #X connect 74 0 53 0; #X connect 74 1 53 1; #X connect 75 1 119 0; #X connect 75 2 76 0; #X connect 75 3 105 0; #X connect 76 0 77 0; #X connect 77 0 53 0; #X connect 77 1 53 1; #X connect 78 1 119 0; #X connect 78 2 79 0; #X connect 78 3 106 0; #X connect 79 0 80 0; #X connect 80 0 53 0; #X connect 80 1 53 1; #X connect 81 1 119 0; #X connect 81 2 82 0; #X connect 81 3 107 0; #X connect 82 0 83 0; #X connect 83 0 53 0; #X connect 83 1 53 1; #X connect 84 1 119 0; #X connect 84 2 85 0; #X connect 84 3 108 0; #X connect 85 0 86 0; #X connect 86 0 53 0; #X connect 86 1 53 1; #X connect 87 0 54 0; #X connect 88 0 57 0; #X connect 89 0 60 0; #X connect 90 0 63 0; #X connect 91 0 66 0; #X connect 92 0 69 0; #X connect 93 0 72 0; #X connect 94 0 75 0; #X connect 95 0 78 0; #X connect 96 0 81 0; #X connect 97 0 84 0; #X connect 98 0 55 1; #X connect 99 0 58 1; #X connect 100 0 61 1; #X connect 101 0 64 1; #X connect 102 0 67 1; #X connect 103 0 70 1; #X connect 104 0 73 1; #X connect 105 0 76 1; #X connect 106 0 79 1; #X connect 107 0 82 1; #X connect 108 0 85 1; #X connect 109 0 110 1; #X connect 110 0 125 0; #X connect 111 1 110 0; #X connect 111 2 109 0; #X connect 112 0 113 0; #X connect 112 1 116 0; #X connect 113 0 114 0; #X connect 114 0 121 0; #X connect 115 0 114 1; #X connect 116 0 114 1; #X connect 119 0 134 0; #X connect 120 0 112 0; #X connect 121 0 122 0; #X connect 121 1 111 0; #X connect 121 2 115 0; #X connect 122 0 133 0; #X connect 123 0 124 0; #X connect 123 0 126 1; #X connect 124 0 123 1; #X connect 125 0 126 0; #X connect 125 1 123 0; #X connect 125 2 132 0; #X connect 127 0 123 1; #X connect 128 0 130 0; #X connect 129 0 130 0; #X connect 130 0 131 0; #X connect 133 0 127 0; #X connect 134 0 120 0; #X connect 134 1 129 0; #X connect 135 0 11 3; #X connect 138 0 5 0; #X coords 0 -1 1 1 80 180 2 100 100;