From 5afdc57e1ed01ea93386755581b30eedca28daf2 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 13 Apr 2010 17:13:14 +0000
Subject: included (pointer) display from Jonathan Wilkes' patches from patch
 #2958600

svn path=/trunk/externals/pddp/; revision=13447
---
 print.pd      | 53 +++++++++++++++++++++++++++++++++----
 print_long.pd | 84 ++++++++++++++++++++++++++++++++++++++++++++++++++++-------
 2 files changed, 122 insertions(+), 15 deletions(-)

diff --git a/print.pd b/print.pd
index 7a423b1..94c6610 100644
--- a/print.pd
+++ b/print.pd
@@ -1,7 +1,7 @@
-#N canvas 546 406 371 345 10;
+#N canvas 388 179 439 354 10;
 #X obj 169 48 inlet;
 #X obj 226 266 send \$0-pddp_print;
-#X obj 226 138 zexy/list2symbol;
+#X obj 226 140 zexy/list2symbol;
 #X text 239 225 reset to blank;
 #X obj 169 90 route bang;
 #N canvas 673 22 458 308 reset 0;
@@ -26,7 +26,7 @@
 #X msg 129 169 bang;
 #X obj 85 0 cnv 15 15 20 empty empty empty 2 7 0 14 -262144 -262144
 0;
-#X obj 1 3 cnv 15 98 15 empty \$0-pddp_print empty 2 7 0 14 -262144
+#X obj 1 3 cnv 15 98 15 empty \$0-pddp_print (gpointer) 2 7 0 14 -262144
 -1 0;
 #X obj 226 170 list prepend label;
 #X obj 226 194 list trim;
@@ -48,15 +48,58 @@
 #X connect 6 0 4 0;
 #X restore 27 223 pd flash on input;
 #X msg 75 190 bang;
+#N canvas 365 22 342 273 convert_pointer_to_anything 0;
+#X obj 169 102 symbol;
+#X obj 169 224 t a;
+#X obj 104 177 spigot;
+#X obj 137 147 0;
+#X obj 232 169 b;
+#X obj 232 192 1;
+#X obj 104 8 inlet;
+#X obj 104 246 outlet;
+#X obj 104 35 t a a;
+#X obj 169 58 list append foo;
+#X obj 169 124 sel if(pointer);
+#X msg 169 80 if\$1;
+#X text 204 76 (hack to get pointer;
+#X text 220 88 to substitute);
+#X text 8 38 enormous;
+#X text 14 60 hack;
+#X text 15 84 to;
+#X text 11 104 keep;
+#X text 16 125 pointer;
+#X text 14 144 from;
+#X text 12 203 and crashing;
+#X text 13 222 pd;
+#X text 10 162 passing thru;
+#X text 13 184 [route] and;
+#X msg 169 146 (pointer);
+#X connect 0 0 10 0;
+#X connect 1 0 7 0;
+#X connect 2 0 7 0;
+#X connect 3 0 2 1;
+#X connect 4 0 5 0;
+#X connect 5 0 2 1;
+#X connect 6 0 8 0;
+#X connect 8 0 2 0;
+#X connect 8 1 9 0;
+#X connect 9 0 11 0;
+#X connect 10 0 24 0;
+#X connect 10 0 3 0;
+#X connect 10 1 4 0;
+#X connect 11 0 0 0;
+#X connect 24 0 1 0;
+#X restore 226 116 pd convert_pointer_to_anything;
 #X connect 0 0 4 0;
-#X connect 0 0 11 0;
 #X connect 2 0 9 0;
 #X connect 4 0 5 0;
-#X connect 4 1 2 0;
+#X connect 4 1 11 0;
+#X connect 4 1 13 0;
 #X connect 5 0 1 0;
 #X connect 6 0 5 0;
 #X connect 9 0 10 0;
 #X connect 10 0 1 0;
 #X connect 11 0 1 0;
 #X connect 12 0 11 0;
+#X connect 13 0 2 0;
 #X coords 0 -1 1 1 100 20 1 0 0;
diff --git a/print_long.pd b/print_long.pd
index 42a063e..5693d25 100644
--- a/print_long.pd
+++ b/print_long.pd
@@ -1,12 +1,12 @@
-#N canvas 590 245 337 330 10;
+#N canvas 590 245 429 345 10;
 #X obj 1 3 cnv 12 198 12 empty \$0-pddp_print empty 2 6 1 14 -262144
 -33289 0;
-#X obj 59 48 inlet;
-#X obj 117 246 send \$0-pddp_print;
-#X obj 116 138 zexy/list2symbol;
-#X text 128 203 reset to blank;
-#X obj 116 170 flatspace/prepend label;
-#X obj 59 90 route bang;
+#X obj 169 48 inlet;
+#X obj 227 246 send \$0-pddp_print;
+#X obj 226 138 zexy/list2symbol;
+#X text 238 203 reset to blank;
+#X obj 226 170 flatspace/prepend label;
+#X obj 169 90 route bang;
 #N canvas 673 22 458 308 reset 0;
 #X obj 72 21 inlet;
 #X obj 69 264 outlet;
@@ -25,13 +25,77 @@
 #X connect 5 2 2 0;
 #X connect 6 0 4 0;
 #X connect 7 0 1 0;
-#X restore 59 202 pd reset;
-#X msg 19 169 bang;
+#X restore 169 202 pd reset;
+#X msg 129 169 bang;
+#N canvas 365 22 342 273 convert_pointer_to_anything 0;
+#X obj 169 102 symbol;
+#X obj 169 224 t a;
+#X obj 104 177 spigot;
+#X obj 137 147 0;
+#X obj 232 169 b;
+#X obj 232 192 1;
+#X obj 104 8 inlet;
+#X obj 104 246 outlet;
+#X obj 104 35 t a a;
+#X obj 169 58 list append foo;
+#X obj 169 124 sel if(pointer);
+#X msg 169 80 if\$1;
+#X text 204 76 (hack to get pointer;
+#X text 220 88 to substitute);
+#X text 8 38 enormous;
+#X text 14 60 hack;
+#X text 15 84 to;
+#X text 11 104 keep;
+#X text 16 125 pointer;
+#X text 14 144 from;
+#X text 12 203 and crashing;
+#X text 13 222 pd;
+#X text 10 162 passing thru;
+#X text 13 184 [route] and;
+#X msg 169 146 (pointer);
+#X connect 0 0 10 0;
+#X connect 1 0 7 0;
+#X connect 2 0 7 0;
+#X connect 3 0 2 1;
+#X connect 4 0 5 0;
+#X connect 5 0 2 1;
+#X connect 6 0 8 0;
+#X connect 8 0 2 0;
+#X connect 8 1 9 0;
+#X connect 9 0 11 0;
+#X connect 10 0 24 0;
+#X connect 10 0 3 0;
+#X connect 10 1 4 0;
+#X connect 11 0 0 0;
+#X connect 24 0 1 0;
+#X restore 226 113 pd convert_pointer_to_anything;
+#N canvas 566 22 458 308 flash 0;
+#X obj 35 38 inlet;
+#X obj 69 264 outlet;
+#X msg 35 200 color 0 22;
+#X obj 35 129 delay 50;
+#X msg 134 200 color 5 22;
+#X obj 35 104 trigger bang bang;
+#X obj 134 179 purepd/once;
+#X connect 0 0 5 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 3 0 6 1;
+#X connect 4 0 1 0;
+#X connect 5 0 3 0;
+#X connect 5 1 6 0;
+#X connect 6 0 4 0;
+#X restore 21 203 pd flash on input;
+#X msg 27 162 bang;
 #X connect 1 0 6 0;
 #X connect 3 0 5 0;
 #X connect 5 0 2 0;
 #X connect 6 0 7 0;
-#X connect 6 1 3 0;
+#X connect 6 1 9 0;
+#X connect 6 1 10 0;
 #X connect 7 0 2 0;
 #X connect 8 0 7 0;
+#X connect 9 0 3 0;
+#X connect 10 0 2 0;
+#X connect 11 0 10 0;
 #X coords 0 -1 1 1 200 18 1 0 0;
-- 
cgit v1.2.1