path: root/bezier-help.pd

#N struct 1076-bez-array float x float y array 1076-bez-c-arr 1076-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.;
#N struct 1076-bez-c float x float y;
#N struct 1055-bez-array float x float y array 1055-bez-c-arr 1055-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.;
#N struct 1055-bez-c float x float y;
#N canvas 367 58 811 625 10;
#X floatatom 23 285 5 0 0 0 - - -;
#X floatatom 57 157 5 0 0 0 - - -;
#X msg 158 126 p0 0 0 \, p1 0.2 0.4 \, p2 0.8 0.6 \, p3 1 1;
#X text 420 184 ha demasiada accao a passar no patch \, optimizar;
#X msg 104 88 dump;
#N canvas 0 0 539 313 save 0;
#X obj 151 42 inlet;
#X obj 151 152 list prepend add2;
#X obj 151 192 list trim;
#X obj 151 172 t l b;
#X msg 178 212 addcomma;
#X msg 151 242 \, p0 0 0 \, p1 -0.100666 1.1 \, p2 1.078 -0.012 \,
p3 0.99 0.99;
#X msg 178 122 set;
#X obj 151 62 t l l;
#X obj 178 102 route p0;
#X obj 178 82 route list;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 2 0;
#X connect 3 1 4 0;
#X connect 4 0 5 0;
#X connect 6 0 5 0;
#X connect 7 0 1 0;
#X connect 7 1 9 0;
#X connect 8 0 6 0;
#X connect 9 0 8 0;
#X restore 400 492 pd save points;
#X text 416 215 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 obj 42 186 hsl 50 10 0 1 0 0 empty empty empty -2 -8 0 10 -228856
-1 -1 4900 1;
#X obj 42 204 hsl 50 10 0 1 0 0 empty empty empty -2 -8 0 10 -228856
-1 -1 4900 1;
#X text 369 35 DCCoY4HuLhg9Aj;
#X msg 163 57 size \$1;
#X floatatom 163 38 5 0 0 0 - - -;
#X text 422 346 argumentos;
#X text 425 364 - tamanho do array;
#X text 429 381 - canvas size (x + y);
#X msg 37 23 canvas 300 100;
#X text 418 148 so funciona depois de clickar nele? o arraypoint do
append nao funciona?;
#X msg 76 64 canvas \$1;
#X floatatom 76 44 5 0 0 0 - - -;
#X msg 163 78 size 100;
#X text 417 305 y - esta fixo em 99 como mudar para a mesma resolucao
de x?;
#X obj 19 131 line;
#X msg 19 111 0 \, 1 3000;
#X text 415 122 opcao para mostrar ponto de leitura;
#X text 423 93 sair os dois eixos \, x e y.;
#X msg 250 91 p0 \$1 \$2;
#X obj 250 71 pack;
#X floatatom 225 32 5 0 0 0 - - -;
#X floatatom 260 32 5 0 0 0 - - -;
#X obj 260 51 t b f;
#N canvas 535 50 842 885 bezier-a 0;
#X scalar 1076-bez-array 0 0 -2 -2 3 3 36.7999 111.4 41.7999 116.4
58.4001 -16.2 63.4001 -11.2 98 98 103 103 \; 0 0 \; 1.09947 3.27078
\; 2.19004 6.40106 \; 3.2719 9.39374 \; 4.34529 12.2517 \; 5.41039
14.9778 \; 6.46743 17.5751 \; 7.51662 20.0463 \; 8.55817 22.3944 \;
9.59229 24.6223 \; 10.6192 26.7328 \; 11.6391 28.7289 \; 12.6522 30.6135
\; 13.6587 32.3894 \; 14.6588 34.0596 \; 15.6528 35.6269 \; 16.6408
37.0943 \; 17.6231 38.4647 \; 18.5998 39.7409 \; 19.5713 40.9258 \;
20.5376 42.0224 \; 21.499 43.0335 \; 22.4558 43.9621 \; 23.408 44.8109
\; 24.356 45.583 \; 25.3 46.2813 \; 26.2401 46.9085 \; 27.1766 47.4677
\; 28.1097 47.9616 \; 29.0395 48.3933 \; 29.9664 48.7656 \; 30.8905
49.0814 \; 31.812 49.3436 \; 32.7311 49.5551 \; 33.6481 49.7188 \;
34.5632 49.8376 \; 35.4765 49.9143 \; 36.3883 49.952 \; 37.2988 49.9534
\; 38.2083 49.9215 \; 39.1168 49.8592 \; 40.0247 49.7694 \; 40.932
49.6549 \; 41.8392 49.5187 \; 42.7463 49.3636 \; 43.6536 49.1927 \;
44.5613 49.0086 \; 45.4695 48.8145 \; 46.3786 48.613 \; 47.2887 48.4072
\; 48.2 48.2 \; 49.1128 47.9942 \; 50.0272 47.7927 \; 50.9434 47.5985
\; 51.8618 47.4144 \; 52.7824 47.2434 \; 53.7055 47.0882 \; 54.6314
46.9519 \; 55.5601 46.8373 \; 56.492 46.7473 \; 57.4272 46.6848 \;
58.366 46.6527 \; 59.3085 46.654 \; 60.255 46.6914 \; 61.2057 46.7679
\; 62.1608 46.8865 \; 63.1205 47.0499 \; 64.085 47.2611 \; 65.0546
47.523 \; 66.0294 47.8385 \; 67.0096 48.2104 \; 67.9955 48.6418 \;
68.9873 49.1353 \; 69.9852 49.6941 \; 70.9893 50.321 \; 72 51.0188
\; 73.0174 51.7904 \; 74.0417 52.6389 \; 75.0732 53.5669 \; 76.112
54.5776 \; 77.1584 55.6736 \; 78.2126 56.8581 \; 79.2747 58.1337 \;
80.3451 59.5035 \; 81.4238 60.9703 \; 82.5112 62.537 \; 83.6074 64.2066
\; 84.7127 65.9819 \; 85.8272 67.8659 \; 86.9512 69.8614 \; 88.0848
71.9712 \; 89.2283 74.1984 \; 90.382 76.5458 \; 91.5459 79.0163 \;
92.7204 81.6128 \; 93.9056 84.3382 \; 95.1018 87.1954 \; 96.3091 90.1872
\; 97.5277 93.3167 \; 100 100 \; \;;
#X scalar 1055-bez-array 0 0 -2 -2 3 3 19.2727 73.6361 24.2727 78.6361
92 3.27309 97 8.27309 98 98 103 103 \; 0 0 \; 0.5941 2.1662 \; 1.21956
4.24786 \; 1.87568 6.24685 \; 2.56174 8.16505 \; 3.27704 10.0043 \;
4.02087 11.7665 \; 4.79252 13.4535 \; 5.59127 15.0672 \; 6.41643 16.6094
\; 7.26727 18.082 \; 8.1431 19.4868 \; 9.0432 20.8258 \; 9.96686 22.1008
\; 10.9134 23.3137 \; 11.882 24.4662 \; 12.8721 25.5604 \; 13.883 26.5981
\; 14.9138 27.5811 \; 15.964 28.5112 \; 17.0327 29.3905 \; 18.1194
30.2207 \; 19.2232 31.0036 \; 20.3435 31.7413 \; 21.4796 32.4355 \;
22.6307 33.088 \; 23.7961 33.7009 \; 24.9752 34.2758 \; 26.1673 34.8148
\; 27.3715 35.3196 \; 28.5873 35.7922 \; 29.8138 36.2343 \; 31.0505
36.6479 \; 32.2965 37.0349 \; 33.5512 37.397 \; 34.8139 37.7362 \;
36.0838 38.0543 \; 37.3602 38.3532 \; 38.6425 38.6348 \; 39.93 38.9009
\; 41.2218 39.1535 \; 42.5174 39.3942 \; 43.8159 39.6251 \; 45.1168
39.848 \; 46.4192 40.0648 \; 47.7225 40.2773 \; 49.0259 40.4874 \;
50.3289 40.6969 \; 51.6305 40.9078 \; 52.9302 41.1218 \; 54.2273 41.341
\; 55.5209 41.567 \; 56.8105 41.8018 \; 58.0952 42.0474 \; 59.3745
42.3054 \; 60.6475 42.5778 \; 61.9136 42.8665 \; 63.172 43.1733 \;
64.4222 43.5001 \; 65.6632 43.8488 \; 66.8945 44.2212 \; 68.1154 44.6192
\; 69.325 45.0446 \; 70.5228 45.4994 \; 71.7079 45.9853 \; 72.8797
46.5044 \; 74.0376 47.0583 \; 75.1807 47.649 \; 76.3083 48.2784 \;
77.4199 48.9483 \; 78.5145 49.6607 \; 79.5916 50.4172 \; 80.6505 51.2199
\; 81.6903 52.0706 \; 82.7105 52.9712 \; 83.7102 53.9234 \; 84.6889
54.9293 \; 85.6457 55.9906 \; 86.58 57.1092 \; 87.491 58.2871 \; 88.3782
59.5259 \; 89.2406 60.8278 \; 90.0777 62.1943 \; 90.8888 63.6276 \;
91.673 65.1294 \; 92.4298 66.7015 \; 93.1583 68.3459 \; 93.858 70.0645
\; 94.528 71.8591 \; 95.1677 73.7314 \; 95.7764 75.6835 \; 96.3533
77.7172 \; 96.8977 79.8344 \; 97.409 82.0368 \; 97.8865 84.3265 \;
98.3293 86.7052 \; 98.7369 89.1749 \; 99.1084 91.7373 \; 99.4433 94.3944
\; 100 100 \; \;;
#X obj 217 10 inlet;
#N canvas 752 125 572 401 inside 0;
#X obj 20 52 inlet;
#X obj 260 272 s \$0-bezier-a;
#X obj 220 132 sel 0;
#N canvas 0 0 450 300 element 0;
#X obj 52 46 struct \$0-bez-c float x float y;
#X restore 6 322 pd element;
#N canvas 113 250 606 425 array 0;
#X obj 58 96 route change click;
#X obj 78 130 unpack p f;
#X obj 58 24 struct \$0-bez-array float x float y array \$0-bez-c-arr
\$0-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.;
#X obj 31 312 filledpolygon 0 0 1 p1x p1y p1x. p1y p1x. p1y. p1x p1y.
p1x p1y;
#X obj 31 345 filledpolygon 0 0 1 p2x p2y p2x. p2y p2x. p2y. p2x p2y.
p2x p2y;
#X obj 78 150 t b p;
#X obj 78 210 outlet;
#X obj 105 170 s \$0-arrpoint;
#X obj 78 190 speedlim 150;
#X obj 213 160 drawpolygon 0 1 0 0 0 100 100 100 100 0 0 0;
#X obj 31 378 filledpolygon 0 0 1 p3x(-2:97)(-2:97) p3y(-2:97)(-2:97)
p3x. p3y p3x. p3y. p3x p3y. p3x p3y;
#X obj 31 279 filledpolygon 0 0 1 p0x(-2:97)(-2:97) p0y(-2:97)(-2:97)
p0x. p0y p0x. p0y. p0x p0y. p0x p0y;
#X obj 213 130 plot \$0-bez-c-arr 9 2 0 0;
#X text 37 243 4 control points \, 2 extremos nao saem da caixa. fronteiras
desfazadas em 2pt \, para desenhar o quadrado;
#X connect 0 0 1 0;
#X connect 0 1 1 0;
#X connect 1 0 5 0;
#X connect 2 0 0 0;
#X connect 5 0 8 0;
#X connect 5 1 7 0;
#X connect 8 0 6 0;
#X restore 6 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 498 element \$0-bez-array \$0-bez-c-arr;
#X obj 46 558 set \$0-bez-c y;
#X obj 27 538 set \$0-bez-c x;
#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 141 190 get \$0-bez-array p0x;
#X obj 311 190 get \$0-bez-array p0y;
#X obj 341 250 get \$0-bez-array p3y;
#X obj 171 250 get \$0-bez-array p3x;
#X obj 161 230 get \$0-bez-array p2x;
#X obj 331 230 get \$0-bez-array p2y;
#X obj 320 210 get \$0-bez-array p1y;
#X obj 151 210 get \$0-bez-array p1x;
#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 connect 0 0 22 0;
#X connect 1 0 2 0;
#X connect 2 0 12 0;
#X connect 3 0 10 0;
#X connect 4 0 9 0;
#X connect 5 0 3 0;
#X connect 6 0 4 0;
#X connect 7 0 8 1;
#X connect 8 0 11 0;
#X connect 11 0 10 1;
#X connect 11 1 9 1;
#X connect 12 0 36 0;
#X connect 12 1 37 0;
#X connect 12 2 8 0;
#X connect 14 0 27 0;
#X connect 15 0 29 0;
#X connect 16 0 30 0;
#X connect 17 0 28 0;
#X connect 18 0 5 3;
#X connect 19 0 6 3;
#X connect 20 0 6 2;
#X connect 21 0 5 2;
#X connect 22 0 33 0;
#X connect 22 1 2 1;
#X connect 23 0 26 0;
#X connect 24 0 25 0;
#X connect 25 0 14 0;
#X connect 25 0 15 0;
#X connect 25 0 20 0;
#X connect 25 0 19 0;
#X connect 25 0 16 0;
#X connect 25 0 21 0;
#X connect 25 0 18 0;
#X connect 25 0 17 0;
#X connect 26 0 22 0;
#X connect 26 1 25 0;
#X connect 27 0 5 1;
#X connect 28 0 5 4;
#X connect 29 0 6 1;
#X connect 30 0 6 4;
#X connect 31 0 35 0;
#X connect 32 0 33 1;
#X connect 33 0 1 0;
#X connect 34 0 36 1;
#X connect 34 0 37 1;
#X connect 35 0 22 0;
#X connect 35 1 32 0;
#X connect 35 2 34 0;
#X connect 36 0 5 0;
#X connect 37 0 6 0;
#X restore 6 362 pd calculate;
#X obj 65 132 outlet;
#X obj 230 12 loadbang;
#N canvas 0 0 450 363 index 0;
#X obj 63 212 outlet;
#X obj 258 132 r \$0-arrpoint;
#X obj 63 172 get \$0-bez-c y;
#X obj 63 152 element \$0-bez-array \$0-bez-c-arr;
#X obj 63 72 inlet;
#X obj 156 52 r \$0-arrpoint;
#X obj 156 72 getsize \$0-bez-array \$0-bez-c-arr;
#X obj 63 112 maxlib/scale 0 1 0 0;
#X obj 156 92 - 1;
#X obj 63 192 / 99;
#X connect 1 0 3 1;
#X connect 2 0 9 0;
#X connect 3 0 2 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 7 0 3 0;
#X connect 8 0 7 4;
#X connect 9 0 0 0;
#X restore 65 112 pd index;
#N canvas 0 0 450 300 size 0;
#X obj 99 89 inlet;
#X obj 294 149 r \$0-arrpoint;
#X obj 99 169 setsize \$0-bez-array \$0-bez-c-arr;
#X obj 99 109 s \$0-size;
#X obj 99 149 r \$0-size;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 4 0 2 0;
#X restore 16 112 pd size;
#N canvas 564 290 668 593 point-befehle 0;
#X obj 228 58 route p0 p1 p2 p3;
#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 60 236 set \$0-bez-array p0x;
#X obj 60 256 set \$0-bez-array p0y;
#X obj 200 236 set \$0-bez-array p1x;
#X obj 200 256 set \$0-bez-array p1y;
#X obj 340 236 set \$0-bez-array p2x;
#X obj 480 236 set \$0-bez-array p3x;
#X obj 480 256 set \$0-bez-array p3y;
#X obj 340 256 set \$0-bez-array p2y;
#X obj 47 116 pointer;
#X obj 47 362 get \$0-bez-array p0x;
#X obj 57 402 set \$0-bez-array p0x.;
#X obj 77 432 get \$0-bez-array p0y;
#X obj 57 472 set \$0-bez-array p0y.;
#X obj 47 332 t p p p p;
#X obj 47 292 t p p p p;
#X obj 197 332 t p p p p;
#X obj 347 332 t p p p p;
#X obj 496 332 t p p p p;
#X obj 197 362 get \$0-bez-array p1x;
#X obj 207 402 set \$0-bez-array p1x.;
#X obj 227 432 get \$0-bez-array p1y;
#X obj 207 472 set \$0-bez-array p1y.;
#X obj 347 362 get \$0-bez-array p2x;
#X obj 357 402 set \$0-bez-array p2x.;
#X obj 377 432 get \$0-bez-array p2y;
#X obj 357 472 set \$0-bez-array p2y.;
#X obj 496 362 get \$0-bez-array p3x;
#X obj 506 402 set \$0-bez-array p3x.;
#X obj 526 432 get \$0-bez-array p3y;
#X obj 506 472 set \$0-bez-array p3y.;
#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 197 382 + 5;
#X obj 227 452 + 5;
#X obj 377 452 + 5;
#X obj 347 382 + 5;
#X obj 496 382 + 5;
#X obj 526 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 303 568 outlet;
#N canvas 118 276 450 300 convert 0;
#X obj 192 68 inlet;
#X obj 164 188 outlet;
#X obj 192 108 - 5;
#X obj 192 128 * 0.01;
#X obj 192 88 + 2;
#X obj 242 68 inlet;
#X obj 242 108 - 5;
#X obj 242 128 * 0.01;
#X obj 242 88 + 2;
#X obj 164 158 pack f f f;
#X obj 99 121 r \$0-dump;
#X obj 282 68 r \$0-size;
#X obj 282 88 inv;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 9 1;
#X connect 4 0 2 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 9 2;
#X connect 8 0 6 0;
#X connect 9 0 1 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 7 1;
#X connect 12 0 3 1;
#X restore 497 502 pd convert;
#N canvas 118 276 450 300 convert 0;
#X obj 192 68 inlet;
#X obj 164 188 outlet;
#X obj 192 108 - 5;
#X obj 192 128 * 0.01;
#X obj 192 88 + 2;
#X obj 242 68 inlet;
#X obj 242 108 - 5;
#X obj 242 128 * 0.01;
#X obj 242 88 + 2;
#X obj 99 121 r \$0-dump;
#X obj 164 158 pack f f f;
#X obj 282 68 r \$0-size;
#X obj 282 88 inv;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 10 1;
#X connect 4 0 2 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 10 2;
#X connect 8 0 6 0;
#X connect 9 0 10 0;
#X connect 10 0 1 0;
#X connect 11 0 12 0;
#X connect 12 0 7 1;
#X connect 12 0 3 1;
#X restore 347 502 pd convert;
#N canvas 118 276 450 300 convert 0;
#X obj 192 68 inlet;
#X obj 164 188 outlet;
#X obj 192 108 - 5;
#X obj 192 128 * 0.01;
#X obj 192 88 + 2;
#X obj 242 68 inlet;
#X obj 242 108 - 5;
#X obj 242 128 * 0.01;
#X obj 242 88 + 2;
#X obj 164 158 pack f f f;
#X obj 99 121 r \$0-dump;
#X obj 282 68 r \$0-size;
#X obj 282 88 inv;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 9 1;
#X connect 4 0 2 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 9 2;
#X connect 8 0 6 0;
#X connect 9 0 1 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 7 1;
#X connect 12 0 3 1;
#X restore 197 502 pd convert;
#N canvas 118 276 450 300 convert 0;
#X obj 192 68 inlet;
#X obj 164 188 outlet;
#X obj 192 108 - 5;
#X obj 192 128 * 0.01;
#X obj 192 88 + 2;
#X obj 242 68 inlet;
#X obj 242 108 - 5;
#X obj 242 128 * 0.01;
#X obj 242 88 + 2;
#X obj 164 158 pack f f f;
#X obj 99 121 r \$0-dump;
#X obj 282 68 r \$0-size;
#X obj 282 88 inv;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 9 1;
#X connect 4 0 2 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 9 2;
#X connect 8 0 6 0;
#X connect 9 0 1 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 7 1;
#X connect 12 0 3 1;
#X restore 47 502 pd convert;
#X obj 233 186 * 100;
#X obj 93 186 * 100;
#X obj 373 186 * 100;
#X obj 513 186 * 100;
#X obj 513 206 - 2;
#X obj 373 206 - 2;
#X obj 233 206 - 2;
#X obj 93 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 msg 47 522 list p0 \$2 \$3;
#X msg 197 522 list p1 \$2 \$3;
#X msg 347 522 list p2 \$2 \$3;
#X msg 497 522 list p3 \$2 \$3;
#X connect 0 0 2 0;
#X connect 0 1 37 0;
#X connect 0 2 38 0;
#X connect 0 3 39 0;
#X connect 1 0 41 0;
#X connect 2 0 72 0;
#X connect 2 1 58 0;
#X connect 3 0 4 0;
#X connect 3 0 13 0;
#X connect 4 0 48 0;
#X connect 4 1 49 0;
#X connect 4 2 50 0;
#X connect 4 3 51 0;
#X connect 13 0 19 0;
#X connect 14 0 35 0;
#X connect 16 0 36 0;
#X connect 18 0 14 0;
#X connect 18 1 15 1;
#X connect 18 2 16 0;
#X connect 18 3 17 1;
#X connect 19 0 18 0;
#X connect 19 1 20 0;
#X connect 19 2 21 0;
#X connect 19 3 22 0;
#X connect 20 0 23 0;
#X connect 20 1 24 1;
#X connect 20 2 25 0;
#X connect 20 3 26 1;
#X connect 21 0 27 0;
#X connect 21 1 28 1;
#X connect 21 2 29 0;
#X connect 21 3 30 1;
#X connect 22 0 31 0;
#X connect 22 1 32 1;
#X connect 22 2 33 0;
#X connect 22 3 34 1;
#X connect 23 0 42 0;
#X connect 25 0 43 0;
#X connect 27 0 45 0;
#X connect 29 0 44 0;
#X connect 31 0 46 0;
#X connect 33 0 47 0;
#X connect 35 0 15 0;
#X connect 35 0 56 0;
#X connect 36 0 17 0;
#X connect 36 0 56 1;
#X connect 37 0 71 0;
#X connect 37 1 57 0;
#X connect 38 0 70 0;
#X connect 38 1 59 0;
#X connect 39 0 69 0;
#X connect 39 1 60 0;
#X connect 41 0 40 0;
#X connect 41 1 13 0;
#X connect 41 2 0 0;
#X connect 42 0 24 0;
#X connect 42 0 55 0;
#X connect 43 0 26 0;
#X connect 43 0 55 1;
#X connect 44 0 30 0;
#X connect 44 0 54 1;
#X connect 45 0 28 0;
#X connect 45 0 54 0;
#X connect 46 0 32 0;
#X connect 46 0 53 0;
#X connect 47 0 34 0;
#X connect 47 0 53 1;
#X connect 48 0 6 1;
#X connect 48 1 5 1;
#X connect 49 0 8 1;
#X connect 49 1 7 1;
#X connect 50 0 12 1;
#X connect 50 1 9 1;
#X connect 51 0 11 1;
#X connect 51 1 10 1;
#X connect 53 0 77 0;
#X connect 54 0 76 0;
#X connect 55 0 75 0;
#X connect 56 0 74 0;
#X connect 57 0 63 0;
#X connect 58 0 64 0;
#X connect 59 0 62 0;
#X connect 60 0 61 0;
#X connect 61 0 11 0;
#X connect 62 0 12 0;
#X connect 63 0 8 0;
#X connect 64 0 6 0;
#X connect 65 0 5 0;
#X connect 66 0 7 0;
#X connect 67 0 9 0;
#X connect 68 0 10 0;
#X connect 69 0 68 0;
#X connect 70 0 67 0;
#X connect 71 0 66 0;
#X connect 72 0 65 0;
#X connect 73 0 60 1;
#X connect 73 0 69 1;
#X connect 73 0 59 1;
#X connect 73 0 70 1;
#X connect 73 0 57 1;
#X connect 73 0 71 1;
#X connect 73 0 58 1;
#X connect 73 0 72 1;
#X connect 74 0 52 0;
#X connect 75 0 52 0;
#X connect 76 0 52 0;
#X connect 77 0 52 0;
#X restore 75 342 pd point-befehle;
#X obj 240 32 t b b b;
#X msg 115 312 p0 0 0 \, p1 0.2 0.4 \, p2 0.8 0.6 \, p3 1 1;
#X obj 168 362 outlet;
#X obj 20 72 route size float canvas dump;
#X obj 143 132 s \$0-dump;
#X obj 143 112 0;
#X obj 220 152 110;
#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 183 s \$0-size;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 1 1 4 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X restore 259 72 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 obj 129 178 append \$0-bez-array x y;
#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 connect 0 0 6 0;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 0 0;
#X connect 6 0 4 0;
#X connect 6 1 3 2;
#X connect 7 0 1 0;
#X restore 279 52 pd create-init;
#X text 258 111 canvas init;
#X obj 230 112 \$2;
#X obj 220 202 t f f;
#X obj 220 222 pack;
#X obj 220 182 route float list;
#X msg 260 252 donecanvasdialog 1 -1 2 -20 120 120 -20 \$1 \$2 0 0
;
#X connect 0 0 14 0;
#X connect 2 0 17 0;
#X connect 2 1 25 0;
#X connect 4 0 5 0;
#X connect 7 0 11 0;
#X connect 7 0 21 0;
#X connect 8 0 6 0;
#X connect 10 0 5 1;
#X connect 10 1 13 0;
#X connect 11 0 12 0;
#X connect 11 1 18 0;
#X connect 11 2 19 0;
#X connect 12 0 10 0;
#X connect 14 0 9 0;
#X connect 14 1 8 0;
#X connect 14 2 24 0;
#X connect 14 3 16 0;
#X connect 14 4 10 0;
#X connect 16 0 15 0;
#X connect 17 0 24 0;
#X connect 21 0 2 0;
#X connect 22 0 23 0;
#X connect 22 1 23 1;
#X connect 23 0 25 0;
#X connect 24 0 22 0;
#X connect 24 1 25 0;
#X connect 25 0 1 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;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 3 1 6 0;
#X coords -20 120 120 -20 100 100 2 0 0;
#X restore 115 156 pd bezier-a;
#X text 415 67 o resultado ainda nao funciona bem;
#X connect 1 0 30 0;
#X connect 2 0 30 0;
#X connect 4 0 30 0;
#X connect 7 0 1 0;
#X connect 10 0 30 0;
#X connect 11 0 10 0;
#X connect 15 0 30 0;
#X connect 17 0 30 0;
#X connect 18 0 17 0;
#X connect 19 0 30 0;
#X connect 21 0 7 0;
#X connect 22 0 21 0;
#X connect 25 0 30 0;
#X connect 26 0 25 0;
#X connect 27 0 26 0;
#X connect 28 0 29 0;
#X connect 29 0 26 0;
#X connect 29 1 26 1;
#X connect 30 0 0 0;
#X connect 30 0 8 0;
#X connect 30 1 5 0;