diff options
Diffstat (limited to 'externals/gridflow/abstractions/#polygon_comparator.pd')
-rw-r--r-- | externals/gridflow/abstractions/#polygon_comparator.pd | 99 |
1 files changed, 99 insertions, 0 deletions
diff --git a/externals/gridflow/abstractions/#polygon_comparator.pd b/externals/gridflow/abstractions/#polygon_comparator.pd new file mode 100644 index 00000000..32da8e59 --- /dev/null +++ b/externals/gridflow/abstractions/#polygon_comparator.pd @@ -0,0 +1,99 @@ +#N canvas 415 302 865 491 10; +#X obj 13 13 inlet left; +#X obj 183 22 inlet right; +#X obj 13 32 route2 precision; +#X obj 33 383 outlet result; +#X obj 183 109 #polygon_radial_map; +#X obj 183 225 #fft; +#X obj 33 225 #fft; +#X obj 33 263 #fft \, sign -1; +#N canvas 0 0 450 300 (subpatch) 0; +#X array \$0-table 256 float 2; +#X coords 0 1 256 0 200 140 1; +#X restore 405 42 graph; +#X obj 33 109 #polygon_radial_map; +#X obj 33 168 #redim (1 256 1); +#X obj 183 168 #redim (1 256 1); +#X obj 33 206 #cast f; +#X obj 33 187 #outer * (1 0); +#X obj 183 187 #outer * (1 0); +#X obj 183 206 #cast f; +#X obj 33 329 #inner (2 f # 1 0) \, seed (f # 0); +#X obj 33 348 #redim (256); +#X obj 33 244 # C.*conj (2 f # 1 0); +#X obj 33 128 #t; +#X obj 183 128 #t; +#X obj 208 129 # sq-; +#X obj 247 129 #fold +; +#X obj 58 129 # sq-; +#X obj 97 129 #fold +; +#X obj 224 237 # *; +#X obj 247 148 #cast f; +#X obj 97 148 #cast f; +#X obj 224 256 # sqrt (f #); +#X obj 33 301 # / (f # 1); +#X obj 33 282 # / (f # 256); +#X obj 183 59 #t; +#X obj 208 59 #polygon_moment; +#X obj 183 80 # -; +#X obj 33 58 #t; +#X obj 58 58 #polygon_moment; +#X obj 33 79 # -; +#X obj 330 437 f; +#X obj 216 456 tabwrite \$0-table; +#X obj 216 420 t f b; +#X msg 346 418 0; +#X obj 355 437 + 1; +#X obj 216 373 t a b; +#X obj 216 401 #to_float; +#X connect 0 0 2 0; +#X connect 1 0 31 0; +#X connect 2 0 4 0; +#X connect 2 0 9 0; +#X connect 2 1 34 0; +#X connect 4 0 20 0; +#X connect 5 0 18 1; +#X connect 6 0 18 0; +#X connect 7 0 30 0; +#X connect 9 0 19 0; +#X connect 10 0 13 0; +#X connect 11 0 14 0; +#X connect 12 0 6 0; +#X connect 13 0 12 0; +#X connect 14 0 15 0; +#X connect 15 0 5 0; +#X connect 16 0 17 0; +#X connect 17 0 3 0; +#X connect 17 0 42 0; +#X connect 18 0 7 0; +#X connect 19 0 10 0; +#X connect 19 1 23 0; +#X connect 20 0 11 0; +#X connect 20 1 21 0; +#X connect 21 0 22 0; +#X connect 22 0 26 0; +#X connect 23 0 24 0; +#X connect 24 0 27 0; +#X connect 25 0 28 0; +#X connect 26 0 25 1; +#X connect 27 0 25 0; +#X connect 28 0 29 1; +#X connect 29 0 16 0; +#X connect 30 0 29 0; +#X connect 31 0 33 0; +#X connect 31 1 32 0; +#X connect 32 0 33 1; +#X connect 33 0 4 0; +#X connect 34 0 36 0; +#X connect 34 1 35 0; +#X connect 35 0 36 1; +#X connect 36 0 9 0; +#X connect 37 0 41 0; +#X connect 37 0 38 1; +#X connect 39 0 38 0; +#X connect 39 1 37 0; +#X connect 40 0 37 1; +#X connect 41 0 37 1; +#X connect 42 0 43 0; +#X connect 42 1 40 0; +#X connect 43 0 39 0; |