From 33789244c6dbe3611607e77fa98f0f0c72f354ee Mon Sep 17 00:00:00 2001 From: "B. Bogart" Date: Sat, 26 Nov 2005 22:21:07 +0000 Subject: Initial Commit of pixelTANGO 0.3.4 svn path=/trunk/abstractions/pixelTANGO/; revision=4049 --- abstractions/register.pd | 59 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) create mode 100644 abstractions/register.pd (limited to 'abstractions/register.pd') diff --git a/abstractions/register.pd b/abstractions/register.pd new file mode 100644 index 0000000..498aecb --- /dev/null +++ b/abstractions/register.pd @@ -0,0 +1,59 @@ +#N canvas 217 86 800 557 10; +#X obj -78 116 inlet; +#X obj -59 266 + 1; +#X obj 166 177 loadbang; +#X obj 115 437 prepend register; +#X obj -24 240 spigot; +#X msg 25 216 1; +#X obj -4 194 bang; +#X msg -4 216 0; +#X text -75 13 This is the abstraction registration system.; +#X text -75 33 Usage: [register abstraction-name \$0]; +#X obj -59 340 prepend \$1; +#X obj -78 364 prepend register-head; +#X obj 166 293 f \$2; +#X text -75 53 Start the registration process by sending register-head +0 message.; +#X text 241 215 For some reason four abstractions seem to send 5 register +messages! This is because each sends out a value in the process of +it counting! how to avoid this? Of course the newer value will over-write +the older one \, but this is a bit ugly.; +#X obj -78 139 route register-head \$1 layerNum; +#X obj 81 260 f; +#X obj 115 320 pack f f; +#X obj 115 346 prepend \$1; +#X msg 81 284 set \$1; +#X text 240 155 Once this abstraction has been counted ignore "register-head" +messages.; +#X obj 63 402 prepend layerNum; +#X obj 115 372 prepend N; +#X obj 120 498 outlet; +#X obj -78 474 outlet; +#X text -18 474 how to Make sure that messages pass in order??; +#X connect 0 0 15 0; +#X connect 1 0 10 0; +#X connect 1 0 17 0; +#X connect 1 0 23 0; +#X connect 2 0 5 0; +#X connect 2 0 12 0; +#X connect 3 0 24 0; +#X connect 4 0 1 0; +#X connect 5 0 4 1; +#X connect 6 0 7 0; +#X connect 7 0 4 1; +#X connect 10 0 24 0; +#X connect 11 0 24 0; +#X connect 12 0 17 1; +#X connect 15 0 4 0; +#X connect 15 0 11 0; +#X connect 15 1 6 0; +#X connect 15 1 1 0; +#X connect 15 2 16 0; +#X connect 15 2 21 0; +#X connect 15 3 24 0; +#X connect 16 0 19 0; +#X connect 17 0 18 0; +#X connect 18 0 22 0; +#X connect 19 0 22 0; +#X connect 21 0 24 0; +#X connect 22 0 3 0; -- cgit v1.2.1