Changeset 5095
- Timestamp:
- Mar 8, 2015 1:39:54 AM (6 years ago)
- Location:
- branches/1.4
- Files:
-
- 14 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4
-
branches/1.4/gui/scripts/cloud.tcl
r4926 r5095 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 2 2 # ---------------------------------------------------------------------- 3 3 # COMPONENT: cloud - represents the mesh for a cloud of points … … 21 21 private variable _cloud ""; # lib obj representing this cloud 22 22 private variable _units "" ; # system of units for x, y, z 23 private variable _axis2label; # 24 private variable _axis2units; # 23 private variable _axis2label; # 24 private variable _axis2units; # 25 25 private variable _limits; # limits x, y, z 26 26 private common _xp2obj ; # Used for fetch/release ref counting … … 32 32 private variable _isValid 0; # Indicates if the data is valid. 33 33 34 constructor {xmlobj path} { 35 # defined below 36 } 37 destructor { 38 # defined below 34 constructor {xmlobj path} { 35 # defined below 36 } 37 destructor { 38 # defined below 39 39 } 40 40 public method points {} … … 48 48 public method hints {{key ""}} 49 49 public method numpoints {} { 50 50 return $_numPoints 51 51 } 52 52 public method isvalid {} { … … 119 119 foreach u $_units axis { x y z } { 120 120 if { $u != "" } { 121 set _axis2units($axis) $u 121 set _axis2units($axis) $u 122 122 } else { 123 set _axis2units($axis) $first 123 set _axis2units($axis) $first 124 124 } 125 125 lappend list $_axis2units($axis) … … 156 156 } else { 157 157 foreach { min max } $_limits($axis) break 158 if {$value < $min} { 158 if {$value < $min} { 159 159 set min $value 160 160 } 161 if {$value > $max} { 161 if {$value > $max} { 162 162 set max $value 163 163 } … … 166 166 } 167 167 append _points "$x $y $z\n" 168 168 incr _numPoints 169 169 } 170 170 append out "DATASET POLYDATA\n" -
branches/1.4/gui/scripts/field.tcl
r5061 r5095 915 915 } 916 916 if { [catch { Rappture::DxToVtk $contents } vtkdata] == 0 } { 917 unset contents 917 918 ReadVtkDataSet $cname $vtkdata 918 919 if 0 { … … 922 923 } 923 924 } else { 924 puts stderr "Can't parse dx data: $vtkdata" 925 unset contents 926 puts stderr "Can't parse dx data" 925 927 } 926 928 if { $_alwaysConvertDX || … … 932 934 set _comp2dx($cname) $data 933 935 } 936 unset data 937 unset vtkdata 934 938 set _comp2style($cname) [$_field get $cname.style] 935 939 if {[$_field element $cname.flow] != ""} { … … 1389 1393 if {[$_xmlobj element $path] == ""} { 1390 1394 # Unknown mesh designated. 1395 puts stderr "ERROR: Unknown mesh \"$path\"" 1391 1396 return 0 1392 1397 } … … 1591 1596 $v set [$_field get $cname.values] 1592 1597 if { [$v length] == 0 } { 1598 puts stderr "ERROR: No field values" 1593 1599 return 0 1594 1600 } -
branches/1.4/gui/scripts/flowvisviewer.tcl
r4772 r5095 554 554 eval itk_initialize $args 555 555 556 EnableWaitDialog 900 556 557 Connect 557 558 } … … 1105 1106 set h [winfo height $itk_component(3dview)] 1106 1107 if { $w < 2 || $h < 2 } { 1108 update 1107 1109 $_dispatcher event -idle !rebuild 1108 1110 return -
branches/1.4/gui/scripts/nanovisviewer.tcl
r4988 r5095 415 415 eval itk_initialize $args 416 416 417 EnableWaitDialog 900 417 418 Connect 418 419 } … … 888 889 set h [winfo height $itk_component(3dview)] 889 890 if { $w < 2 || $h < 2 } { 891 update 890 892 $_dispatcher event -idle !rebuild 891 893 return -
branches/1.4/gui/scripts/vtkglyphviewer.tcl
r4768 r5095 442 442 443 443 eval itk_initialize $args 444 445 EnableWaitDialog 900 444 446 Connect 445 447 } … … 933 935 set h [winfo height $itk_component(view)] 934 936 if { $w < 2 || $h < 2 } { 937 update 935 938 $_dispatcher event -idle !rebuild 936 939 return -
branches/1.4/gui/scripts/vtkheightmapviewer.tcl
r5010 r5095 916 916 set h [winfo height $itk_component(view)] 917 917 if { $w < 2 || $h < 2 } { 918 update 918 919 $_dispatcher event -idle !rebuild 919 920 return -
branches/1.4/gui/scripts/vtkimageviewer.tcl
r5007 r5095 171 171 set _serverType "vtkvis" 172 172 173 EnableWaitDialog 900174 173 # Rebuild event 175 174 $_dispatcher register !rebuild … … 395 394 396 395 set _image(download) [image create photo] 396 397 397 eval itk_initialize $args 398 399 EnableWaitDialog 900 398 400 Connect 399 401 set _beforeConnect 0 … … 904 906 set h [winfo height $itk_component(view)] 905 907 if { $w < 2 || $h < 2 } { 908 update 906 909 $_dispatcher event -idle !rebuild 907 910 return -
branches/1.4/gui/scripts/vtkisosurfaceviewer.tcl
r5079 r5095 471 471 eval itk_initialize $args 472 472 473 EnableWaitDialog 500473 EnableWaitDialog 900 474 474 Connect 475 # FIXME: Removing this update breaks wizard mode (see examples/3D)476 # However, it also allows an error in the initialization order477 # where FieldResult::add is called from ResultViewer before this478 # constructor is completed.479 #update480 475 } 481 476 … … 1054 1049 set h [winfo height $itk_component(view)] 1055 1050 if { $w < 2 || $h < 2 } { 1051 update 1056 1052 $_dispatcher event -idle !rebuild 1057 1053 return -
branches/1.4/gui/scripts/vtkmeshviewer.tcl
r5007 r5095 342 342 343 343 eval itk_initialize $args 344 345 EnableWaitDialog 900 344 346 Connect 345 347 } … … 804 806 # ---------------------------------------------------------------------- 805 807 itcl::body Rappture::VtkMeshViewer::Rebuild {} { 806 807 808 set w [winfo width $itk_component(view)] 808 809 set h [winfo height $itk_component(view)] 809 810 if { $w < 2 || $h < 2 } { 811 update 810 812 $_dispatcher event -idle !rebuild 811 813 return -
branches/1.4/gui/scripts/vtkstreamlinesviewer.tcl
r5007 r5095 952 952 set h [winfo height $itk_component(view)] 953 953 if { $w < 2 || $h < 2 } { 954 update 954 955 $_dispatcher event -idle !rebuild 955 956 return -
branches/1.4/gui/scripts/vtksurfaceviewer.tcl
r5007 r5095 400 400 eval itk_initialize $args 401 401 402 EnableWaitDialog 500402 EnableWaitDialog 900 403 403 Connect 404 404 } … … 884 884 set h [winfo height $itk_component(view)] 885 885 if { $w < 2 || $h < 2 } { 886 update 886 887 $_dispatcher event -idle !rebuild 887 888 return -
branches/1.4/gui/scripts/vtkviewer.tcl
r5007 r5095 443 443 444 444 eval itk_initialize $args 445 446 EnableWaitDialog 900 445 447 Connect 446 448 } … … 1019 1021 # ---------------------------------------------------------------------- 1020 1022 itcl::body Rappture::VtkViewer::Rebuild {} { 1021 1022 1023 set w [winfo width $itk_component(view)] 1023 1024 set h [winfo height $itk_component(view)] 1024 1025 if { $w < 2 || $h < 2 } { 1026 update 1025 1027 $_dispatcher event -idle !rebuild 1026 1028 return -
branches/1.4/gui/scripts/vtkvolumeviewer.tcl
r5039 r5095 956 956 set w [winfo width $itk_component(view)] 957 957 set h [winfo height $itk_component(view)] 958 959 958 if { $w < 2 || $h < 2 } { 959 update 960 960 $_dispatcher event -idle !rebuild 961 961 return
Note: See TracChangeset
for help on using the changeset viewer.