[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
- Previous message: [PD-cvs] externals/OSCx/src dumpOSC.c, 1.4, 1.5 htmsocket.c, 1.4, 1.5 OSC.c, 1.5, 1.6 OSC-common.h, 1.3, 1.4 OSC.dsp, 1.2, 1.3 OSCroute.c, 1.5, 1.6 OSC-system-dependent.c, 1.1, 1.2 sendOSC.c, 1.4, 1.5 VERSION, 1.2, 1.3
- Next message: [PD-cvs] externals/zexy/src list2symbol.c,1.4,1.5
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
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"
- Previous message: [PD-cvs] externals/OSCx/src dumpOSC.c, 1.4, 1.5 htmsocket.c, 1.4, 1.5 OSC.c, 1.5, 1.6 OSC-common.h, 1.3, 1.4 OSC.dsp, 1.2, 1.3 OSCroute.c, 1.5, 1.6 OSC-system-dependent.c, 1.1, 1.2 sendOSC.c, 1.4, 1.5 VERSION, 1.2, 1.3
- Next message: [PD-cvs] externals/zexy/src list2symbol.c,1.4,1.5
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list