- Timestamp:
- May 19, 2015, 4:15:13 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/unirect2d.tcl
r5568 r5569 20 20 21 21 itcl::class Rappture::Unirect2d { 22 constructor {xmlobj path} { 23 # defined below 24 } 25 destructor { 26 # defined below 27 } 28 public proc fetch {xmlobj path} 29 public proc release {obj} 30 31 public method blob {} 32 public method dimensions {} { 33 return 2 34 } 35 public method hints {{keyword ""}} 36 public method isvalid {} { 37 return $_isValid 38 } 39 public method label { axis } 40 public method limits {axis} 41 public method mesh {} 42 public method numpoints {} { 43 return $_numPoints 44 } 45 public method units { axis } 46 public method vtkdata {{what -partial}} {} 47 48 private method GetString { obj path varName } 49 private method GetValue { obj path varName } 50 private method GetSize { obj path varName } 51 22 52 private variable _axisOrder "x y" 23 53 private variable _xMax 0 … … 30 60 private variable _vtkdata "" 31 61 private variable _numPoints 0 62 private variable _isValid 0; # Indicates if the data is valid. 32 63 33 64 private common _xp2obj ; # used for fetch/release ref counting 34 65 private common _obj2ref ; # used for fetch/release ref counting 35 private variable _isValid 0; # Indicates if the data is valid.36 37 private method GetString { obj path varName }38 private method GetValue { obj path varName }39 private method GetSize { obj path varName }40 41 constructor {xmlobj path} {42 # defined below43 }44 destructor {45 # defined below46 }47 public proc fetch {xmlobj path}48 public proc release {obj}49 public method limits {axis}50 public method units { axis }51 public method label { axis }52 public method blob {}53 public method hints {{keyword ""}}54 public method mesh {}55 public method dimensions {} {56 return 257 }58 public method isvalid {} {59 return $_isValid60 }61 public method numpoints {} {62 return $_numPoints63 }64 public method vtkdata {{what -partial}} {}65 66 } 66 67 … … 156 157 } 157 158 append out "DATASET STRUCTURED_POINTS\n" 158 append out "DIMENSIONS $_xNum $_yNum 1 "159 append out "DIMENSIONS $_xNum $_yNum 1\n" 159 160 set xSpace [expr ($_xMax - $_xMin) / double($_xNum - 1)] 160 161 set ySpace [expr ($_yMax - $_yMin) / double($_yNum - 1)]
Note: See TracChangeset
for help on using the changeset viewer.