Changeset 5010
- Timestamp:
- Feb 12, 2015, 11:37:50 AM (10 years ago)
- Location:
- branches/1.4
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4
-
branches/1.4/gui/scripts/field.tcl
r5007 r5010 362 362 } 363 363 if {[info exists _comp2unirect3d($cname)]} { 364 return [$_comp2unirect3d($cname) blob]364 return [$_comp2unirect3d($cname) values] 365 365 } 366 366 error "can't get field values. Unknown component \"$cname\": should be one of [join [lsort [array names _comp2dims]] {, }]" … … 1429 1429 } 1430 1430 # Get the data limits 1431 set vector [$_comp2unirect3d($cname) values Obj]1431 set vector [$_comp2unirect3d($cname) values] 1432 1432 set minmax [VectorLimits $vector $vectorsize] 1433 1433 lappend limits $cname $minmax -
branches/1.4/gui/scripts/unirect3d.tcl
r4790 r5010 27 27 public method mesh {} 28 28 public method values {} 29 public method valuesObj {}30 29 public method units { axis } 31 30 public method label { axis } … … 141 140 # ---------------------------------------------------------------------- 142 141 # method mesh 143 # Returns a Tcl list that represents the points 144 # grid. 142 # Returns a Tcl list that represents the points of the uniform 143 # grid. Each point has x,y and z values in the list. 145 144 # ---------------------------------------------------------------------- 146 145 itcl::body Rappture::Unirect3d::mesh {} { … … 163 162 164 163 # ---------------------------------------------------------------------- 165 # method values 166 # Returns a Tcl listthat represents the field values164 # method values 165 # Returns a BLT vector that represents the field values 167 166 # ---------------------------------------------------------------------- 168 167 itcl::body Rappture::Unirect3d::values {} { 169 if { [$_values length] > 0 } {170 return [$_values range 0 end]171 }172 return ""173 }174 175 # ----------------------------------------------------------------------176 # method valuesObj177 # Returns a BLT vector that represents the field values178 # ----------------------------------------------------------------------179 itcl::body Rappture::Unirect3d::valuesObj {} {180 168 return $_values 181 169 } -
branches/1.4/gui/scripts/vtkheightmapviewer.tcl
r5007 r5010 1073 1073 SendCmd [list axis name $axis $label] 1074 1074 1075 set units "" 1075 1076 if {$axis == "z" && [$_first hints ${axis}units] == ""} { 1076 1077 if {$_curFldName != ""} {
Note: See TracChangeset
for help on using the changeset viewer.