From fd24ec744ea1b52942999193e372e5769d545159 Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Sun, 26 Oct 2008 11:37:43 +0000
Subject: *added a clone of growl written in pd using window_name *added a
 printing facility for keycommands

svn path=/trunk/abstractions/sfruit/; revision=10351
---
 sfruit/countdown.pd        | 30 ++++++++++++++
 sfruit/keycommand-print.pd |  9 +++++
 sfruit/keycommand.pd       |  9 ++++-
 sfruit/pd-growl.pd         | 97 ++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 144 insertions(+), 1 deletion(-)
 create mode 100644 sfruit/countdown.pd
 create mode 100644 sfruit/keycommand-print.pd
 create mode 100644 sfruit/pd-growl.pd

diff --git a/sfruit/countdown.pd b/sfruit/countdown.pd
new file mode 100644
index 0000000..dce1ba3
--- /dev/null
+++ b/sfruit/countdown.pd
@@ -0,0 +1,30 @@
+#N canvas 474 143 383 332 10;
+#X obj 54 167 timer;
+#X obj 55 50 inlet;
+#X obj 54 191 expr $f2 - $f1;
+#X obj 54 295 outlet;
+#X obj 116 295 outlet;
+#X msg 54 275 0;
+#X obj 54 254 t b b b;
+#X msg 133 254 0;
+#X obj 55 71 t b b a;
+#X msg 55 95 1;
+#X text 55 16 upon receiving a number \, count down from it by 1/ms
+;
+#X obj 81 116 metro 50;
+#X obj 54 214 if <= 0;
+#X connect 0 0 2 0;
+#X connect 1 0 8 0;
+#X connect 2 0 12 0;
+#X connect 5 0 3 0;
+#X connect 6 0 4 0;
+#X connect 6 1 5 0;
+#X connect 6 2 7 0;
+#X connect 7 0 11 0;
+#X connect 8 0 9 0;
+#X connect 8 1 0 0;
+#X connect 8 2 2 1;
+#X connect 9 0 11 0;
+#X connect 11 0 0 1;
+#X connect 12 0 6 0;
+#X connect 12 1 3 0;
diff --git a/sfruit/keycommand-print.pd b/sfruit/keycommand-print.pd
new file mode 100644
index 0000000..0712cb8
--- /dev/null
+++ b/sfruit/keycommand-print.pd
@@ -0,0 +1,9 @@
+#N canvas 744 130 450 300 10;
+#X obj 101 101 bng 15 250 50 0 \$0.nullS \$0.nullR print-keys! 17 7
+0 10 -261894 -1 -1;
+#X obj 101 123 s ACTIVE_KEYCOMMANDS?;
+#X obj 101 151 r ACTIVE_KEYCOMMAND;
+#X obj 101 174 print;
+#X connect 0 0 1 0;
+#X connect 2 0 3 0;
+#X coords 0 -1 1 1 85 17 2 100 100;
diff --git a/sfruit/keycommand.pd b/sfruit/keycommand.pd
index 1b6a5d5..b1a2866 100644
--- a/sfruit/keycommand.pd
+++ b/sfruit/keycommand.pd
@@ -1,6 +1,13 @@
-#N canvas 274 22 177 175 10;
+#N canvas 274 22 408 156 10;
 #X obj 29 47 keynamedown \$1;
 #X obj 29 116 s \$2;
 #X obj 29 82 list append \$3;
+#X obj 197 48 r ACTIVE_KEYCOMMANDS?;
+#X obj 197 122 s ACTIVE_KEYCOMMAND;
+#X obj 197 74 list append \$1: Sends \$3 to \$2;
+#X obj 197 98 list trim;
 #X connect 0 0 2 0;
 #X connect 2 0 1 0;
+#X connect 3 0 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 4 0;
diff --git a/sfruit/pd-growl.pd b/sfruit/pd-growl.pd
new file mode 100644
index 0000000..3c4726f
--- /dev/null
+++ b/sfruit/pd-growl.pd
@@ -0,0 +1,97 @@
+#N canvas 631 63 672 598 10;
+#N canvas 1159 33 253 103 \$0.message 0;
+#X obj 1 -1 cnv 15 250 100 empty \$0.title yeah_motherfucker 10 24
+0 14 -1 -262144 0;
+#X obj 1 41 cnv 15 250 24 empty \$0.line1 this_is 20 12 0 12 -1 -262144
+0;
+#X obj 1 66 cnv 15 250 24 empty \$0.line2 empty 20 12 0 12 -1 -262144
+0;
+#X restore 211 32 pd \$0.message;
+#X obj 11 10 loadbang;
+#X msg 157 292 wm resizable \$1 0 0;
+#X obj 11 52 s \$0.window-name;
+#X obj 157 315 hcs/sys_gui;
+#X obj 157 248 r \$0.window-name;
+#X obj 70 451 r \$0.window-name;
+#X obj 25 379 cos;
+#X obj 25 357 line;
+#X msg 25 310 1.5707 \, 3.14 1000;
+#X obj 67 337 t b;
+#X obj 25 517 hcs/sys_gui;
+#X msg 25 497 wm attributes \$2 -alpha \$1;
+#X obj 25 473 pack f s;
+#X obj 11 31 hcs/window_name pd-\$0.message;
+#X obj 25 427 clip 0 1;
+#X obj 25 404 abs;
+#X obj 67 367 del 3000;
+#X obj 184 228 s pd-\$0.message;
+#X msg 184 204 vis 1;
+#X msg 152 388 vis 0;
+#X obj 152 367 del 1000;
+#X obj 25 97 r PDGROWL;
+#X msg 67 388 1.5707 1000;
+#X obj 25 137 t b b b a;
+#X msg 42 287 stop;
+#X msg 37 449 1;
+#X obj 415 393 s \$0.line1;
+#X obj 485 393 s \$0.line2;
+#X obj 157 174 t b b;
+#X obj 157 271 symbol;
+#X obj 152 411 s pd-\$0.message;
+#X obj 381 262 unpack s s s;
+#X obj 381 237 list append _ _;
+#X msg 415 323 label;
+#X obj 415 297 sel _;
+#X msg 465 323 label;
+#X obj 465 297 sel _;
+#X msg 442 363 label \$1;
+#X msg 502 363 label \$1;
+#X msg 381 419 label \$1;
+#X obj 381 443 s \$0.title;
+#X obj 108 138 s \$0.handle-message;
+#X obj 381 212 r \$0.handle-message;
+#X connect 1 0 14 0;
+#X connect 2 0 4 0;
+#X connect 5 0 30 0;
+#X connect 6 0 13 1;
+#X connect 7 0 16 0;
+#X connect 8 0 7 0;
+#X connect 9 0 8 0;
+#X connect 9 0 10 0;
+#X connect 10 0 17 0;
+#X connect 12 0 11 0;
+#X connect 13 0 12 0;
+#X connect 14 0 3 0;
+#X connect 15 0 13 0;
+#X connect 16 0 15 0;
+#X connect 17 0 23 0;
+#X connect 17 0 21 0;
+#X connect 19 0 18 0;
+#X connect 20 0 31 0;
+#X connect 21 0 20 0;
+#X connect 22 0 24 0;
+#X connect 23 0 8 0;
+#X connect 24 0 9 0;
+#X connect 24 1 25 0;
+#X connect 24 2 29 0;
+#X connect 24 3 42 0;
+#X connect 25 0 17 0;
+#X connect 25 0 21 0;
+#X connect 26 0 13 0;
+#X connect 29 0 30 0;
+#X connect 29 1 19 0;
+#X connect 30 0 2 0;
+#X connect 32 0 40 0;
+#X connect 32 1 35 0;
+#X connect 32 2 37 0;
+#X connect 33 0 32 0;
+#X connect 34 0 27 0;
+#X connect 35 0 34 0;
+#X connect 35 1 38 0;
+#X connect 36 0 28 0;
+#X connect 37 0 36 0;
+#X connect 37 1 39 0;
+#X connect 38 0 27 0;
+#X connect 39 0 28 0;
+#X connect 40 0 41 0;
+#X connect 43 0 33 0;
-- 
cgit v1.2.1