a new library for innardssvn2git-root

svn path=/trunk/externals/iem/iemguts/; revision=8704

2 files changed, 235 insertions, 0 deletions

diff --git a/examples/01.persistent_properties.pd b/examples/01.persistent_properties.pd
new file mode 100644
index 0000000..3b84ee3
--- /dev/null
+++ b/examples/01.persistent_properties.pd
@@ -0,0 +1,10 @@
+#N canvas 416 189 491 300 10;
+#X text 98 82 right-click on the objects and select "properties".;
+#X text 99 103 then modify the properties and click on "OK";
+#X text 100 125 finally save this patch and re-open it!;
+#X obj 73 195 gopcanvas 150 212 0;
+#X text 77 175 [gopcanvas];
+#X text 263 179 [gopcanvas];
+#X text 266 164 another;
+#X text 46 43 persistent properties for abstractions!;
+#X obj 259 199 gopcanvas 255 120 28;
diff --git a/examples/gopcanvas.pd b/examples/gopcanvas.pd
new file mode 100644
index 0000000..c97814c
--- /dev/null
+++ b/examples/gopcanvas.pd
@@ -0,0 +1,225 @@
+#N canvas 452 272 631 456 10;
+#X obj 138 250 propertybang;
+#N canvas 203 89 362 187 \$0-properties 0;
+#X obj 58 137 cnv 15 200 35 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 67 145 bng 15 250 50 0 \$0-done empty OK 17 7 0 10 -24198 -1
+-1;
+#X obj 188 145 bng 15 250 50 0 \$0-cancel empty cancel 17 7 0 10 -258699
+-1 -1;
+#X obj 61 76 hsl 128 15 0 255 0 0 \$0-R \$0-R empty -2 -8 0 10 -258699
+-1 -1 0 1;
+#X obj 61 93 hsl 128 15 0 255 0 0 \$0-G \$0-G empty -2 -8 0 10 -24198
+-1 -1 0 1;
+#X obj 61 110 hsl 128 15 0 255 0 0 \$0-B \$0-B empty -2 -8 0 10 -62784
+-1 -1 0 1;
+#X obj 206 76 cnv 15 50 50 empty \$0-color empty 20 12 0 14 -154945
+-262144 0;
+#X obj 120 145 bng 15 250 50 0 \$0-apply empty apply 17 7 0 10 -241291
+-1 -1;
+#X text 90 37 select your color!;
+#X restore 138 419 pd \$0-properties;
+#X obj 138 282 t b b;
+#X obj 101 101 cnv 15 83 58 empty \$0-label empty 20 12 0 14 -154945
+-262144 0;
+#X obj 138 398 s pd-\$0-properties;
+#X msg 138 381 vis \$1;
+#X msg 163 361 1;
+#X msg 138 361 0;
+#N canvas 42 382 857 456 propertyguts 0;
+#X obj 118 105 r \$0-R;
+#X obj 160 105 r \$0-G;
+#X obj 201 105 r \$0-B;
+#N canvas 15 207 606 448 RGB_____________ 0;
+#X obj 97 56 inlet;
+#X obj 262 43 inlet;
+#X obj 339 45 inlet;
+#X obj 405 44 inlet;
+#X obj 97 230 bang;
+#X msg 97 255 0;
+#X msg 123 254 1;
+#X obj 146 228 bang;
+#X msg 152 255 0;
+#X msg 180 255 1;
+#X obj 312 313 spigot;
+#X obj 249 385 outlet;
+#X text 93 33 select;
+#X text 267 28 red;
+#X text 337 30 green;
+#X text 409 30 blue;
+#X obj 405 132 t b f;
+#X obj 339 160 +;
+#X obj 339 185 t b f;
+#X obj 339 216 +;
+#X obj 296 385 outlet;
+#X obj 296 361 f;
+#X obj 249 361 f;
+#X obj 262 109 * -65536;
+#X obj 339 110 * -256;
+#X obj 405 110 * -1;
+#X obj 339 247 - 1;
+#X obj 97 135 route back label bang;
+#X obj 235 168 t b b b;
+#X obj 265 313 spigot 1;
+#X obj 262 77 max 0;
+#X obj 262 93 min 255;
+#X obj 339 77 max 0;
+#X obj 339 93 min 255;
+#X obj 405 77 max 0;
+#X obj 405 93 min 255;
+#X obj 262 61 i;
+#X obj 339 61 i;
+#X obj 405 61 i;
+#X connect 0 0 27 0;
+#X connect 1 0 36 0;
+#X connect 2 0 37 0;
+#X connect 3 0 38 0;
+#X connect 4 0 5 0;
+#X connect 4 0 6 0;
+#X connect 5 0 10 1;
+#X connect 6 0 29 1;
+#X connect 7 0 8 0;
+#X connect 7 0 9 0;
+#X connect 8 0 29 1;
+#X connect 9 0 10 1;
+#X connect 10 0 21 1;
+#X connect 16 0 17 0;
+#X connect 16 1 17 1;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 18 1 19 1;
+#X connect 19 0 26 0;
+#X connect 21 0 20 0;
+#X connect 22 0 11 0;
+#X connect 23 0 19 0;
+#X connect 24 0 17 0;
+#X connect 25 0 16 0;
+#X connect 26 0 10 0;
+#X connect 26 0 29 0;
+#X connect 27 0 4 0;
+#X connect 27 1 7 0;
+#X connect 27 2 28 0;
+#X connect 28 0 22 0;
+#X connect 28 1 21 0;
+#X connect 28 2 26 0;
+#X connect 29 0 22 1;
+#X connect 30 0 31 0;
+#X connect 31 0 23 0;
+#X connect 32 0 33 0;
+#X connect 33 0 24 0;
+#X connect 34 0 35 0;
+#X connect 35 0 25 0;
+#X connect 36 0 30 0;
+#X connect 37 0 32 0;
+#X connect 38 0 34 0;
+#X restore 118 244 pd RGB_____________;
+#X obj 118 165 b;
+#X obj 118 130 t b f;
+#X obj 160 130 t b f;
+#X obj 201 130 t b f;
+#X obj 118 304 s \$0-color;
+#X obj 202 63 r \$0-done;
+#X obj 202 81 t b b;
+#X obj 29 100 b;
+#X obj 29 47 r \$0-cancel;
+#X obj 432 28 inlet properties opened;
+#X obj 29 415 outlet close properties;
+#X msg 118 285 color \$1 0;
+#X obj 257 355 route 0;
+#X obj 257 303 t b b;
+#X obj 310 357 f;
+#X obj 118 262 t f f;
+#X obj 310 392 s \$0-label;
+#X msg 310 374 color \$1 0;
+#X obj 257 83 r \$0-apply;
+#X obj 257 101 t b b;
+#X obj 335 106 pack \$1 \$2 \$3;
+#X obj 335 126 unpack 0 0 0;
+#X obj 310 44 loadbang;
+#X obj 310 63 t b b;
+#X obj 257 414 outlet arguments;
+#X obj 257 324 pack 0 \$1 \$2 \$3;
+#X obj 154 213 i;
+#X obj 190 213 i;
+#X obj 228 213 i;
+#X obj 432 100 b;
+#X obj 432 308 route 0;
+#X obj 432 287 pack 0 \$1 \$2 \$3;
+#X obj 432 345 s \$0-R;
+#X obj 474 345 s \$0-G;
+#X obj 515 345 s \$0-B;
+#X obj 432 327 unpack 0 0 0;
+#X connect 0 0 5 0;
+#X connect 1 0 6 0;
+#X connect 2 0 7 0;
+#X connect 3 0 19 0;
+#X connect 4 0 3 0;
+#X connect 5 0 4 0;
+#X connect 5 1 30 0;
+#X connect 6 0 4 0;
+#X connect 6 1 31 0;
+#X connect 7 0 4 0;
+#X connect 7 1 32 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 10 1 23 0;
+#X connect 11 0 14 0;
+#X connect 12 0 11 0;
+#X connect 13 0 33 0;
+#X connect 15 0 8 0;
+#X connect 16 0 28 0;
+#X connect 17 0 29 0;
+#X connect 17 1 18 0;
+#X connect 18 0 21 0;
+#X connect 19 0 15 0;
+#X connect 19 1 18 1;
+#X connect 21 0 20 0;
+#X connect 22 0 23 0;
+#X connect 23 0 17 0;
+#X connect 24 0 25 0;
+#X connect 25 0 5 0;
+#X connect 25 1 3 2;
+#X connect 25 2 3 3;
+#X connect 26 0 27 0;
+#X connect 27 0 18 0;
+#X connect 27 1 24 0;
+#X connect 29 0 16 0;
+#X connect 30 0 3 1;
+#X connect 30 0 29 1;
+#X connect 30 0 35 1;
+#X connect 31 0 3 2;
+#X connect 31 0 29 2;
+#X connect 31 0 35 2;
+#X connect 32 0 3 3;
+#X connect 32 0 29 3;
+#X connect 32 0 35 3;
+#X connect 33 0 35 0;
+#X connect 34 0 39 0;
+#X connect 35 0 34 0;
+#X connect 39 0 36 0;
+#X connect 39 1 37 0;
+#X connect 39 2 38 0;
+#X restore 138 304 pd propertyguts;
+#X obj 223 331 saveargs;
+#X text 43 37 this is a simple abstraction that displays a canvas via
+gop.;
+#X text 38 168 the canvas-color can be changed via a properties-panel
+(which is really the subpatch [\$0-properties]);
+#X text 38 196 saving the parent-patch (wherein this abstraction is
+embedded will also save the properties);
+#X text 228 248 <- enables the "property" menu and emits a bang when
+it is selected;
+#X text 237 306 <- all the property handling logic;
+#X text 277 333 <- handles the overriding of arguments in the parent
+patch;
+#X text 255 420 <-- the property-panel subpatch;
+#X text 42 53 it is used in the "persistent_properties" example.;
+#X connect 0 0 2 0;
+#X connect 2 0 8 0;
+#X connect 2 1 6 0;
+#X connect 5 0 4 0;
+#X connect 6 0 5 0;
+#X connect 7 0 5 0;
+#X connect 8 0 7 0;
+#X connect 8 1 9 0;
+#X coords 0 -1 1 1 85 60 2 100 100;