From 9924c45ae6e5a878cd97c5e952597a4c0d5d3c41 Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Mon, 25 Feb 2008 21:40:23 +0000
Subject: moving a few more abs in that will probably be useful to others
 instance, i released before on the list (it counts how many copies of itself
 exist) midi-coarsefine lets you use two 0-1 knobs/sliders to control one
 parameter with greater precision cpugraph gives you a running cpu graph,
 helpful for locating high-drain abstractions renamed rgb to be part of the
 color-collection; it is nice for setting IEMGUI to colors other than the
 "pd-palette", either directly or into a message for later re-banging

svn path=/trunk/abstractions/senderfruit/; revision=9520
---
 core/color.rgbset.pd    | 156 ++++++++++++++++++++++++++++++++++++++++++++++++
 core/cpugraph.pd        |  93 +++++++++++++++++++++++++++++
 core/instance.pd        |  57 ++++++++++++++++++
 core/midi-coarsefine.pd |  21 +++++++
 core/sft.rgb.pd         | 156 ------------------------------------------------
 5 files changed, 327 insertions(+), 156 deletions(-)
 create mode 100644 core/color.rgbset.pd
 create mode 100644 core/cpugraph.pd
 create mode 100644 core/instance.pd
 create mode 100644 core/midi-coarsefine.pd
 delete mode 100644 core/sft.rgb.pd

diff --git a/core/color.rgbset.pd b/core/color.rgbset.pd
new file mode 100644
index 0000000..480db7c
--- /dev/null
+++ b/core/color.rgbset.pd
@@ -0,0 +1,156 @@
+#N canvas 185 89 559 602 10;
+#X obj 30 183 cnv 15 18 15 empty \$0dispcol1 empty 20 12 0 14 -128992
+-262144 0;
+#X obj 218 73 * -65536;
+#X obj 281 73 * -256;
+#X obj 351 73 * -1;
+#X obj 351 98 t b f;
+#X obj 281 130 +;
+#X obj 281 161 t b f;
+#X obj 282 194 +;
+#X obj 282 221 - 1;
+#X obj 282 252 list prepend;
+#X obj 282 276 list trim;
+#X obj 282 301 route 0 1 2;
+#X obj 282 388 f;
+#X obj 310 388 f;
+#X obj 338 388 f;
+#X obj 351 336 t b b f;
+#X obj 287 336 t b f b;
+#X obj 225 337 t f b b;
+#X obj 279 473 pack f f f;
+#X obj 279 500 list prepend color;
+#X obj 30 116 vsl 15 60 0 255 0 0 \$0red \$0redR empty 0 -8 0 8 -258049
+-1 -1 2938 1;
+#X obj 50 116 vsl 15 60 0 255 0 0 \$0green \$0greenR empty 0 -8 0 8
+-4033 -1 -1 2938 1;
+#X obj 70 116 vsl 15 60 0 255 0 0 \$0blue \$0blueR empty 0 -8 0 8 -64
+-1 -1 2938 1;
+#X obj 279 526 list trim;
+#X obj 52 100 hradio 10 1 0 3 \$0layer \$0layerr back 0 -4 0 8 -1 -262144
+-1 0;
+#X obj 361 224 r \$0layer;
+#X obj 218 47 int;
+#X obj 281 47 int;
+#X obj 351 48 int;
+#X obj 218 21 r \$0red;
+#X obj 281 21 r \$0green;
+#X obj 351 21 r \$0blue;
+#X obj 30 95 bng 15 250 50 0 \$0nullS \$0nullR empty 0 -6 0 8 -260033
+-1 -1;
+#X obj 35 288 r \$0layer;
+#X obj 35 313 sel 0 1 2;
+#X msg 35 396 back;
+#X msg 55 376 front;
+#X msg 73 356 label;
+#X obj 36 434 list prepend label;
+#X obj 36 478 s \$0layerr;
+#X obj 36 457 list trim;
+#X obj 279 552 outlet;
+#X msg 205 421 color \$1;
+#X msg 294 422 color \$1;
+#X obj 205 442 s \$0dispcol1;
+#X obj 295 442 s \$0dispcol2;
+#X msg 384 422 color \$1;
+#X obj 385 442 s \$0dispcol3;
+#X obj 49 183 cnv 15 18 15 empty \$0dispcol2 empty 20 12 0 14 -1 -262144
+0;
+#X obj 68 183 cnv 15 18 15 empty \$0dispcol3 empty 20 12 0 14 -1 -262144
+0;
+#X obj 421 500 list prepend set;
+#X obj 421 526 list trim;
+#X obj 421 552 outlet;
+#N canvas 1016 679 458 308 init 0;
+#X obj 130 260 s \$0layer;
+#X msg 100 207 0;
+#X msg 130 207 1;
+#X msg 161 207 2;
+#X msg 232 191 0;
+#X obj 232 226 s \$0redR;
+#X obj 232 244 s \$0greenR;
+#X obj 232 262 s \$0blueR;
+#X msg 202 191 127;
+#X obj 89 57 t b b b b b b;
+#X obj 89 33 loadbang;
+#X connect 1 0 0 0;
+#X connect 2 0 0 0;
+#X connect 3 0 0 0;
+#X connect 4 0 5 0;
+#X connect 4 0 6 0;
+#X connect 4 0 7 0;
+#X connect 8 0 5 0;
+#X connect 8 0 6 0;
+#X connect 8 0 7 0;
+#X connect 9 0 8 0;
+#X connect 9 1 1 0;
+#X connect 9 2 4 0;
+#X connect 9 3 2 0;
+#X connect 9 4 4 0;
+#X connect 9 5 3 0;
+#X connect 10 0 9 0;
+#X restore 81 536 pd init;
+#X obj 30 26 inlet;
+#X obj 30 51 unpack f f f;
+#X connect 1 0 7 0;
+#X connect 2 0 5 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 4 1 5 1;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 6 1 7 1;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 17 0;
+#X connect 11 1 16 0;
+#X connect 11 2 15 0;
+#X connect 12 0 18 0;
+#X connect 12 0 42 0;
+#X connect 13 0 18 1;
+#X connect 13 0 43 0;
+#X connect 14 0 18 2;
+#X connect 14 0 46 0;
+#X connect 15 0 12 0;
+#X connect 15 1 13 0;
+#X connect 15 2 14 0;
+#X connect 16 0 12 0;
+#X connect 16 1 13 0;
+#X connect 16 2 14 0;
+#X connect 17 0 12 0;
+#X connect 17 1 13 0;
+#X connect 17 2 14 0;
+#X connect 18 0 19 0;
+#X connect 19 0 23 0;
+#X connect 19 0 50 0;
+#X connect 23 0 41 0;
+#X connect 25 0 9 1;
+#X connect 26 0 1 0;
+#X connect 27 0 2 0;
+#X connect 28 0 3 0;
+#X connect 29 0 26 0;
+#X connect 30 0 27 0;
+#X connect 31 0 28 0;
+#X connect 32 0 20 0;
+#X connect 32 0 21 0;
+#X connect 32 0 22 0;
+#X connect 33 0 34 0;
+#X connect 34 0 35 0;
+#X connect 34 1 36 0;
+#X connect 34 2 37 0;
+#X connect 35 0 38 0;
+#X connect 36 0 38 0;
+#X connect 37 0 38 0;
+#X connect 38 0 40 0;
+#X connect 40 0 39 0;
+#X connect 42 0 44 0;
+#X connect 43 0 45 0;
+#X connect 46 0 47 0;
+#X connect 50 0 51 0;
+#X connect 51 0 52 0;
+#X connect 54 0 55 0;
+#X connect 55 0 20 0;
+#X connect 55 1 21 0;
+#X connect 55 2 22 0;
+#X coords 0 -1 1 1 56 120 1 30 80;
diff --git a/core/cpugraph.pd b/core/cpugraph.pd
new file mode 100644
index 0000000..d2987ef
--- /dev/null
+++ b/core/cpugraph.pd
@@ -0,0 +1,93 @@
+#N canvas 172 176 741 586 10;
+#X obj 52 260 cnv 15 100 50 empty \$0cpucnv empty 20 12 0 14 -225271
+-262144 0;
+#X floatatom 104 312 4 0 0 1 Now #0now #0nullS;
+#X obj 288 163 cputime;
+#X obj 288 53 loadbang;
+#X msg 288 81 1;
+#X obj 288 135 t b b;
+#X obj 288 223 * 0.1;
+#X obj 288 192 int;
+#X floatatom 52 312 4 0 0 1 Avg #0avg #0nullS;
+#X obj 349 240 average 10;
+#X obj 110 243 bng 15 250 50 0 \$0markbang \$0nullR empty 17 7 0 10
+-261682 -1 -1;
+#X obj 96 176 f;
+#X obj 96 205 print CPU;
+#N canvas 0 22 454 304 (subpatch) 0;
+#X array \$0cpu 100 float 0;
+#X coords 0 1 99 0 100 50 1;
+#X restore 52 260 graph;
+#X obj 288 262 * 0.01;
+#X obj 288 345 until;
+#X obj 288 472 tabread \$0cpu;
+#X obj 288 534 tabwrite \$0cpu;
+#X obj 288 379 f;
+#X obj 321 379 + 1;
+#X obj 369 443 - 1;
+#X obj 288 426 t a a;
+#X obj 439 389 t b a;
+#X obj 369 325 f;
+#X obj 288 294 t b b a;
+#X msg 328 325 1;
+#X obj 288 401 sel 100;
+#X msg 377 397 100;
+#X msg 288 325 100;
+#X obj 476 243 sel 0 1;
+#X msg 476 273 color 6;
+#X msg 527 273 color 13;
+#X obj 476 307 s \$0cpucnv;
+#X obj 476 219 change;
+#X obj 476 196 > 99;
+#X obj 288 107 metro 500;
+#X obj 288 501 min 100;
+#X floatatom 52 242 4 0 0 1 Mark> #0mark #0nullS;
+#X obj 239 223 s \$0now;
+#X obj 349 273 s \$0avg;
+#X obj 111 154 r \$0avg;
+#X obj 121 176 s \$0mark;
+#X obj 26 155 r \$0markbang;
+#X connect 2 0 7 0;
+#X connect 3 0 4 0;
+#X connect 4 0 35 0;
+#X connect 5 0 2 0;
+#X connect 5 1 2 1;
+#X connect 6 0 9 0;
+#X connect 6 0 14 0;
+#X connect 6 0 34 0;
+#X connect 6 0 38 0;
+#X connect 7 0 6 0;
+#X connect 9 0 39 0;
+#X connect 11 0 12 0;
+#X connect 11 0 41 0;
+#X connect 14 0 24 0;
+#X connect 15 0 18 0;
+#X connect 16 0 36 0;
+#X connect 18 0 19 0;
+#X connect 18 0 26 0;
+#X connect 19 0 18 1;
+#X connect 20 0 17 1;
+#X connect 21 0 16 0;
+#X connect 21 1 20 0;
+#X connect 22 0 23 0;
+#X connect 22 1 17 1;
+#X connect 23 0 36 0;
+#X connect 24 0 28 0;
+#X connect 24 1 25 0;
+#X connect 24 2 23 1;
+#X connect 25 0 18 1;
+#X connect 26 0 27 0;
+#X connect 26 1 21 0;
+#X connect 27 0 22 0;
+#X connect 28 0 15 0;
+#X connect 29 0 30 0;
+#X connect 29 1 31 0;
+#X connect 30 0 32 0;
+#X connect 31 0 32 0;
+#X connect 33 0 29 0;
+#X connect 34 0 33 0;
+#X connect 35 0 5 0;
+#X connect 36 0 17 0;
+#X connect 40 0 11 1;
+#X connect 42 0 11 0;
+#X coords 0 -1 1 1 104 100 1 50 230;
diff --git a/core/instance.pd b/core/instance.pd
new file mode 100644
index 0000000..1c0cc06
--- /dev/null
+++ b/core/instance.pd
@@ -0,0 +1,57 @@
+#N canvas 0 22 479 399 10;
+#X obj 271 25 loadbang;
+#X obj 244 49 + 1;
+#X obj 244 70 s \$0instance;
+#X obj 275 98 closebang;
+#X obj 243 124 - 1;
+#X obj 63 60 r \$0instance;
+#X obj 47 100 f;
+#X obj 17 60 t f b;
+#X obj 34 171 r \$0instance;
+#X obj 18 145 sel 1;
+#X obj 18 196 f;
+#X obj 18 220 - 1;
+#X obj 18 244 s \$0instance;
+#X obj 243 156 closebang;
+#X obj 243 205 f;
+#X obj 259 180 r \$0instance;
+#X obj 18 116 <;
+#X obj 85 329 r \$0instance;
+#X obj 17 33 r \$1InstClosed;
+#X obj 272 49 v \$1Inst;
+#X obj 275 124 v \$1Inst;
+#X obj 243 228 s \$1InstClosed;
+#X obj 85 357 outlet;
+#X text 15 273 Takes instanced object name as argument;
+#X text 16 289 e.g. [instance notescrombler];
+#X text 132 358 This instance's #;
+#X obj 343 370 s \$1-Instances;
+#X obj 309 299 closebang;
+#X obj 309 325 v \$1Inst;
+#X obj 383 299 loadbang;
+#X obj 384 325 v \$1Inst;
+#X connect 0 0 19 0;
+#X connect 1 0 2 0;
+#X connect 1 0 19 0;
+#X connect 3 0 20 0;
+#X connect 4 0 20 0;
+#X connect 5 0 6 1;
+#X connect 6 0 16 1;
+#X connect 7 0 16 0;
+#X connect 7 1 6 0;
+#X connect 8 0 10 1;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 13 0 14 0;
+#X connect 14 0 21 0;
+#X connect 15 0 14 1;
+#X connect 16 0 9 0;
+#X connect 17 0 22 0;
+#X connect 18 0 7 0;
+#X connect 19 0 1 0;
+#X connect 20 0 4 0;
+#X connect 27 0 28 0;
+#X connect 28 0 26 0;
+#X connect 29 0 30 0;
+#X connect 30 0 26 0;
diff --git a/core/midi-coarsefine.pd b/core/midi-coarsefine.pd
new file mode 100644
index 0000000..4d660d9
--- /dev/null
+++ b/core/midi-coarsefine.pd
@@ -0,0 +1,21 @@
+#N canvas 1100 781 338 286 10;
+#X obj 106 200 +;
+#X obj 161 60 - 0.5;
+#X obj 161 112 * 0.00392157;
+#X obj 161 86 * 2;
+#X obj 161 136 t b f;
+#X obj 106 168 f;
+#X obj 106 26 inlet;
+#X obj 161 26 inlet;
+#X obj 106 227 clip 0 1;
+#X obj 106 253 outlet;
+#X connect 0 0 8 0;
+#X connect 1 0 3 0;
+#X connect 2 0 4 0;
+#X connect 3 0 2 0;
+#X connect 4 0 5 0;
+#X connect 4 1 0 1;
+#X connect 5 0 0 0;
+#X connect 6 0 5 0;
+#X connect 7 0 1 0;
+#X connect 8 0 9 0;
diff --git a/core/sft.rgb.pd b/core/sft.rgb.pd
deleted file mode 100644
index 480db7c..0000000
--- a/core/sft.rgb.pd
+++ /dev/null
@@ -1,156 +0,0 @@
-#N canvas 185 89 559 602 10;
-#X obj 30 183 cnv 15 18 15 empty \$0dispcol1 empty 20 12 0 14 -128992
--262144 0;
-#X obj 218 73 * -65536;
-#X obj 281 73 * -256;
-#X obj 351 73 * -1;
-#X obj 351 98 t b f;
-#X obj 281 130 +;
-#X obj 281 161 t b f;
-#X obj 282 194 +;
-#X obj 282 221 - 1;
-#X obj 282 252 list prepend;
-#X obj 282 276 list trim;
-#X obj 282 301 route 0 1 2;
-#X obj 282 388 f;
-#X obj 310 388 f;
-#X obj 338 388 f;
-#X obj 351 336 t b b f;
-#X obj 287 336 t b f b;
-#X obj 225 337 t f b b;
-#X obj 279 473 pack f f f;
-#X obj 279 500 list prepend color;
-#X obj 30 116 vsl 15 60 0 255 0 0 \$0red \$0redR empty 0 -8 0 8 -258049
--1 -1 2938 1;
-#X obj 50 116 vsl 15 60 0 255 0 0 \$0green \$0greenR empty 0 -8 0 8
--4033 -1 -1 2938 1;
-#X obj 70 116 vsl 15 60 0 255 0 0 \$0blue \$0blueR empty 0 -8 0 8 -64
--1 -1 2938 1;
-#X obj 279 526 list trim;
-#X obj 52 100 hradio 10 1 0 3 \$0layer \$0layerr back 0 -4 0 8 -1 -262144
--1 0;
-#X obj 361 224 r \$0layer;
-#X obj 218 47 int;
-#X obj 281 47 int;
-#X obj 351 48 int;
-#X obj 218 21 r \$0red;
-#X obj 281 21 r \$0green;
-#X obj 351 21 r \$0blue;
-#X obj 30 95 bng 15 250 50 0 \$0nullS \$0nullR empty 0 -6 0 8 -260033
--1 -1;
-#X obj 35 288 r \$0layer;
-#X obj 35 313 sel 0 1 2;
-#X msg 35 396 back;
-#X msg 55 376 front;
-#X msg 73 356 label;
-#X obj 36 434 list prepend label;
-#X obj 36 478 s \$0layerr;
-#X obj 36 457 list trim;
-#X obj 279 552 outlet;
-#X msg 205 421 color \$1;
-#X msg 294 422 color \$1;
-#X obj 205 442 s \$0dispcol1;
-#X obj 295 442 s \$0dispcol2;
-#X msg 384 422 color \$1;
-#X obj 385 442 s \$0dispcol3;
-#X obj 49 183 cnv 15 18 15 empty \$0dispcol2 empty 20 12 0 14 -1 -262144
-0;
-#X obj 68 183 cnv 15 18 15 empty \$0dispcol3 empty 20 12 0 14 -1 -262144
-0;
-#X obj 421 500 list prepend set;
-#X obj 421 526 list trim;
-#X obj 421 552 outlet;
-#N canvas 1016 679 458 308 init 0;
-#X obj 130 260 s \$0layer;
-#X msg 100 207 0;
-#X msg 130 207 1;
-#X msg 161 207 2;
-#X msg 232 191 0;
-#X obj 232 226 s \$0redR;
-#X obj 232 244 s \$0greenR;
-#X obj 232 262 s \$0blueR;
-#X msg 202 191 127;
-#X obj 89 57 t b b b b b b;
-#X obj 89 33 loadbang;
-#X connect 1 0 0 0;
-#X connect 2 0 0 0;
-#X connect 3 0 0 0;
-#X connect 4 0 5 0;
-#X connect 4 0 6 0;
-#X connect 4 0 7 0;
-#X connect 8 0 5 0;
-#X connect 8 0 6 0;
-#X connect 8 0 7 0;
-#X connect 9 0 8 0;
-#X connect 9 1 1 0;
-#X connect 9 2 4 0;
-#X connect 9 3 2 0;
-#X connect 9 4 4 0;
-#X connect 9 5 3 0;
-#X connect 10 0 9 0;
-#X restore 81 536 pd init;
-#X obj 30 26 inlet;
-#X obj 30 51 unpack f f f;
-#X connect 1 0 7 0;
-#X connect 2 0 5 0;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 4 1 5 1;
-#X connect 5 0 6 0;
-#X connect 6 0 7 0;
-#X connect 6 1 7 1;
-#X connect 7 0 8 0;
-#X connect 8 0 9 0;
-#X connect 9 0 10 0;
-#X connect 10 0 11 0;
-#X connect 11 0 17 0;
-#X connect 11 1 16 0;
-#X connect 11 2 15 0;
-#X connect 12 0 18 0;
-#X connect 12 0 42 0;
-#X connect 13 0 18 1;
-#X connect 13 0 43 0;
-#X connect 14 0 18 2;
-#X connect 14 0 46 0;
-#X connect 15 0 12 0;
-#X connect 15 1 13 0;
-#X connect 15 2 14 0;
-#X connect 16 0 12 0;
-#X connect 16 1 13 0;
-#X connect 16 2 14 0;
-#X connect 17 0 12 0;
-#X connect 17 1 13 0;
-#X connect 17 2 14 0;
-#X connect 18 0 19 0;
-#X connect 19 0 23 0;
-#X connect 19 0 50 0;
-#X connect 23 0 41 0;
-#X connect 25 0 9 1;
-#X connect 26 0 1 0;
-#X connect 27 0 2 0;
-#X connect 28 0 3 0;
-#X connect 29 0 26 0;
-#X connect 30 0 27 0;
-#X connect 31 0 28 0;
-#X connect 32 0 20 0;
-#X connect 32 0 21 0;
-#X connect 32 0 22 0;
-#X connect 33 0 34 0;
-#X connect 34 0 35 0;
-#X connect 34 1 36 0;
-#X connect 34 2 37 0;
-#X connect 35 0 38 0;
-#X connect 36 0 38 0;
-#X connect 37 0 38 0;
-#X connect 38 0 40 0;
-#X connect 40 0 39 0;
-#X connect 42 0 44 0;
-#X connect 43 0 45 0;
-#X connect 46 0 47 0;
-#X connect 50 0 51 0;
-#X connect 51 0 52 0;
-#X connect 54 0 55 0;
-#X connect 55 0 20 0;
-#X connect 55 1 21 0;
-#X connect 55 2 22 0;
-#X coords 0 -1 1 1 56 120 1 30 80;
-- 
cgit v1.2.1