#N struct hihi float x float y float id float a float b float c float d float e; #N canvas 4 23 270 122 12; #N canvas 4 23 1276 755 patch1212 1; #X scalar hihi 800 100 0 19 14 0 0 0 \;; #X scalar hihi 835 100 1 41 14 6 0 0 \;; #X scalar hihi 870 100 2 74 9 6 25 0 \;; #X scalar hihi 905 100 3 53 9 6 25 9 \;; #X scalar hihi 940 100 4 53 9 6 -5 9 \;; #X scalar hihi 975 100 5 15 -5 21 -5 9 \;; #X scalar hihi 1010 100 6 -6 -5 21 -5 9 \;; #X scalar hihi 1045 100 7 7 4 21 14 25 \;; #X scalar hihi 1080 100 8 0 1 42 14 25 \;; #X scalar hihi 1115 100 9 6 62 7 4 25 \;; #X scalar hihi 800 135 10 21 43 44 5 1 \;; #X scalar hihi 835 135 11 2 31 52 5 29 \;; #X obj 212 508 dac~; #X obj 551 33 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X msg 552 56 \; pd dsp \$1 \;; #X obj 166 475 *~; #X obj 106 312 line~; #X obj 164 312 line~; #X obj 222 316 line~; #X obj 281 324 line~; #X obj 106 151 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 -262144 -1 -1 0 256; #X obj 164 151 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 -262144 -1 -1 0 256; #X obj 222 151 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 -262144 -1 -1 0 256; #X obj 281 151 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 -262144 -1 -1 0 256; #X obj 47 319 line~; #X obj 47 151 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 -262144 -1 -1 0 256; #X obj 37 370 fexpr~ ($y[-1]*100000+$x2)%100000/100000 \; ($y1[-1]*1000)%$x3/$x4-$x5 \; $y2[-1]*$y2[$y1[-1]*-35]/8 \; (($y2[-1]*$x6*$y2[$y1[-1]*-40])%2-1)/4 \;; #X obj 422 227 + 1; #X obj 385 228 f; #X obj 417 163 loadbang; #X obj 385 82 bng 40 250 50 0 empty empty empty 17 7 0 4 -262144 -1 -1; #X obj 405 334 * 35; #X obj 426 428 * 35; #X obj 552 325 pointer; #X obj 32 74 unpack s p; #X obj 34 672 filledpolygon 150 1 1 0 0 0 30 30 30 30 0; #X msg 495 163 0; #X obj 405 310 mod 10; #X obj 425 404 div 10; #X obj 362 132 t b b b; #X msg 47 282 \$1 500; #X msg 106 284 \$1 500; #X msg 164 284 \$1 500; #X msg 222 283 \$1 500; #X msg 281 283 \$1 500; #X obj 385 267 t f f f f; #X msg 553 294 traverse pd-patch1212 \, bang; #X obj 405 358 + 800; #X obj 426 452 + 100; #X text 4 149 Tweak; #X obj 399 674 drawnumber id 15 15 999; #X text 806 676 CLic to pass from a keyshape to another; #X text 576 28 Turn it on; #X text 438 100 create a keyshape; #X obj 32 29 struct hihi float x float y float id float a float b float c float d float e; #X obj 99 100 get hihi a b c d e; #X obj 405 539 append hihi x y id a b c d e; #X msg 385 197 12; #X msg 452 227 set \$1; #X text 176 552 made by Il pleut; #X text 524 162 reset-you have to manualy delete the scalar.(the green button); #X connect 13 0 14 0; #X connect 15 0 12 0; #X connect 15 0 12 1; #X connect 16 0 26 2; #X connect 17 0 26 3; #X connect 18 0 26 4; #X connect 19 0 26 5; #X connect 20 0 41 0; #X connect 20 0 56 4; #X connect 21 0 42 0; #X connect 21 0 56 5; #X connect 22 0 43 0; #X connect 22 0 56 6; #X connect 23 0 44 0; #X connect 23 0 56 7; #X connect 24 0 26 1; #X connect 25 0 40 0; #X connect 25 0 56 3; #X connect 26 0 15 0; #X connect 26 2 15 1; #X connect 26 3 12 1; #X connect 26 3 12 0; #X connect 27 0 58 0; #X connect 28 0 27 0; #X connect 28 0 45 0; #X connect 29 0 46 0; #X connect 30 0 39 0; #X connect 31 0 47 0; #X connect 32 0 48 0; #X connect 33 0 56 8; #X connect 34 1 55 0; #X connect 36 0 46 0; #X connect 36 0 58 0; #X connect 37 0 31 0; #X connect 38 0 32 0; #X connect 39 1 57 0; #X connect 39 2 25 0; #X connect 39 2 20 0; #X connect 39 2 21 0; #X connect 39 2 22 0; #X connect 39 2 23 0; #X connect 40 0 24 0; #X connect 41 0 16 0; #X connect 42 0 17 0; #X connect 43 0 18 0; #X connect 44 0 19 0; #X connect 45 1 37 0; #X connect 45 2 38 0; #X connect 45 3 56 2; #X connect 46 0 33 0; #X connect 47 0 56 0; #X connect 48 0 56 1; #X connect 54 0 34 0; #X connect 55 0 25 0; #X connect 55 1 20 0; #X connect 55 2 21 0; #X connect 55 3 22 0; #X connect 55 4 23 0; #X connect 57 0 28 0; #X connect 58 0 57 0; #X coords 0 755 1 754 1000 600 0; #X restore 67 55 pd patch1212; #X text 53 84 The patch. Open it;