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)}]