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