Revision: 54442
http://brlcad.svn.sourceforge.net/brlcad/?rev=54442&view=rev
Author: bob1961
Date: 2013-02-20 13:04:30 +0000 (Wed, 20 Feb 2013)
Log Message:
-----------
Variables need to be dereferenced in Tcl. Besides, RAD2DEG does not exist in
this context. Define and use GED_RAD2DEG.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/lib/Ged.tcl
Modified: brlcad/trunk/src/tclscripts/lib/Ged.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Ged.tcl 2013-02-20 12:18:50 UTC (rev
54441)
+++ brlcad/trunk/src/tclscripts/lib/Ged.tcl 2013-02-20 13:04:30 UTC (rev
54442)
@@ -107,6 +107,7 @@
common GED_RAY_ODD "ged_ray_odd"
common GED_RAY_EVEN "ged_ray_even"
common GED_RAY_VOID "ged_ray_void"
+ common GED_RAD2DEG [expr {180.0 / 3.141592653589793}]
variable mGedFile ""
@@ -4037,7 +4038,7 @@
}
set cos [vdot $A $B]
- set angle [format "%.2f" [expr {acos($cos) * RAD2DEG}]]
+ set angle [format "%.2f" [expr {acos($cos) * $GED_RAD2DEG}]]
if {[llength $mViewMeasureCallbacks] == 0} {
set mstring "Measured Distance (Leg 2): $delta [$mGed units
-s]\nMeasured Angle: $angle"
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_feb
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
