colorize.pd

#N canvas 76 188 574 603 10;
#X obj 69 339 list prepend color;
#X obj 69 362 list trim;
#N canvas 281 345 447 195 rgbtopd 0;
#X obj 35 59 expr -65536 * $i1 - 256 * $i2 - $i3 - 1 \;;
#X obj 35 25 inlet;
#X obj 35 89 outlet;
#X text 26 121 -pow(2 \, 16) * R - pow(2 \, 8) * G - pow(2 \, 0) *
B - 1;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X restore 224 152 pd rgbtopd;
#N canvas 281 345 447 195 rgbtopd 0;
#X obj 35 59 expr -65536 * $i1 - 256 * $i2 - $i3 - 1 \;;
#X obj 35 25 inlet;
#X obj 35 89 outlet;
#X text 26 121 -pow(2 \, 16) * R - pow(2 \, 8) * G - pow(2 \, 0) *
B - 1;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X restore 144 152 pd rgbtopd;
#N canvas 281 345 447 195 rgbtopd 0;
#X obj 35 59 expr -65536 * $i1 - 256 * $i2 - $i3 - 1 \;;
#X obj 35 25 inlet;
#X obj 35 89 outlet;
#X text 26 121 -pow(2 \, 16) * R - pow(2 \, 8) * G - pow(2 \, 0) *
B - 1;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X restore 69 151 pd rgbtopd;
#N canvas 362 262 450 300 hexcolor 0;
#X obj 152 168 * 16;
#X obj 152 143 t f f;
#X obj 152 201 +;
#X obj 127 38 inlet;
#X obj 125 61 t b a b;
#X obj 133 252 list prepend;
#X obj 221 255 t a;
#X obj 99 290 list;
#X obj 101 314 outlet;
#N canvas 0 0 533 407 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 152 94 pd drip;
#N canvas 360 251 450 300 hextonum 0;
#X obj 90 96 select a b c d e f;
#X obj 90 128 10;
#X obj 146 131 12;
#X obj 118 130 11;
#X obj 178 130 13;
#X obj 205 131 14;
#X obj 236 130 15;
#X obj 268 131 moses 10;
#X obj 152 238 outlet;
#X obj 268 162 moses 0;
#X obj 90 37 inlet;
#X obj 90 60 list;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 0 2 2 0;
#X connect 0 3 4 0;
#X connect 0 4 5 0;
#X connect 0 5 6 0;
#X connect 0 6 7 0;
#X connect 1 0 8 0;
#X connect 2 0 8 0;
#X connect 3 0 8 0;
#X connect 4 0 8 0;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 9 1 8 0;
#X connect 10 0 11 0;
#X connect 11 0 0 0;
#X restore 152 117 pd hextonum;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 1 1 2 1;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 4 1 9 0;
#X connect 4 2 5 1;
#X connect 5 0 6 0;
#X connect 5 0 7 1;
#X connect 6 0 5 1;
#X connect 7 0 8 0;
#X connect 9 0 10 0;
#X connect 10 0 1 0;
#X restore 69 59 pd hexcolor;
#X obj 69 86 list split 3;
#X obj 144 109 list split 3;
#N canvas 0 0 655 388 rotate2 0;
#X obj 173 193 list prepend;
#X obj 151 44 inlet;
#X obj 259 115 inlet;
#X text 311 115 how often to rotate;
#X obj 151 220 list;
#X text 198 43 list to rotate;
#X obj 151 250 outlet;
#X text 267 194 move right part of list to left.;
#X obj 151 70 t b a b;
#X obj 173 152 list split 2;
#X connect 0 0 4 1;
#X connect 1 0 8 0;
#X connect 2 0 9 1;
#X connect 4 0 6 0;
#X connect 8 0 4 0;
#X connect 8 1 9 0;
#X connect 8 2 0 1;
#X connect 9 0 0 0;
#X connect 9 1 0 1;
#X restore 356 318 pd rotate2;
#N canvas 0 0 655 388 rotate1 0;
#X obj 173 193 list prepend;
#X obj 151 44 inlet;
#X obj 259 115 inlet;
#X text 311 115 how often to rotate;
#X obj 151 220 list;
#X text 198 43 list to rotate;
#X obj 151 250 outlet;
#X text 267 194 move right part of list to left.;
#X obj 151 70 t b a b;
#X obj 173 152 list split 1;
#X connect 0 0 4 1;
#X connect 1 0 8 0;
#X connect 2 0 9 1;
#X connect 4 0 6 0;
#X connect 8 0 4 0;
#X connect 8 1 9 0;
#X connect 8 2 0 1;
#X connect 9 0 0 0;
#X connect 9 1 0 1;
#X restore 211 320 pd rotate1;
#X obj 69 386 outlet;
#X obj 211 341 list prepend color;
#X obj 211 364 list trim;
#X obj 211 388 outlet;
#X obj 356 343 list prepend color;
#X obj 356 366 list trim;
#X obj 356 390 outlet;
#X obj 69 33 inlet;
#X obj 69 178 pack 0 0 0;
#X connect 0 0 1 0;
#X connect 1 0 10 0;
#X connect 2 0 18 2;
#X connect 3 0 18 1;
#X connect 4 0 18 0;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 6 1 7 0;
#X connect 7 0 3 0;
#X connect 7 1 2 0;
#X connect 8 0 14 0;
#X connect 9 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 17 0 5 0;
#X connect 18 0 0 0;
#X connect 18 0 9 0;
#X connect 18 0 8 0;