[PD] create typewriter for gem

[patco]

hi,

same here,

have fun




Le lundi 20 octobre 2008 à 18:02 +0200, Georg Werner a écrit :
> hi philippe,
> 
> i played a little bit around:
> see the attached.
> g.
> 
> philippe boisnard schrieb:
> > Hello
> > 
> > I have an other question
> > 
> > Since 2 years, I create typewriter for my creations, but I think, that 
> > it's ver artisanal = metro + moses + sel (cf. example).
> > Somebody have idea to create a nice typewriter ?
> > 
> > thx
> > 
> > phil
> > 
> > 
> > 
> > 
> > 
> > 
> > ------------------------------------------------------------------------
> > 
> > _______________________________________________
> > Pd-list at iem.at mailing list
> > UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list
> 
> pièce jointe document texte brut (GEMtypewriter.pd)
> #N canvas 792 44 872 739 10;
> #X msg 203 503 32;
> #X obj 203 529 makefilename %c;
> #X obj 170 568 symbol;
> #X obj 169 600 list prepend;
> #X obj 8 365 sel 1;
> #X obj 169 624 list-l2s;
> #X obj 170 480 spigot 0;
> #X msg 215 411 1;
> #X msg 245 411 0;
> #X obj 78 471 spigot 0;
> #X msg 158 411 1;
> #X msg 187 411 0;
> #X msg 78 493 symbol;
> #X obj 537 146 any2string;
> #X obj 537 170 list split 1;
> #X obj 471 200 t b;
> #X obj 471 222 delay 100;
> #X obj 537 250 list append;
> #X obj 359 94 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
> -1;
> #X obj 568 343 makefilename %c;
> #X obj 568 364 symbol;
> #X obj 613 363 string2any;
> #X obj 568 300 t b;
> #X msg 568 321 32;
> #X text 15 222 Enter your text with the keyboard and clear it with
> 'Return'.;
> #X text 382 92 reset;
> #X msg 553 196 100;
> #X msg 591 196 1000;
> #X text 630 195 speed;
> #X obj 568 277 route 32;
> #X obj 8 262 keyname;
> #X obj 158 370 sel Return Space;
> #X obj 8 335 spigot;
> #X msg 47 307 0;
> #X msg 79 307 1;
> #X obj 359 364 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
> -1 -1;
> #X text 382 362 reset;
> #X symbolatom 62 263 10 0 0 0 - - -;
> #X obj 47 285 sel Shift_L Shift_R;
> #X text 171 285 disabled keys;
> #X msg 537 96 this is the text;
> #X msg 58 68 lighting \$1;
> #X obj 58 46 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
> ;
> #N canvas 855 130 450 300 gemwin 0;
> #X obj 132 136 gemwin;
> #X obj 67 89 outlet;
> #X obj 67 10 inlet;
> #X obj 67 41 route create;
> #X msg 67 70 set destroy;
> #X msg 142 68 set create;
> #X msg 256 112 destroy;
> #X obj 322 45 inlet;
> #X msg 132 112 create \, 1;
> #X connect 2 0 3 0;
> #X connect 3 0 4 0;
> #X connect 3 0 8 0;
> #X connect 3 1 5 0;
> #X connect 3 1 6 0;
> #X connect 4 0 1 0;
> #X connect 5 0 1 0;
> #X connect 6 0 0 0;
> #X connect 7 0 0 0;
> #X connect 8 0 0 0;
> #X restore -10 99 pd gemwin;
> #X msg -10 77 destroy;
> #X obj 410 580 gemhead;
> #X obj 410 600 translateXYZ;
> #X obj 409 654 colorRGB;
> #X obj 412 677 alpha;
> #X obj 412 698 textextruded;
> #X msg 493 681 depth 9;
> #X msg 544 681 9;
> #X obj 520 664 loadbang;
> #X floatatom 522 607 5 0 0 0 - - -;
> #X obj 408 624 rotateXYZ 0 0 0;
> #X text 464 94 click here;
> #X obj 608 550 gemhead;
> #X obj 608 711 light;
> #X msg 695 689 1 1 1;
> #X obj 622 644 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
> 1;
> #X msg 622 665 debug \$1;
> #X floatatom 688 554 5 0 0 0 - - -;
> #X obj 608 615 translateXYZ 2 0 0;
> #X obj 608 572 rotateXYZ 0 -120 0;
> #X floatatom 648 597 5 1 4 0 - - -;
> #X msg 638 689 1 1 0;
> #X connect 0 0 1 0;
> #X connect 1 0 2 1;
> #X connect 2 0 3 0;
> #X connect 3 0 5 0;
> #X connect 4 0 6 0;
> #X connect 5 0 3 1;
> #X connect 5 0 49 0;
> #X connect 6 0 2 0;
> #X connect 7 0 6 1;
> #X connect 8 0 9 1;
> #X connect 9 0 12 0;
> #X connect 10 0 9 1;
> #X connect 11 0 6 1;
> #X connect 12 0 3 1;
> #X connect 13 0 14 0;
> #X connect 14 0 15 0;
> #X connect 14 0 29 0;
> #X connect 14 1 17 1;
> #X connect 15 0 16 0;
> #X connect 16 0 17 0;
> #X connect 17 0 14 0;
> #X connect 18 0 35 0;
> #X connect 19 0 20 0;
> #X connect 20 0 3 0;
> #X connect 21 0 3 0;
> #X connect 22 0 23 0;
> #X connect 23 0 19 0;
> #X connect 26 0 16 1;
> #X connect 27 0 16 1;
> #X connect 29 0 22 0;
> #X connect 29 1 21 0;
> #X connect 30 0 32 0;
> #X connect 30 1 37 0;
> #X connect 30 1 38 0;
> #X connect 31 0 9 0;
> #X connect 31 0 10 0;
> #X connect 31 0 11 0;
> #X connect 31 1 0 0;
> #X connect 31 1 7 0;
> #X connect 31 1 8 0;
> #X connect 31 2 7 0;
> #X connect 31 2 8 0;
> #X connect 31 2 2 1;
> #X connect 32 0 4 0;
> #X connect 33 0 32 1;
> #X connect 34 0 32 1;
> #X connect 35 0 10 0;
> #X connect 35 0 11 0;
> #X connect 35 0 9 0;
> #X connect 38 0 33 0;
> #X connect 38 2 34 0;
> #X connect 38 2 31 0;
> #X connect 40 0 13 0;
> #X connect 41 0 43 1;
> #X connect 42 0 41 0;
> #X connect 43 0 44 0;
> #X connect 44 0 43 0;
> #X connect 45 0 46 0;
> #X connect 46 0 54 0;
> #X connect 47 0 48 0;
> #X connect 48 0 49 0;
> #X connect 50 0 49 0;
> #X connect 51 0 49 1;
> #X connect 52 0 50 0;
> #X connect 52 0 51 0;
> #X connect 53 0 54 2;
> #X connect 54 0 47 0;
> #X connect 56 0 63 0;
> #X connect 58 0 57 1;
> #X connect 59 0 60 0;
> #X connect 60 0 57 0;
> #X connect 61 0 63 2;
> #X connect 62 0 57 0;
> #X connect 63 0 62 0;
> #X connect 64 0 62 1;
> #X connect 65 0 57 1;
> 
> _______________________________________________
> Pd-list at iem.at mailing list
> UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list
-------------- next part --------------
#N canvas 508 52 474 551 10;
#X obj 23 18 gemhead;
#X floatatom 87 472 5 0 100 1 size - -;
#X msg 342 179 font \$1;
#X obj 342 157 openpanel;
#X obj 342 140 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 72 17 4 0 0 0 - - -;
#X obj 310 24 cnv 15 100 60 empty empty empty 20 12 0 14 -195568 -66577
0;
#N canvas 0 0 450 300 gemwin 0;
#X obj 132 136 gemwin;
#X obj 67 89 outlet;
#X obj 67 10 inlet;
#X obj 67 41 route create;
#X msg 67 70 set destroy;
#X msg 142 68 set create;
#X msg 198 112 destroy;
#X msg 132 112 create \, 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 7 0;
#X connect 3 1 5 0;
#X connect 3 1 6 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X restore 315 63 pd gemwin;
#X msg 315 44 create;
#X text 311 23 Create window:;
#X floatatom 100 17 4 0 0 0 - - -;
#X floatatom 129 17 4 0 0 0 - - -;
#N canvas 0 0 450 300 justify 0;
#X obj 137 44 inlet;
#X obj 152 233 outlet;
#X obj 152 162 list prepend justify;
#X obj 152 196 list trim;
#X obj 256 41 inlet;
#X obj 171 134 list append center;
#X obj 174 102 list append left;
#X obj 256 67 t b a;
#N canvas 0 0 450 300 save 0;
#X obj 31 75 list prepend set;
#X msg 33 137;
#X obj 37 36 inlet;
#X obj 35 177 outlet;
#X obj 50 105 loadbang;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 4 0 1 0;
#X restore 93 94 pd save;
#N canvas 0 0 450 300 save 0;
#X obj 31 75 list prepend set;
#X msg 33 137;
#X obj 37 36 inlet;
#X obj 35 177 outlet;
#X obj 50 105 loadbang;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 4 0 1 0;
#X restore 323 67 pd save;
#X connect 0 0 5 0;
#X connect 0 0 8 0;
#X connect 0 0 6 1;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 7 0;
#X connect 4 0 9 0;
#X connect 5 0 2 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 7 1 5 1;
#X connect 8 0 5 0;
#X connect 9 0 5 1;
#X restore 12 279 pd justify;
#X msg 29 251 left;
#X msg 89 254 center;
#X msg 24 225 right;
#X msg 84 229 base;
#X msg 81 206 bottom;
#X msg 75 184 top;
#X msg 55 164 middle;
#X msg 18 202 center;
#X msg 12 181 base;
#X msg 85 492 size \$1;
#X obj 175 116 netreceive 3000;
#N canvas 494 155 376 485 mad-typer 0;
#X obj 60 363 list prepend string;
#X obj 60 399 list trim;
#X obj 60 429 outlet;
#N canvas 480 0 463 613 metro-drip 0;
#X obj 29 475 list split 1;
#X obj 30 443 list append;
#X obj 13 573 outlet;
#X obj 189 4 inlet;
#X obj 139 572 outlet;
#X obj 183 220 list;
#X obj 244 106 == 0;
#X obj 177 129 spigot 1;
#X obj 177 106 r \$0-start;
#X obj 183 242 list split;
#N canvas 453 46 443 482 worder 0;
#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 138 80 pd drip;
#N canvas 0 0 450 300 count 0;
#X obj 177 91 inlet;
#X obj 179 209 outlet;
#X obj 178 153 i;
#X obj 206 154 + 1;
#X obj 217 94 inlet;
#X obj 177 123 b;
#X msg 215 116 1;
#X connect 0 0 5 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 6 0 2 1;
#X restore 49 167 pd count;
#X obj 48 307 i;
#X obj 138 32 inlet;
#X obj 173 457 outlet;
#X obj 159 339 list prepend;
#X obj 238 338 t l;
#X obj 173 403 list;
#N canvas 0 0 450 300 count 0;
#X obj 177 91 inlet;
#X obj 179 209 outlet;
#X obj 178 153 i;
#X obj 206 154 + 1;
#X obj 217 94 inlet;
#X obj 177 123 b;
#X msg 214 116 0;
#X connect 0 0 5 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 6 0 2 1;
#X restore 357 227 pd count;
#X obj 172 371 t b b;
#X obj 357 282 outlet;
#X obj 357 112 r \$0-worder;
#X obj 215 35 inlet;
#X msg 276 202 1;
#X obj 215 65 t a a a;
#X obj 256 248 t a b;
#X obj 138 54 t a b b;
#X obj 118 215 ||;
#X obj 118 186 == 32;
#X obj 275 174 sel 0;
#X obj 118 161 t a a;
#X obj 118 236 spigot;
#X obj 199 190 == 1;
#X obj 117 259 sel 1;
#X obj 227 189 == 2;
#X obj 164 238 spigot;
#X obj 59 114 t a b;
#X obj 84 283 t b b;
#X obj 90 358 print;
#X obj 155 187 == 0;
#X connect 0 0 26 0;
#X connect 0 1 9 0;
#X connect 1 0 2 1;
#X connect 2 0 5 0;
#X connect 3 0 16 0;
#X connect 5 0 6 0;
#X connect 5 0 7 1;
#X connect 6 0 5 1;
#X connect 7 0 4 0;
#X connect 7 0 28 0;
#X connect 8 0 10 0;
#X connect 9 0 7 0;
#X connect 11 0 8 0;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 22 0;
#X connect 14 1 24 0;
#X connect 14 2 19 0;
#X connect 15 0 5 0;
#X connect 15 1 5 1;
#X connect 16 0 0 0;
#X connect 16 1 5 1;
#X connect 16 2 8 1;
#X connect 16 2 1 1;
#X connect 17 0 21 0;
#X connect 18 0 17 0;
#X connect 19 0 13 0;
#X connect 20 0 18 0;
#X connect 20 1 29 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 27 0;
#X connect 24 0 25 1;
#X connect 25 0 23 0;
#X connect 26 0 20 0;
#X connect 26 1 1 0;
#X connect 27 0 1 1;
#X connect 27 1 2 0;
#X connect 29 0 17 1;
#X connect 29 0 25 0;
#X restore 232 316 pd worder;
#X obj 335 121 unpack 1 300 0 0;
#X obj 216 385 list split;
#X obj 216 362 list;
#X obj 243 424 list split 1;
#X obj 189 29 route type loop;
#N canvas 223 338 450 300 word-metro 0;
#X obj 185 9 inlet;
#X obj 155 274 outlet;
#X obj 205 214 outlet;
#X obj 288 191 outlet;
#X obj 101 119 r \$0-start;
#X msg 208 155 0;
#X msg 176 157 1;
#N canvas 484 356 450 300 drunk-metro 0;
#X obj 47 18 inlet;
#X obj 70 237 outlet;
#X obj 203 120 +;
#X obj 241 7 inlet;
#X obj 167 51 t b b b;
#X obj 204 90 i 133;
#X obj 254 88 random 3000;
#X obj 268 40 * 10;
#X obj 254 109 / 50;
#X obj 334 86 random 5;
#X obj 337 131 + 1;
#X obj 338 154 * 10;
#X obj 65 202 spigot 1;
#X obj 165 142 del 133;
#X obj 136 92 spigot 1;
#X obj 63 49 t b a a a;
#X connect 0 0 15 0;
#X connect 2 0 13 1;
#X connect 3 0 5 1;
#X connect 3 0 7 0;
#X connect 4 0 14 0;
#X connect 4 1 6 0;
#X connect 4 2 9 0;
#X connect 5 0 4 0;
#X connect 5 0 2 0;
#X connect 6 0 8 0;
#X connect 7 0 6 1;
#X connect 8 0 2 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 8 1;
#X connect 12 0 1 0;
#X connect 13 0 5 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X connect 15 0 13 0;
#X connect 15 0 12 0;
#X connect 15 2 14 1;
#X connect 15 3 12 1;
#X restore 167 238 pd drunk-metro;
#X obj 177 115 t b b b b;
#X obj 256 127 s \$0-stop;
#X obj 256 105 b;
#X obj 182 85 sel 1 0;
#X obj 366 154 outlet;
#X obj 184 34 unpack f f f;
#X obj 183 58 change;
#X obj 204 181 t a b;
#X connect 0 0 13 0;
#X connect 4 0 6 0;
#X connect 5 0 15 0;
#X connect 6 0 7 0;
#X connect 7 0 1 0;
#X connect 8 0 6 0;
#X connect 8 2 5 0;
#X connect 8 3 3 0;
#X connect 10 0 9 0;
#X connect 10 0 5 0;
#X connect 11 0 8 0;
#X connect 11 1 10 0;
#X connect 13 0 14 0;
#X connect 13 1 7 1;
#X connect 13 2 12 0;
#X connect 14 0 11 0;
#X connect 15 0 7 0;
#X connect 15 1 2 0;
#X restore 43 71 pd word-metro;
#N canvas 0 0 450 300 endloop 0;
#X obj 127 27 inlet;
#X obj 124 137 outlet;
#X obj 223 32 inlet;
#X obj 178 101 spigot 1;
#X obj 169 202 outlet;
#X obj 128 58 t b b;
#X connect 0 0 5 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 5 0 1 0;
#X connect 5 1 3 0;
#X restore 120 502 pd endloop;
#X obj 209 265 list split;
#X obj 77 142 s \$0-worder;
#X obj 28 111 t b b b;
#X obj 149 162 t b;
#X connect 0 0 2 0;
#X connect 0 1 1 1;
#X connect 0 2 17 0;
#X connect 1 0 0 0;
#X connect 3 0 15 0;
#X connect 5 0 9 0;
#X connect 6 0 7 1;
#X connect 7 0 21 0;
#X connect 8 0 7 0;
#X connect 9 1 18 0;
#X connect 10 0 13 1;
#X connect 10 1 12 1;
#X connect 11 0 17 1;
#X connect 11 1 18 1;
#X connect 11 2 6 0;
#X connect 11 3 9 1;
#X connect 12 1 14 0;
#X connect 13 0 12 0;
#X connect 14 0 0 1;
#X connect 15 0 16 0;
#X connect 15 1 11 0;
#X connect 15 2 5 1;
#X connect 16 0 20 0;
#X connect 16 1 1 1;
#X connect 16 2 21 0;
#X connect 16 3 10 1;
#X connect 17 0 4 0;
#X connect 17 1 21 0;
#X connect 18 0 1 1;
#X connect 18 0 10 0;
#X connect 20 0 1 0;
#X connect 20 1 13 0;
#X connect 20 2 19 0;
#X connect 21 0 5 0;
#X restore 59 252 pd metro-drip;
#X obj 177 347 t l;
#X msg 165 233 string;
#X obj 225 414 s \$0-currentstr;
#X obj 98 57 inlet;
#X obj 98 78 list trim;
#X msg 247 235 text;
#X obj 77 180 t a b;
#X obj 191 180 t a b;
#X obj 174 297 list;
#X obj 99 103 route string text;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 3 1 12 0;
#X connect 4 0 0 1;
#X connect 5 0 12 0;
#X connect 5 0 12 1;
#X connect 7 0 8 0;
#X connect 8 0 13 0;
#X connect 9 0 12 0;
#X connect 9 0 12 1;
#X connect 10 0 3 0;
#X connect 10 1 5 0;
#X connect 11 0 3 0;
#X connect 11 1 9 0;
#X connect 12 0 0 1;
#X connect 13 0 10 0;
#X connect 13 1 11 0;
#X connect 13 2 3 0;
#X restore 165 395 pd mad-typer;
#X obj 175 139 list prepend string;
#X obj 197 302 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 417 38 \; pd dsp 1;
#N canvas 0 0 429 387 text2string 0;
#X obj 82 147 textfile;
#X obj 82 120 until;
#X msg 133 120 rewind;
#X msg 145 84 read \$1 cr \, rewind;
#X obj 86 358 outlet;
#X obj 82 171 any2string;
#X obj 81 194 list append 10;
#X obj 81 251 list prepend string;
#X obj 85 334 list trim;
#X obj 81 224 list prepend;
#X obj 159 224 t l;
#X obj 64 286 list;
#X obj 82 64 t b b a;
#X obj 82 42 openpanel;
#X obj 82 16 inlet;
#X connect 0 0 5 0;
#X connect 0 1 1 1;
#X connect 0 1 11 0;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 9 0;
#X connect 7 0 11 1;
#X connect 8 0 4 0;
#X connect 9 0 7 0;
#X connect 9 0 10 0;
#X connect 10 0 9 1;
#X connect 11 0 8 0;
#X connect 12 0 1 0;
#X connect 12 1 2 0;
#X connect 12 1 9 1;
#X connect 12 2 3 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X restore 165 81 pd text2string;
#X obj 164 51 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 18 489 r \$0-textX;
#X obj 32 102 s \$0-textX;
#X obj 15 306 s \$0-textX;
#X obj 342 204 s \$0-textX;
#X msg 26 354 text2d;
#X msg 31 376 text3d;
#X msg 30 396 textoutline;
#X msg 33 418 textextruded;
#X obj 18 455 s \$0-textX;
#N canvas 232 84 629 521 textX 0;
#X obj 124 12 inlet;
#X obj 195 213 spigot 1;
#X msg 183 131 0;
#X msg 153 192 1;
#X msg 224 133 0;
#X msg 233 186 1;
#X obj 259 385 text2d;
#X obj 371 386 text3d;
#X obj 148 214 spigot;
#X obj 62 89 s \$0-size;
#X obj 294 365 r \$0-size;
#X obj 441 389 textoutline;
#X obj 251 213 spigot 1;
#X msg 276 134 0;
#X msg 293 179 1;
#X obj 43 139 list prepend gem_state;
#X obj 42 176 list trim;
#X obj 516 387 textextruded;
#X obj 124 48 route size text2d text3d textoutline textextruded gem_state
;
#X obj 338 211 spigot 1;
#X msg 363 132 0;
#X msg 380 177 1;
#X obj 394 333 r \$0-size;
#X obj 396 355 / 3;
#X obj 488 331 r \$0-size;
#X obj 490 353 / 3;
#X obj 568 330 r \$0-size;
#X obj 570 352 / 3;
#X msg 564 306 depth 2;
#X obj 564 280 loadbang;
#X connect 0 0 18 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 2 0 1 1;
#X connect 2 0 12 1;
#X connect 2 0 19 1;
#X connect 3 0 8 1;
#X connect 4 0 5 0;
#X connect 4 0 8 1;
#X connect 4 0 12 1;
#X connect 4 0 19 1;
#X connect 5 0 1 1;
#X connect 8 0 6 0;
#X connect 10 0 6 1;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 13 0 1 1;
#X connect 13 0 8 1;
#X connect 13 0 19 1;
#X connect 14 0 12 1;
#X connect 15 0 16 0;
#X connect 16 0 12 0;
#X connect 16 0 1 0;
#X connect 16 0 8 0;
#X connect 16 0 19 0;
#X connect 18 0 9 0;
#X connect 18 1 2 0;
#X connect 18 2 4 0;
#X connect 18 3 13 0;
#X connect 18 4 20 0;
#X connect 18 5 15 0;
#X connect 18 6 17 0;
#X connect 18 6 11 0;
#X connect 18 6 7 0;
#X connect 18 6 6 0;
#X connect 19 0 17 0;
#X connect 20 0 21 0;
#X connect 20 0 12 1;
#X connect 20 0 1 1;
#X connect 20 0 8 1;
#X connect 21 0 19 1;
#X connect 22 0 23 0;
#X connect 23 0 7 1;
#X connect 24 0 25 0;
#X connect 25 0 11 1;
#X connect 26 0 27 0;
#X connect 27 0 17 1;
#X connect 28 0 17 0;
#X connect 29 0 28 0;
#X restore 18 525 pd textX;
#X obj 165 423 s \$0-textX;
#X text 185 49 open textfile;
#X floatatom 103 59 3 -15 15 0 - - -;
#X floatatom 78 57 3 -15 15 0 - - -;
#X floatatom 127 59 3 -15 15 0 - - -;
#X obj 23 39 rotateXYZ -10 -25 0;
#X obj 31 76 translateXYZ 3 -1 0;
#X floatatom 246 301 4 1 10000 0 - - -;
#X obj 291 302 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 198 342 loop \$1 \$2 \$3 \$4;
#X floatatom 341 302 3 0 1000 0 - - -;
#X obj 193 204 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 236 206 3 1 1000 0 - - -;
#X msg 187 263 type \$1 \$2 \$3;
#X floatatom 287 204 2 0 2 0 - - -;
#X msg 251 388 string 114;
#N canvas 0 0 450 300 on|speed|packet 0;
#X obj 98 72 inlet;
#X obj 171 73 inlet;
#X obj 174 98 t b a;
#X obj 135 72 inlet;
#X obj 138 97 t b a;
#X obj 108 183 outlet;
#X obj 108 147 pack 0 50 0;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 2 1 6 2;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 4 1 6 1;
#X connect 6 0 5 0;
#X restore 187 226 pd on|speed|packet;
#N canvas 0 0 450 300 on|size|forward|offset 0;
#X obj 98 72 inlet;
#X obj 171 73 inlet;
#X obj 174 98 t b a;
#X obj 135 72 inlet;
#X obj 138 97 t b a;
#X obj 108 183 outlet;
#X obj 209 73 inlet;
#X obj 212 98 t b a;
#X obj 108 147 pack 1 300 0 0;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 2 0 8 0;
#X connect 2 1 8 2;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 4 1 8 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 1 8 3;
#X connect 8 0 5 0;
#X restore 198 321 pd on|size|forward|offset;
#X text 190 243 changes after end reached;
#X connect 0 0 45 0;
#X connect 1 0 22 0;
#X connect 2 0 33 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 45 1;
#X connect 7 0 8 0;
#X connect 8 0 7 0;
#X connect 10 0 45 2;
#X connect 11 0 45 3;
#X connect 12 0 32 0;
#X connect 13 0 12 0;
#X connect 14 0 12 1;
#X connect 15 0 12 0;
#X connect 16 0 12 1;
#X connect 17 0 12 1;
#X connect 18 0 12 1;
#X connect 19 0 12 1;
#X connect 20 0 12 0;
#X connect 21 0 12 0;
#X connect 22 0 39 0;
#X connect 23 0 25 0;
#X connect 24 0 40 0;
#X connect 25 0 24 0;
#X connect 26 0 57 0;
#X connect 28 0 24 0;
#X connect 29 0 28 0;
#X connect 30 0 39 0;
#X connect 34 0 38 0;
#X connect 35 0 38 0;
#X connect 36 0 38 0;
#X connect 37 0 38 0;
#X connect 42 0 46 2;
#X connect 43 0 46 1;
#X connect 44 0 46 3;
#X connect 45 0 46 0;
#X connect 46 0 31 0;
#X connect 47 0 57 1;
#X connect 48 0 57 2;
#X connect 49 0 24 0;
#X connect 50 0 57 3;
#X connect 51 0 56 0;
#X connect 52 0 56 1;
#X connect 53 0 24 0;
#X connect 54 0 56 2;
#X connect 55 0 40 0;
#X connect 56 0 53 0;
#X connect 57 0 49 0;