#N canvas 321 223 819 639 10;
#X obj 492 37 inlet;
#X text 490 14 list to transform;
#X obj 28 315 list;
#X obj 272 527 outlet;
#X obj 485 386 list;
#X obj 111 244 list;
#X obj 194 182 list;
#X obj 194 157 t b a;
#X obj 292 314 list;
#X obj 28 23 inlet;
#X obj 28 88 list trim;
#X obj 536 526 outlet;
#X obj 536 502 list;
#X msg 536 345 original;
#X obj 485 298 t b b;
#N canvas 0 0 707 559 retrograde 0;
#X obj 92 29 inlet;
#X obj 148 141 t l;
#X obj 92 141 list;
#X obj 152 210 list;
#X obj 152 262 outlet;
#X text 174 95 drip list;
#X text 190 213 intermediate store \, bang'd on list end.;
#X text 178 140 repack in reverse order;
#X obj 92 54 t a b b;
#X obj 92 94 u_listdrip;
#X connect 0 0 8 0;
#X connect 1 0 2 1;
#X connect 2 0 1 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 8 0 9 0;
#X connect 8 1 2 1;
#X connect 8 2 3 1;
#X connect 9 0 2 0;
#X connect 9 1 3 0;
#X restore 111 266 pd retrograde;
#N canvas 0 0 837 606 inversion 0;
#X obj 91 201 t a a;
#X msg 123 257 \$1;
#N canvas 0 0 450 300 inversion-axis 0;
#X obj 39 39 inlet;
#X obj 39 211 outlet;
#X obj 148 37 inlet;
#X obj 123 158 -;
#X obj 148 95 * 2;
#X obj 123 128 swap;
#X obj 39 141 u_listmap;
#X connect 0 0 6 0;
#X connect 2 0 4 0;
#X connect 3 0 6 1;
#X connect 4 0 5 1;
#X connect 5 0 3 0;
#X connect 5 1 3 1;
#X connect 6 0 1 0;
#X connect 6 1 5 0;
#X restore 91 307 pd inversion-axis;
#X obj 91 149 inlet;
#X obj 91 330 outlet;
#X obj 162 150 inlet;
#X obj 162 171 route bang float;
#X obj 216 195 t b f;
#X msg 162 194 1;
#X obj 123 233 spigot;
#X msg 175 233 0;
#X text 298 171 if "inverstion <num>" then use that as axis \, otherwise
use the first element as inversion axis.;
#X connect 0 0 2 0;
#X connect 0 1 9 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 6 1 7 0;
#X connect 7 0 10 0;
#X connect 7 1 2 1;
#X connect 8 0 9 1;
#X connect 9 0 1 0;
#X connect 10 0 9 1;
#X restore 28 347 pd inversion;
#N canvas 242 174 450 300 transpose 0;
#X obj 149 88 inlet;
#X obj 149 215 outlet;
#X obj 246 90 inlet;
#X obj 221 161 + \$1;
#X obj 149 160 u_listmap;
#X connect 0 0 4 0;
#X connect 2 0 3 1;
#X connect 3 0 4 1;
#X connect 4 0 1 0;
#X connect 4 1 3 0;
#X restore 194 205 pd transpose;
#N canvas 0 0 450 300 retro-inversion 0;
#X obj 84 46 inlet;
#X obj 84 145 outlet;
#N canvas 0 0 707 559 retrograde 0;
#X obj 92 29 inlet;
#X obj 148 141 t l;
#X obj 92 141 list;
#X obj 152 210 list;
#X obj 152 262 outlet;
#X text 174 95 drip list;
#X text 190 213 intermediate store \, bang'd on list end.;
#X text 178 140 repack in reverse order;
#X obj 92 54 t a b b;
#X obj 92 94 u_listdrip;
#X connect 0 0 8 0;
#X connect 1 0 2 1;
#X connect 2 0 1 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 8 0 9 0;
#X connect 8 1 2 1;
#X connect 8 2 3 1;
#X connect 9 0 2 0;
#X connect 9 1 3 0;
#X restore 84 87 pd retrograde;
#X obj 165 44 inlet;
#N canvas 0 0 837 606 inversion 0;
#X obj 91 201 t a a;
#X msg 123 257 \$1;
#N canvas 0 0 450 300 inversion-axis 0;
#X obj 39 39 inlet;
#X obj 39 211 outlet;
#X obj 148 37 inlet;
#X obj 123 158 -;
#X obj 148 95 * 2;
#X obj 123 128 swap;
#X obj 39 141 u_listmap;
#X connect 0 0 6 0;
#X connect 2 0 4 0;
#X connect 3 0 6 1;
#X connect 4 0 5 1;
#X connect 5 0 3 0;
#X connect 5 1 3 1;
#X connect 6 0 1 0;
#X connect 6 1 5 0;
#X restore 91 307 pd inversion-axis;
#X obj 91 149 inlet;
#X obj 91 330 outlet;
#X obj 162 150 inlet;
#X obj 162 171 route bang float;
#X obj 216 195 t b f;
#X msg 162 194 1;
#X obj 123 233 spigot;
#X msg 175 233 0;
#X text 298 171 if "inverstion <num>" then use that as axis \, otherwise
use the first element as inversion axis.;
#X connect 0 0 2 0;
#X connect 0 1 9 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 6 1 7 0;
#X connect 7 0 10 0;
#X connect 7 1 2 1;
#X connect 8 0 9 1;
#X connect 9 0 1 0;
#X connect 10 0 9 1;
#X restore 84 117 pd inversion;
#X connect 0 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 1 0;
#X restore 292 340 pd retro-inversion;
#N canvas 0 0 536 477 rotate 0;
#X obj 170 253 list prepend;
#X obj 151 44 inlet;
#X obj 256 47 inlet;
#X text 257 25 how often to rotate;
#X obj 151 280 list;
#X text 146 24 list to rotate;
#X obj 151 310 outlet;
#X text 278 232 move right part of list to left.;
#X obj 151 70 t b a b b a;
#X obj 295 153 list length;
#X obj 258 177 mod;
#X obj 258 152 f;
#X obj 170 212 list split;
#X connect 0 0 4 1;
#X connect 1 0 8 0;
#X connect 2 0 11 0;
#X connect 4 0 6 0;
#X connect 8 0 4 0;
#X connect 8 1 12 0;
#X connect 8 2 0 1;
#X connect 8 3 11 0;
#X connect 8 4 9 0;
#X connect 9 0 10 1;
#X connect 10 0 12 1;
#X connect 11 0 10 0;
#X connect 12 0 0 0;
#X connect 12 1 0 1;
#X restore 388 249 pd rotate;
#X obj 388 224 list;
#X obj 388 200 t b a;
#X obj 426 225 r \$0-thislist;
#X obj 492 62 s \$0-thislist;
#X obj 521 386 r \$0-thislist;
#X obj 329 314 r \$0-thislist;
#X obj 231 182 r \$0-thislist;
#X obj 148 243 r \$0-thislist;
#X obj 64 317 r \$0-thislist;
#X obj 28 113 route inversion retrograde transpose;
#X obj 28 286 t b a;
#X obj 536 300 route bang;
#X obj 292 113 route retro-inversion rotate;
#X obj 292 289 t b a;
#X text 590 529 report current operation;
#X text 238 549 transformed pattern;
#N canvas 228 198 627 317 LICENSE-BSD 0;
#X text 121 56 This software is copyrighted by Miller Puckette \, Reality
Jockey Ltd. and others. The terms (the "Standard Improved BSD License")
apply to all files associated with the software unless explicitly disclaimed
in individual files.;
#X text 123 148 See the file LICENSE.txt for the full license text.
;
#X restore 674 28 pd LICENSE-BSD;
#X connect 0 0 23 0;
#X connect 2 0 16 0;
#X connect 4 0 3 0;
#X connect 5 0 15 0;
#X connect 6 0 17 0;
#X connect 7 0 6 0;
#X connect 7 1 17 1;
#X connect 8 0 18 0;
#X connect 9 0 10 0;
#X connect 9 0 31 0;
#X connect 10 0 29 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X connect 14 0 4 0;
#X connect 14 1 13 0;
#X connect 15 0 3 0;
#X connect 16 0 3 0;
#X connect 17 0 3 0;
#X connect 18 0 3 0;
#X connect 19 0 3 0;
#X connect 20 0 19 0;
#X connect 21 0 20 0;
#X connect 21 1 19 1;
#X connect 22 0 20 1;
#X connect 24 0 4 1;
#X connect 25 0 8 1;
#X connect 26 0 6 1;
#X connect 27 0 5 1;
#X connect 28 0 2 1;
#X connect 29 0 30 0;
#X connect 29 1 5 0;
#X connect 29 2 7 0;
#X connect 29 3 32 0;
#X connect 30 0 2 0;
#X connect 30 1 16 1;
#X connect 31 0 13 0;
#X connect 31 1 12 0;
#X connect 32 0 33 0;
#X connect 32 1 21 0;
#X connect 32 2 14 0;
#X connect 33 0 8 0;
#X connect 33 1 18 1;
