- Timestamp:
- May 17, 2015, 11:02:25 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/unirect3d.tcl
r5537 r5538 20 20 21 21 itcl::class Rappture::Unirect3d { 22 constructor {xmlobj field cname { extents 1}} { # defined below }22 constructor {xmlobj field cname {numComponents 1}} { # defined below } 23 23 destructor { # defined below } 24 24 … … 55 55 # Constructor 56 56 # ---------------------------------------------------------------------- 57 itcl::body Rappture::Unirect3d::constructor {xmlobj field cname { extents 1}} {57 itcl::body Rappture::Unirect3d::constructor {xmlobj field cname {numComponents 1}} { 58 58 if {![Rappture::library isvalid $xmlobj]} { 59 59 error "bad value \"$xmlobj\": should be Rappture::library" … … 70 70 GetSize $m "yaxis.numpoints" _yNum 71 71 GetSize $m "zaxis.numpoints" _zNum 72 set _compNum $ extents72 set _compNum $numComponents 73 73 foreach {key path} { 74 74 group about.group … … 145 145 # ---------------------------------------------------------------------- 146 146 itcl::body Rappture::Unirect3d::mesh {} { 147 set dx [expr {($_xMax - $_xMin) / double($_xNum )}]148 set dy [expr {($_yMax - $_yMin) / double($_yNum )}]149 set dz [expr {($_zMax - $_zMin) / double($_zNum )}]147 set dx [expr {($_xMax - $_xMin) / double($_xNum - 1)}] 148 set dy [expr {($_yMax - $_yMin) / double($_yNum - 1)}] 149 set dz [expr {($_zMax - $_zMin) / double($_zNum - 1)}] 150 150 foreach {a b c} $_axisOrder break 151 151 for { set i 0 } { $i < [set _${a}Num] } { incr i } {
Note: See TracChangeset
for help on using the changeset viewer.