Revision: 51700
http://brlcad.svn.sourceforge.net/brlcad/?rev=51700&view=rev
Author: cprecup
Date: 2012-07-29 00:47:59 +0000 (Sun, 29 Jul 2012)
Log Message:
-----------
Implemented the graph MGED command. So far, when it is called it pops up a new
window.
Modified Paths:
--------------
brlcad/trunk/configure.ac
brlcad/trunk/src/libtclcad/tclcadAutoPath.c
brlcad/trunk/src/tclscripts/CMakeLists.txt
brlcad/trunk/src/tclscripts/Makefile.am
Added Paths:
-----------
brlcad/trunk/src/tclscripts/graph/
brlcad/trunk/src/tclscripts/graph/CMakeLists.txt
brlcad/trunk/src/tclscripts/graph/GraphEditor.tcl
brlcad/trunk/src/tclscripts/graph/Makefile.am
brlcad/trunk/src/tclscripts/graph/graph.tcl
brlcad/trunk/src/tclscripts/graph/pkgIndex.tcl
brlcad/trunk/src/tclscripts/graph/tclIndex
Modified: brlcad/trunk/configure.ac
===================================================================
--- brlcad/trunk/configure.ac 2012-07-29 00:39:09 UTC (rev 51699)
+++ brlcad/trunk/configure.ac 2012-07-29 00:47:59 UTC (rev 51700)
@@ -4246,6 +4246,7 @@
src/tclscripts/archer/images/Makefile
src/tclscripts/boteditor/Makefile
src/tclscripts/geometree/Makefile
+ src/tclscripts/graph/Makefile
src/tclscripts/hv3/Makefile
src/tclscripts/lib/Makefile
src/tclscripts/mged/Makefile
Modified: brlcad/trunk/src/libtclcad/tclcadAutoPath.c
===================================================================
--- brlcad/trunk/src/libtclcad/tclcadAutoPath.c 2012-07-29 00:39:09 UTC (rev
51699)
+++ brlcad/trunk/src/libtclcad/tclcadAutoPath.c 2012-07-29 00:47:59 UTC (rev
51700)
@@ -208,6 +208,10 @@
BU_PATH_SEPARATOR, data, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR);
bu_vls_printf(&auto_path, "%c%s%ctclscripts%cgeometree",
BU_PATH_SEPARATOR, data, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR);
+#ifdef HAVE_ADAPTAGRAMS
+ bu_vls_printf(&auto_path, "%c%s%ctclscripts%cgraph",
+ BU_PATH_SEPARATOR, data, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR);
+#endif
bu_vls_printf(&auto_path, "%c%s%ctclscripts%crtwizard",
BU_PATH_SEPARATOR, data, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR);
bu_vls_printf(&auto_path, "%c%s%ctclscripts%carcher",
@@ -245,6 +249,10 @@
BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
bu_vls_printf(&auto_path, "%c%s%csrc%ctclscripts%cgeometree",
BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
+#ifdef HAVE_ADAPTAGRAMS
+ bu_vls_printf(&auto_path, "%c%s%csrc%ctclscripts%cgraph",
+ BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
+#endif
bu_vls_printf(&auto_path, "%c%s%csrc%ctclscripts%crtwizard",
BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
bu_vls_printf(&auto_path, "%c%s%csrc%ctclscripts%carcher",
@@ -282,6 +290,10 @@
BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
bu_vls_printf(&auto_path, "%c%s%c..%csrc%ctclscripts%cgeometree",
BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
+#ifdef HAVE_ADAPTAGRAMS
+ bu_vls_printf(&auto_path, "%c%s%c..%csrc%ctclscripts%cgraph",
+ BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
+#endif
bu_vls_printf(&auto_path, "%c%s%c..%csrc%ctclscripts%crtwizard",
BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
bu_vls_printf(&auto_path, "%c%s%c..%csrc%ctclscripts%carcher",
@@ -317,6 +329,10 @@
BU_PATH_SEPARATOR, data, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR);
bu_vls_printf(&auto_path, "%c%s%ctclscripts%cgeometree",
BU_PATH_SEPARATOR, data, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR);
+#ifdef HAVE_ADAPTAGRAMS
+ bu_vls_printf(&auto_path, "%c%s%ctclscripts%cgraph",
+ BU_PATH_SEPARATOR, data, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR);
+#endif
bu_vls_printf(&auto_path, "%c%s%ctclscripts%crtwizard",
BU_PATH_SEPARATOR, data, BU_DIR_SEPARATOR,
BU_DIR_SEPARATOR);
bu_vls_printf(&auto_path, "%c%s%ctclscripts%carcher",
Modified: brlcad/trunk/src/tclscripts/CMakeLists.txt
===================================================================
--- brlcad/trunk/src/tclscripts/CMakeLists.txt 2012-07-29 00:39:09 UTC (rev
51699)
+++ brlcad/trunk/src/tclscripts/CMakeLists.txt 2012-07-29 00:47:59 UTC (rev
51700)
@@ -50,6 +50,7 @@
add_subdirectory(archer)
add_subdirectory(boteditor)
add_subdirectory(geometree)
+add_subdirectory(graph)
add_subdirectory(hv3)
add_subdirectory(lib)
add_subdirectory(mged)
Modified: brlcad/trunk/src/tclscripts/Makefile.am
===================================================================
--- brlcad/trunk/src/tclscripts/Makefile.am 2012-07-29 00:39:09 UTC (rev
51699)
+++ brlcad/trunk/src/tclscripts/Makefile.am 2012-07-29 00:47:59 UTC (rev
51700)
@@ -3,6 +3,7 @@
archer \
boteditor \
geometree \
+ graph \
hv3 \
lib \
mged \
Added: brlcad/trunk/src/tclscripts/graph/CMakeLists.txt
===================================================================
--- brlcad/trunk/src/tclscripts/graph/CMakeLists.txt
(rev 0)
+++ brlcad/trunk/src/tclscripts/graph/CMakeLists.txt 2012-07-29 00:47:59 UTC
(rev 51700)
@@ -0,0 +1,17 @@
+set(graph_TCLSCRIPTS
+ GraphEditor.tcl
+ graph.tcl
+ )
+BRLCAD_ADDDATA(graph_TCLSCRIPTS tclscripts/graph)
+pkgIndex_BUILD(graph tclscripts/graph)
+tclIndex_BUILD(graph tclscripts/graph)
+
+CMAKEFILES(pkgIndex.tcl tclIndex)
+CMAKEFILES(Makefile.am)
+
+# Local Variables:
+# tab-width: 8
+# mode: cmake
+# indent-tabs-mode: t
+# End:
+# ex: shiftwidth=2 tabstop=8
Property changes on: brlcad/trunk/src/tclscripts/graph/CMakeLists.txt
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: brlcad/trunk/src/tclscripts/graph/GraphEditor.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/graph/GraphEditor.tcl
(rev 0)
+++ brlcad/trunk/src/tclscripts/graph/GraphEditor.tcl 2012-07-29 00:47:59 UTC
(rev 51700)
@@ -0,0 +1,612 @@
+# G R A P H E D I T O R . T C L
+# BRL-CAD
+#
+# Copyright (c) 2012 United States Government as represented by
+# the U.S. Army Research Laboratory.
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public License
+# version 2.1 as published by the Free Software Foundation.
+#
+# This library is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this file; see the file named COPYING for more
+# information.
+#
+###
+#
+# Description -
+#
+# This is the GraphEditor object script. It generates a hierarchical view of
+# geometry database objects.
+#
+
+package require Itcl
+package require Itk
+package require Iwidgets
+
+package provide GraphEditor 1.0
+
+class GraphEditor {
+ inherit itk::Toplevel
+
+ constructor {} {}
+ destructor {}
+
+ public {
+ method setDisplayedToColor { { color "" } } {}
+
+ method clearDisplay {} {}
+ method autosizeDisplay {} {}
+ method zoomDisplay { { zoom "in" } } {}
+
+ method renderPreview { {rtoptions "-P4 -R -B" } } {}
+
+ method toggleAutosizing { { state "" } } {}
+ method toggleAutorender { { state "" } } {}
+
+ method toggleDebug {} {}
+ }
+
+ protected {
+ # menu toggle options
+ variable _autoRender
+
+ # hooks to the heirarchy pop-up menus
+ variable _itemMenu
+ variable _bgMenu
+ }
+
+ private {
+ variable _debug
+
+ # track certain menu items that are dynamic
+ variable _setcolorItemMenuIndex
+ variable _autosizeItemMenuIndex
+ variable _autosizeBgMenuIndex
+ variable _autorenderItemMenuIndex
+ variable _autorenderBgMenuIndex
+
+ # port used for preview fbserv rendering
+ variable _fbservPort
+ variable _weStartedFbserv
+
+ # save the mged framebuffer name
+ variable _mgedFramebufferId
+
+ method rgbToHex { { rgb "0 0 0" } } {}
+ method checkAutoRender {} {}
+ }
+}
+
+
+###########
+# begin constructor/destructor
+###########
+
+body GraphEditor::constructor {} {
+ # used to determine the mged port number
+ global port
+ global mged_players
+
+ # set to 1/0 to turn call path debug messages on/off
+ set _debug 0
+
+ set _autoRender 0
+ set _popup ""
+
+ # pick some randomly high port for preview rendering and hope it, or one of
+ # its neighbors is open.
+
+ if [ catch { set port } _fbservPort ] {
+ set _fbservPort 0
+ }
+
+ set _weStartedFbserv 0
+
+ # determine the framebuffer window id
+ if { [ catch { set mged_players } _mgedFramebufferId ] } {
+ puts $_mgedFramebufferId
+ puts "assuming default mged framebuffer id: id_0"
+ set _mgedFramebufferId "id_0"
+ }
+ # just in case there are more than one returned
+ set _mgedFramebufferId [ lindex $_mgedFramebufferId 0 ]
+
+ # set the window title
+ $this configure -title "Graph Editor"
+
+ itk_component add menubar {
+ menu $itk_interior.menubar
+ }
+
+ menu $itk_interior.menubar.close -title "Close"
+ $itk_interior.menubar.close add command -label "Close" -underline 0
-command ""
+
+ # set up the adjustable sliding pane with a left and right side
+ itk_component add pw_pane {
+ panedwindow $itk_interior.pw_pane -orient vertical -height 512 -width
256
+ }
+
+ $itk_interior.pw_pane add left -margin 5
+ $itk_interior.pw_pane add right -margin 5 -minimum 5
+ # XXX keep the left side hidden away for now...
+ $itk_interior.pw_pane hide right
+
+ itk_component add cadtree {
+ Hierarchy $itk_interior.cadtree \
+ -markforeground blue \
+ -markbackground red \
+ -selectforeground black \
+ -selectbackground yellow \
+ -visibleitems 20x40 \
+ -alwaysquery 1
+ }
+
+ # save hooks to the cadtree pop-up menus for efficiency and convenience
+ set _itemMenu [ $itk_interior.cadtree component itemMenu ]
+ set _bgMenu [ $itk_interior.cadtree component bgMenu ]
+
+ $_bgMenu add separator
+
+ $_bgMenu add command \
+ -label [ $this toggleAutosizing same ] \
+ -command "[ code $this toggleAutosizing ]"
+ # save the index of this menu entry so we may modify its label later
+ set _autosizeBgMenuIndex [ $_bgMenu index end ]
+
+ $_bgMenu add command \
+ -label [ $this toggleAutorender same ] \
+ -command "[ code $this toggleAutorender ]"
+ # save the index of this menu entry so we may modify its label later
+ set _autorenderBgMenuIndex [ $_bgMenu index end ]
+
+ grid $itk_component(pw_pane) -sticky nsew
+
+ grid rowconfigure $itk_interior 0 -weight 1
+ grid columnconfigure $itk_interior 0 -weight 1
+
+ bind $_itemMenu <ButtonRelease> {::tk::MenuInvoke %W 1}
+ bind $_bgMenu <ButtonRelease> {::tk::MenuInvoke %W 1}
+}
+
+
+body GraphEditor::destructor {} {
+ if { $_debug } {
+ puts "destructor"
+ }
+
+ # destroy the framebuffer, if we opened it
+ if { $_weStartedFbserv } {
+ puts "cleaning up fbserv"
+ set fbfree [file join [bu_brlcad_root "bin"] fbfree]
+ if { [ catch { exec $fbfree -F $_fbservPort } error ] } {
+ puts $error
+ puts "Unable to properly clean up after our fbserv"
+ }
+ }
+}
+
+###########
+# end constructor/destructor
+###########
+
+
+###########
+# begin public methods
+###########
+
+# clearDisplay
+#
+# simply clears any displayed nodes from the graphics window
+#
+body GraphEditor::clearDisplay {} {
+ if { $_debug } {
+ puts "clearDisplay"
+ }
+
+ # verbosely describe what we are doing
+ puts "Z"
+ set retval [ Z ]
+ $this checkAutoRender
+ return $retval
+}
+
+
+# autosizeDisplay
+#
+# auto-fits the currently displayed objects to the current view size
+#
+body GraphEditor::autosizeDisplay {} {
+ if { $_debug } {
+ puts "autosizeDisplay"
+ }
+
+ # verbosely describe what we are doing
+ puts "autoview"
+ set retval [ autoview ]
+ $this checkAutoRender
+ return $retval
+}
+
+
+# zoomDisplay
+#
+# zooms the display in or out either in jumps via the keywords "in" and "out"
+# or via a specified amount.
+#
+body GraphEditor::zoomDisplay { { zoom "in"} } {
+ if { $_debug } {
+ puts "zoomDisplay $zoom"
+ }
+
+ if { [ string compare $zoom "" ] == 0 } {
+ set zoom "in"
+ }
+
+ if { [ string compare $zoom "in" ] == 0 } {
+ puts "zoomin"
+ return [ zoomin ]
+ } elseif { [ string compare $zoom "out" ] == 0 } {
+ puts "zoomout"
+ set retval [ zoomout ]
+ $this checkAutoRender
+ return $retval
+ }
+
+
+ # XXX we do not check if the value is a valid number, we should
+ puts "zoom $zoom"
+ set retval [ zoom $zoom ]
+ $this checkAutoRender
+ return $retval
+}
+
+
+# renderPreview
+#
+# generates a small preview image of what geometry is presently displayed to a
+# small temporary framebuffer
+#
+body GraphEditor::renderPreview { { rtoptions "-P4 -R -B" } } {
+
+ # mged provides the port number it has available
+ global port
+ global mged_gui
+
+ set size 128
+ set device /dev/X
+ set rgb "255 255 255"
+ set rtrun ""
+ set fbserv [file join [bu_brlcad_root "bin"] fbserv]
+ set fbfree [file join [bu_brlcad_root "bin"] fbfree]
+ set fbline [file join [bu_brlcad_root "bin"] fbline]
+ set fbclear [file join [bu_brlcad_root "bin"] fbclear]
+
+ # see if we can try to use the mged graphics window instead of firing up
our own framebuffer
+ set useMgedWindow 0
+ if { [ set mged_gui($_mgedFramebufferId,fb) ] == 1 } {
+ if { [ set mged_gui($_mgedFramebufferId,listen) ] == 1 } {
+ set useMgedWindow 1
+ }
+ }
+
+ if { $_debug } {
+ if { $useMgedWindow } {
+ puts "Using MGED Graphics Window for raytrace"
+ } else {
+ puts "Attempting to use our own fbserv"
+ }
+ }
+
+ if { $useMgedWindow } {
+
+ # if we previously started up a framebuffer, shut it down
+ if { $_weStartedFbserv } {
+ puts "cleaning up fbserv"
+ if { [ catch { exec $fbfree -F $_fbservPort } error ] } {
+ puts $error
+ puts "Unable to properly clean up after our fbserv"
+ }
+ set _weStartedFbserv 0
+ }
+
+ # if we got here, then we should be able to attach to a running
framebuffer.
+ scan $rgb {%d %d %d} r g b
+
+ # make sure we are using the mged framebuffer port
+ set _fbservPort [ set port ]
+
+ # get the image dimensions of the mged graphics window
+ set windowSize [ rt_set_fb_size $_mgedFramebufferId ]
+ set windowWidth [ lindex [ split $windowSize x ] 0 ]
+ set windowHeight [ lindex [ split $windowSize x ] 1 ]
+
+ # scale the image to the proportional window dimensions so that the
raytrace
+ # "matches" the proportion size of the window.
+ if { $windowWidth > $windowHeight } {
+ set scaledHeight [ expr round(double($size) / double($windowWidth)
* double($windowHeight)) ]
+ set rtrun "rt [ split $rtoptions ] -F $_fbservPort -w$size
-n$scaledHeight -C$r/$g/$b"
+ } else {
+ set scaledWidth [ expr round(double($size) / double($windowHeight)
* double($windowWidth)) ]
+ set rtrun "rt [ split $rtoptions ] -F $_fbservPort -w$scaledWidth
-n$size -C$r/$g/$b"
+ }
+
+ } else {
+ # cannot use mged graphics window for whatever reason, so make do.
+ # try to fire up our own framebuffer.
+
+ # see if there is an fbserv running
+ if { [ catch { exec $fbclear -c -F $_fbservPort -s$size $rgb } error ]
} {
+
+ if { $_debug } {
+ puts "$error"
+ }
+
+ # failed, so try to start one
+ puts "exec $fbserv -S $size -p $_fbservPort -F $device > /dev/null
&"
+ exec $fbserv -S $size -p $_fbservPort -F $device > /dev/null &
+ exec sleep 1
+
+ # keep track of the fact that we started this fbserv, so we have
to clean up
+ set _weStartedFbserv 1
+
+ # try again
+ if { [ catch { exec $fbclear -c -F $_fbservPort $rgb } error ] } {
+
+ if { $_debug } {
+ puts "$error"
+ }
+
+ # try the next port
+ incr _fbservPort
+
+ # still failing, try to start one again
+ puts "exec $fbserv -S $size -p $_fbservPort -F $device >
/dev/null &"
+ exec $fbserv -S $size -p $_fbservPort -F $device > /dev/null &
+ exec sleep 1
+
+ # try again
+ if { [ catch { exec $fbclear -c -F $_fbservPort $rgb } error ]
} {
+
+ if { $_debug } {
+ puts "$error"
+ }
+
+ incr _fbservPort
+
+ # still failing, try to start one again
+ puts "exec $fbserv -S $size -p $_fbservPort -F $device >
/dev/null &"
+ exec $fbserv -S $size $_fbservPort $device > /dev/null &
+ exec sleep 1
+
+ # last try
+ if { [ catch { exec $fbclear -c -F $_fbservPort $rgb }
error ] } {
+ # strike three, give up!
+ puts $error
+ puts "Unable to attach to a framebuffer"
+
+ # guess we did not really get to start it
+ set _weStartedFbserv 0
+
+ return
+ }
+ }
+ # end try three
+ }
+ # end try two
+ }
+ # end try one
+
+ # write out some status lines for status-rendering cheesily via exec.
+ # these hang for some reason if sent to the mged graphics window
through
+ # mged (though they work fine via command-line).
+ exec $fbline -F $_fbservPort -r 255 -g 0 -b 0 [expr $size - 1] 0 [expr
$size - 1] [expr $size - 1]
+ exec $fbline -F $_fbservPort -r 0 -g 255 -b 0 [expr $size - 2] 0 [expr
$size - 2] [expr $size - 1]
+ exec $fbline -F $_fbservPort -r 0 -g 0 -b 255 [expr $size - 3] 0 [expr
$size - 3] [expr $size - 1]
+
+ # if we got here, then we were able to attach to a running
framebuffer..
+ scan $rgb {%d %d %d} r g b
+ set rtrun "rt [ split $rtoptions ] -F $_fbservPort -s$size -C$r/$g/$b"
+ }
+ # end check for using mged graphics window or using fbserv
+
+ puts "$rtrun"
+ return [ eval $rtrun ]
+}
+
+
+# toggleAutosizing
+#
+# makes it so that the view is either auto-sizing or not.
+# XXX if the menu entries get more complex than what is already below (8
references),
+# it should really be reorganized.
+#
+body GraphEditor::toggleAutosizing { { state "" } } {
+ if { $_debug } {
+ puts "toggleAutosizing $state"
+ }
+
+ global autosize
+
+ # handle different states
+ if { [ string compare $state "same" ] == 0 } {
+ # this one is used by the constructor to set the label to the current
state
+ # we return the current state as the label
+ if { [ set autosize ] == 0 } {
+ return "Turn Autosizing On"
+ }
+ return "Turn Autosizing Off"
+
+ } elseif { [ string compare $state "off" ] == 0 } {
+ # specifically turning the thing off
+ $_bgMenu entryconfigure $_autosizeBgMenuIndex -label "Turn Autosizing
On"
+ puts "set autosize 0"
+ return [ set autosize 0 ]
+ } elseif { [ string compare $state "on" ] == 0 } {
+ $_bgMenu entryconfigure $_autosizeBgMenuIndex -label "Turn Autosizing
Off"
+ puts "set autosize 1"
+ return [ set autosize 1 ]
+ }
+
+ if { [ set autosize ] == 0 } {
+ $_bgMenu entryconfigure $_autosizeBgMenuIndex -label "Turn Autosizing
Off"
+ puts "set autosize 1"
+ return [ set autosize 1 ]
+ }
+
+ $_bgMenu entryconfigure $_autosizeBgMenuIndex -label "Turn Autosizing On"
+ puts "set autosize 0"
+ return [ set autosize 0 ]
+}
+
+
+# toggleAutorender
+#
+# makes it so that the view is either auto-sizing or not.
+# XXX if the menu entries get more complex than what is already below (8
references),
+# it should really be reorganized.
+#
+body GraphEditor::toggleAutorender { { state "" } } {
+ if { $_debug } {
+ puts "toggleAutorender $state"
+ }
+
+ # handle different states
+ if { [ string compare $state "same" ] == 0 } {
+ # this one is used by the constructor to set the label to the current
state
+ # we return the current state as the label
+ if { [ set _autoRender ] == 0 } {
+ return "Turn Auto-Render On"
+ }
+ return "Turn Auto-Render Off"
+
+ } elseif { [ string compare $state "off" ] == 0 } {
+ # specifically turning the thing off
+ $_bgMenu entryconfigure $_autorenderBgMenuIndex -label "Turn
Auto-Render On"
+ puts "set _autoRender 0"
+ set retval [ set _autoRender 0 ]
+ $this checkAutoRender
+ return $retval
+
+ } elseif { [ string compare $state "on" ] == 0 } {
+ $_bgMenu entryconfigure $_autorenderBgMenuIndex -label "Turn
Auto-Render Off"
+ puts "set _autoRender 1"
+ set retval [ set _autoRender 1 ]
+ $this checkAutoRender
+ return $retval
+ }
+
+ # we are not handling a specific request, so really toggle whatever the
real
+ # value is.
+
+ if { [ set _autoRender ] == 0 } {
+ $_bgMenu entryconfigure $_autorenderBgMenuIndex -label "Turn
Auto-Render Off"
+ puts "set _autoRender 1"
+ set retval [ set _autoRender 1 ]
+ $this checkAutoRender
+ return $retval
+ }
+
+ $_bgMenu entryconfigure $_autorenderBgMenuIndex -label "Turn Auto-Render
On"
+ puts "set _autoRender 0"
+ set retval [ set _autoRender 0 ]
+ $this checkAutoRender
+ return $retval
+}
+
+# toggleDebug
+#
+# turns debugging on/off
+#
+body GraphEditor::toggleDebug { } {
+ if { $_debug } {
+ set _debug 0
+ } else {
+ set _debug 1
+ }
+}
+
+##########
+# end public methods
+##########
+
+
+##########
+# begin private methods
+##########
+
+# rgbToHex
+#
+# takes an rgb triplet string as input and returns an html-style
+# color entity that tcl understands.
+#
+body GraphEditor::rgbToHex { { rgb "0 0 0" } } {
+ if { $_debug } {
+ puts "rgbToHex $rgb"
+ }
+
+ if { [ string compare $rgb "" ] == 0 } {
+ set rgb "0 0 0"
+ }
+
+ scan $rgb {%d %d %d} r g b
+
+ # clamp the values between 0 and 255
+ if { [ expr $r > 255 ] } {
+ set r 255
+ } elseif { [ expr $r < 0 ] } {
+ set r 0
+ }
+ if { [ expr $g > 255 ] } {
+ set g 255
+ } elseif { [ expr $g < 0 ] } {
+ set g 0
+ }
+ if { [ expr $b > 255 ] } {
+ set b 255
+ } elseif { [ expr $b < 0 ] } {
+ set b 0
+ }
+
+ if [ catch { format {#%02x%02x%02x} $r $g $b } color ] {
+ puts $color
+ return "#000000"
+ }
+
+ return $color
+}
+
+
+# checkAutoRender
+#
+# simply checks if a render needs to occur automatically
+#
+body GraphEditor::checkAutoRender {} {
+ if { $_debug } {
+ puts "checkAutoRender"
+ }
+
+ if { $_autoRender == 1 } {
+ $this renderPreview
+ }
+
+ return
+}
+
+##########
+# end private methods
+##########
+
+# Local Variables:
+# mode: Tcl
+# tab-width: 8
+# c-basic-offset: 4
+# tcl-indent-level: 4
+# indent-tabs-mode: t
+# End:
+# ex: shiftwidth=4 tabstop=8
Property changes on: brlcad/trunk/src/tclscripts/graph/GraphEditor.tcl
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: brlcad/trunk/src/tclscripts/graph/Makefile.am
===================================================================
--- brlcad/trunk/src/tclscripts/graph/Makefile.am
(rev 0)
+++ brlcad/trunk/src/tclscripts/graph/Makefile.am 2012-07-29 00:47:59 UTC
(rev 51700)
@@ -0,0 +1,33 @@
+
+this_dir = tclscripts/graph
+tcldir = $(BRLCAD_DATA)/$(this_dir)
+
+scripties = \
+ GraphEditor.tcl \
+ graph.tcl
+
+BUILT_SOURCES = \
+ pkgIndex.tcl \
+ tclIndex
+
+tcl_SCRIPTS = \
+ $(BUILT_SOURCES) \
+ $(scripties)
+
+EXTRA_DIST = $(tcl_SCRIPTS) CMakeLists.txt
+
+# CLEANFILES = $(BUILT_SOURCES)
+
+pkgIndex.tcl:
+ TCL_LIBRARY=$(top_srcdir)/src/other/tcl/library \
+
LD_LIBRARY_PATH=$(top_builddir)/src/other/tcl/unix:$(top_builddir)/src/other/tk/unix:$$LD_LIBRARY_PATH
\
+
DYLD_LIBRARY_PATH=$(top_builddir)/src/other/tcl/unix:$(top_buildir)/src/other/tk/unix:$$DYLD_LIBRARY_PATH
\
+ $(top_builddir)/src/bwish/btclsh $(top_srcdir)/src/tclscripts/ampi.tcl
$(top_srcdir)/src/$(this_dir)
+
+tclIndex:
+ TCL_LIBRARY=$(top_srcdir)/src/other/tcl/library \
+
LD_LIBRARY_PATH=$(top_builddir)/src/other/tcl/unix:$(top_builddir)/src/other/tk/unix:$$LD_LIBRARY_PATH
\
+
DYLD_LIBRARY_PATH=$(top_builddir)/src/other/tcl/unix:$(top_buildir)/src/other/tk/unix:$$DYLD_LIBRARY_PATH
\
+ $(top_builddir)/src/bwish/btclsh $(top_srcdir)/src/tclscripts/ami.tcl
$(top_srcdir)/src/$(this_dir)
+
+include $(top_srcdir)/misc/Makefile.defs
Property changes on: brlcad/trunk/src/tclscripts/graph/Makefile.am
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: brlcad/trunk/src/tclscripts/graph/graph.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/graph/graph.tcl (rev 0)
+++ brlcad/trunk/src/tclscripts/graph/graph.tcl 2012-07-29 00:47:59 UTC (rev
51700)
@@ -0,0 +1,68 @@
+#!/bin/sh
+# G R A P H . T C L
+# BRL-CAD
+#
+# Copyright (c) 2012 United States Government as represented by
+# the U.S. Army Research Laboratory.
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public License
+# version 2.1 as published by the Free Software Foundation.
+#
+# This library is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this file; see the file named COPYING for more
+# information.
+#
+###
+#
+# This is the Graph Editor main script. It manages the loading
+# and unloading of a GeometryBrowser object into mged automatically.
+#
+# The trailing backslash forces tcl to skip the next line \
+exec bwish "$0" "$@"
+
+
+package require GraphEditor
+
+### # All GraphEditor stuff is in the GraphEditor namespace
+proc graph { } {
+ global mged_gui
+ global ::tk::Priv
+ global mged_players
+
+ # determine the framebuffer window id
+ if { [ catch { set mged_players } _mgedFramebufferId ] } {
+ puts $_mgedFramebufferId
+ puts "assuming default mged framebuffer id: id_0"
+ set _mgedFramebufferId "id_0"
+ }
+ # just in case there are more than one returned
+ set _mgedFramebufferId [ lindex $_mgedFramebufferId 0 ]
+
+ set gt .$_mgedFramebufferId.graph
+
+ # see if the window is already open. If so, just raise it up.
+ if [ winfo exists $gt ] {
+ raise $gt
+ return
+ }
+
+ # just to quell the tk name returned and report fatal errors
+ if [ catch { GraphEditor $gt } geName ] {
+ puts $geName
+ }
+}
+
+# Local Variables:
+# mode: Tcl
+# tab-width: 8
+# c-basic-offset: 4
+# tcl-indent-level: 4
+# indent-tabs-mode: t
+# End:
+# ex: shiftwidth=4 tabstop=8
Property changes on: brlcad/trunk/src/tclscripts/graph/graph.tcl
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: brlcad/trunk/src/tclscripts/graph/pkgIndex.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/graph/pkgIndex.tcl
(rev 0)
+++ brlcad/trunk/src/tclscripts/graph/pkgIndex.tcl 2012-07-29 00:47:59 UTC
(rev 51700)
@@ -0,0 +1,11 @@
+# Tcl package index file, version 1.1
+# This file is generated by the "pkg_mkIndex" command
+# and sourced either when an application starts up or
+# by a "package unknown" script. It invokes the
+# "package ifneeded" command to set up package-related
+# information so that packages will be loaded automatically
+# in response to "package require" commands. When this
+# script is sourced, the variable $dir must contain the
+# full path name of this file's directory.
+
+package ifneeded GraphEditor 1.0 [list source [file join $dir GraphEditor.tcl]]
Property changes on: brlcad/trunk/src/tclscripts/graph/pkgIndex.tcl
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: brlcad/trunk/src/tclscripts/graph/tclIndex
===================================================================
--- brlcad/trunk/src/tclscripts/graph/tclIndex (rev 0)
+++ brlcad/trunk/src/tclscripts/graph/tclIndex 2012-07-29 00:47:59 UTC (rev
51700)
@@ -0,0 +1,21 @@
+# Tcl autoload index file, version 2.0
+# This file is generated by the "auto_mkindex" command
+# and sourced to set up indexing information for one or
+# more commands. Typically each line is a command that
+# sets an element in the auto_index array, where the
+# element name is the name of a command and the value is
+# a script that loads the command.
+
+set auto_index(GraphEditor) [list source [file join $dir GraphEditor.tcl]]
+set auto_index(::GraphEditor::constructor) [list source [file join $dir
GraphEditor.tcl]]
+set auto_index(::GraphEditor::destructor) [list source [file join $dir
GraphEditor.tcl]]
+set auto_index(::GraphEditor::clearDisplay) [list source [file join $dir
GraphEditor.tcl]]
+set auto_index(::GraphEditor::autosizeDisplay) [list source [file join $dir
GraphEditor.tcl]]
+set auto_index(::GraphEditor::zoomDisplay) [list source [file join $dir
GraphEditor.tcl]]
+set auto_index(::GraphEditor::renderPreview) [list source [file join $dir
GraphEditor.tcl]]
+set auto_index(::GraphEditor::toggleAutosizing) [list source [file join $dir
GraphEditor.tcl]]
+set auto_index(::GraphEditor::toggleAutorender) [list source [file join $dir
GraphEditor.tcl]]
+set auto_index(::GraphEditor::toggleDebug) [list source [file join $dir
GraphEditor.tcl]]
+set auto_index(::GraphEditor::rgbToHex) [list source [file join $dir
GraphEditor.tcl]]
+set auto_index(::GraphEditor::checkAutoRender) [list source [file join $dir
GraphEditor.tcl]]
+set auto_index(graph) [list source [file join $dir graph.tcl]]
Property changes on: brlcad/trunk/src/tclscripts/graph/tclIndex
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
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
