Revision: 50623
http://brlcad.svn.sourceforge.net/brlcad/?rev=50623&view=rev
Author: starseeker
Date: 2012-05-21 20:37:32 +0000 (Mon, 21 May 2012)
Log Message:
-----------
Add an option to specify the view center. Between this option, the aet
options, and zoom it should be possible to re-create most (all?) raytracing
views
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/rtwizard/rtwizard.tcl
Modified: brlcad/trunk/src/tclscripts/rtwizard/rtwizard.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/rtwizard/rtwizard.tcl 2012-05-21 20:23:41 UTC
(rev 50622)
+++ brlcad/trunk/src/tclscripts/rtwizard/rtwizard.tcl 2012-05-21 20:37:32 UTC
(rev 50623)
@@ -95,6 +95,7 @@
{twist "" {::have_twist
::RtWizard::wizard_state(init_twist)}}
{perspective P {::have_perspective
::RtWizard::wizard_state(perspective)}}
{zoom z {::have_zoom
::RtWizard::wizard_state(zoom)}}
+ {center "" {::have_center
::RtWizard::wizard_state(x_center) ::RtWizard::wizard_state(y_center)
::RtWizard::wizard_state(z_center)}}
# Debugging info
{verbose v {::RtWizard::wizard_state(verbose)}}
}
@@ -292,7 +293,7 @@
}
# OK, we've collected all the info we can from the inputs. Make sure all the
key
-# variables are initialized to sane defaults. The viewsize and eye_pt
defaults are determined from
+# variables are initialized to sane defaults. The viewsize, eye_pt and center
defaults are determined from
# the drawing of the objects into the display manager.
# Geometry Database
if {![info exists ::RtWizard::wizard_state(dbFile)]} { set
::RtWizard::wizard_state(dbFile) "" }
@@ -395,6 +396,9 @@
db aet v1 $::RtWizard::wizard_state(init_azimuth)
$::RtWizard::wizard_state(init_elevation) $::RtWizard::wizard_state(init_twist)
db zoom v1 $::RtWizard::wizard_state(zoom)
db perspective v1 $::RtWizard::wizard_state(perspective)
+ if {[info exists ::RtWizard::wizard_state(x_center)] && [info exists
::RtWizard::wizard_state(y_center)] && [info exists
::RtWizard::wizard_state(z_center)]} {
+ db center v1 $::RtWizard::wizard_state(x_center)
$::RtWizard::wizard_state(y_center) $::RtWizard::wizard_state(z_center)
+ }
set view_info [regsub -all ";" [db get_eyemodel v1] ""]
set vdata [split $view_info "\n"]
set viewsize [lindex [lindex $vdata 0] 1]
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and
threat landscape has changed and how IT managers can respond. Discussions
will include endpoint security, mobile security and the latest in malware
threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
