[PD-cvs] pd/src desire.tk,1.1.2.600.2.264,1.1.2.600.2.265

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31728

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fixed wire a wire alignment bug


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.264
retrieving revision 1.1.2.600.2.265
diff -C2 -d -r1.1.2.600.2.264 -r1.1.2.600.2.265
*** desire.tk	2 Aug 2007 01:45:39 -0000	1.1.2.600.2.264
--- desire.tk	2 Aug 2007 03:08:54 -0000	1.1.2.600.2.265
***************
*** 5013,5018 ****
  	mset {ox1 oy1 ox2 oy2} [$@obj1 io_bbox o $@port1]
  	mset {ix1 iy1 ix2 iy2} [$@obj2 io_bbox i $@port2]
! 	set x1 [expr ($ox1+$ox2)/2]; set y1 $oy2
! 	set x2 [expr ($ix1+$ix2)/2]; set y2 $iy1
  	set xys [xys $x1 $y1 $x2 $y2]
  	set length [expr sqrt(pow($x2-$x1,2)+pow($y2-$y1,2))]
--- 5013,5018 ----
  	mset {ox1 oy1 ox2 oy2} [$@obj1 io_bbox o $@port1]
  	mset {ix1 iy1 ix2 iy2} [$@obj2 io_bbox i $@port2]
! 	set x1 [expr ($ox1+$ox2)/2.0]; set y1 $oy2
! 	set x2 [expr ($ix1+$ix2)/2.0]; set y2 $iy1
  	set xys [xys $x1 $y1 $x2 $y2]
  	set length [expr sqrt(pow($x2-$x1,2)+pow($y2-$y1,2))]