[PD-cvs] pd/src desire.tk,1.1.2.17,1.1.2.18

chunlee chunlee at users.sourceforge.net
Wed Aug 31 05:35:46 CEST 2005


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"





More information about the Pd-cvs mailing list