1 files changed, 113 insertions, 0 deletions
diff --git a/externals/gridflow/pd_examples/polygon.pd b/externals/gridflow/pd_examples/polygon.pd
new file mode 100644
index 00000000..d43a14f8
--- /dev/null
+++ b/externals/gridflow/pd_examples/polygon.pd
@@ -0,0 +1,113 @@
+#N canvas 242 170 497 560 10;
+#X obj 30 250 #draw_polygon +;
+#X obj 127 3 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1
+;
+#X obj 187 80 +;
+#X obj 30 214 #store;
+#X obj 220 102 * 5000;
+#X obj 165 -27 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
+;
+#X msg 187 61 1;
+#X obj 30 394 #out window;
+#X obj 391 7 vsl 15 137 0 36000 0 1 empty empty empty -2 -6 0 8 -260818
+-1 -1 3400 1;
+#N canvas 0 0 415 291 create 0;
+#X msg 82 66 0 \$1;
+#X obj 5 131 #outer + ( 0 9000 );
+#X obj 5 153 # +;
+#X obj 5 197 # + ( 120 160 );
+#X obj 5 175 # cos* 116;
+#X obj 5 109 # * 14400;
+#X obj 5 87 #for 0 5 1;
+#X obj 34 153 inlet rotation_angle;
+#X obj 5 10 inlet bang;
+#X obj 5 219 outlet polygon;
+#X obj 82 44 inlet tilt_factor;
+#X text 81 27 default: 9000 \, for flatness;
+#X connect 0 0 1 1;
+#X connect 1 0 2 0;
+#X connect 2 0 4 0;
+#X connect 3 0 9 0;
+#X connect 4 0 3 0;
+#X connect 5 0 1 0;
+#X connect 6 0 5 0;
+#X connect 7 0 2 1;
+#X connect 8 0 6 0;
+#X connect 10 0 0 0;
+#X restore 289 149 pd create star;
+#N canvas 0 0 450 300 color 0;
+#X obj 18 141 outlet 0;
+#X obj 18 95 # sin* 128;
+#X obj 18 117 # + 128;
+#X obj 18 37 # * 1146;
+#X obj 18 13 inlet;
+#X obj 18 60 #outer + ( 0 12000 24000 );
+#X text 139 52 each channel is a sine wave \; the three are offset
+from each other 120 degrees. it is almost like turning around in the
+color wheel except we don't support the HSV color model for now.;
+#X connect 1 0 2 0;
+#X connect 2 0 0 0;
+#X connect 3 0 5 0;
+#X connect 4 0 3 0;
+#X connect 5 0 1 0;
+#X restore 80 129 pd color generator;
+#X obj 165 1 metro 33.3667;
+#X obj 165 34 t b b b;
+#X obj 30 71 t b;
+#X floatatom 392 151 6 0 0 0 - - -;
+#X obj 89 194 loadbang;
+#X obj 215 81 % 36000;
+#X obj 46 272 shunt 2;
+#X obj 115 274 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0
+1;
+#X text 133 273 blur;
+#X msg 89 214 240 320 3 b # 0;
+#X obj 80 167 #cast b;
+#X obj 80 148 # >> 7;
+#X obj 74 357 #solarize;
+#X obj 30 317 shunt 2;
+#X obj 93 318 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1
+;
+#X obj 131 301 # >> (b # 2);
+#X obj 131 321 #convolve (1 3 b # 1 2 1) \, seed (b # 0);
+#X obj -15 442 cnv 15 580 30 empty empty empty 20 12 0 14 -200249 -66577
+0;
+#X text -7 450 GridFlow 0.8.0;
+#X text -7 450 GridFlow 0.8.0;
+#X obj -13 -85 cnv 15 580 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X text 0 -72 Copyright 2002 Mathieu Bouchard;
+#X text 0 -86 polygon.pd;
+#X connect 0 0 17 0;
+#X connect 0 0 24 0;
+#X connect 1 0 12 0;
+#X connect 2 0 16 0;
+#X connect 3 0 0 0;
+#X connect 4 0 9 1;
+#X connect 5 0 11 0;
+#X connect 6 0 2 0;
+#X connect 8 0 14 0;
+#X connect 9 0 0 2;
+#X connect 10 0 22 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 12 1 6 0;
+#X connect 12 2 9 0;
+#X connect 13 0 3 0;
+#X connect 14 0 9 2;
+#X connect 15 0 20 0;
+#X connect 16 0 2 1;
+#X connect 16 0 10 0;
+#X connect 16 0 4 0;
+#X connect 17 0 3 1;
+#X connect 17 1 26 0;
+#X connect 18 0 17 1;
+#X connect 20 0 3 1;
+#X connect 21 0 0 1;
+#X connect 22 0 21 0;
+#X connect 23 0 7 0;
+#X connect 24 0 7 0;
+#X connect 24 1 23 0;
+#X connect 25 0 24 1;
+#X connect 26 0 27 0;
+#X connect 27 0 3 1;