[Pd] a little data entry patch

Thu Mar 16 13:40:40 CET 2006

Hallo,
Chuckk Hubbard hat gesagt: // Chuckk Hubbard wrote:

> This technique saves me a lot of clicking.

Hey, cool. I spiced it up a bit in attached version, which allows
completely mouse-free operation now. ;)

Ciao
-- 
 Frank Barknecht                 _ ______footils.org_ __goto10.org__
-------------- next part --------------
#N canvas 0 0 450 300 10;
#X obj 55 182 colorize;
#X msg 55 155 f f f 0 0 0 0 0 0;
#X obj 55 100 select 0 1;
#X obj 55 210 s \$1;
#X obj 55 76 inlet;
#X msg 198 156 f 0 0 f f f 0 0 0;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 4 0 2 0;
#X connect 5 0 0 0;
-------------- next part --------------
#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;
-------------- next part --------------
#N canvas 442 255 676 244 12;
#X obj 171 116 nbx 5 14 -1e+37 1e+37 0 0 empty b b 0 -6 0 10 -262144
-1 -1 2 256;
#X obj 236 116 nbx 5 14 -1e+37 1e+37 0 0 empty c c 0 -6 0 10 -258049
-262144 -1 4 256;
#X obj 103 116 nbx 5 14 -1e+37 1e+37 0 0 empty a a 0 -6 0 10 -262144
-1 -1 1 256;
#N canvas 0 0 847 711 hidden 0;
#X obj 480 89 key;
#X obj 480 114 sel 9;
#X obj 480 195 f 0;
#X obj 535 220 + 1;
#X obj 480 220 mod 3;
#X obj 480 249 route 0 1 2;
#X obj 151 268 symbol;
#X msg 356 264 a;
#X msg 375 304 c;
#X msg 365 284 b;
#X msg 92 322 \; \$2 \$1;
#X obj 92 293 pack 0 s;
#X obj 408 145 loadbang;
#X obj 443 396 highlight a;
#X obj 443 328 unpack 0 0 0;
#X msg 442 306 1 0 0;
#X msg 498 306 0 1 0;
#X msg 554 306 0 0 1;
#X obj 494 372 highlight b;
#X obj 547 351 highlight c;
#X obj 480 157 t b b;
#X obj 90 226 r \$0-number;
#X obj 537 188 s pd-input;
#X msg 537 157 vis 1 \, mouse 10 10 0 0;
#X connect 0 0 1 0;
#X connect 1 0 20 0;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 5 0 15 0;
#X connect 5 1 9 0;
#X connect 5 1 16 0;
#X connect 5 2 8 0;
#X connect 5 2 17 0;
#X connect 6 0 11 1;
#X connect 7 0 6 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 11 0 10 0;
#X connect 12 0 2 0;
#X connect 14 0 13 0;
#X connect 14 1 18 0;
#X connect 14 2 19 0;
#X connect 15 0 14 0;
#X connect 16 0 14 0;
#X connect 17 0 14 0;
#X connect 20 0 2 0;
#X connect 20 1 23 0;
#X connect 21 0 11 0;
#X connect 23 0 22 0;
#X restore 545 102 pd hidden;
#N canvas 459 637 125 72 input 0;
#X floatatom 10 10 5 0 0 0 - - #0-number;
#X text 7 37 Dont't move!;
#X restore 546 132 pd input;
#X text 66 44 hit tab \, type numbers;