Changeset 2489 for trunk/gui/scripts/vtkviewer.tcl
- Timestamp:
- Sep 8, 2011, 1:21:31 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkviewer.tcl
r2485 r2489 97 97 private method PanCamera {} 98 98 private method SetObjectStyle { dataobj comp } 99 private method Set Styles{ dataobj comp }99 private method SetColormap { dataobj comp } 100 100 private method RequestLegend {} 101 101 private method EnterLegend { x y } … … 129 129 # to starting position. 130 130 private variable _haveStreams 0 131 private variable _haveSpheres 0 131 132 132 133 private variable _first "" ;# This is the topmost dataset. … … 906 907 append _outbuf "dataset add $tag data follows $length\n" 907 908 append _outbuf $bytes 908 append _outbuf "polydata add $tag\n" 909 if { [$dataobj type $comp] != "spheres" } { 910 } 909 911 set _datasets($tag) 1 910 912 } 911 SetStyles $dataobj $comp912 913 lappend _obj2datasets($dataobj) $tag 913 914 SetObjectStyle $dataobj $comp 915 # Must create streamlines before setting colormap. 914 916 if { [info exists _obj2ovride($dataobj-raise)] } { 915 917 SendCmd "dataset visible 1 $tag" … … 1286 1288 set lineht [font metrics $font -linespace] 1287 1289 set c $itk_component(legend) 1288 set w 1 51290 set w 12 1289 1291 set h [expr {$_height - 2 * ($lineht + 2)}] 1290 1292 if { $h < 1} { … … 1304 1306 1305 1307 # 1306 # Set Styles--1307 # 1308 itcl::body Rappture::VtkViewer::Set Styles{ dataobj comp } {1308 # SetColormap -- 1309 # 1310 itcl::body Rappture::VtkViewer::SetColormap { dataobj comp } { 1309 1311 array set style { 1310 1312 -color rainbow … … 1327 1329 set _colormaps($colormap) 1 1328 1330 } 1329 #SendCmd "pseudocolor colormap $colormap $tag" 1330 SendCmd "streamlines colormap $colormap $tag" 1331 switch -- [$dataobj type $comp] { 1332 "polygon" { 1333 SendCmd "pseudocolor colormap $colormap $tag" 1334 } 1335 "streamlines" { 1336 SendCmd "streamlines colormap $colormap $tag" 1337 } 1338 "spheres" { 1339 SendCmd "glyphs colormap $colormap $tag" 1340 } 1341 } 1331 1342 return $colormap 1332 1343 } … … 1397 1408 $reader SetInputArray $arr 1398 1409 $reader ReadFromInputStringOn 1399 set _limits($tag) [[$reader GetOutput] GetBounds] 1410 $reader ReadAllNormalsOn 1411 $reader ReadAllScalarsOn 1412 $reader ReadAllVectorsOn 1413 $reader ReadAllFieldsOn 1414 $reader Update 1415 set output [$reader GetOutput] 1416 set _limits($tag) [$output GetBounds] 1417 set pointData [$output GetPointData] 1418 puts stderr "\#scalars=[$reader GetNumberOfScalarsInFile]" 1419 puts stderr "\#vectors=[$reader GetNumberOfVectorsInFile]" 1420 puts stderr "\#tensors=[$reader GetNumberOfTensorsInFile]" 1421 puts stderr "\#normals=[$reader GetNumberOfNormalsInFile]" 1422 puts stderr "\#fielddata=[$reader GetNumberOfFieldDataInFile]" 1423 puts stderr "fielddataname=[$reader GetFieldDataNameInFile 0]" 1424 set fieldData [$output GetFieldData] 1425 set pointData [$output GetPointData] 1426 puts stderr "field \#arrays=[$fieldData GetNumberOfArrays]" 1427 puts stderr "point \#arrays=[$pointData GetNumberOfArrays]" 1428 puts stderr "field \#components=[$fieldData GetNumberOfComponents]" 1429 puts stderr "point \#components=[$pointData GetNumberOfComponents]" 1430 puts stderr "field \#tuples=[$fieldData GetNumberOfTuples]" 1431 puts stderr "point \#tuples=[$pointData GetNumberOfTuples]" 1432 puts stderr "point \#scalars=[$pointData GetScalars]" 1433 puts stderr vectors=[$pointData GetVectors] 1434 rename $output "" 1400 1435 rename $reader "" 1401 1436 rename $arr "" … … 1748 1783 set tag $dataobj-$comp 1749 1784 set type [$dataobj type $comp] 1785 set style [$dataobj style $comp] 1786 array set props $style 1787 if { $dataobj != $_first } { 1788 set props(-wireframe) 1 1789 } 1750 1790 if { $type == "streamlines" } { 1751 1791 array set props { … … 1762 1802 SendCmd "streamlines add $tag" 1763 1803 SendCmd "streamlines seed visible off" 1804 SendCmd "polydata add $tag" 1764 1805 set _haveStreams 1 1806 } elseif { $type == "spheres" } { 1807 array set props { 1808 -color \#808080 1809 -edgevisibility 0 1810 -edgecolor black 1811 -linewidth 1.0 1812 -opacity 0.4 1813 -wireframe 0 1814 -lighting 1 1815 } 1816 SendCmd "glyphs add $tag" 1817 SendCmd "glyphs shape sphere $tag" 1818 SendCmd "glyphs gscale 0.5 $tag" 1819 SendCmd "glyphs visible 1 $tag" 1820 SendCmd "glyphs wireframe $props(-wireframe) $tag" 1821 SendCmd "glyphs ccolor 0.9 0.2 0.1 $tag" 1822 SendCmd "glyphs colormode ccolor $tag" 1823 SendCmd "glyphs opacity 1.0 $tag" 1824 set _haveSpheres 1 1765 1825 } else { 1766 1826 array set props { … … 1773 1833 -lighting 1 1774 1834 } 1835 SendCmd "polydata add $tag" 1775 1836 } 1776 set style [$dataobj style $comp] 1777 array set props $style 1778 1837 if { $type != "spheres" } { 1779 1838 SendCmd "polydata edges $props(-edgevisibility) $tag" 1780 1839 SendCmd "polydata color [Color2RGB $props(-color)] $tag" … … 1783 1842 SendCmd "polydata linewidth $props(-linewidth) $tag" 1784 1843 SendCmd "polydata opacity $props(-opacity) $tag" 1785 if { $dataobj != $_first } {1786 set props(-wireframe) 11787 }1788 1844 SendCmd "polydata wireframe $props(-wireframe) $tag" 1845 } 1789 1846 set _volume(opacity) [expr $props(-opacity) * 100.0] 1847 SetColormap $dataobj $comp 1790 1848 } 1791 1849
Note: See TracChangeset
for help on using the changeset viewer.