- Timestamp:
- Apr 30, 2015, 3:52:20 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/nanovisviewer.tcl
r5367 r5371 1338 1338 } 1339 1339 } 1340 "-xcutplaneposition" - "-ycutplaneposition" - "-zcutplaneposition" { 1341 set axis [string range $what 1 1] 1342 set pos [expr $_settings($what) * 0.01] 1343 # We only set cutplanes on the first dataset. 1344 set datasets [CurrentDatasets -cutplanes] 1345 set tag [lindex $datasets 0] 1346 SendCmd "cutplane position $pos $axis $tag" 1347 } 1340 1348 "-xcutplanevisible" - "-ycutplanevisible" - "-zcutplanevisible" { 1341 1349 set axis [string range $what 1 1] … … 1574 1582 } 1575 1583 1576 # ----------------------------------------------------------------------1577 # USAGE: UpdateTransferFuncs1578 # ----------------------------------------------------------------------1579 1584 itcl::body Rappture::NanovisViewer::updateTransferFunctions {} { 1580 1585 $_dispatcher event -idle !send_transfunc … … 1632 1637 } 1633 1638 $inner.background choices insert end \ 1634 "black" "black"\1635 "white" "white"\1636 "grey" 1639 "black" "black" \ 1640 "white" "white" \ 1641 "grey" "grey" 1637 1642 1638 1643 $itk_component(background) value $_settings(-background)
Note: See TracChangeset
for help on using the changeset viewer.