Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv563
Modified Files: Tag: devel_0_39 desire.tk Log Message: loading simple file should work now, need more testing
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.17 retrieving revision 1.1.2.18 diff -C2 -d -r1.1.2.17 -r1.1.2.18 *** desire.tk 30 Aug 2005 09:33:47 -0000 1.1.2.17 --- desire.tk 31 Aug 2005 03:35:44 -0000 1.1.2.18 *************** *** 404,407 **** --- 404,408 ---- set obj_name [lappend obj_name $last_str] set _($object_id:name_len) [string length $obj_name] + set _($canvas_id:obj_in_edit) 0 puts "obj x: [lindex $line 2] y: [lindex $line 3]" *************** *** 452,465 **** set d [lreplace $d 0 0 [lindex $_($canvas:obj_list) [lindex $line 2]]] set d [lreplace $d 2 2 [lindex $_($canvas:obj_list) [lindex $line 4]]] ! #set from [lindex $wire_from 0] ! #set outlet_number [lindex $wire_from 1] ! #set to [lindex $wire_to 0] ! #set inlet_number [lindex $wire_to 1] ! #set inlet_flag 0 ! #set outlet_flag 1 ! set wire_from [list [lindex $_($canvas:obj_list) [lindex $line 2]] [lindex $line 3]]] ! set wire_to [list [lindex $_($canvas:obj_list) [lindex $line 4]] [lindex $line 5]]] puts "d = $d" --- 453,498 ---- set d [lreplace $d 0 0 [lindex $_($canvas:obj_list) [lindex $line 2]]] set d [lreplace $d 2 2 [lindex $_($canvas:obj_list) [lindex $line 4]]] + set _($wire_id) $d + ! set wire_from [list [lindex $_($canvas:obj_list) [lindex $line 2]] [lindex $line 3]] ! set wire_to [list [lindex $_($canvas:obj_list) [lindex $line 4]] $last_str] ! set from [lindex $wire_from 0] ! set outlet_number [lindex $wire_from 1] ! set to [lindex $wire_to 0] ! set inlet_number [lindex $wire_to 1] ! set inlet_flag 0 ! set outlet_flag 1 ! ! puts "wire_from ==> $wire_from" ! puts "wire_to ==> $wire_to" ! puts "outlet_number ==> $outlet_number" ! ! if {[info exists _($from:$outlet_flag:$outlet_number)]} { ! ! lappend _($from:$outlet_flag:$outlet_number) $wire_id ! ! } else { ! ! set _($from:$outlet_flag:$outlet_number) $wire_id ! ! puts "**** $from:$outlet_flag:$outlet_number ****" ! ! } ! ! ! if {[info exists _($to:$inlet_flag:$inlet_number)]} { ! ! lappend _($to:$inlet_flag:$inlet_number) $wire_id ! ! } else { ! ! set _($to:$inlet_flag:$inlet_number) $wire_id ! ! puts "*** $to:$inlet_flag:$inlet_number ***" ! ! } ! puts "d = $d"
-
chunlee