Changeset 4460 for branches/1.3/gui/scripts/vtkstreamlinesviewer.tcl
- Timestamp:
- Jul 3, 2014, 10:17:55 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3/gui/scripts/vtkstreamlinesviewer.tcl
r4455 r4460 1 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 2 2 # ---------------------------------------------------------------------- 3 # COMPONENT: vtk viewer - Vtk drawingobject viewer3 # COMPONENT: vtkstreamlinesviewer - Vtk streamlines object viewer 4 4 # 5 5 # It connects to the Vtk server running on a rendering farm, … … 7 7 # ====================================================================== 8 8 # AUTHOR: Michael McLennan, Purdue University 9 # Copyright (c) 2004-201 2HUBzero Foundation, LLC9 # Copyright (c) 2004-2014 HUBzero Foundation, LLC 10 10 # 11 11 # See the file "license.terms" for information on usage and … … 1021 1021 set label [$_first hints ${axis}label] 1022 1022 if { $label != "" } { 1023 SendCmd "axis name $axis $label"1023 SendCmd [list axis name $axis $label] 1024 1024 } 1025 1025 set units [$_first hints ${axis}units] 1026 1026 if { $units != "" } { 1027 SendCmd "axis units $axis $units"1027 SendCmd [list axis units $axis $units] 1028 1028 } 1029 1029 } … … 1483 1483 } 1484 1484 # Get the new limits because the field changed. 1485 SendCmd "dataset maprange explicit $_limits($_curFldName) $_curFldName" 1485 if { ![info exists _limits($_curFldName)] } { 1486 SendCmd "dataset maprange all" 1487 } else { 1488 SendCmd "dataset maprange explicit $_limits($_curFldName) $_curFldName" 1489 } 1486 1490 SendCmd "streamlines colormode $_colorMode $_curFldName" 1487 1491 SendCmd "cutplane colormode $_colorMode $_curFldName" … … 1504 1508 set font "Arial 8" 1505 1509 set lineht [font metrics $font -linespace] 1506 set c $itk_component(legend)1507 1510 set w 12 1508 1511 set h [expr {$_height - 3 * ($lineht + 2)}] 1509 if { $h < 1 } {1512 if { $h < 1 } { 1510 1513 return 1511 1514 } … … 1736 1739 Rappture::Combobox $inner.colormap -width 10 -editable no 1737 1740 } 1738 1739 1741 $inner.colormap choices insert end [GetColormapList] 1742 1740 1743 $itk_component(colormap) value "BCGYR" 1741 1744 bind $inner.colormap <<Value>> \ … … 1806 1809 "static_triad" "static" \ 1807 1810 "closest_triad" "closest" \ 1808 "furthest_triad" "f urthest" \1811 "furthest_triad" "farthest" \ 1809 1812 "outer_edges" "outer" 1810 1813 $itk_component(axismode) value "static" … … 2344 2347 "move" { 2345 2348 set axis [lindex $args 0] 2346 set oldval $_settings(axis-${axis}position)2347 2349 set newval [lindex $args 1] 2348 2350 if {[llength $args] != 2} {
Note: See TracChangeset
for help on using the changeset viewer.