Revision: 54430
http://brlcad.svn.sourceforge.net/brlcad/?rev=54430&view=rev
Author: carlmoore
Date: 2013-02-15 22:46:19 +0000 (Fri, 15 Feb 2013)
Log Message:
-----------
use DEG2RAD and RAD2DEG; do they need to be added to a global declaration
WITHIN that file
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/mged/pattern.tcl
Modified: brlcad/trunk/src/tclscripts/mged/pattern.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/mged/pattern.tcl 2013-02-15 22:03:07 UTC
(rev 54429)
+++ brlcad/trunk/src/tclscripts/mged/pattern.tcl 2013-02-15 22:46:19 UTC
(rev 54430)
@@ -709,12 +709,12 @@
}
"-start_az" {
incr index
- set start_az [expr [lindex $args $index] * $M_PI / 180.0]
+ set start_az [expr [lindex $args $index] * $DEG2RAD]
incr index
}
"-start_el" {
incr index
- set start_el [expr [lindex $args $index] * $M_PI / 180.0]
+ set start_el [expr [lindex $args $index] * $DEG2RAD]
incr index
}
"-center_pat" {
@@ -752,13 +752,13 @@
}
"-daz" {
incr index
- set delta_az [expr [lindex $args $index] * $M_PI / 180.0]
+ set delta_az [expr [lindex $args $index] * $DEG2RAD]
incr index
}
"-del" {
incr index
- set delta_el [expr [lindex $args $index] * $M_PI / 180.0]
+ set delta_el [expr [lindex $args $index] * $DEG2RAD]
incr index
}
"-dr" {
@@ -771,7 +771,7 @@
set tmp_list [lindex $args $index ]
set list_az {}
foreach az $tmp_list {
- lappend list_az [expr {$az * $M_PI / 180.0}]
+ lappend list_az [expr {$az * $DEG2RAD}]
}
incr index
}
@@ -780,7 +780,7 @@
set tmp_list [lindex $args $index ]
set list_el {}
foreach el $tmp_list {
- lappend list_el [expr {$el * $M_PI / 180.0}]
+ lappend list_el [expr {$el * $DEG2RAD}]
}
incr index
}
@@ -890,11 +890,11 @@
incr az_index
set mat1 [mat_deltas_vec [mat_idn] [vreverse $center_obj]]
if { $rot_az && $rot_el } {
- set mat2 [mat_mul [mat_ae [expr $az * 180.0 / $M_PI] [expr
$el * 180.0 / $M_PI]] $mat1]
+ set mat2 [mat_mul [mat_ae [expr $az * $RAD2DEG] [expr $el *
$RAD2DEG]] $mat1]
} elseif { $rot_az } {
- set mat2 [mat_mul [mat_ae [expr $az * 180.0 / $M_PI] 0]
$mat1]
+ set mat2 [mat_mul [mat_ae [expr $az * $RAD2DEG] 0] $mat1]
} elseif { $rot_el } {
- set mat2 [mat_mul [mat_ae 0 [expr $el * 180.0 / $M_PI]]
$mat1]
+ set mat2 [mat_mul [mat_ae 0 [expr $el * $RAD2DEG]] $mat1]
} else {
set mat2 $mat1
}
@@ -1037,7 +1037,7 @@
}
"-start_az" {
incr index
- set start_az [expr [lindex $args $index] * $M_PI / 180.0]
+ set start_az [expr [lindex $args $index] * $DEG2RAD]
incr index
}
"-start_az_dir" {
@@ -1071,7 +1071,7 @@
}
"-daz" {
incr index
- set delta_az [expr [lindex $args $index] * $M_PI / 180.0]
+ set delta_az [expr [lindex $args $index] * $DEG2RAD]
incr index
}
"-laz" {
@@ -1079,7 +1079,7 @@
set tmp_list [lindex $args $index ]
set list_az {}
foreach az $tmp_list {
- lappend list_az [expr {$az * $M_PI / 180.0}]
+ lappend list_az [expr {$az * $DEG2RAD}]
}
incr index
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
The Go Parallel Website, sponsored by Intel - in partnership with Geeknet,
is your hub for all things parallel software development, from weekly thought
leadership blogs to news, videos, case studies, tutorials, tech docs,
whitepapers, evaluation guides, and opinion stories. Check out the most
recent posts - join the conversation now. http://goparallel.sourceforge.net/
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
