#N struct bez-array float x float y array bez-c-arr bez-c float p0x
float p0y float p0x. float p0y. float p1x float p1y float p1x. float
p1y. float p2x float p2y float p2x. float p2y. float p3x float p3y
float p3x. float p3y. float rpx float rpy float rpx. float rpy.;
#N struct bez-c float x float y;
#N canvas 0 0 855 754 10;
#X scalar bez-array 0 0 -2 -2 3 3 8 58 13 63 88 38 93 43 98 98 103
103 98 98 103 103 \; 0 0 \; 0.26146 1.71676 \; 0.56528 3.38768 \; 0.91062
5.01372 \; 1.29664 6.59584 \; 1.7225 8.135 \; 2.18736 9.63216 \; 2.69038
11.0883 \; 3.23072 12.5043 \; 3.80754 13.8812 \; 4.42 15.22 \; 5.06726
16.5216 \; 5.74848 17.7869 \; 6.46282 19.0169 \; 7.20944 20.2126 \;
7.9875 21.375 \; 8.79616 22.505 \; 9.63458 23.6035 \; 10.5019 24.6715
\; 11.3973 25.71 \; 12.32 26.72 \; 13.2691 27.7024 \; 14.2437 28.6581
\; 15.243 29.5881 \; 16.2662 30.4934 \; 17.3125 31.375 \; 18.381 32.2338
\; 19.4708 33.0707 \; 20.5811 33.8867 \; 21.7111 34.6828 \; 22.86 35.46
\; 24.0269 36.2192 \; 25.2109 36.9613 \; 26.4112 37.6873 \; 27.627
38.3982 \; 28.8575 39.095 \; 30.1018 39.7786 \; 31.359 40.4499 \; 32.6283
41.1099 \; 33.9089 41.7596 \; 35.2 42.4 \; 36.5007 43.032 \; 37.8101
43.6565 \; 39.1274 44.2745 \; 40.4518 44.887 \; 41.7825 45.495 \; 43.1186
46.0994 \; 44.4592 46.7011 \; 45.8035 47.3011 \; 47.1507 47.9004 \;
48.5 48.5 \; 49.8505 49.1008 \; 51.2013 49.7037 \; 52.5516 50.3097
\; 53.9006 50.9198 \; 55.2475 51.535 \; 56.5914 52.1562 \; 57.9314
52.7843 \; 59.2667 53.4203 \; 60.5965 54.0652 \; 61.92 54.72 \; 63.2363
55.3856 \; 64.5445 56.0629 \; 65.8438 56.7529 \; 67.1334 57.4566 \;
68.4125 58.175 \; 69.6802 58.909 \; 70.9356 59.6595 \; 72.1779 60.4275
\; 73.4063 61.214 \; 74.62 62.02 \; 75.8181 62.8464 \; 76.9997 63.6941
\; 78.164 64.5641 \; 79.3102 65.4574 \; 80.4375 66.375 \; 81.545 67.3178
\; 82.6318 68.2867 \; 83.6971 69.2827 \; 84.7401 70.3068 \; 85.76 71.36
\; 86.7559 72.4432 \; 87.7269 73.5573 \; 88.6722 74.7033 \; 89.591
75.8822 \; 90.4825 77.095 \; 91.3458 78.3425 \; 92.18 79.6259 \; 92.9843
80.9459 \; 93.7579 82.3037 \; 94.5 83.7 \; 95.2097 85.1359 \; 95.8861
86.6125 \; 96.5284 88.1305 \; 97.1358 89.691 \; 97.7075 91.295 \; 98.2426
92.9434 \; 98.7402 94.6371 \; 99.1995 96.3771 \; 100 100 \; \;;
#X obj 217 10 inlet;
#N canvas 627 482 718 464 inside 0;
#X obj 20 82 inlet;
#X obj 346 282 s \$0-bezier-a;
#N canvas 0 0 450 300 element 0;
#X obj 52 46 struct bez-c float x float y;
#X restore 20 322 pd element;
#N canvas 665 149 542 409 array 0;
#X obj 11 87 route change click;
#X obj 31 121 unpack p f;
#X obj 31 141 t b p;
#X obj 31 201 outlet;
#X obj 58 161 s \$0-arrpoint;
#X obj 31 181 speedlim 150;
#X obj 166 141 drawpolygon 0 1 0 0 0 100 100 100 100 0 0 0;
#X text 14 233 4 control points \, 2 extremos nao saem da caixa. fronteiras
desfazadas em 2pt \, para desenhar o quadrado;
#X obj 11 333 filledpolygon 0 0 1 p2x p2y p2x. p2y p2x. p2y. p2x p2y.
p2x p2y;
#X obj 11 300 filledpolygon 0 0 1 p1x p1y p1x. p1y p1x. p1y. p1x p1y.
p1x p1y;
#X obj 11 267 filledpolygon 0 0 1 p0x(-2:98)(-2:98) p0y(-2:98)(-2:98)
p0x. p0y p0x. p0y. p0x p0y. p0x p0y;
#X obj 11 366 filledpolygon 0 0 1 p3x(-2:98)(-2:98) p3y(-2:98)(-2:98)
p3x. p3y p3x. p3y. p3x p3y. p3x p3y;
#X obj 166 171 r \$0-read-point-view;
#X text 297 171 read point;
#X obj 11 15 struct bez-array float x float y array bez-c-arr bez-c
float p0x float p0y float p0x. float p0y. float p1x float p1y float
p1x. float p1y. float p2x float p2y float p2x. float p2y. float p3x
float p3y float p3x. float p3y. float rpx float rpy float rpx. float
rpy.;
#X obj 166 111 plot bez-c-arr 9 2 0 0;
#X obj 166 191 filledpolygon 900 900 1 rpx rpy rpx. rpy rpx. rpy. rpx
rpy. rpx rpy;
#X connect 0 0 1 0;
#X connect 0 1 1 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 2 1 4 0;
#X connect 5 0 3 0;
#X connect 12 0 16 0;
#X connect 14 0 0 0;
#X restore 20 342 pd array;
#N canvas 257 223 482 660 calculate 0;
#X obj 27 42 inlet;
#X obj 27 202 until;
#X obj 27 222 f+ 0;
#X obj 27 352 expr (-$f2+3*$f3-3*$f4+$f5)*pow($f1 \, 3) + (3*$f2-6*$f3+3*$f4)*pow($f1
\, 2) + (3*$f3-3*$f2)*$f1 + $f2;
#X obj 46 425 expr (-$f2+3*$f3-3*$f4+$f5)*pow($f1 \, 3) + (3*$f2-6*$f3+3*$f4)*pow($f1
\, 2) + (3*$f3-3*$f2)*$f1 + $f2;
#X obj 27 332 pack f f f f f;
#X obj 46 405 pack f f f f f;
#X obj 228 468 r \$0-arrpoint;
#X obj 108 518 t p p;
#X obj 27 242 t f f f;
#X text 142 11 array com 100 pontos. fazer 200? \; e necessario estar
a escalonar tudo? talvez nao;
#X obj 27 72 t b b;
#X obj 77 32 inlet;
#X obj 141 80 r \$0-arrpoint;
#X obj 141 150 pointer;
#X obj 77 52 t b b;
#X obj 141 270 + 2;
#X obj 171 270 + 2;
#X obj 311 270 + 2;
#X obj 341 270 + 2;
#X obj 47 102 r \$0-size;
#X obj 42 162 + 1;
#X obj 27 182 f;
#X obj 86 242 inv;
#X obj 47 122 t b f f;
#X obj 27 272 *;
#X obj 46 292 *;
#X obj 141 190 get bez-array p0x;
#X obj 151 210 get bez-array p1x;
#X obj 161 230 get bez-array p2x;
#X obj 171 250 get bez-array p3x;
#X obj 311 190 get bez-array p0y;
#X obj 320 210 get bez-array p1y;
#X obj 331 230 get bez-array p2y;
#X obj 341 250 get bez-array p3y;
#X obj 108 498 element bez-array bez-c-arr;
#X obj 27 538 set bez-c x;
#X obj 46 558 set bez-c y;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 2 0 9 0;
#X connect 3 0 36 0;
#X connect 4 0 37 0;
#X connect 5 0 3 0;
#X connect 6 0 4 0;
#X connect 7 0 35 1;
#X connect 8 0 36 1;
#X connect 8 1 37 1;
#X connect 9 0 25 0;
#X connect 9 1 26 0;
#X connect 9 2 35 0;
#X connect 11 0 22 0;
#X connect 11 1 2 1;
#X connect 12 0 15 0;
#X connect 13 0 14 0;
#X connect 14 0 27 0;
#X connect 14 0 28 0;
#X connect 14 0 29 0;
#X connect 14 0 30 0;
#X connect 14 0 31 0;
#X connect 14 0 32 0;
#X connect 14 0 33 0;
#X connect 14 0 34 0;
#X connect 15 0 11 0;
#X connect 15 1 14 0;
#X connect 16 0 5 1;
#X connect 17 0 5 4;
#X connect 18 0 6 1;
#X connect 19 0 6 4;
#X connect 20 0 24 0;
#X connect 21 0 22 1;
#X connect 22 0 1 0;
#X connect 23 0 25 1;
#X connect 23 0 26 1;
#X connect 24 0 11 0;
#X connect 24 1 21 0;
#X connect 24 2 23 0;
#X connect 25 0 5 0;
#X connect 26 0 6 0;
#X connect 27 0 16 0;
#X connect 28 0 5 2;
#X connect 29 0 5 3;
#X connect 30 0 17 0;
#X connect 31 0 18 0;
#X connect 32 0 6 2;
#X connect 33 0 6 3;
#X connect 34 0 19 0;
#X connect 35 0 8 0;
#X restore 20 362 pd calculate;
#X obj 55 182 outlet;
#N canvas 0 0 333 632 index 0;
#X obj 13 292 outlet;
#X obj 208 142 r \$0-arrpoint;
#X obj 13 62 inlet;
#X obj 106 62 r \$0-arrpoint;
#X obj 13 122 maxlib/scale 0 1 0 0;
#X obj 106 102 - 1;
#X obj 13 202 * 0.01;
#X obj 106 202 * 0.01;
#X obj 13 222 pack f f;
#X obj 136 332 unpack;
#X obj 226 282 r \$0-arrpoint;
#X obj 123 312 pointer;
#X obj 123 452 t p p p p;
#X obj 123 502 + 5;
#X obj 153 572 + 5;
#X obj 226 382 t p p;
#X obj 179 372 - 2;
#X obj 136 372 - 2;
#X obj 123 262 pack;
#X obj 136 352 * 1;
#X obj 179 352 * 1;
#X obj 123 282 t b l;
#X text 185 256 read point;
#X obj 53 32 inlet;
#X text 94 31 update read point;
#X obj 53 52 t b b b;
#X obj 13 272 spigot 1;
#X obj 68 252 0;
#X obj 38 252 1;
#X obj 13 102 f;
#X obj 106 82 getsize bez-array bez-c-arr;
#X obj 13 162 element bez-array bez-c-arr;
#X obj 13 182 get bez-c x y;
#X obj 137 402 set bez-array rpx;
#X obj 136 422 set bez-array rpy;
#X obj 123 482 get bez-array rpx;
#X obj 133 522 set bez-array rpx.;
#X obj 153 552 get bez-array rpy;
#X obj 163 592 set bez-array rpy.;
#X connect 1 0 31 1;
#X connect 2 0 29 0;
#X connect 3 0 30 0;
#X connect 4 0 31 0;
#X connect 5 0 4 4;
#X connect 6 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 26 0;
#X connect 9 0 19 0;
#X connect 9 1 20 0;
#X connect 10 0 11 0;
#X connect 10 0 15 0;
#X connect 11 0 12 0;
#X connect 12 0 35 0;
#X connect 12 1 36 1;
#X connect 12 2 37 0;
#X connect 12 3 38 1;
#X connect 13 0 36 0;
#X connect 14 0 38 0;
#X connect 15 0 34 1;
#X connect 15 1 33 1;
#X connect 16 0 34 0;
#X connect 17 0 33 0;
#X connect 18 0 21 0;
#X connect 19 0 17 0;
#X connect 20 0 16 0;
#X connect 21 0 11 0;
#X connect 21 1 9 0;
#X connect 23 0 25 0;
#X connect 25 0 28 0;
#X connect 25 1 29 0;
#X connect 25 2 27 0;
#X connect 26 0 0 0;
#X connect 27 0 26 1;
#X connect 28 0 26 1;
#X connect 29 0 4 0;
#X connect 30 0 5 0;
#X connect 31 0 32 0;
#X connect 32 0 6 0;
#X connect 32 0 18 0;
#X connect 32 1 7 0;
#X connect 32 1 18 1;
#X connect 35 0 13 0;
#X connect 37 0 14 0;
#X restore 55 162 pd index;
#N canvas 0 0 332 180 size 0;
#X obj 18 17 inlet;
#X obj 213 117 r \$0-arrpoint;
#X obj 57 77 s \$0-size;
#X obj 18 117 r \$0-size;
#X obj 18 37 moses 2;
#X msg 18 57 2;
#X text 111 16 size \, wenigstens 2 Punkte;
#X obj 18 137 setsize bez-array bez-c-arr;
#X connect 0 0 4 0;
#X connect 1 0 7 1;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 4 1 2 0;
#X connect 5 0 2 0;
#X restore 47 232 pd size;
#N canvas 498 34 773 605 point-befehle 0;
#X obj 189 18 inlet;
#X obj 60 166 unpack;
#X obj 150 86 r \$0-arrpoint;
#X obj 150 116 t p p p p;
#X obj 47 116 pointer;
#X obj 47 332 t p p p p;
#X obj 47 292 t p p p p;
#X obj 227 332 t p p p p;
#X obj 407 332 t p p p p;
#X obj 586 332 t p p p p;
#X obj 47 382 + 5;
#X obj 77 452 + 5;
#X obj 200 166 unpack;
#X obj 340 166 unpack;
#X obj 480 166 unpack;
#X obj 23 82 outlet;
#X obj 189 38 t b b a;
#X obj 227 382 + 5;
#X obj 257 452 + 5;
#X obj 437 452 + 5;
#X obj 407 382 + 5;
#X obj 586 382 + 5;
#X obj 616 452 + 5;
#X obj 150 216 t p p;
#X obj 291 216 t p p;
#X obj 430 216 t p p;
#X obj 570 216 t p p;
#X obj 52 566 outlet;
#X obj 243 186 * 100;
#X obj 103 186 * 100;
#X obj 383 186 * 100;
#X obj 523 186 * 100;
#X obj 523 206 - 2;
#X obj 383 206 - 2;
#X obj 243 206 - 2;
#X obj 103 206 - 2;
#X obj 60 206 - 2;
#X obj 200 206 - 2;
#X obj 340 206 - 2;
#X obj 480 206 - 2;
#X obj 480 186 * 100;
#X obj 340 186 * 100;
#X obj 200 186 * 100;
#X obj 60 186 * 100;
#X obj 491 61 r \$0-size;
#X obj 52 516 r \$0-dump;
#N canvas 118 276 501 312 convert-to-dump 0;
#X obj 81 57 inlet;
#X obj 116 230 outlet;
#X obj 81 97 - 5;
#X obj 81 117 * 0.01;
#X obj 81 77 + 2;
#X obj 131 57 inlet;
#X obj 131 97 - 5;
#X obj 131 117 * 0.01;
#X obj 131 77 + 2;
#X obj 171 17 r \$0-size;
#X obj 171 37 inv;
#X obj 31 117 inlet;
#X obj 117 157 pack f f f f f f f f f;
#X obj 181 57 inlet;
#X obj 181 97 - 5;
#X obj 181 117 * 0.01;
#X obj 181 77 + 2;
#X obj 231 57 inlet;
#X obj 231 97 - 5;
#X obj 231 117 * 0.01;
#X obj 231 77 + 2;
#X obj 281 57 inlet;
#X obj 281 97 - 5;
#X obj 281 117 * 0.01;
#X obj 281 77 + 2;
#X obj 331 57 inlet;
#X obj 331 97 - 5;
#X obj 331 117 * 0.01;
#X obj 331 77 + 2;
#X obj 381 57 inlet;
#X obj 381 97 - 5;
#X obj 381 117 * 0.01;
#X obj 381 77 + 2;
#X obj 431 57 inlet;
#X obj 431 97 - 5;
#X obj 431 117 * 0.01;
#X obj 431 77 + 2;
#X msg 116 177 set \, add2 p0 \$2 \$3 \, addcomma \, add2 p1 \$4 \$5
\, addcomma \, add2 p2 \$6 \$7 \, addcomma \, add2 p3 \$8 \$9;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 12 1;
#X connect 4 0 2 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 12 2;
#X connect 8 0 6 0;
#X connect 9 0 10 0;
#X connect 10 0 7 1;
#X connect 10 0 3 1;
#X connect 10 0 15 1;
#X connect 10 0 19 1;
#X connect 10 0 23 1;
#X connect 10 0 27 1;
#X connect 10 0 31 1;
#X connect 10 0 35 1;
#X connect 11 0 12 0;
#X connect 12 0 37 0;
#X connect 13 0 16 0;
#X connect 14 0 15 0;
#X connect 15 0 12 3;
#X connect 16 0 14 0;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 12 4;
#X connect 20 0 18 0;
#X connect 21 0 24 0;
#X connect 22 0 23 0;
#X connect 23 0 12 5;
#X connect 24 0 22 0;
#X connect 25 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 12 6;
#X connect 28 0 26 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 12 7;
#X connect 32 0 30 0;
#X connect 33 0 36 0;
#X connect 34 0 35 0;
#X connect 35 0 12 8;
#X connect 36 0 34 0;
#X connect 37 0 1 0;
#X restore 52 546 pd convert-to-dump;
#X obj 228 58 route p0 p1 p2 p3;
#X obj 480 236 set bez-array p3x;
#X obj 480 256 set bez-array p3y;
#X obj 340 236 set bez-array p2x;
#X obj 340 256 set bez-array p2y;
#X obj 199 236 set bez-array p1x;
#X obj 200 256 set bez-array p1y;
#X obj 60 236 set bez-array p0x;
#X obj 60 256 set bez-array p0y;
#X obj 47 362 get bez-array p0x;
#X obj 57 402 set bez-array p0x.;
#X obj 77 432 get bez-array p0y;
#X obj 87 472 set bez-array p0y.;
#X obj 267 472 set bez-array p1y.;
#X obj 257 432 get bez-array p1y;
#X obj 237 402 set bez-array p1x.;
#X obj 227 362 get bez-array p1x;
#X obj 407 362 get bez-array p2x;
#X obj 417 402 set bez-array p2x.;
#X obj 437 433 get bez-array p2y;
#X obj 447 472 set bez-array p2y.;
#X obj 626 472 set bez-array p3y.;
#X obj 616 432 get bez-array p3y;
#X obj 596 402 set bez-array p3x.;
#X obj 586 362 get bez-array p3x;
#X connect 0 0 16 0;
#X connect 1 0 43 0;
#X connect 1 1 29 0;
#X connect 2 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 23 0;
#X connect 3 1 24 0;
#X connect 3 2 25 0;
#X connect 3 3 26 0;
#X connect 4 0 6 0;
#X connect 5 0 56 0;
#X connect 5 1 57 1;
#X connect 5 2 58 0;
#X connect 5 3 59 1;
#X connect 6 0 5 0;
#X connect 6 1 7 0;
#X connect 6 2 8 0;
#X connect 6 3 9 0;
#X connect 7 0 63 0;
#X connect 7 1 62 1;
#X connect 7 2 61 0;
#X connect 7 3 60 1;
#X connect 8 0 64 0;
#X connect 8 1 65 1;
#X connect 8 2 66 0;
#X connect 8 3 67 1;
#X connect 9 0 71 0;
#X connect 9 1 70 1;
#X connect 9 2 69 0;
#X connect 9 3 68 1;
#X connect 10 0 46 1;
#X connect 10 0 57 0;
#X connect 11 0 46 2;
#X connect 11 0 59 0;
#X connect 12 0 42 0;
#X connect 12 1 28 0;
#X connect 13 0 41 0;
#X connect 13 1 30 0;
#X connect 14 0 40 0;
#X connect 14 1 31 0;
#X connect 16 0 15 0;
#X connect 16 1 4 0;
#X connect 16 2 47 0;
#X connect 17 0 46 3;
#X connect 17 0 62 0;
#X connect 18 0 46 4;
#X connect 18 0 60 0;
#X connect 19 0 46 6;
#X connect 19 0 67 0;
#X connect 20 0 46 5;
#X connect 20 0 65 0;
#X connect 21 0 46 7;
#X connect 21 0 70 0;
#X connect 22 0 46 8;
#X connect 22 0 68 0;
#X connect 23 0 55 1;
#X connect 23 1 54 1;
#X connect 24 0 53 1;
#X connect 24 1 52 1;
#X connect 25 0 51 1;
#X connect 25 1 50 1;
#X connect 26 0 49 1;
#X connect 26 1 48 1;
#X connect 28 0 34 0;
#X connect 29 0 35 0;
#X connect 30 0 33 0;
#X connect 31 0 32 0;
#X connect 32 0 49 0;
#X connect 33 0 51 0;
#X connect 34 0 53 0;
#X connect 35 0 55 0;
#X connect 36 0 54 0;
#X connect 37 0 52 0;
#X connect 38 0 50 0;
#X connect 39 0 48 0;
#X connect 40 0 39 0;
#X connect 41 0 38 0;
#X connect 42 0 37 0;
#X connect 43 0 36 0;
#X connect 44 0 31 1;
#X connect 44 0 40 1;
#X connect 44 0 30 1;
#X connect 44 0 41 1;
#X connect 44 0 28 1;
#X connect 44 0 42 1;
#X connect 44 0 29 1;
#X connect 44 0 43 1;
#X connect 45 0 46 0;
#X connect 46 0 27 0;
#X connect 47 0 1 0;
#X connect 47 1 12 0;
#X connect 47 2 13 0;
#X connect 47 3 14 0;
#X connect 56 0 10 0;
#X connect 58 0 11 0;
#X connect 61 0 18 0;
#X connect 63 0 17 0;
#X connect 64 0 20 0;
#X connect 66 0 19 0;
#X connect 69 0 22 0;
#X connect 71 0 21 0;
#X restore 89 342 pd point-befehle;
#X obj 182 362 outlet;
#X obj 110 222 s \$0-dump;
#X obj 110 202 0;
#N canvas 0 0 450 300 size-init 0;
#X obj 154 93 inlet;
#X obj 154 133 sel 0;
#X obj 154 113 \$1;
#X obj 154 153 100;
#X obj 154 203 outlet;
#X msg 154 183 size \$1;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 1 1 5 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 5 0 4 0;
#X restore 334 82 pd size-init;
#N canvas 0 0 450 300 create-init 0;
#X obj 129 118 pointer;
#X obj 129 78 symbol \$0-bezier-a;
#X obj 129 198 s \$0-arrpoint;
#X msg 129 158 0 0;
#X msg 129 98 traverse \$1 \, bang;
#X obj 129 138 t b p;
#X obj 129 58 inlet;
#X obj 129 178 append bez-array x y;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 3 0 7 0;
#X connect 4 0 0 0;
#X connect 5 0 3 0;
#X connect 5 1 7 2;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X restore 351 62 pd create-init;
#X obj 310 212 t f f;
#X obj 310 232 pack;
#X obj 300 152 route float list;
#X msg 346 262 donecanvasdialog 1 -1 2 -20 120 120 -20 \$1 \$2 0 0
\, dirty 0;
#N canvas 0 0 390 188 get-pointer 0;
#X obj 39 82 pointer;
#X obj 39 42 symbol \$0-bezier-a;
#X obj 39 102 s \$0-arrpoint;
#X msg 39 62 traverse \$1 \, next \, bang;
#X obj 39 22 inlet;
#X text 27 128 extra Schaltung um das Pointer in Focus zu bekommen.
dann muss man nicht die Grafik clicken.;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 1 0;
#X restore 20 252 pd get-pointer;
#X obj 20 212 t b f;
#X msg 89 312 p0 0 0 \, p1 0.1 0.6 \, p2 0.9 0.4 \, p3 1 1;
#X obj 300 32 t b b b b;
#N canvas 0 0 403 272 canvas-init 0;
#X obj 68 104 sel 0;
#X obj 68 124 110;
#X obj 18 64 t b b;
#X obj 18 124 sel 0;
#X obj 73 194 pack;
#X msg 73 214 \$2 \$1;
#X obj 68 84 \$2;
#X obj 18 104 \$3;
#X obj 115 164 f;
#X obj 88 144 t f f;
#X obj 73 164 f;
#X obj 18 44 inlet;
#X obj 73 234 outlet;
#X text 21 8 canvas init (etwa komplex \, um die Anwesenheit von x
und vielleicht y zu berücksichtigen);
#X connect 0 0 1 0;
#X connect 0 1 9 0;
#X connect 1 0 9 0;
#X connect 2 0 7 0;
#X connect 2 1 6 0;
#X connect 3 0 10 0;
#X connect 3 1 4 0;
#X connect 4 0 5 0;
#X connect 5 0 12 0;
#X connect 6 0 0 0;
#X connect 7 0 3 0;
#X connect 8 0 4 1;
#X connect 9 0 10 1;
#X connect 9 1 8 0;
#X connect 10 0 4 0;
#X connect 11 0 2 0;
#X restore 300 132 pd canvas-init;
#X obj 300 172 moses 20;
#X msg 300 192 20;
#X obj 160 162 s \$0-read-point-view;
#X obj 20 112 route size float dump canvas readpoint;
#X obj 245 132 t b a;
#X obj 300 12 lbang;
#X obj 433 136 pointer;
#X obj 433 96 symbol \$0-bezier-a;
#X obj 433 156 s \$0-arrpoint;
#X msg 433 116 traverse \$1 \, next \, bang;
#X obj 469 63 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 377 24 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 330 357 ha demasiada accao a passar no patch \, optimizar;
#X text 366 43 depois apagar?;
#X text 323 386 botao para adicionar x curvas (p3 da anterior == p0
da seguinte) \, criando uma mega-curva \; tornar tudo variavel \, nr
pontos do array... \; ajustar tamanha dos pontos kr de acordo com o
tamanho do display;
#X connect 0 0 26 0;
#X connect 3 0 4 0;
#X connect 6 0 5 0;
#X connect 8 0 4 1;
#X connect 8 1 9 0;
#X connect 11 0 10 0;
#X connect 12 0 26 0;
#X connect 14 0 15 0;
#X connect 14 1 15 1;
#X connect 15 0 17 0;
#X connect 16 0 23 0;
#X connect 16 1 17 0;
#X connect 17 0 1 0;
#X connect 19 0 18 0;
#X connect 19 1 7 0;
#X connect 20 0 8 0;
#X connect 21 0 22 0;
#X connect 21 1 20 0;
#X connect 21 2 12 0;
#X connect 21 3 30 0;
#X connect 22 0 16 0;
#X connect 23 0 24 0;
#X connect 23 1 14 0;
#X connect 24 0 14 0;
#X connect 26 0 19 0;
#X connect 26 1 6 0;
#X connect 26 2 11 0;
#X connect 26 3 16 0;
#X connect 26 4 25 0;
#X connect 26 5 27 0;
#X connect 27 0 6 1;
#X connect 27 1 8 0;
#X connect 28 0 21 0;
#X connect 29 0 31 0;
#X connect 30 0 32 0;
#X connect 32 0 29 0;
#X connect 33 0 30 0;
#X connect 34 0 13 0;
#X restore 217 30 pd inside;
#X obj 287 10 namecanvas \$0-bezier-a;
#X obj 217 50 outlet;
#X obj 268 50 outlet;
#N canvas 0 0 426 446 license 0;
#X text 8 47 All rights reserved.;
#X text 8 227 The names of its contributors may not be used to endorse
or promote products derived from this software without specific prior
written permission.;
#X text 8 87 Redistribution and use in source and binary forms \, with
or without modification \, are permitted provided that the following
conditions are met:;
#X text 8 127 Redistributions of source code must retain the above
copyright notice \, this list of conditions and the following disclaimer.
;
#X text 8 297 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES \, INCLUDING
\, BUT NOT LIMITED TO \, THE IMPLIED WARRANTIES OF MERCHANTABILITY
AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT \, INDIRECT
\, INCIDENTAL \, SPECIAL \, EXEMPLARY \, OR CONSEQUENTIAL DAMAGES (INCLUDING
\, BUT NOT LIMITED TO \, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES
;
#X text 8 167 Redistributions in binary form must reproduce the above
copyright notice \, this list of conditions and the following disclaimer
in the documentation and/or other materials provided with the distribution.
;
#X text 8 27 jmmmpais@googlemail.com;
#X text 8 7 Copyright 2010 \, Joćo Pais;
#X restore 11 721 pd license;
#X text 8 703 (C) 2010 Joćo Pais - jmmmpais@googlemail.com;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 5 0;
#X coords -20 120 120 -20 110 110 2 0 0;