Revision: 42521
http://brlcad.svn.sourceforge.net/brlcad/?rev=42521&view=rev
Author: bob1961
Date: 2011-01-21 22:33:36 +0000 (Fri, 21 Jan 2011)
Log Message:
-----------
Modified RtControl::raytrace to honor the subwindow if active (.i.e. use rt's
-j option).
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/lib/RtControl.tcl
Modified: brlcad/trunk/src/tclscripts/lib/RtControl.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/RtControl.tcl 2011-01-21 22:20:48 UTC
(rev 42520)
+++ brlcad/trunk/src/tclscripts/lib/RtControl.tcl 2011-01-21 22:33:36 UTC
(rev 42521)
@@ -493,7 +493,36 @@
if {$isaMged} {
set rt_cmd "$itk_option(-mged) component $rtActivePane rt -F
[get_cooked_dest]"
} else {
+ # isaGed must be true
set rt_cmd "$itk_option(-mged) pane_rt $rtActivePane -F
[get_cooked_dest]"
+
+ if {[$itk_option(-mged) rect draw]} {
+ set pos [$itk_option(-mged) rect pos]
+ set dim [$itk_option(-mged) rect dim]
+
+ set xmin [lindex $pos 0]
+ set ymin [lindex $pos 1]
+ set width [lindex $dim 0]
+ set height [lindex $dim 1]
+
+ if {$width != 0 && $height != 0} {
+ if {$width > 0} {
+ set xmax [expr $xmin + $width]
+ } else {
+ set xmax $xmin
+ set xmin [expr $xmax + $width]
+ }
+
+ if {$height > 0} {
+ set ymax [expr $ymin + $height]
+ } else {
+ set ymax $ymin
+ set ymin [expr $ymax + $height]
+ }
+
+ append rt_cmd " -j $xmin,$ymin,$xmax,$ymax"
+ }
+ }
}
if {$rtSize != ""} {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Special Offer-- Download ArcSight Logger for FREE (a $49 USD value)!
Finally, a world-class log management solution at an even better price-free!
Download using promo code Free_Logger_4_Dev2Dev. Offer expires
February 28th, so secure your free ArcSight Logger TODAY!
http://p.sf.net/sfu/arcsight-sfd2d
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
