AMS.pd

#N canvas 509 287 700 438 10;
#X obj 50 129 gemwin;
#X msg 50 102 create;
#X msg 50 77 destroy;
#X obj 32 130 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#N canvas 559 305 676 313 color 0;
#X msg 25 156 color \$1 \$2 \$3;
#X obj 25 120 pack 0 0 0;
#X obj 25 191 outlet;
#X floatatom 25 70 5 0 0 0 - - -;
#X floatatom 57 87 5 0 0 0 - - -;
#X floatatom 90 104 5 0 0 0 - - -;
#X obj 100 121 t b;
#X text 24 13 color R G B - the Red Green and Blue values range from
0 to 1 in floating point. Black is 0 0 0 \, white is 1 1 1 \, red is
1 0 0 and so on.;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 1 1;
#X connect 4 0 6 0;
#X connect 5 0 1 2;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X restore 50 52 pd color;
#N canvas 629 403 518 312 positioning 0;
#X obj 52 209 outlet;
#X msg 52 138 dimen \$1 \$2;
#X msg 250 139 offset \$1 \$2;
#X obj 52 104 pack 0 0;
#X floatatom 52 77 5 0 0 0 - - -;
#X floatatom 103 77 5 0 0 0 - - -;
#X obj 113 104 t b;
#X obj 250 106 pack 0 0;
#X floatatom 250 79 5 0 0 0 - - -;
#X floatatom 301 79 5 0 0 0 - - -;
#X obj 311 106 t b;
#X text 39 24 offset is the position on the screen where the window
originates. this is usually the top left hand corner;
#X text 41 1 dimen is the size of the window in pixels;
#X text 43 280 NOTE: these are only changed when the window is created!
;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 7 0 2 0;
#X connect 8 0 7 0;
#X connect 9 0 7 1;
#X connect 9 0 10 0;
#X connect 10 0 7 0;
#X restore 50 25 pd positioning;
#N canvas 623 314 586 472 pix_blending 0;
#X obj 42 16 gemhead;
#X floatatom 168 401 5 0 0 0 - - -;
#X obj 24 16 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 281 16 gemhead;
#X obj 263 16 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 42 108 pix_film;
#X msg 42 83 auto \$1;
#X msg 114 53 open \$1;
#X obj 45 53 openpanel;
#X obj 26 55 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 25 84 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 105 108 t f;
#X obj 281 104 pix_film;
#X msg 281 79 auto \$1;
#X msg 353 49 open \$1;
#X obj 284 49 openpanel;
#X obj 265 51 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 264 80 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 344 104 t f;
#X obj 42 227 pix_texture;
#X obj 42 200 pix_mix;
#N canvas 603 412 514 308 xfade 0;
#X obj 35 31 inlet;
#X obj 35 249 outlet;
#X obj 35 84 - 255;
#X obj 35 109 abs;
#X floatatom 35 134 5 0 0 0 - - -;
#X obj 35 166 pack 0 0;
#X floatatom 86 47 5 0 0 0 - - -;
#X msg 35 210 gain \$1 \$2;
#X obj 86 184 t b;
#X connect 0 0 2 0;
#X connect 0 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 5 1;
#X connect 6 0 8 0;
#X connect 7 0 1 0;
#X connect 8 0 5 0;
#X restore 68 164 pd xfade;
#X obj 61 143 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 10900 1;
#X obj 262 230 int 0;
#X obj 311 230 + 2;
#X floatatom 262 263 0 0 0 0 - - -;
#X obj 262 196 metro 50;
#X msg 334 144 1;
#X msg 378 158 0;
#X obj 223 300 rotate 0 1 0;
#X obj 223 341 translate 2 1 0 0;
#X floatatom 15 330 0 0 0 0 - - -;
#X floatatom 153 101 0 0 0 0 - - -;
#X obj 153 73 ctlin 74;
#N canvas 0 22 462 312 scaler 0;
#X obj 44 103 inlet;
#X obj 44 275 outlet;
#X obj 213 145 loadbang;
#X obj 44 239 expr $f4 + ( $f5 - $f4 )*(pow( $f6 \, ($f1- $f2 )/( $f3
- $f2 ))-1)/( $f6 -1);
#X obj 213 167 t b b b b b;
#X obj 113 211 f \$1;
#X obj 183 212 f \$2;
#X obj 253 210 f \$3;
#X obj 323 212 f \$4;
#X obj 393 212 f \$5;
#X text 173 51 Exponential Scaler;
#X obj 253 101 inlet;
#X obj 113 102 inlet;
#X obj 323 100 inlet;
#X obj 183 101 inlet;
#X obj 393 99 inlet;
#X text 75 308 David McCallum \, 2002 - http://mentalfloss.ca/sintheta
;
#X text 85 320 Based on the equation from the jMax [scale] object;
#X obj 186 15 cnv 15 15 15 empty empty d-scale 0 8 1 14 -262144 -66577
0;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 4 3 8 0;
#X connect 4 4 9 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 3 3;
#X connect 8 0 3 4;
#X connect 9 0 3 5;
#X connect 11 0 7 0;
#X connect 12 0 5 0;
#X connect 13 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 69 390 pd scaler;
#X floatatom 74 412 10 0 0 0 - - -;
#X floatatom 16 353 5 0 0 0 - - -;
#X floatatom 56 353 5 0 0 0 - - -;
#X floatatom 95 353 5 0 0 0 - - -;
#X floatatom 139 352 5 0 0 0 - - -;
#X floatatom 180 353 5 0 0 0 - - -;
#X floatatom 222 354 5 0 0 0 - - -;
#X msg 58 330 0;
#X msg 139 330 0;
#X msg 221 326 10;
#X msg 90 329 127;
#X msg 177 329 5;
#X obj 14 303 ctlin 71;
#X floatatom 350 313 5 0 0 0 - - -;
#X floatatom 415 307 5 0 0 0 - - -;
#N canvas 244 201 974 508 midistuffa 0;
#X floatatom 16 236 0 0 0 0 - - -;
#N canvas 0 22 462 312 scaler 0;
#X obj 44 103 inlet;
#X obj 44 275 outlet;
#X obj 213 145 loadbang;
#X obj 44 239 expr $f4 + ( $f5 - $f4 )*(pow( $f6 \, ($f1- $f2 )/( $f3
- $f2 ))-1)/( $f6 -1);
#X obj 213 167 t b b b b b;
#X obj 113 211 f \$1;
#X obj 183 212 f \$2;
#X obj 253 210 f \$3;
#X obj 323 212 f \$4;
#X obj 393 212 f \$5;
#X text 173 51 Exponential Scaler;
#X obj 253 101 inlet;
#X obj 113 102 inlet;
#X obj 323 100 inlet;
#X obj 183 101 inlet;
#X obj 393 99 inlet;
#X text 75 308 David McCallum \, 2002 - http://mentalfloss.ca/sintheta
;
#X text 85 320 Based on the equation from the jMax [scale] object;
#X obj 186 15 cnv 15 15 15 empty empty d-scale 0 8 1 14 -262144 -66577
0;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 4 3 8 0;
#X connect 4 4 9 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 3 3;
#X connect 8 0 3 4;
#X connect 9 0 3 5;
#X connect 11 0 7 0;
#X connect 12 0 5 0;
#X connect 13 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 70 296 pd scaler;
#X floatatom 75 318 10 0 0 0 - - -;
#X floatatom 17 259 5 0 0 0 - - -;
#X floatatom 57 259 5 0 0 0 - - -;
#X floatatom 96 259 5 0 0 0 - - -;
#X floatatom 140 258 5 0 0 0 - - -;
#X floatatom 181 259 5 0 0 0 - - -;
#X msg 59 236 0;
#X msg 140 236 0;
#X msg 91 235 127;
#X msg 178 235 5;
#X obj 14 210 ctlin 76;
#X floatatom 226 257 5 0 0 0 - - -;
#X msg 223 233 10;
#X floatatom 20 112 0 0 0 0 - - -;
#N canvas 0 22 462 312 scaler 0;
#X obj 44 103 inlet;
#X obj 44 275 outlet;
#X obj 213 145 loadbang;
#X obj 44 239 expr $f4 + ( $f5 - $f4 )*(pow( $f6 \, ($f1- $f2 )/( $f3
- $f2 ))-1)/( $f6 -1);
#X obj 213 167 t b b b b b;
#X obj 113 211 f \$1;
#X obj 183 212 f \$2;
#X obj 253 210 f \$3;
#X obj 323 212 f \$4;
#X obj 393 212 f \$5;
#X text 173 51 Exponential Scaler;
#X obj 253 101 inlet;
#X obj 113 102 inlet;
#X obj 323 100 inlet;
#X obj 183 101 inlet;
#X obj 393 99 inlet;
#X text 75 308 David McCallum \, 2002 - http://mentalfloss.ca/sintheta
;
#X text 85 320 Based on the equation from the jMax [scale] object;
#X obj 186 15 cnv 15 15 15 empty empty d-scale 0 8 1 14 -262144 -66577
0;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 4 3 8 0;
#X connect 4 4 9 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 3 3;
#X connect 8 0 3 4;
#X connect 9 0 3 5;
#X connect 11 0 7 0;
#X connect 12 0 5 0;
#X connect 13 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 74 172 pd scaler;
#X floatatom 79 194 10 0 0 0 - - -;
#X floatatom 21 135 5 0 0 0 - - -;
#X floatatom 61 135 5 0 0 0 - - -;
#X floatatom 100 135 5 0 0 0 - - -;
#X floatatom 144 134 5 0 0 0 - - -;
#X floatatom 185 135 5 0 0 0 - - -;
#X msg 63 112 0;
#X msg 144 112 0;
#X msg 95 111 127;
#X msg 182 111 5;
#X floatatom 230 133 5 0 0 0 - - -;
#X msg 227 109 10;
#X obj 75 346 s ctl76;
#X obj 18 86 ctlin 77;
#X obj 92 215 s ctl77;
#X obj 174 44 loadbang;
#X floatatom 286 235 0 0 0 0 - - -;
#N canvas 0 22 462 312 scaler 0;
#X obj 44 103 inlet;
#X obj 44 275 outlet;
#X obj 213 145 loadbang;
#X obj 44 239 expr $f4 + ( $f5 - $f4 )*(pow( $f6 \, ($f1- $f2 )/( $f3
- $f2 ))-1)/( $f6 -1);
#X obj 213 167 t b b b b b;
#X obj 113 211 f \$1;
#X obj 183 212 f \$2;
#X obj 253 210 f \$3;
#X obj 323 212 f \$4;
#X obj 393 212 f \$5;
#X text 173 51 Exponential Scaler;
#X obj 253 101 inlet;
#X obj 113 102 inlet;
#X obj 323 100 inlet;
#X obj 183 101 inlet;
#X obj 393 99 inlet;
#X text 75 308 David McCallum \, 2002 - http://mentalfloss.ca/sintheta
;
#X text 85 320 Based on the equation from the jMax [scale] object;
#X obj 186 15 cnv 15 15 15 empty empty d-scale 0 8 1 14 -262144 -66577
0;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 4 3 8 0;
#X connect 4 4 9 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 3 3;
#X connect 8 0 3 4;
#X connect 9 0 3 5;
#X connect 11 0 7 0;
#X connect 12 0 5 0;
#X connect 13 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 340 295 pd scaler;
#X floatatom 345 317 10 0 0 0 - - -;
#X floatatom 287 258 5 0 0 0 - - -;
#X floatatom 327 258 5 0 0 0 - - -;
#X floatatom 366 258 5 0 0 0 - - -;
#X floatatom 410 257 5 0 0 0 - - -;
#X floatatom 451 258 5 0 0 0 - - -;
#X msg 329 235 0;
#X msg 410 235 0;
#X msg 361 234 127;
#X msg 448 234 5;
#X floatatom 496 256 5 0 0 0 - - -;
#X msg 493 232 10;
#X floatatom 290 111 0 0 0 0 - - -;
#N canvas 0 22 462 312 scaler 0;
#X obj 44 103 inlet;
#X obj 44 275 outlet;
#X obj 213 145 loadbang;
#X obj 44 239 expr $f4 + ( $f5 - $f4 )*(pow( $f6 \, ($f1- $f2 )/( $f3
- $f2 ))-1)/( $f6 -1);
#X obj 213 167 t b b b b b;
#X obj 113 211 f \$1;
#X obj 183 212 f \$2;
#X obj 253 210 f \$3;
#X obj 323 212 f \$4;
#X obj 393 212 f \$5;
#X text 173 51 Exponential Scaler;
#X obj 253 101 inlet;
#X obj 113 102 inlet;
#X obj 323 100 inlet;
#X obj 183 101 inlet;
#X obj 393 99 inlet;
#X text 75 308 David McCallum \, 2002 - http://mentalfloss.ca/sintheta
;
#X text 85 320 Based on the equation from the jMax [scale] object;
#X obj 186 15 cnv 15 15 15 empty empty d-scale 0 8 1 14 -262144 -66577
0;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 4 3 8 0;
#X connect 4 4 9 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 3 3;
#X connect 8 0 3 4;
#X connect 9 0 3 5;
#X connect 11 0 7 0;
#X connect 12 0 5 0;
#X connect 13 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 344 171 pd scaler;
#X floatatom 349 193 10 0 0 0 - - -;
#X floatatom 291 134 5 0 0 0 - - -;
#X floatatom 331 134 5 0 0 0 - - -;
#X floatatom 370 134 5 0 0 0 - - -;
#X floatatom 414 133 5 0 0 0 - - -;
#X floatatom 455 134 5 0 0 0 - - -;
#X msg 333 111 0;
#X msg 414 111 0;
#X msg 365 110 127;
#X msg 452 110 5;
#X floatatom 500 132 5 0 0 0 - - -;
#X msg 497 108 10;
#X obj 444 43 loadbang;
#X obj 362 214 s ctl78;
#X obj 345 344 s ctl6;
#X obj 289 85 ctlin 78;
#X obj 284 209 ctlin 6;
#X floatatom 556 99 0 0 0 0 - - -;
#N canvas 0 22 462 312 scaler 0;
#X obj 44 103 inlet;
#X obj 44 275 outlet;
#X obj 213 145 loadbang;
#X obj 44 239 expr $f4 + ( $f5 - $f4 )*(pow( $f6 \, ($f1- $f2 )/( $f3
- $f2 ))-1)/( $f6 -1);
#X obj 213 167 t b b b b b;
#X obj 113 211 f \$1;
#X obj 183 212 f \$2;
#X obj 253 210 f \$3;
#X obj 323 212 f \$4;
#X obj 393 212 f \$5;
#X text 173 51 Exponential Scaler;
#X obj 253 101 inlet;
#X obj 113 102 inlet;
#X obj 323 100 inlet;
#X obj 183 101 inlet;
#X obj 393 99 inlet;
#X text 75 308 David McCallum \, 2002 - http://mentalfloss.ca/sintheta
;
#X text 85 320 Based on the equation from the jMax [scale] object;
#X obj 186 15 cnv 15 15 15 empty empty d-scale 0 8 1 14 -262144 -66577
0;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 4 3 8 0;
#X connect 4 4 9 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 3 3;
#X connect 8 0 3 4;
#X connect 9 0 3 5;
#X connect 11 0 7 0;
#X connect 12 0 5 0;
#X connect 13 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 610 159 pd scaler;
#X floatatom 557 122 5 0 0 0 - - -;
#X floatatom 597 122 5 0 0 0 - - -;
#X floatatom 636 122 5 0 0 0 - - -;
#X floatatom 680 121 5 0 0 0 - - -;
#X floatatom 721 122 5 0 0 0 - - -;
#X msg 599 99 0;
#X msg 680 99 0;
#X msg 631 98 127;
#X floatatom 766 120 5 0 0 0 - - -;
#X msg 763 96 10;
#X obj 710 31 loadbang;
#X obj 555 72 ctlin 10;
#X floatatom 617 183 10 0 0 0 - - -;
#X msg 717 98 255;
#X obj 617 211 s fade;
#X floatatom 569 269 0 0 0 0 - - -;
#N canvas 0 22 462 312 scaler 0;
#X obj 44 103 inlet;
#X obj 44 275 outlet;
#X obj 213 145 loadbang;
#X obj 44 239 expr $f4 + ( $f5 - $f4 )*(pow( $f6 \, ($f1- $f2 )/( $f3
- $f2 ))-1)/( $f6 -1);
#X obj 213 167 t b b b b b;
#X obj 113 211 f \$1;
#X obj 183 212 f \$2;
#X obj 253 210 f \$3;
#X obj 323 212 f \$4;
#X obj 393 212 f \$5;
#X text 173 51 Exponential Scaler;
#X obj 253 101 inlet;
#X obj 113 102 inlet;
#X obj 323 100 inlet;
#X obj 183 101 inlet;
#X obj 393 99 inlet;
#X text 75 308 David McCallum \, 2002 - http://mentalfloss.ca/sintheta
;
#X text 85 320 Based on the equation from the jMax [scale] object;
#X obj 186 15 cnv 15 15 15 empty empty d-scale 0 8 1 14 -262144 -66577
0;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 4 3 8 0;
#X connect 4 4 9 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 3 3;
#X connect 8 0 3 4;
#X connect 9 0 3 5;
#X connect 11 0 7 0;
#X connect 12 0 5 0;
#X connect 13 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 623 329 pd scaler;
#X floatatom 570 292 5 0 0 0 - - -;
#X floatatom 610 292 5 0 0 0 - - -;
#X floatatom 649 292 5 0 0 0 - - -;
#X floatatom 693 291 5 0 0 0 - - -;
#X floatatom 734 292 5 0 0 0 - - -;
#X msg 612 269 0;
#X msg 693 269 0;
#X msg 644 268 127;
#X floatatom 779 290 5 0 0 0 - - -;
#X msg 776 266 10;
#X obj 723 201 loadbang;
#X floatatom 630 353 10 0 0 0 - - -;
#X obj 567 242 ctlin 5;
#X obj 630 381 s ctl5;
#X msg 730 268 5;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 29 0;
#X connect 3 0 1 0;
#X connect 4 0 1 1;
#X connect 5 0 1 2;
#X connect 6 0 1 3;
#X connect 7 0 1 4;
#X connect 8 0 4 0;
#X connect 9 0 6 0;
#X connect 10 0 5 0;
#X connect 11 0 7 0;
#X connect 12 0 0 0;
#X connect 13 0 1 5;
#X connect 14 0 13 0;
#X connect 15 0 18 0;
#X connect 16 0 17 0;
#X connect 17 0 31 0;
#X connect 18 0 16 0;
#X connect 19 0 16 1;
#X connect 20 0 16 2;
#X connect 21 0 16 3;
#X connect 22 0 16 4;
#X connect 23 0 19 0;
#X connect 24 0 21 0;
#X connect 25 0 20 0;
#X connect 26 0 22 0;
#X connect 27 0 16 5;
#X connect 28 0 27 0;
#X connect 30 0 15 0;
#X connect 32 0 23 0;
#X connect 32 0 25 0;
#X connect 32 0 24 0;
#X connect 32 0 26 0;
#X connect 32 0 28 0;
#X connect 32 0 14 0;
#X connect 32 0 11 0;
#X connect 32 0 9 0;
#X connect 32 0 10 0;
#X connect 32 0 8 0;
#X connect 33 0 36 0;
#X connect 34 0 35 0;
#X connect 35 0 63 0;
#X connect 36 0 34 0;
#X connect 37 0 34 1;
#X connect 38 0 34 2;
#X connect 39 0 34 3;
#X connect 40 0 34 4;
#X connect 41 0 37 0;
#X connect 42 0 39 0;
#X connect 43 0 38 0;
#X connect 44 0 40 0;
#X connect 45 0 34 5;
#X connect 46 0 45 0;
#X connect 47 0 50 0;
#X connect 48 0 49 0;
#X connect 49 0 62 0;
#X connect 50 0 48 0;
#X connect 51 0 48 1;
#X connect 52 0 48 2;
#X connect 53 0 48 3;
#X connect 54 0 48 4;
#X connect 55 0 51 0;
#X connect 56 0 53 0;
#X connect 57 0 52 0;
#X connect 58 0 54 0;
#X connect 59 0 48 5;
#X connect 60 0 59 0;
#X connect 61 0 55 0;
#X connect 61 0 57 0;
#X connect 61 0 56 0;
#X connect 61 0 58 0;
#X connect 61 0 60 0;
#X connect 61 0 46 0;
#X connect 61 0 44 0;
#X connect 61 0 42 0;
#X connect 61 0 43 0;
#X connect 61 0 41 0;
#X connect 64 0 47 0;
#X connect 65 0 33 0;
#X connect 66 0 68 0;
#X connect 67 0 80 0;
#X connect 68 0 67 0;
#X connect 69 0 67 1;
#X connect 70 0 67 2;
#X connect 71 0 67 3;
#X connect 72 0 67 4;
#X connect 73 0 69 0;
#X connect 74 0 71 0;
#X connect 75 0 70 0;
#X connect 76 0 67 5;
#X connect 77 0 76 0;
#X connect 78 0 73 0;
#X connect 78 0 75 0;
#X connect 78 0 74 0;
#X connect 78 0 81 0;
#X connect 78 0 77 0;
#X connect 79 0 66 0;
#X connect 80 0 82 0;
#X connect 81 0 72 0;
#X connect 83 0 85 0;
#X connect 84 0 96 0;
#X connect 85 0 84 0;
#X connect 86 0 84 1;
#X connect 87 0 84 2;
#X connect 88 0 84 3;
#X connect 89 0 84 4;
#X connect 90 0 86 0;
#X connect 91 0 88 0;
#X connect 92 0 87 0;
#X connect 93 0 84 5;
#X connect 94 0 93 0;
#X connect 95 0 90 0;
#X connect 95 0 92 0;
#X connect 95 0 91 0;
#X connect 95 0 99 0;
#X connect 95 0 94 0;
#X connect 96 0 98 0;
#X connect 97 0 83 0;
#X connect 99 0 89 0;
#X restore 318 380 pd midistuffa;
#X obj 97 288 loadbang;
#X obj 219 424 cube;
#X connect 0 0 5 0;
#X connect 1 0 52 1;
#X connect 2 0 0 0;
#X connect 3 0 12 0;
#X connect 4 0 3 0;
#X connect 5 0 20 0;
#X connect 5 2 11 0;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 6 0;
#X connect 11 0 5 1;
#X connect 12 0 20 1;
#X connect 12 2 18 0;
#X connect 13 0 12 0;
#X connect 14 0 12 0;
#X connect 15 0 14 0;
#X connect 16 0 15 0;
#X connect 17 0 13 0;
#X connect 18 0 12 1;
#X connect 19 0 29 0;
#X connect 20 0 19 0;
#X connect 21 0 20 0;
#X connect 22 0 21 0;
#X connect 23 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 23 1;
#X connect 25 0 29 1;
#X connect 26 0 23 0;
#X connect 27 0 26 0;
#X connect 28 0 26 0;
#X connect 29 0 30 0;
#X connect 30 0 52 0;
#X connect 31 0 36 0;
#X connect 32 0 22 0;
#X connect 33 0 32 0;
#X connect 34 0 35 0;
#X connect 35 0 1 0;
#X connect 36 0 34 0;
#X connect 37 0 34 1;
#X connect 38 0 34 2;
#X connect 39 0 34 3;
#X connect 40 0 34 4;
#X connect 41 0 34 5;
#X connect 42 0 37 0;
#X connect 43 0 39 0;
#X connect 44 0 41 0;
#X connect 45 0 38 0;
#X connect 46 0 40 0;
#X connect 47 0 31 0;
#X connect 48 0 30 1;
#X connect 49 0 30 2;
#X connect 51 0 42 0;
#X connect 51 0 45 0;
#X connect 51 0 43 0;
#X connect 51 0 46 0;
#X restore 203 34 pd pix_blending;
#N canvas 0 38 1062 604 GL_blending 0;
#X obj 42 16 gemhead;
#X floatatom 80 276 5 0 0 0 - - -;
#X obj 24 16 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 40 203 alpha;
#X obj 6 181 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 281 16 gemhead;
#X floatatom 324 262 5 0 0 0 - - -;
#X obj 263 16 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 281 168 alpha;
#X obj 262 169 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 155 194 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 8300 1;
#N canvas 90 460 514 308 xfade 0;
#X obj 80 18 inlet;
#X obj 80 223 outlet;
#X obj 169 224 outlet;
#X obj 80 81 - 127;
#X obj 80 108 abs;
#X obj 80 140 / 127;
#X obj 169 34 / 127;
#X floatatom 80 170 5 0 0 0 - - -;
#X floatatom 169 172 5 0 0 0 - - -;
#X msg 169 196 1 1 1 \$1;
#X msg 80 196 1 1 1 \$1;
#X connect 0 0 3 0;
#X connect 0 0 6 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 8 0;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 9 0 2 0;
#X connect 10 0 1 0;
#X restore 144 223 pd xfade;
#X obj 42 108 pix_film;
#X msg 42 83 auto \$1;
#X msg 114 53 open \$1;
#X obj 45 53 openpanel;
#X obj 26 55 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 25 84 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 105 108 t f;
#X obj 281 104 pix_film;
#X msg 281 79 auto \$1;
#X msg 353 49 open \$1;
#X obj 284 49 openpanel;
#X obj 265 51 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 264 80 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 344 104 t f;
#X obj 40 173 pix_texture;
#X obj 281 138 pix_texture;
#X obj 42 294 rectangle 4 3;
#X floatatom 128 277 5 0 0 0 - - -;
#X obj 281 293 rectangle 4 3;
#X floatatom 367 275 5 0 0 0 - - -;
#X obj 42 239 color 0 0 0 0;
#X obj 285 218 color 0 0 0 0;
#X obj 383 237 r ctl76;
#X obj 176 86 ctlin;
#X floatatom 190 110 5 0 0 0 - - -;
#X obj 322 238 r ctl77;
#N canvas 436 215 966 500 midistuff 0;
#X floatatom 16 236 0 0 0 0 - - -;
#N canvas 0 22 462 312 scaler 0;
#X obj 44 103 inlet;
#X obj 44 275 outlet;
#X obj 213 145 loadbang;
#X obj 44 239 expr $f4 + ( $f5 - $f4 )*(pow( $f6 \, ($f1- $f2 )/( $f3
- $f2 ))-1)/( $f6 -1);
#X obj 213 167 t b b b b b;
#X obj 113 211 f \$1;
#X obj 183 212 f \$2;
#X obj 253 210 f \$3;
#X obj 323 212 f \$4;
#X obj 393 212 f \$5;
#X text 173 51 Exponential Scaler;
#X obj 253 101 inlet;
#X obj 113 102 inlet;
#X obj 323 100 inlet;
#X obj 183 101 inlet;
#X obj 393 99 inlet;
#X text 75 308 David McCallum \, 2002 - http://mentalfloss.ca/sintheta
;
#X text 85 320 Based on the equation from the jMax [scale] object;
#X obj 186 15 cnv 15 15 15 empty empty d-scale 0 8 1 14 -262144 -66577
0;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 4 3 8 0;
#X connect 4 4 9 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 3 3;
#X connect 8 0 3 4;
#X connect 9 0 3 5;
#X connect 11 0 7 0;
#X connect 12 0 5 0;
#X connect 13 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 70 296 pd scaler;
#X floatatom 75 318 10 0 0 0 - - -;
#X floatatom 17 259 5 0 0 0 - - -;
#X floatatom 57 259 5 0 0 0 - - -;
#X floatatom 96 259 5 0 0 0 - - -;
#X floatatom 140 258 5 0 0 0 - - -;
#X floatatom 181 259 5 0 0 0 - - -;
#X msg 59 236 0;
#X msg 140 236 0;
#X msg 91 235 127;
#X msg 178 235 5;
#X obj 14 210 ctlin 76;
#X floatatom 226 257 5 0 0 0 - - -;
#X msg 223 233 10;
#X floatatom 20 112 0 0 0 0 - - -;
#N canvas 0 22 462 312 scaler 0;
#X obj 44 103 inlet;
#X obj 44 275 outlet;
#X obj 213 145 loadbang;
#X obj 44 239 expr $f4 + ( $f5 - $f4 )*(pow( $f6 \, ($f1- $f2 )/( $f3
- $f2 ))-1)/( $f6 -1);
#X obj 213 167 t b b b b b;
#X obj 113 211 f \$1;
#X obj 183 212 f \$2;
#X obj 253 210 f \$3;
#X obj 323 212 f \$4;
#X obj 393 212 f \$5;
#X text 173 51 Exponential Scaler;
#X obj 253 101 inlet;
#X obj 113 102 inlet;
#X obj 323 100 inlet;
#X obj 183 101 inlet;
#X obj 393 99 inlet;
#X text 75 308 David McCallum \, 2002 - http://mentalfloss.ca/sintheta
;
#X text 85 320 Based on the equation from the jMax [scale] object;
#X obj 186 15 cnv 15 15 15 empty empty d-scale 0 8 1 14 -262144 -66577
0;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 4 3 8 0;
#X connect 4 4 9 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 3 3;
#X connect 8 0 3 4;
#X connect 9 0 3 5;
#X connect 11 0 7 0;
#X connect 12 0 5 0;
#X connect 13 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 74 172 pd scaler;
#X floatatom 79 194 10 0 0 0 - - -;
#X floatatom 21 135 5 0 0 0 - - -;
#X floatatom 61 135 5 0 0 0 - - -;
#X floatatom 100 135 5 0 0 0 - - -;
#X floatatom 144 134 5 0 0 0 - - -;
#X floatatom 185 135 5 0 0 0 - - -;
#X msg 63 112 0;
#X msg 144 112 0;
#X msg 95 111 127;
#X msg 182 111 5;
#X floatatom 230 133 5 0 0 0 - - -;
#X msg 227 109 10;
#X obj 75 346 s ctl76;
#X obj 18 86 ctlin 77;
#X obj 92 215 s ctl77;
#X obj 174 44 loadbang;
#X floatatom 286 235 0 0 0 0 - - -;
#N canvas 0 22 462 312 scaler 0;
#X obj 44 103 inlet;
#X obj 44 275 outlet;
#X obj 213 145 loadbang;
#X obj 44 239 expr $f4 + ( $f5 - $f4 )*(pow( $f6 \, ($f1- $f2 )/( $f3
- $f2 ))-1)/( $f6 -1);
#X obj 213 167 t b b b b b;
#X obj 113 211 f \$1;
#X obj 183 212 f \$2;
#X obj 253 210 f \$3;
#X obj 323 212 f \$4;
#X obj 393 212 f \$5;
#X text 173 51 Exponential Scaler;
#X obj 253 101 inlet;
#X obj 113 102 inlet;
#X obj 323 100 inlet;
#X obj 183 101 inlet;
#X obj 393 99 inlet;
#X text 75 308 David McCallum \, 2002 - http://mentalfloss.ca/sintheta
;
#X text 85 320 Based on the equation from the jMax [scale] object;
#X obj 186 15 cnv 15 15 15 empty empty d-scale 0 8 1 14 -262144 -66577
0;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 4 3 8 0;
#X connect 4 4 9 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 3 3;
#X connect 8 0 3 4;
#X connect 9 0 3 5;
#X connect 11 0 7 0;
#X connect 12 0 5 0;
#X connect 13 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 340 295 pd scaler;
#X floatatom 345 317 10 0 0 0 - - -;
#X floatatom 287 258 5 0 0 0 - - -;
#X floatatom 327 258 5 0 0 0 - - -;
#X floatatom 366 258 5 0 0 0 - - -;
#X floatatom 410 257 5 0 0 0 - - -;
#X floatatom 451 258 5 0 0 0 - - -;
#X msg 329 235 0;
#X msg 410 235 0;
#X msg 361 234 127;
#X msg 448 234 5;
#X floatatom 496 256 5 0 0 0 - - -;
#X msg 493 232 10;
#X floatatom 290 111 0 0 0 0 - - -;
#N canvas 0 22 462 312 scaler 0;
#X obj 44 103 inlet;
#X obj 44 275 outlet;
#X obj 213 145 loadbang;
#X obj 44 239 expr $f4 + ( $f5 - $f4 )*(pow( $f6 \, ($f1- $f2 )/( $f3
- $f2 ))-1)/( $f6 -1);
#X obj 213 167 t b b b b b;
#X obj 113 211 f \$1;
#X obj 183 212 f \$2;
#X obj 253 210 f \$3;
#X obj 323 212 f \$4;
#X obj 393 212 f \$5;
#X text 173 51 Exponential Scaler;
#X obj 253 101 inlet;
#X obj 113 102 inlet;
#X obj 323 100 inlet;
#X obj 183 101 inlet;
#X obj 393 99 inlet;
#X text 75 308 David McCallum \, 2002 - http://mentalfloss.ca/sintheta
;
#X text 85 320 Based on the equation from the jMax [scale] object;
#X obj 186 15 cnv 15 15 15 empty empty d-scale 0 8 1 14 -262144 -66577
0;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 4 3 8 0;
#X connect 4 4 9 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 3 3;
#X connect 8 0 3 4;
#X connect 9 0 3 5;
#X connect 11 0 7 0;
#X connect 12 0 5 0;
#X connect 13 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 344 171 pd scaler;
#X floatatom 349 193 10 0 0 0 - - -;
#X floatatom 291 134 5 0 0 0 - - -;
#X floatatom 331 134 5 0 0 0 - - -;
#X floatatom 370 134 5 0 0 0 - - -;
#X floatatom 414 133 5 0 0 0 - - -;
#X floatatom 455 134 5 0 0 0 - - -;
#X msg 333 111 0;
#X msg 414 111 0;
#X msg 365 110 127;
#X msg 452 110 5;
#X floatatom 500 132 5 0 0 0 - - -;
#X msg 497 108 10;
#X obj 444 43 loadbang;
#X obj 362 214 s ctl78;
#X obj 345 344 s ctl6;
#X obj 289 85 ctlin 78;
#X obj 284 209 ctlin 6;
#X floatatom 556 99 0 0 0 0 - - -;
#N canvas 0 22 462 312 scaler 0;
#X obj 44 103 inlet;
#X obj 44 275 outlet;
#X obj 213 145 loadbang;
#X obj 44 239 expr $f4 + ( $f5 - $f4 )*(pow( $f6 \, ($f1- $f2 )/( $f3
- $f2 ))-1)/( $f6 -1);
#X obj 213 167 t b b b b b;
#X obj 113 211 f \$1;
#X obj 183 212 f \$2;
#X obj 253 210 f \$3;
#X obj 323 212 f \$4;
#X obj 393 212 f \$5;
#X text 173 51 Exponential Scaler;
#X obj 253 101 inlet;
#X obj 113 102 inlet;
#X obj 323 100 inlet;
#X obj 183 101 inlet;
#X obj 393 99 inlet;
#X text 75 308 David McCallum \, 2002 - http://mentalfloss.ca/sintheta
;
#X text 85 320 Based on the equation from the jMax [scale] object;
#X obj 186 15 cnv 15 15 15 empty empty d-scale 0 8 1 14 -262144 -66577
0;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 4 3 8 0;
#X connect 4 4 9 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 3 3;
#X connect 8 0 3 4;
#X connect 9 0 3 5;
#X connect 11 0 7 0;
#X connect 12 0 5 0;
#X connect 13 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X restore 610 159 pd scaler;
#X floatatom 557 122 5 0 0 0 - - -;
#X floatatom 597 122 5 0 0 0 - - -;
#X floatatom 636 122 5 0 0 0 - - -;
#X floatatom 680 121 5 0 0 0 - - -;
#X floatatom 721 122 5 0 0 0 - - -;
#X msg 599 99 0;
#X msg 680 99 0;
#X msg 631 98 127;
#X floatatom 766 120 5 0 0 0 - - -;
#X msg 763 96 10;
#X obj 710 31 loadbang;
#X obj 555 72 ctlin 10;
#X floatatom 617 183 10 0 0 0 - - -;
#X msg 717 98 255;
#X obj 617 211 s fade;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 29 0;
#X connect 3 0 1 0;
#X connect 4 0 1 1;
#X connect 5 0 1 2;
#X connect 6 0 1 3;
#X connect 7 0 1 4;
#X connect 8 0 4 0;
#X connect 9 0 6 0;
#X connect 10 0 5 0;
#X connect 11 0 7 0;
#X connect 12 0 0 0;
#X connect 13 0 1 5;
#X connect 14 0 13 0;
#X connect 15 0 18 0;
#X connect 16 0 17 0;
#X connect 17 0 31 0;
#X connect 18 0 16 0;
#X connect 19 0 16 1;
#X connect 20 0 16 2;
#X connect 21 0 16 3;
#X connect 22 0 16 4;
#X connect 23 0 19 0;
#X connect 24 0 21 0;
#X connect 25 0 20 0;
#X connect 26 0 22 0;
#X connect 27 0 16 5;
#X connect 28 0 27 0;
#X connect 30 0 15 0;
#X connect 32 0 23 0;
#X connect 32 0 25 0;
#X connect 32 0 24 0;
#X connect 32 0 26 0;
#X connect 32 0 28 0;
#X connect 32 0 14 0;
#X connect 32 0 11 0;
#X connect 32 0 9 0;
#X connect 32 0 10 0;
#X connect 32 0 8 0;
#X connect 33 0 36 0;
#X connect 34 0 35 0;
#X connect 35 0 63 0;
#X connect 36 0 34 0;
#X connect 37 0 34 1;
#X connect 38 0 34 2;
#X connect 39 0 34 3;
#X connect 40 0 34 4;
#X connect 41 0 37 0;
#X connect 42 0 39 0;
#X connect 43 0 38 0;
#X connect 44 0 40 0;
#X connect 45 0 34 5;
#X connect 46 0 45 0;
#X connect 47 0 50 0;
#X connect 48 0 49 0;
#X connect 49 0 62 0;
#X connect 50 0 48 0;
#X connect 51 0 48 1;
#X connect 52 0 48 2;
#X connect 53 0 48 3;
#X connect 54 0 48 4;
#X connect 55 0 51 0;
#X connect 56 0 53 0;
#X connect 57 0 52 0;
#X connect 58 0 54 0;
#X connect 59 0 48 5;
#X connect 60 0 59 0;
#X connect 61 0 55 0;
#X connect 61 0 57 0;
#X connect 61 0 56 0;
#X connect 61 0 58 0;
#X connect 61 0 60 0;
#X connect 61 0 46 0;
#X connect 61 0 44 0;
#X connect 61 0 42 0;
#X connect 61 0 43 0;
#X connect 61 0 41 0;
#X connect 64 0 47 0;
#X connect 65 0 33 0;
#X connect 66 0 68 0;
#X connect 67 0 80 0;
#X connect 68 0 67 0;
#X connect 69 0 67 1;
#X connect 70 0 67 2;
#X connect 71 0 67 3;
#X connect 72 0 67 4;
#X connect 73 0 69 0;
#X connect 74 0 71 0;
#X connect 75 0 70 0;
#X connect 76 0 67 5;
#X connect 77 0 76 0;
#X connect 78 0 73 0;
#X connect 78 0 75 0;
#X connect 78 0 74 0;
#X connect 78 0 81 0;
#X connect 78 0 77 0;
#X connect 79 0 66 0;
#X connect 80 0 82 0;
#X connect 81 0 72 0;
#X restore 284 324 pd midistuff;
#X obj 81 256 r ctl6;
#X obj 135 255 r ctl78;
#X obj 163 144 r fade;
#X obj 569 70 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 569 134 pdp_ieee1394;
#X obj 569 100 metro 40;
#X msg 666 75 open /dev/video1;
#X floatatom 712 143 5 0 0 0 - - -;
#X obj 569 186 pdp_agc 0.5;
#X floatatom 711 203 5 0 0 0 - - -;
#X obj 569 237 pdp_contrast 0.5;
#X msg 405 149 chanmask \$1;
#X floatatom 405 125 5 0 0 0 - - -;
#X msg 405 96 1;
#X msg 436 96 3;
#X msg 468 96 5;
#X msg 500 96 7;
#X obj 715 184 hsl 128 15 0 1 0 1 empty empty empty -2 -6 0 8 -262144
-1 -1 4700 1;
#X obj 715 124 hsl 128 15 0 1 0 1 empty empty empty -2 -6 0 8 -262144
-1 -1 7400 1;
#X msg 666 50 open;
#X floatatom 711 264 5 0 0 0 - - -;
#X obj 715 245 hsl 128 15 0 6 0 1 empty empty empty -2 -6 0 8 -262144
-1 -1 11100 1;
#X text 408 71 Y;
#X text 437 70 YCr;
#X text 469 71 YCb;
#X text 499 70 YCrCb;
#X text 414 52 agc color channels;
#X floatatom 814 453 5 0 0 0 - - -;
#X obj 571 355 pdp_blur;
#X obj 817 434 hsl 128 15 0 1 0 1 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X floatatom 814 522 5 0 0 0 - - -;
#X obj 817 502 hsl 128 15 0 1 0 1 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X obj 571 423 pdp_motion_phase;
#X text 722 405 blur ensures spatial coupling (determines the speed
at which "blobs" move around the screen);
#X text 730 468 a motion phase effect to spice it up (this causes local
negative feedback around suddon changes);
#X obj 571 321 pdp_zrot;
#X floatatom 813 312 5 0 0 0 - - -;
#X obj 816 293 hsl 128 15 0.1 10 1 1 empty empty empty -2 -6 0 8 -262144
-1 -1 6350 1;
#X floatatom 813 381 5 0 0 0 - - -;
#X obj 816 361 hsl 128 15 0 360 0 1 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X text 965 292 zoom;
#X msg 813 269 1;
#X msg 813 338 0;
#X text 964 355 rotation;
#X obj 569 290 pdp_saturation 2.5;
#X text 428 18 some basic image enhancements pagano added motion_phase
\, blur and rotation and zoom SIMPLE SERPENTS MODIFY;
#X obj 460 364 tabplay~;
#X text 804 26 add one pair->;
#X floatatom 961 84 9 0 0 0 - - -;
#X obj 961 105 * 100;
#X obj 961 129 % 36000;
#X obj 961 204 / 100;
#X floatatom 961 230 9 0 0 0 - - -;
#X obj 961 152 moses 0;
#X obj 961 175 + 36000;
#X obj 962 39 metro 500;
#X obj 962 61 counter;
#X floatatom 1016 17 5 0 0 0 - - -;
#X floatatom 1027 46 5 0 0 0 - - -;
#X obj 929 14 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 582 397 pdp_motion_blur;
#X floatatom 666 371 5 0 0 0 - - -;
#X obj 669 352 hsl 128 15 0 1 0 1 empty empty empty -2 -6 0 8 -262144
-1 -1 1600 1;
#X obj 570 465 pdp2gem;
#X obj 503 291 gemhead;
#X obj 411 195 pix_texture;
#X connect 0 0 12 0;
#X connect 1 0 28 1;
#X connect 2 0 0 0;
#X connect 3 0 32 0;
#X connect 4 0 3 0;
#X connect 5 0 19 0;
#X connect 6 0 30 1;
#X connect 7 0 5 0;
#X connect 8 0 33 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 32 1;
#X connect 11 1 33 1;
#X connect 12 0 26 0;
#X connect 12 2 18 0;
#X connect 13 0 12 0;
#X connect 14 0 12 0;
#X connect 15 0 14 0;
#X connect 16 0 15 0;
#X connect 17 0 13 0;
#X connect 18 0 12 1;
#X connect 19 0 27 0;
#X connect 19 2 25 0;
#X connect 20 0 19 0;
#X connect 21 0 19 0;
#X connect 22 0 21 0;
#X connect 23 0 22 0;
#X connect 24 0 20 0;
#X connect 25 0 19 1;
#X connect 26 0 3 0;
#X connect 27 0 8 0;
#X connect 29 0 28 2;
#X connect 31 0 30 2;
#X connect 32 0 28 0;
#X connect 33 0 30 0;
#X connect 34 0 31 0;
#X connect 35 1 36 0;
#X connect 37 0 6 0;
#X connect 39 0 1 0;
#X connect 40 0 29 0;
#X connect 41 0 10 0;
#X connect 42 0 44 0;
#X connect 43 0 47 0;
#X connect 44 0 43 0;
#X connect 45 0 43 0;
#X connect 46 0 47 1;
#X connect 47 0 49 0;
#X connect 48 0 49 1;
#X connect 49 0 83 0;
#X connect 50 0 47 0;
#X connect 51 0 50 0;
#X connect 52 0 51 0;
#X connect 53 0 51 0;
#X connect 54 0 51 0;
#X connect 55 0 51 0;
#X connect 56 0 48 0;
#X connect 57 0 46 0;
#X connect 58 0 43 0;
#X connect 59 0 83 1;
#X connect 60 0 59 0;
#X connect 67 0 99 0;
#X connect 68 0 66 0;
#X connect 68 0 67 1;
#X connect 70 0 69 0;
#X connect 70 0 71 1;
#X connect 71 0 102 0;
#X connect 74 0 67 0;
#X connect 75 0 74 1;
#X connect 76 0 75 0;
#X connect 77 0 74 2;
#X connect 78 0 77 0;
#X connect 80 0 76 0;
#X connect 81 0 78 0;
#X connect 83 0 74 0;
#X connect 87 0 88 0;
#X connect 88 0 89 0;
#X connect 89 0 92 0;
#X connect 90 0 91 0;
#X connect 91 0 78 0;
#X connect 92 0 93 0;
#X connect 92 1 90 0;
#X connect 93 0 90 0;
#X connect 94 0 95 0;
#X connect 95 0 87 0;
#X connect 96 0 94 1;
#X connect 97 0 95 3;
#X connect 98 0 94 0;
#X connect 99 0 71 0;
#X connect 100 0 99 1;
#X connect 101 0 100 0;
#X connect 102 0 104 0;
#X connect 103 0 102 0;
#X connect 104 0 8 0;
#X restore 204 100 pd GL_blending;
#X msg 155 129 dimen 1600 1200;
#X msg 140 80 fullscreen 2;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 8 0 0 0;
#X connect 9 0 0 0;