Changeset 5230 for branches/1.3/gui/scripts/flowvisviewer.tcl
- Timestamp:
- Apr 14, 2015 10:48:25 PM (9 years ago)
- Location:
- branches/1.3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3
-
branches/1.3/gui/scripts/flowvisviewer.tcl
r5229 r5230 1866 1866 set first [lindex $isovalues 0] 1867 1867 set last [lindex $isovalues end] 1868 set wmap ""1868 set amap "" 1869 1869 if { $first == "" || $first != 0.0 } { 1870 lappend wmap 0.0 0.01870 lappend amap 0.0 0.0 1871 1871 } 1872 1872 foreach x $isovalues { … … 1896 1896 } 1897 1897 # add spikes in the middle 1898 lappend wmap $x1 0.01899 lappend wmap $x2 $max1900 lappend wmap $x3 $max1901 lappend wmap $x4 0.01898 lappend amap $x1 0.0 1899 lappend amap $x2 $max 1900 lappend amap $x3 $max 1901 lappend amap $x4 0.0 1902 1902 } 1903 1903 if { $last == "" || $last != 1.0 } { 1904 lappend wmap 1.0 0.01905 } 1906 SendCmd "transfunc define $tf { $cmap } { $ wmap }"1904 lappend amap 1.0 0.0 1905 } 1906 SendCmd "transfunc define $tf { $cmap } { $amap }" 1907 1907 return [SendCmd "$dataobj-$comp configure -transferfunction $tf"] 1908 1908 }
Note: See TracChangeset
for help on using the changeset viewer.