From 5a6bee4fe076e06514c6e4e538590dd3a2a5cdc3 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Fri, 6 Nov 2009 18:37:00 +0000
Subject: upgrade gridflow

svn path=/trunk/; revision=12728
---
 externals/gridflow/examples/operator_spectrum.pd | 102 +++++++++++++++++++++++
 1 file changed, 102 insertions(+)
 create mode 100644 externals/gridflow/examples/operator_spectrum.pd

(limited to 'externals/gridflow/examples/operator_spectrum.pd')

diff --git a/externals/gridflow/examples/operator_spectrum.pd b/externals/gridflow/examples/operator_spectrum.pd
new file mode 100644
index 00000000..6c5f8e9f
--- /dev/null
+++ b/externals/gridflow/examples/operator_spectrum.pd
@@ -0,0 +1,102 @@
+#N canvas 693 0 542 648 10;
+#X obj 27 251 #cast f;
+#X obj 27 595 #clip;
+#X obj 26 386 #cast i;
+#X obj 27 67 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+;
+#X msg 197 103 4 2 # 0 0 0 1 1 1 1 0;
+#X obj 27 232 #outer * (1 0);
+#X obj 26 367 #remap_image;
+#X obj 26 348 # sqrt (f #);
+#X obj 27 329 #inner (2 f # 1 1) \, seed (f #);
+#X obj 27 310 # *;
+#X obj 27 289 t a a;
+#X obj 26 481 t a a;
+#X obj 27 103 #store (256 256 1 #);
+#X obj 27 122 #draw_polygon put (255);
+#X obj 79 484 # >> 8;
+#X obj 79 465 #inner (1 3 # 255 128 64);
+#X obj 27 576 # +;
+#X obj 127 586 #greyscale_to_rgb;
+#X obj 127 567 # * 255;
+#X obj 127 529 #convolve (3 3 # 0 -1 0 -1 4 -1);
+#X obj 27 84 metro 50;
+#X obj 197 84 loadbang;
+#X obj 26 405 # << 8;
+#X obj 26 462 # >> 8;
+#X obj 114 367 # + 128;
+#X obj 26 443 # + 128;
+#X obj 26 424 #fade 8;
+#X floatatom 442 65 5 0 0 0 - - -;
+#X floatatom 398 65 5 0 0 0 - - -;
+#X floatatom 354 65 5 0 0 0 - - -;
+#X msg 365 122 3 3 # \$1 \$2 \$1 \$2 \$3 \$2;
+#X obj 365 84 #pack 3;
+#X obj 365 103 #export_list;
+#X obj 292 354 # C.log (2 f #);
+#X obj 292 468 #greyscale_to_rgb;
+#X obj 292 430 #cast i;
+#X obj 292 373 #inner (2 f # 0 1) \, seed (f #);
+#X obj 292 411 # + (f # 128);
+#X obj 292 449 #clip;
+#X obj 292 392 # * (f # 40);
+#X obj 27 270 #fft;
+#X obj 197 122 # * 1;
+#X obj 127 548 # > 0;
+#X obj 128 510 # & 224;
+#X obj 57 183 #convolve (3 3 # -1 2 -1 2 -4 2);
+#X obj 27 149 #convolve (3 3 # 1 2 1 2 4 2 1 2 1);
+#X obj 27 213 # >> 4;
+#X text 28 8 Operator Spectrum patch.;
+#X text 28 25 Copyright 2007 by Mathieu Bouchard;
+#X text 28 42 as demonstrated at Pd Convention 2007;
+#X obj 27 614 #out window;
+#X connect 0 0 40 0;
+#X connect 1 0 50 0;
+#X connect 2 0 22 0;
+#X connect 3 0 20 0;
+#X connect 4 0 41 0;
+#X connect 5 0 0 0;
+#X connect 6 0 2 0;
+#X connect 6 1 24 0;
+#X connect 7 0 6 0;
+#X connect 8 0 7 0;
+#X connect 9 0 8 0;
+#X connect 10 0 9 0;
+#X connect 10 1 9 1;
+#X connect 11 0 43 0;
+#X connect 11 1 15 0;
+#X connect 12 0 13 0;
+#X connect 13 0 45 0;
+#X connect 14 0 16 1;
+#X connect 15 0 14 0;
+#X connect 16 0 1 0;
+#X connect 17 0 16 0;
+#X connect 18 0 17 0;
+#X connect 19 0 42 0;
+#X connect 20 0 12 0;
+#X connect 21 0 4 0;
+#X connect 22 0 26 0;
+#X connect 23 0 11 0;
+#X connect 24 0 6 1;
+#X connect 25 0 23 0;
+#X connect 26 0 25 0;
+#X connect 27 0 31 2;
+#X connect 28 0 31 1;
+#X connect 29 0 31 0;
+#X connect 30 0 45 1;
+#X connect 31 0 32 0;
+#X connect 32 0 30 0;
+#X connect 33 0 36 0;
+#X connect 35 0 38 0;
+#X connect 36 0 39 0;
+#X connect 37 0 35 0;
+#X connect 38 0 34 0;
+#X connect 39 0 37 0;
+#X connect 40 0 10 0;
+#X connect 41 0 13 2;
+#X connect 42 0 18 0;
+#X connect 43 0 19 0;
+#X connect 44 0 46 0;
+#X connect 45 0 46 0;
+#X connect 46 0 5 0;
-- 
cgit v1.2.1