From a929b8f85f3db55cfc5ea5691cfbb7bb1a468675 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Wed, 8 Feb 2006 21:54:44 +0000
Subject: removed second inlet since it was unnecessary and bad form (the right
 inlet also caused output)

svn path=/trunk/abstractions/purepd/; revision=4573
---
 any_argument.pd         | 39 ++++++++++++--------------
 float_argument.pd       | 40 ++++++++++++---------------
 symbol_argument-help.pd | 73 ++++++++++++++++++++++++-------------------------
 symbol_argument.pd      | 59 +++++++++++++++++++--------------------
 4 files changed, 99 insertions(+), 112 deletions(-)

diff --git a/any_argument.pd b/any_argument.pd
index 40ed660..fbffad0 100644
--- a/any_argument.pd
+++ b/any_argument.pd
@@ -1,26 +1,23 @@
-#N canvas 160 301 515 350 10;
-#X obj 189 234 outlet;
-#X text 13 259 If the argument is not equal to 0 \, use it. Pd init
+#N canvas 160 301 547 413 10;
+#X obj 323 285 outlet;
+#X text 18 316 If the argument is not equal to 0 \, use it. Pd init
 arguments to 0 so unused arguments will be 0;
-#X obj 73 116 select 0;
-#X text 12 296 This is useful to have internals inited \, but not reset
+#X obj 73 166 select 0;
+#X text 17 353 This is useful to have internals inited \, but not reset
 if there is no argument specified.;
-#X obj 73 190 select 0;
-#X text 205 172 if 2nd arg \, then use as default value;
+#X obj 73 240 select 0;
+#X text 183 225 if 2nd arg \, then use as default value;
 #X obj 73 13 inlet;
-#X obj 189 13 inlet;
-#X text 227 14 convenience inlet;
-#X obj 73 96 list append \$1;
-#X obj 73 169 list append \$2;
-#X obj 73 55 bang;
-#X obj 188 56 list;
-#X text 194 74 arguments output symbols so this should too;
-#X connect 2 0 10 0;
+#X obj 73 146 list append \$1;
+#X obj 73 219 list append \$2;
+#X obj 74 73 route bang;
+#X obj 73 48 list;
+#X connect 2 0 8 0;
 #X connect 2 1 0 0;
 #X connect 4 1 0 0;
-#X connect 6 0 11 0;
-#X connect 7 0 12 0;
-#X connect 9 0 2 0;
-#X connect 10 0 4 0;
-#X connect 11 0 9 0;
-#X connect 12 0 0 0;
+#X connect 6 0 10 0;
+#X connect 7 0 2 0;
+#X connect 8 0 4 0;
+#X connect 9 0 7 0;
+#X connect 9 1 0 0;
+#X connect 10 0 9 0;
diff --git a/float_argument.pd b/float_argument.pd
index a524549..4eb9097 100644
--- a/float_argument.pd
+++ b/float_argument.pd
@@ -1,33 +1,27 @@
-#N canvas 554 317 498 348 10;
+#N canvas 554 317 502 352 10;
 #X obj 214 233 outlet;
 #X text 40 248 If the argument is not equal to 0 \, use it. Pd init
 arguments to 0 so unused arguments will be 0;
-#X obj 113 116 select 0;
+#X obj 63 116 select 0;
 #X text 39 285 This is useful to have internals inited \, but not reset
 if there is no argument specified.;
-#X obj 113 190 select 0;
-#X obj 113 169 float \$2;
-#X obj 113 96 float \$1;
-#X text 176 181 if 2nd arg \, then use as default value;
-#X obj 113 14 inlet;
-#X obj 259 13 inlet;
-#X text 297 14 convenience inlet;
-#X obj 229 59 route float;
-#X text 316 56 just in case;
-#X obj 261 138 purepd_error float_argument;
-#X obj 261 92 bang;
-#X obj 114 49 bang;
-#X text 5 14 loadbang inlet;
-#X msg 261 114 wrong data type on right inlet;
+#X obj 63 190 select 0;
+#X obj 63 169 float \$2;
+#X obj 63 96 float \$1;
+#X text 211 191 if 2nd arg \, then use as default value;
+#X obj 63 14 inlet;
+#X obj 211 138 purepd_error float_argument;
+#X obj 211 92 bang;
+#X msg 211 114 wrong data type on right inlet;
+#X obj 64 49 route bang float;
 #X connect 2 0 5 0;
 #X connect 2 1 0 0;
 #X connect 4 1 0 0;
 #X connect 5 0 4 0;
 #X connect 6 0 2 0;
-#X connect 8 0 15 0;
-#X connect 9 0 11 0;
-#X connect 11 0 0 0;
-#X connect 11 1 14 0;
-#X connect 14 0 17 0;
-#X connect 15 0 6 0;
-#X connect 17 0 13 0;
+#X connect 8 0 12 0;
+#X connect 10 0 11 0;
+#X connect 11 0 9 0;
+#X connect 12 0 6 0;
+#X connect 12 1 0 0;
+#X connect 12 2 10 0;
diff --git a/symbol_argument-help.pd b/symbol_argument-help.pd
index fc0d7ae..abf72e7 100644
--- a/symbol_argument-help.pd
+++ b/symbol_argument-help.pd
@@ -1,53 +1,52 @@
-#N canvas 661 259 509 458 10;
-#X msg 49 93 bang;
-#X msg 51 209 bang;
-#X obj 50 266 print blank;
-#X msg 36 346 bang;
-#X msg 241 346 bang;
-#X msg 204 207 bang;
-#X obj 203 264 print blank;
-#X obj 32 265 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+#N canvas 68 255 513 462 10;
+#X msg 49 73 bang;
+#X msg 51 189 bang;
+#X obj 50 246 print blank;
+#X msg 36 326 bang;
+#X msg 241 326 bang;
+#X msg 204 187 bang;
+#X obj 203 244 print blank;
+#X obj 32 245 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
 -1;
-#X obj 185 265 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+#X obj 185 245 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
 -1;
-#X symbolatom 48 146 6 0 0 1 symbol - -;
-#X text 26 37 This object can take any kind of argument and outputs
-either a symbol or a float \, depending on whether the argument is
-numeric or not.;
-#X symbolatom 36 409 10 0 0 0 - - -;
-#X msg 202 92 bang;
-#X symbolatom 202 144 15 0 0 1 symbol - -;
-#X msg 362 207 bang;
-#X obj 361 264 print blank;
-#X obj 343 265 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+#X symbolatom 48 126 6 0 0 1 symbol - -;
+#X symbolatom 36 389 10 0 0 0 - - -;
+#X msg 202 72 bang;
+#X symbolatom 202 124 15 0 0 1 symbol - -;
+#X msg 362 187 bang;
+#X obj 361 244 print blank;
+#X obj 343 245 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
 -1;
-#X text 24 173 If the first argument is blank or 0 \, there is no output
+#X text 24 153 If the first argument is blank or 0 \, there is no output
 (Pd initializes all variables to 0):;
-#X symbolatom 241 411 10 0 0 0 - - -;
-#X obj 202 118 symbol_argument 255.255.255.255;
-#X obj 49 119 symbol_argument word;
-#X obj 51 241 symbol_argument;
-#X obj 362 239 symbol_argument 0;
-#X obj 36 382 symbol_argument \$1 default;
-#X obj 204 239 symbol_argument \$1;
-#X text 32 295 If you set a second argument \, it will be used as the
+#X symbolatom 241 391 10 0 0 0 - - -;
+#X text 32 275 If you set a second argument \, it will be used as the
 default when the first argument is blank. Also if the first argument
 is numeric \, the default will be used.;
-#X obj 242 382 symbol_argument 44 default;
+#X obj 202 98 symbol_argument 255.255.255.255;
+#X obj 49 99 symbol_argument word;
+#X obj 51 221 symbol_argument;
+#X obj 362 219 symbol_argument 0;
+#X obj 36 362 symbol_argument \$1 default;
+#X obj 204 219 symbol_argument \$1;
+#X obj 242 362 symbol_argument 44 default;
+#X text 25 21 This object can takes a symbolic atom as an argument
+and outputs either a symbol message.;
 #X connect 0 0 20 0;
 #X connect 1 0 21 0;
 #X connect 3 0 23 0;
-#X connect 4 0 26 0;
+#X connect 4 0 25 0;
 #X connect 5 0 24 0;
-#X connect 12 0 19 0;
-#X connect 14 0 22 0;
-#X connect 19 0 13 0;
+#X connect 11 0 19 0;
+#X connect 13 0 22 0;
+#X connect 19 0 12 0;
 #X connect 20 0 9 0;
 #X connect 21 0 2 0;
 #X connect 21 0 7 0;
+#X connect 22 0 14 0;
 #X connect 22 0 15 0;
-#X connect 22 0 16 0;
-#X connect 23 0 11 0;
+#X connect 23 0 10 0;
 #X connect 24 0 6 0;
 #X connect 24 0 8 0;
-#X connect 26 0 18 0;
+#X connect 25 0 17 0;
diff --git a/symbol_argument.pd b/symbol_argument.pd
index 7d7f178..ca5002e 100644
--- a/symbol_argument.pd
+++ b/symbol_argument.pd
@@ -1,37 +1,34 @@
-#N canvas 63 319 466 316 10;
-#X obj 37 48 trigger bang bang;
-#X obj 151 68 symbol;
-#X obj 37 94 select symbol;
-#X obj 37 68 symbol \$1;
-#X obj 201 274 outlet;
-#X obj 226 11 inlet;
-#X text 264 12 convenience inlet;
+#N canvas 525 268 583 441 10;
+#X obj 37 175 trigger bang bang;
+#X obj 151 195 symbol;
+#X obj 37 221 select symbol;
+#X obj 37 195 symbol \$1;
+#X obj 413 389 outlet;
 #X obj 38 13 inlet;
-#X text 275 56 keep things consistent;
-#X obj 226 57 list;
-#X obj 226 78 route symbol;
-#X obj 228 108 bang;
-#X msg 228 130 wrong data type on right inlet;
-#X obj 229 154 purepd_error symbol_argument;
-#X obj 17 158 trigger bang bang;
-#X obj 131 178 symbol;
-#X obj 17 204 select symbol;
-#X obj 17 178 symbol \$2;
+#X obj 248 108 bang;
+#X obj 249 154 purepd_error symbol_argument;
+#X obj 37 285 trigger bang bang;
+#X obj 151 305 symbol;
+#X obj 37 331 select symbol;
+#X obj 37 305 symbol \$2;
+#X obj 38 74 route bang symbol;
+#X obj 38 51 list;
+#X msg 248 130 only accepts symbols;
 #X connect 0 0 3 0;
 #X connect 0 1 1 0;
 #X connect 1 0 2 1;
-#X connect 2 0 14 0;
+#X connect 2 0 8 0;
 #X connect 2 1 4 0;
 #X connect 3 0 2 0;
-#X connect 5 0 9 0;
-#X connect 7 0 0 0;
-#X connect 9 0 10 0;
-#X connect 10 0 4 0;
-#X connect 10 1 11 0;
-#X connect 11 0 12 0;
-#X connect 12 0 13 0;
-#X connect 14 0 17 0;
-#X connect 14 1 15 0;
-#X connect 15 0 16 1;
-#X connect 16 1 4 0;
-#X connect 17 0 16 0;
+#X connect 5 0 13 0;
+#X connect 6 0 14 0;
+#X connect 8 0 11 0;
+#X connect 8 1 9 0;
+#X connect 9 0 10 1;
+#X connect 10 1 4 0;
+#X connect 11 0 10 0;
+#X connect 12 0 0 0;
+#X connect 12 1 4 0;
+#X connect 12 2 6 0;
+#X connect 13 0 12 0;
+#X connect 14 0 7 0;
-- 
cgit v1.2.1