3 files changed, 197 insertions, 0 deletions
diff --git a/experimental/meta-align-grid.pd b/experimental/meta-align-grid.pd
new file mode 100644
index 0000000..9ad023e
--- /dev/null
+++ b/experimental/meta-align-grid.pd
@@ -0,0 +1,63 @@
+#N canvas 0 22 467 400 10;
+#X obj -211 131 list-drip;
+#X obj -211 247 list-map;
+#X obj -261 217 t a;
+#X obj -211 157 t b a;
+#X obj -211 187 canvasobjectposition 1;
+#X obj -211 107 canvasselect 1;
+#X obj -211 72 inlet;
+#X obj -33 166 loadbang;
+#X obj -33 186 \$1;
+#X obj -33 206 sel 0;
+#X msg -33 226 10;
+#N canvas 0 22 399 321 quantize 0;
+#X obj 170 172 / 2;
+#X obj 139 202 >;
+#X obj 57 219 +;
+#X obj 57 246 *;
+#X obj 207 202 t a;
+#X obj 57 119 t a a;
+#X obj 132 172 fmod;
+#X obj 57 172 /;
+#X obj 57 195 int;
+#X obj 136 120 t a a a a;
+#X obj 136 49 inlet;
+#X obj 57 49 inlet;
+#X obj 57 272 outlet;
+#X text 203 159 if remainder is > 1/2 \,;
+#X text 204 173 quantize to next snappoint;
+#X text 192 167 <;
+#X connect 0 0 1 1;
+#X connect 1 0 2 1;
+#X connect 2 0 3 0;
+#X connect 3 0 12 0;
+#X connect 4 0 3 1;
+#X connect 5 0 7 0;
+#X connect 5 1 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 8 0;
+#X connect 8 0 2 0;
+#X connect 9 0 7 1;
+#X connect 9 1 6 1;
+#X connect 9 2 0 0;
+#X connect 9 3 4 0;
+#X connect 10 0 9 0;
+#X connect 11 0 5 0;
+#X restore -152 247 pd quantize;
+#X obj -33 247 t a;
+#X connect 0 0 3 0;
+#X connect 1 0 2 0;
+#X connect 1 1 11 0;
+#X connect 2 0 4 0;
+#X connect 3 0 4 0;
+#X connect 3 1 4 1;
+#X connect 4 0 1 0;
+#X connect 5 0 0 0;
+#X connect 6 0 5 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 9 1 12 0;
+#X connect 10 0 12 0;
+#X connect 11 0 1 1;
+#X connect 12 0 11 1;
diff --git a/experimental/meta-align-left2topmost.pd b/experimental/meta-align-left2topmost.pd
new file mode 100644
index 0000000..d60183d
--- /dev/null
+++ b/experimental/meta-align-left2topmost.pd
@@ -0,0 +1,67 @@
+#N canvas 0 22 401 666 10;
+#X obj 79 170 sort;
+#X obj 154 160 unpack f f;
+#X obj 100 273 list split 1;
+#X obj 100 316 s \$0-key_object;
+#X obj 134 295 s \$0-sub_objects;
+#X obj 79 136 list-map;
+#X obj 100 351 r \$0-key_object;
+#X obj 121 473 r \$0-sub_objects;
+#X obj 100 415 unpack f f;
+#X obj 154 139 canvasobjectposition 1;
+#X obj 79 63 canvasselect 1;
+#X obj 100 393 canvasobjectposition 1;
+#X obj 100 594 unpack f f;
+#X obj 100 572 canvasobjectposition 1;
+#X obj 100 445 t b a;
+#X obj 100 494 list;
+#X obj 100 519 list-drip;
+#X obj 154 117 t b a;
+#X obj 100 372 t b a;
+#X obj 100 542 t b a;
+#X obj 79 34 inlet;
+#X obj 100 214 list-map;
+#X obj 177 243 list-idx;
+#X obj 177 194 t b a;
+#X obj 177 218 list;
+#X obj 209 218 r \$0-selected_objects;
+#X obj 79 83 t a a;
+#X obj 118 83 s \$0-selected_objects;
+#X obj 100 620 list prepend;
+#X obj 65 591 t a;
+#X connect 0 1 21 0;
+#X connect 1 1 5 1;
+#X connect 2 0 3 0;
+#X connect 2 1 4 0;
+#X connect 5 0 0 0;
+#X connect 5 1 17 0;
+#X connect 6 0 18 0;
+#X connect 7 0 15 1;
+#X connect 8 0 14 0;
+#X connect 9 0 1 0;
+#X connect 10 0 26 0;
+#X connect 11 0 8 0;
+#X connect 12 1 28 0;
+#X connect 13 0 12 0;
+#X connect 14 0 15 0;
+#X connect 14 1 28 1;
+#X connect 15 0 16 0;
+#X connect 16 0 19 0;
+#X connect 17 0 9 0;
+#X connect 17 1 9 1;
+#X connect 18 0 11 0;
+#X connect 18 1 11 1;
+#X connect 19 0 13 0;
+#X connect 19 1 13 1;
+#X connect 20 0 10 0;
+#X connect 21 0 2 0;
+#X connect 21 1 23 0;
+#X connect 22 0 21 1;
+#X connect 23 0 24 0;
+#X connect 23 1 22 1;
+#X connect 24 0 22 0;
+#X connect 25 0 24 1;
+#X connect 26 0 5 0;
+#X connect 26 1 27 0;
+#X connect 28 0 29 0;
+#X connect 29 0 13 0;
diff --git a/experimental/meta-align-top2leftmost.pd b/experimental/meta-align-top2leftmost.pd
new file mode 100644
index 0000000..9e0f1a7
--- /dev/null
+++ b/experimental/meta-align-top2leftmost.pd
@@ -0,0 +1,67 @@
+#N canvas 0 22 436 680 10;
+#X obj 79 170 sort;
+#X obj 154 160 unpack f f;
+#X obj 100 273 list split 1;
+#X obj 100 316 s \$0-key_object;
+#X obj 134 295 s \$0-sub_objects;
+#X obj 79 136 list-map;
+#X obj 100 351 r \$0-key_object;
+#X obj 121 473 r \$0-sub_objects;
+#X obj 100 415 unpack f f;
+#X obj 154 139 canvasobjectposition 1;
+#X obj 79 63 canvasselect 1;
+#X obj 100 393 canvasobjectposition 1;
+#X obj 100 594 unpack f f;
+#X obj 100 572 canvasobjectposition 1;
+#X obj 100 445 t b a;
+#X obj 100 494 list;
+#X obj 100 519 list-drip;
+#X obj 154 117 t b a;
+#X obj 100 372 t b a;
+#X obj 100 542 t b a;
+#X obj 55 597 t a;
+#X obj 100 620 list append;
+#X obj 79 34 inlet;
+#X obj 100 214 list-map;
+#X obj 177 243 list-idx;
+#X obj 177 194 t b a;
+#X obj 177 218 list;
+#X obj 209 218 r \$0-selected_objects;
+#X obj 79 83 t a a;
+#X obj 118 83 s \$0-selected_objects;
+#X connect 0 1 23 0;
+#X connect 1 0 5 1;
+#X connect 2 0 3 0;
+#X connect 2 1 4 0;
+#X connect 5 0 0 0;
+#X connect 5 1 17 0;
+#X connect 6 0 18 0;
+#X connect 7 0 15 1;
+#X connect 8 1 14 0;
+#X connect 9 0 1 0;
+#X connect 10 0 28 0;
+#X connect 11 0 8 0;
+#X connect 12 0 21 0;
+#X connect 13 0 12 0;
+#X connect 14 0 15 0;
+#X connect 14 1 21 1;
+#X connect 15 0 16 0;
+#X connect 16 0 19 0;
+#X connect 17 0 9 0;
+#X connect 17 1 9 1;
+#X connect 18 0 11 0;
+#X connect 18 1 11 1;
+#X connect 19 0 13 0;
+#X connect 19 1 13 1;
+#X connect 20 0 13 0;
+#X connect 21 0 20 0;
+#X connect 22 0 10 0;
+#X connect 23 0 2 0;
+#X connect 23 1 25 0;
+#X connect 24 0 23 1;
+#X connect 25 0 26 0;
+#X connect 25 1 24 1;
+#X connect 26 0 24 0;
+#X connect 27 0 26 1;
+#X connect 28 0 5 0;
+#X connect 28 1 29 0;