Changeset 5183 for branches/1.4/gui
- Timestamp:
- Apr 2, 2015 9:03:35 AM (9 years ago)
- Location:
- branches/1.4/gui/scripts
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4/gui/scripts/flowvisviewer.tcl
r5144 r5183 1782 1782 set first [lindex $isovalues 0] 1783 1783 set last [lindex $isovalues end] 1784 set wmap ""1784 set amap "" 1785 1785 if { $first == "" || $first != 0.0 } { 1786 lappend wmap 0.0 0.01786 lappend amap 0.0 0.0 1787 1787 } 1788 1788 foreach x $isovalues { … … 1812 1812 } 1813 1813 # add spikes in the middle 1814 lappend wmap $x1 0.01815 lappend wmap $x2 $max1816 lappend wmap $x3 $max1817 lappend wmap $x4 0.01814 lappend amap $x1 0.0 1815 lappend amap $x2 $max 1816 lappend amap $x3 $max 1817 lappend amap $x4 0.0 1818 1818 } 1819 1819 if { $last == "" || $last != 1.0 } { 1820 lappend wmap 1.0 0.01821 } 1822 SendCmd "transfunc define $tf { $cmap } { $ wmap }"1820 lappend amap 1.0 0.0 1821 } 1822 SendCmd "transfunc define $tf { $cmap } { $amap }" 1823 1823 return [SendCmd "$dataobj-$comp configure -transferfunction $tf"] 1824 1824 } -
branches/1.4/gui/scripts/nanovisviewer.tcl
r5143 r5183 1399 1399 # changes. 1400 1400 set cmap [ColorsToColormap $styles(-color)] 1401 set wmap [list 0.0 0.0 1.0 1.0]1402 set _cname2transferFunction($cname) [list $cmap $ wmap]1403 SendCmd [list transfunc define $cname $cmap $ wmap]1401 set amap [list 0.0 0.0 1.0 1.0] 1402 set _cname2transferFunction($cname) [list $cmap $amap] 1403 SendCmd [list transfunc define $cname $cmap $amap] 1404 1404 } 1405 1405 SendCmd "volume shading transfunc $cname $tag" … … 1425 1425 # 1426 1426 itcl::body Rappture::NanovisViewer::ComputeTransferFunction { cname } { 1427 foreach {cmap wmap} $_cname2transferFunction($cname) break1427 foreach {cmap amap} $_cname2transferFunction($cname) break 1428 1428 1429 1429 # We have to parse the style attributes for a volume using this … … 1454 1454 1455 1455 } 1456 set wmap [ComputeAlphamap $cname]1457 set _cname2transferFunction($cname) [list $cmap $ wmap]1458 SendCmd [list transfunc define $cname $cmap $ wmap]1456 set amap [ComputeAlphamap $cname] 1457 set _cname2transferFunction($cname) [list $cmap $amap] 1458 SendCmd [list transfunc define $cname $cmap $amap] 1459 1459 } 1460 1460 … … 2239 2239 return 2240 2240 } 2241 foreach { cmap wmap } $_cname2transferFunction($cname) break2241 foreach { cmap amap } $_cname2transferFunction($cname) break 2242 2242 set cmap [GetColormap $cname $color] 2243 set _cname2transferFunction($cname) [list $cmap $ wmap]2244 SendCmd [list transfunc define $cname $cmap $ wmap]2243 set _cname2transferFunction($cname) [list $cmap $amap] 2244 SendCmd [list transfunc define $cname $cmap $amap] 2245 2245 EventuallyRedrawLegend 2246 2246 } … … 2268 2268 set first [lindex $isovalues 0] 2269 2269 set last [lindex $isovalues end] 2270 set wmap ""2270 set amap "" 2271 2271 if { $first == "" || $first != 0.0 } { 2272 lappend wmap 0.0 0.02272 lappend amap 0.0 0.0 2273 2273 } 2274 2274 foreach x $isovalues { … … 2298 2298 } 2299 2299 # add spikes in the middle 2300 lappend wmap $x1 0.02301 lappend wmap $x2 $max2302 lappend wmap $x3 $max2303 lappend wmap $x4 0.02300 lappend amap $x1 0.0 2301 lappend amap $x2 $max 2302 lappend amap $x3 $max 2303 lappend amap $x4 0.0 2304 2304 } 2305 2305 if { $last == "" || $last != 1.0 } { 2306 lappend wmap 1.0 0.02307 } 2308 return $ wmap2306 lappend amap 1.0 0.0 2307 } 2308 return $amap 2309 2309 } 2310 2310 … … 2312 2312 switch -- $name { 2313 2313 "ramp-up" { 2314 set wmap {2314 set amap { 2315 2315 0.0 0.0 2316 2316 1.0 1.0 … … 2318 2318 } 2319 2319 "ramp-down" { 2320 set wmap {2320 set amap { 2321 2321 0.0 1.0 2322 2322 1.0 0.0 … … 2324 2324 } 2325 2325 "vee" { 2326 set wmap {2326 set amap { 2327 2327 0.0 1.0 2328 2328 0.5 0.0 … … 2331 2331 } 2332 2332 "tent-1" { 2333 set wmap {2333 set amap { 2334 2334 0.0 0.0 2335 2335 0.5 1.0 … … 2338 2338 } 2339 2339 "tent-2" { 2340 set wmap {2340 set amap { 2341 2341 0.0 0.0 2342 2342 0.25 1.0 … … 2347 2347 } 2348 2348 "tent-3" { 2349 set wmap {2349 set amap { 2350 2350 0.0 0.0 2351 2351 0.16666 1.0 … … 2358 2358 } 2359 2359 "tent-4" { 2360 set wmap {2360 set amap { 2361 2361 0.0 0.0 2362 2362 0.125 1.0 … … 2371 2371 } 2372 2372 "sinusoid-1" { 2373 set wmap {2373 set amap { 2374 2374 0.0 0.000 0.600 0.800 2375 2375 0.14285714285714285 0.400 0.900 1.000 … … 2383 2383 } 2384 2384 "sinusoid-2" { 2385 set wmap {2385 set amap { 2386 2386 0.0 0.900 1.000 1.000 2387 2387 0.1111111111111111 0.800 0.983 1.000 … … 2397 2397 } 2398 2398 "sinusoid-6" { 2399 set wmap {2399 set amap { 2400 2400 0.0 0.200 0.100 0.000 2401 2401 0.09090909090909091 0.400 0.187 0.000 … … 2413 2413 } 2414 2414 "sinusoid-10" { 2415 set wmap {2415 set amap { 2416 2416 0.0 0.000 0.480 0.600 2417 2417 0.09090909090909091 0.000 0.667 0.800 … … 2429 2429 } 2430 2430 "step-2" { 2431 set wmap {2431 set amap { 2432 2432 0.0 0.000 0.167 1.000 2433 2433 0.09090909090909091 0.100 0.400 1.000 … … 2445 2445 } 2446 2446 "step-5" { 2447 set wmap {2447 set amap { 2448 2448 0.0 1.000 0.167 0.000 2449 2449 0.09090909090909091 1.000 0.400 0.100 … … 2461 2461 } 2462 2462 "step-12" { 2463 set wmap {2463 set amap { 2464 2464 "#EE82EE" 2465 2465 "#4B0082" -
branches/1.4/gui/scripts/vtkglyphviewer.tcl
r5172 r5183 2547 2547 set cmap "0.0 0.0 0.0 0.0 1.0 1.0 1.0 1.0" 2548 2548 } 2549 set wmap "0.0 1.0 1.0 1.0"2550 SendCmd "colormap add $name { $cmap } { $ wmap }"2549 set amap "0.0 1.0 1.0 1.0" 2550 SendCmd "colormap add $name { $cmap } { $amap }" 2551 2551 } 2552 2552 -
branches/1.4/gui/scripts/vtkheightmapviewer.tcl
r5172 r5183 1807 1807 set cmap "0.0 0.0 0.0 0.0 1.0 1.0 1.0 1.0" 1808 1808 } 1809 set wmap "0.0 1.0 1.0 1.0"1810 SendCmd "colormap add $name { $cmap } { $ wmap }"1809 set amap "0.0 1.0 1.0 1.0" 1810 SendCmd "colormap add $name { $cmap } { $amap }" 1811 1811 } 1812 1812 -
branches/1.4/gui/scripts/vtkimageviewer.tcl
r5172 r5183 1594 1594 set cmap "0.0 0.0 0.0 0.0 1.0 1.0 1.0 1.0" 1595 1595 } 1596 set wmap "0.0 1.0 1.0 1.0"1597 SendCmd "colormap add $name { $cmap } { $ wmap }"1596 set amap "0.0 1.0 1.0 1.0" 1597 SendCmd "colormap add $name { $cmap } { $amap }" 1598 1598 } 1599 1599 -
branches/1.4/gui/scripts/vtkisosurfaceviewer.tcl
r5173 r5183 3088 3088 set cmap "0.0 0.0 0.0 0.0 1.0 1.0 1.0 1.0" 3089 3089 } 3090 set wmap "0.0 1.0 1.0 1.0"3091 SendCmd "colormap add $name { $cmap } { $ wmap }"3090 set amap "0.0 1.0 1.0 1.0" 3091 SendCmd "colormap add $name { $cmap } { $amap }" 3092 3092 } 3093 3093 -
branches/1.4/gui/scripts/vtkstreamlinesviewer.tcl
r5172 r5183 1595 1595 set max $_settings(-volumeopacity) 1596 1596 1597 set wmap "0.0 1.0 1.0 1.0"1598 SendCmd "colormap add $name { $cmap } { $ wmap }"1597 set amap "0.0 1.0 1.0 1.0" 1598 SendCmd "colormap add $name { $cmap } { $amap }" 1599 1599 } 1600 1600 -
branches/1.4/gui/scripts/vtksurfaceviewer.tcl
r5174 r5183 2283 2283 set cmap "0.0 0.0 0.0 0.0 1.0 1.0 1.0 1.0" 2284 2284 } 2285 set wmap "0.0 1.0 1.0 1.0"2286 SendCmd "colormap add $name { $cmap } { $ wmap }"2285 set amap "0.0 1.0 1.0 1.0" 2286 SendCmd "colormap add $name { $cmap } { $amap }" 2287 2287 } 2288 2288 -
branches/1.4/gui/scripts/vtkviewer.tcl
r5172 r5183 1878 1878 set max $_settings(polydata-opacity) 1879 1879 1880 set wmap "0.0 1.0 1.0 1.0"1881 SendCmd "colormap add $name { $cmap } { $ wmap }"1880 set amap "0.0 1.0 1.0 1.0" 1881 SendCmd "colormap add $name { $cmap } { $amap }" 1882 1882 } 1883 1883 -
branches/1.4/gui/scripts/vtkvolumeviewer.tcl
r5172 r5183 1608 1608 1609 1609 set opaqueWmap "0.0 1.0 1.0 1.0" 1610 #set wmap "0.0 0.0 0.1 0.0 0.2 0.8 0.98 0.8 0.99 0.0 1.0 0.0"1610 #set amap "0.0 0.0 0.1 0.0 0.2 0.8 0.98 0.8 0.99 0.0 1.0 0.0" 1611 1611 # Approximate cubic opacity curve 1612 set wmap "0.0 0.0 0.1 0.001 0.2 0.008 0.3 0.027 0.4 0.064 0.5 0.125 0.6 0.216 0.7 0.343 0.8 0.512 0.9 0.729 1.0 1.0"1613 SendCmd "colormap add $name { $cmap } { $ wmap }"1612 set amap "0.0 0.0 0.1 0.001 0.2 0.008 0.3 0.027 0.4 0.064 0.5 0.125 0.6 0.216 0.7 0.343 0.8 0.512 0.9 0.729 1.0 1.0" 1613 SendCmd "colormap add $name { $cmap } { $amap }" 1614 1614 SendCmd "colormap add $name-opaque { $cmap } { $opaqueWmap }" 1615 1615 }
Note: See TracChangeset
for help on using the changeset viewer.