Changeset 5184
- Timestamp:
- Apr 2, 2015, 9:05:54 AM (10 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/flowvisviewer.tcl
r5134 r5184 1833 1833 set first [lindex $isovalues 0] 1834 1834 set last [lindex $isovalues end] 1835 set wmap ""1835 set amap "" 1836 1836 if { $first == "" || $first != 0.0 } { 1837 lappend wmap 0.0 0.01837 lappend amap 0.0 0.0 1838 1838 } 1839 1839 foreach x $isovalues { … … 1863 1863 } 1864 1864 # add spikes in the middle 1865 lappend wmap $x1 0.01866 lappend wmap $x2 $max1867 lappend wmap $x3 $max1868 lappend wmap $x4 0.01865 lappend amap $x1 0.0 1866 lappend amap $x2 $max 1867 lappend amap $x3 $max 1868 lappend amap $x4 0.0 1869 1869 } 1870 1870 if { $last == "" || $last != 1.0 } { 1871 lappend wmap 1.0 0.01872 } 1873 SendCmd "transfunc define $tf { $cmap } { $ wmap }"1871 lappend amap 1.0 0.0 1872 } 1873 SendCmd "transfunc define $tf { $cmap } { $amap }" 1874 1874 return [SendCmd "$dataobj-$comp configure -transferfunction $tf"] 1875 1875 } -
trunk/gui/scripts/nanovisviewer.tcl
r5140 r5184 1424 1424 # changes. 1425 1425 set cmap [ColorsToColormap $styles(-color)] 1426 set wmap [list 0.0 0.0 1.0 1.0]1427 set _cname2transferFunction($cname) [list $cmap $ wmap]1428 SendCmd [list transfunc define $cname $cmap $ wmap]1426 set amap [list 0.0 0.0 1.0 1.0] 1427 set _cname2transferFunction($cname) [list $cmap $amap] 1428 SendCmd [list transfunc define $cname $cmap $amap] 1429 1429 } 1430 1430 SendCmd "volume shading transfunc $cname $tag" … … 1450 1450 # 1451 1451 itcl::body Rappture::NanovisViewer::ComputeTransferFunction { cname } { 1452 foreach {cmap wmap} $_cname2transferFunction($cname) break1452 foreach {cmap amap} $_cname2transferFunction($cname) break 1453 1453 1454 1454 # We have to parse the style attributes for a volume using this … … 1479 1479 1480 1480 } 1481 set wmap [ComputeAlphamap $cname]1482 set _cname2transferFunction($cname) [list $cmap $ wmap]1483 SendCmd [list transfunc define $cname $cmap $ wmap]1481 set amap [ComputeAlphamap $cname] 1482 set _cname2transferFunction($cname) [list $cmap $amap] 1483 SendCmd [list transfunc define $cname $cmap $amap] 1484 1484 } 1485 1485 … … 2293 2293 return 2294 2294 } 2295 foreach { cmap wmap } $_cname2transferFunction($cname) break2295 foreach { cmap amap } $_cname2transferFunction($cname) break 2296 2296 set cmap [GetColormap $cname $color] 2297 set _cname2transferFunction($cname) [list $cmap $ wmap]2298 SendCmd [list transfunc define $cname $cmap $ wmap]2297 set _cname2transferFunction($cname) [list $cmap $amap] 2298 SendCmd [list transfunc define $cname $cmap $amap] 2299 2299 EventuallyRedrawLegend 2300 2300 } … … 2322 2322 set first [lindex $isovalues 0] 2323 2323 set last [lindex $isovalues end] 2324 set wmap ""2324 set amap "" 2325 2325 if { $first == "" || $first != 0.0 } { 2326 lappend wmap 0.0 0.02326 lappend amap 0.0 0.0 2327 2327 } 2328 2328 foreach x $isovalues { … … 2352 2352 } 2353 2353 # add spikes in the middle 2354 lappend wmap $x1 0.02355 lappend wmap $x2 $max2356 lappend wmap $x3 $max2357 lappend wmap $x4 0.02354 lappend amap $x1 0.0 2355 lappend amap $x2 $max 2356 lappend amap $x3 $max 2357 lappend amap $x4 0.0 2358 2358 } 2359 2359 if { $last == "" || $last != 1.0 } { 2360 lappend wmap 1.0 0.02361 } 2362 return $ wmap2360 lappend amap 1.0 0.0 2361 } 2362 return $amap 2363 2363 } 2364 2364 … … 2366 2366 switch -- $name { 2367 2367 "ramp-up" { 2368 set wmap {2368 set amap { 2369 2369 0.0 0.0 2370 2370 1.0 1.0 … … 2372 2372 } 2373 2373 "ramp-down" { 2374 set wmap {2374 set amap { 2375 2375 0.0 1.0 2376 2376 1.0 0.0 … … 2378 2378 } 2379 2379 "vee" { 2380 set wmap {2380 set amap { 2381 2381 0.0 1.0 2382 2382 0.5 0.0 … … 2385 2385 } 2386 2386 "tent-1" { 2387 set wmap {2387 set amap { 2388 2388 0.0 0.0 2389 2389 0.5 1.0 … … 2392 2392 } 2393 2393 "tent-2" { 2394 set wmap {2394 set amap { 2395 2395 0.0 0.0 2396 2396 0.25 1.0 … … 2401 2401 } 2402 2402 "tent-3" { 2403 set wmap {2403 set amap { 2404 2404 0.0 0.0 2405 2405 0.16666 1.0 … … 2412 2412 } 2413 2413 "tent-4" { 2414 set wmap {2414 set amap { 2415 2415 0.0 0.0 2416 2416 0.125 1.0 … … 2425 2425 } 2426 2426 "sinusoid-1" { 2427 set wmap {2427 set amap { 2428 2428 0.0 0.000 0.600 0.800 2429 2429 0.14285714285714285 0.400 0.900 1.000 … … 2437 2437 } 2438 2438 "sinusoid-2" { 2439 set wmap {2439 set amap { 2440 2440 0.0 0.900 1.000 1.000 2441 2441 0.1111111111111111 0.800 0.983 1.000 … … 2451 2451 } 2452 2452 "sinusoid-6" { 2453 set wmap {2453 set amap { 2454 2454 0.0 0.200 0.100 0.000 2455 2455 0.09090909090909091 0.400 0.187 0.000 … … 2467 2467 } 2468 2468 "sinusoid-10" { 2469 set wmap {2469 set amap { 2470 2470 0.0 0.000 0.480 0.600 2471 2471 0.09090909090909091 0.000 0.667 0.800 … … 2483 2483 } 2484 2484 "step-2" { 2485 set wmap {2485 set amap { 2486 2486 0.0 0.000 0.167 1.000 2487 2487 0.09090909090909091 0.100 0.400 1.000 … … 2499 2499 } 2500 2500 "step-5" { 2501 set wmap {2501 set amap { 2502 2502 0.0 1.000 0.167 0.000 2503 2503 0.09090909090909091 1.000 0.400 0.100 … … 2515 2515 } 2516 2516 "step-12" { 2517 set wmap {2517 set amap { 2518 2518 "#EE82EE" 2519 2519 "#4B0082" -
trunk/gui/scripts/vtkglyphviewer.tcl
r5156 r5184 2570 2570 set cmap "0.0 0.0 0.0 0.0 1.0 1.0 1.0 1.0" 2571 2571 } 2572 set wmap "0.0 1.0 1.0 1.0"2573 SendCmd "colormap add $name { $cmap } { $ wmap }"2572 set amap "0.0 1.0 1.0 1.0" 2573 SendCmd "colormap add $name { $cmap } { $amap }" 2574 2574 } 2575 2575 -
trunk/gui/scripts/vtkheightmapviewer.tcl
r5156 r5184 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 -
trunk/gui/scripts/vtkimageviewer.tcl
r5156 r5184 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 -
trunk/gui/scripts/vtkisosurfaceviewer.tcl
r5157 r5184 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 -
trunk/gui/scripts/vtkstreamlinesviewer.tcl
r5156 r5184 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 -
trunk/gui/scripts/vtksurfaceviewer.tcl
r5158 r5184 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 -
trunk/gui/scripts/vtkviewer.tcl
r5156 r5184 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
Note: See TracChangeset
for help on using the changeset viewer.