Revision: 45895
http://brlcad.svn.sourceforge.net/brlcad/?rev=45895&view=rev
Author: brlcad
Date: 2011-08-10 13:48:42 +0000 (Wed, 10 Aug 2011)
Log Message:
-----------
don't shadow the dot proc with a value
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/mged/skt_ed.tcl
Modified: brlcad/trunk/src/tclscripts/mged/skt_ed.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/mged/skt_ed.tcl 2011-08-10 13:45:59 UTC (rev
45894)
+++ brlcad/trunk/src/tclscripts/mged/skt_ed.tcl 2011-08-10 13:48:42 UTC (rev
45895)
@@ -376,14 +376,14 @@
set diff(0) [expr {[lindex $v1 0] - [lindex $v2 0] } ]
set diff(1) [expr {[lindex $v1 1] - [lindex $v2 1] } ]
- set dot [dot diff dir]
- if { [expr { abs( $dot ) } ] < 1.0e-10 } {
+ set dotval [dot diff dir]
+ if { [expr { abs( $dotval ) } ] < 1.0e-10 } {
tk_messageBox -type ok -icon error -title "Impossible Tangency" \
-message "Cannot create such an arc (you are asking for a
straight line)"
return
}
- set new_radius [expr { [dot diff diff] / (-2.0 * $dot) } ]
+ set new_radius [expr { [dot diff diff] / (-2.0 * $dotval) } ]
if { $new_radius < 0.0 } {
set new_radius [expr { -$new_radius } ]
set dir(0) [expr { -$dir(0) } ]
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
uberSVN's rich system and user administration capabilities and model
configuration take the hassle out of deploying and managing Subversion and
the tools developers use with it. Learn more about uberSVN and get a free
download at: http://p.sf.net/sfu/wandisco-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
