[brlcad-commits] CVS: brlcad/src/tclscripts/lib Display.tcl, 14.15, 14.16

[Bob P. <bo...@us...>]

Update of /cvsroot/brlcad/brlcad/src/tclscripts/lib
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv19686

Modified Files:
	Display.tcl 
Log Message:
Added code for displaying the viewing parameters.

Index: Display.tcl
===================================================================
RCS file: /cvsroot/brlcad/brlcad/src/tclscripts/lib/Display.tcl,v
retrieving revision 14.15
retrieving revision 14.16
diff -w -u -r14.15 -r14.16
--- Display.tcl	18 Jan 2006 06:46:25 -0000	14.15
+++ Display.tcl	29 Jun 2006 12:45:32 -0000	14.16
@@ -77,6 +77,9 @@
     keep -viewAxesColor
     keep -viewAxesLabelColor
     keep -viewAxesTripleColor
+
+    keep -showViewingParams
+    keep -viewingParamsColor
 }
 
 ::itcl::class Display {
@@ -118,6 +121,9 @@
     itk_option define -viewAxesLabelColor viewAxesLabelColor AxesLabelColor {255 255 0}
     itk_option define -viewAxesTripleColor viewAxesTripleColor AxesTripleColor 1
 
+    itk_option define -showViewingParams showViewingParams ShowViewingParams 0
+    itk_option define -viewingParamsColor viewingParamsColor ViewingParamsColor {255 255 0}
+
     constructor {args} {
 	Dm::constructor
 	View::constructor
@@ -307,6 +313,29 @@
     refresh
 }
 
+::itcl::configbody Display::viewingParamsColor {
+    if {[llength $itk_option(-viewingParamsColor)] != 3} {
+	error "values must be {r g b} where 0 <= r/g/b <= 255"
+    }
+
+    set r [lindex $itk_option(-viewingParamsColor) 0]
+    set g [lindex $itk_option(-viewingParamsColor) 1]
+    set b [lindex $itk_option(-viewingParamsColor) 2]
+
+    # validate color
+    if {![string is digit $r] ||
+	![string is digit $g] ||
+        ![string is digit $b] ||
+        $r < 0 || 255 < $r ||
+        $g < 0 || 255 < $g ||
+        $b < 0 || 255 < $b} {
+
+	error "values must be {r g b} where 0 <= r/g/b <= 255"
+    }
+
+    refresh
+}
+
 ::itcl::configbody Display::viewAxesEnable {
     if {$itk_option(-viewAxesEnable) != 0 &&
         $itk_option(-viewAxesEnable) != 1} {
@@ -657,6 +686,23 @@
 
 	Dm::normal
 
+	if {$itk_option(-showViewingParams)} {
+	    #set ae [View::ae]
+	    set azel [View::ae]
+	    set cent [View::center]
+	    #set vstr [format "units:%s  size:%g  center:(%g %g %g)  az:%g  el:%g  tw::%g"
+	    set vstr [format "units:%s  size:%.2f  center:(%.2f, %.2f, %.2f)  az:%.2f  el:%.2f  tw::%.2f" \
+			  [View::units] \
+			  [View::size] \
+			  [lindex $cent 0] [lindex $cent 1] [lindex $cent 2] \
+			  [lindex $azel 0] \
+			  [lindex $azel 1] \
+			  [lindex $azel 2]]
+	    #Dm::drawString $vstr 0.0 -0.965 10 0
+	    eval Dm::fg $itk_option(-viewingParamsColor)
+	    Dm::drawString $vstr -0.98 -0.965 10 0
+	}
+
 	if {$itk_option(-primitiveLabels) != {}} {
 	    ####
 	    #XXX At the moment primitive labels are only supported