[PD-cvs] externals/miXed/test/toxy kb.wid,1.3,1.4 setup.wid,1.2,1.3 tot-query.pd,1.1,1.2

[Krzysztof Czaja]

Update of /cvsroot/pure-data/externals/miXed/test/toxy
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4662/test/toxy

Modified Files:
	kb.wid setup.wid tot-query.pd 
Log Message:
toxy alpha9

Index: setup.wid
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/setup.wid,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** setup.wid	16 Mar 2004 12:13:54 -0000	1.2
--- setup.wid	23 Mar 2004 12:07:22 -0000	1.3
***************
*** 99,104 ****
  	set needtraces 0
      } else {
! #	set needtraces 1
! 	set needtraces 0
      }
  
--- 99,103 ----
  	set needtraces 0
      } else {
! 	set needtraces 1
      }
  

Index: tot-query.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/tot-query.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** tot-query.pd	24 Sep 2003 10:46:19 -0000	1.1
--- tot-query.pd	23 Mar 2004 12:07:22 -0000	1.2
***************
*** 1,3 ****
! #N canvas 421 109 778 551 12;
  #X msg 21 8 symbol pinecone;
  #X obj 455 142 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
--- 1,3 ----
! #N canvas 210 60 778 551 12;
  #X msg 21 8 symbol pinecone;
  #X obj 455 142 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
***************
*** 16,22 ****
  #X msg 21 44 tot global ans .: regsub cone \$1 apple ans \, query global
  ans .: concat set $ans;
- #X msg 60 369 tot global ch .: set ch [open ~/.pdrc] \, query global
- ch .: concat set [read $ch] \, tot global ch .: close $ch .: unset
- ch;
  #X msg 199 266 tot global txt ch .: set txt [gets $ch] \, query global
  txt .: concat set $txt;
--- 16,19 ----
***************
*** 42,62 ****
  #X obj 67 238 tot .;
  #X msg 67 202 tot eval .< [global ch .: info exists ch] .>;
  #X msg 21 502;
  #X connect 0 0 11 0;
  #X connect 1 0 3 0;
  #X connect 2 0 11 0;
! #X connect 3 0 17 0;
  #X connect 3 1 6 0;
  #X connect 4 0 7 0;
  #X connect 4 1 6 0;
! #X connect 6 0 13 0;
  #X connect 7 0 5 0;
! #X connect 8 0 15 0;
! #X connect 9 0 15 0;
! #X connect 10 0 15 0;
! #X connect 11 0 15 0;
! #X connect 12 0 15 0;
! #X connect 13 0 15 0;
! #X connect 15 0 18 0;
! #X connect 16 1 4 0;
! #X connect 17 0 16 0;
--- 39,61 ----
  #X obj 67 238 tot .;
  #X msg 67 202 tot eval .< [global ch .: info exists ch] .>;
+ #X msg 54 376 tot set ::ch [open ~/.pdrc] \, query concat set [read
+ $::ch] \, after 0 .(tot close $::ch .: unset ::ch.);
  #X msg 21 502;
  #X connect 0 0 11 0;
  #X connect 1 0 3 0;
  #X connect 2 0 11 0;
! #X connect 3 0 16 0;
  #X connect 3 1 6 0;
  #X connect 4 0 7 0;
  #X connect 4 1 6 0;
! #X connect 6 0 12 0;
  #X connect 7 0 5 0;
! #X connect 8 0 14 0;
! #X connect 9 0 14 0;
! #X connect 10 0 14 0;
! #X connect 11 0 14 0;
! #X connect 12 0 14 0;
! #X connect 14 0 18 0;
! #X connect 15 1 4 0;
! #X connect 16 0 15 0;
! #X connect 17 0 14 0;

Index: kb.wid
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/kb.wid,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** kb.wid	16 Mar 2004 12:13:54 -0000	1.3
--- kb.wid	23 Mar 2004 12:07:22 -0000	1.4
***************
*** 1,3 ****
--- 1,5 ----
  proc ::toxy::kb {path target remote noctaves size} {
+ # guard against BadAlloc crashes
+     if {$size > 10} {set size 10}
      set lft [expr {round(5 * $size)}]
      set top [expr {round(5 * $size)}]