svn path=/trunk/abstractions/jmmmp/; revision=15098

1 files changed, 77 insertions, 70 deletions

diff --git a/bezier.pd b/bezier.pd
index 41bc9da..e20012c 100644
--- a/bezier.pd
+++ b/bezier.pd
@@ -136,7 +136,7 @@ a escalonar tudo? talvez nao;
 #X connect 34 0 19 0;

 #X connect 35 0 8 0;

 #X restore 20 362 pd calculate;

-#X obj 65 182 outlet;

+#X obj 65 202 outlet;

 #N canvas 161 314 333 632 index 0;

 #X obj 13 292 outlet;

 #X obj 208 142 r \$0-arrpoint;

@@ -146,84 +146,87 @@ a escalonar tudo? talvez nao;
 #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 156 332 unpack;

+#X obj 246 282 r \$0-arrpoint;

+#X obj 143 312 pointer;

+#X obj 143 452 t p p p p;

+#X obj 143 502 + 5;

+#X obj 173 572 + 5;

+#X obj 246 382 t p p;

+#X obj 199 372 - 2;

+#X obj 156 372 - 2;

+#X obj 143 262 pack;

+#X obj 156 352 * 1;

+#X obj 199 352 * 1;

+#X obj 143 282 t b l;

+#X text 205 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 88 242 0;

+#X obj 58 242 1;

 #X obj 13 102 f;

 #X obj 106 82 getsize \$0-bez-array \$0-bez-c-arr;

 #X obj 13 162 element \$0-bez-array \$0-bez-c-arr;

 #X obj 13 182 get \$0-bez-c x y;

-#X obj 136 402 set \$0-bez-array rpx;

-#X obj 135 422 set \$0-bez-array rpy;

-#X obj 123 482 get \$0-bez-array rpx;

-#X obj 133 522 set \$0-bez-array rpx.;

-#X obj 153 552 get \$0-bez-array rpy;

-#X obj 163 592 set \$0-bez-array rpy.;

+#X obj 156 402 set \$0-bez-array rpx;

+#X obj 155 422 set \$0-bez-array rpy;

+#X obj 143 482 get \$0-bez-array rpx;

+#X obj 153 522 set \$0-bez-array rpx.;

+#X obj 173 552 get \$0-bez-array rpy;

+#X obj 183 592 set \$0-bez-array rpy.;

 #X obj 233 217 inlet;

-#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 obj 53 342 outlet;

+#X obj 53 322 spigot 1;

+#X connect 1 0 30 1;

+#X connect 2 0 28 0;

+#X connect 3 0 29 0;

+#X connect 4 0 30 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 6 0 25 0;

+#X connect 7 0 40 0;

+#X connect 8 0 18 0;

+#X connect 8 1 19 0;

+#X connect 9 0 10 0;

+#X connect 9 0 14 0;

 #X connect 10 0 11 0;

-#X connect 10 0 15 0;

-#X connect 11 0 12 0;

+#X connect 11 0 34 0;

+#X connect 11 1 35 1;

+#X connect 11 2 36 0;

+#X connect 11 3 37 1;

 #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 connect 39 0 29 0;

-#X restore 65 162 pd index;

+#X connect 13 0 37 0;

+#X connect 14 0 33 1;

+#X connect 14 1 32 1;

+#X connect 15 0 33 0;

+#X connect 16 0 32 0;

+#X connect 17 0 20 0;

+#X connect 18 0 16 0;

+#X connect 19 0 15 0;

+#X connect 20 0 10 0;

+#X connect 20 1 8 0;

+#X connect 22 0 24 0;

+#X connect 24 0 27 0;

+#X connect 24 1 28 0;

+#X connect 24 2 26 0;

+#X connect 25 0 0 0;

+#X connect 26 0 25 1;

+#X connect 26 0 40 1;

+#X connect 27 0 25 1;

+#X connect 27 0 40 1;

+#X connect 28 0 4 0;

+#X connect 29 0 5 0;

+#X connect 30 0 31 0;

+#X connect 31 0 6 0;

+#X connect 31 0 17 0;

+#X connect 31 1 7 0;

+#X connect 31 1 17 1;

+#X connect 34 0 12 0;

+#X connect 36 0 13 0;

+#X connect 38 0 28 0;

+#X connect 40 0 39 0;

+#X restore 65 182 pd index;

 #N canvas 0 0 332 180 size 0;

 #X obj 18 17 inlet;

 #X obj 213 117 r \$0-arrpoint;

@@ -500,8 +503,8 @@ a escalonar tudo? talvez nao;
 #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;

+#X obj 110 152 s \$0-dump;

+#X obj 110 132 0;

 #N canvas 0 0 450 300 size-init 0;

 #X obj 154 93 inlet;

 #X obj 154 133 sel 0;

@@ -604,9 +607,11 @@ pontos do array... \; ajustar tamanha dos pontos kr de acordo com o
 tamanho do display;

 #X obj 300 32 t b b b b;

 #X obj 20 342 t b b;

+#X obj 110 202 outlet;

 #X connect 0 0 25 0;

 #X connect 3 0 35 0;

 #X connect 6 0 5 0;

+#X connect 6 1 36 0;

 #X connect 8 0 4 1;

 #X connect 8 1 9 0;

 #X connect 11 0 10 0;

@@ -673,7 +678,9 @@ in the documentation and/or other materials provided with the distribution.
 #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 obj 242 70 outlet;

 #X connect 0 0 1 0;

 #X connect 1 0 3 0;

-#X connect 1 1 4 0;

+#X connect 1 1 7 0;

+#X connect 1 2 4 0;

 #X coords -20 120 120 -20 110 110 2 0 0;