Changeset 4352


Ignore:
Timestamp:
Apr 29, 2014, 4:23:42 PM (6 years ago)
Author:
gah
Message:

bug fix: -isosurfacevisible sets all surfaces to visible

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/vtkisosurfaceviewer.tcl

    r4344 r4352  
    969969    }
    970970    set _first ""
    971     SendCmd "dataset visible 0"
     971    SendCmd "contour3d visible 0"
    972972    foreach dataobj [get -objects] {
    973973        if { [info exists _obj2ovride($dataobj-raise)] &&  $_first == "" } {
     
    10051005                # Setting dataset visible enables outline
    10061006                # and contour3d
    1007                 SendCmd "dataset visible 1 $tag"
     1007                SendCmd "contour3d visible 1 $tag"
    10081008            }
    10091009        }
     
    14191419        "-isosurfacevisible" {
    14201420            set bool $_settings($what)
    1421             SendCmd "contour3d visible $bool"
     1421            SendCmd "contour3d visible 0"
     1422            if { $bool } {
     1423                foreach tag [CurrentDatasets -visible] {
     1424                    SendCmd "contour3d visible $bool $tag"
     1425                }
     1426            }
    14221427            if { $bool } {
    14231428                Rappture::Tooltip::for $itk_component(contour) \
     
    20992104        -opacity 0.6
    21002105        -outline 0
     2106        -wireframe 0
     2107        -xcutplaneposition 50
    21012108        -xcutplanevisible 1
    2102         -xcutplaneposition 50
     2109        -ycutplaneposition 50
    21032110        -ycutplanevisible 1
    2104         -ycutplaneposition 50
     2111        -zcutplaneposition 50
    21052112        -zcutplanevisible 1
    2106         -zcutplaneposition 50
    2107         -wireframe 0
    21082113    }
    21092114    array set style [$dataobj style $comp]
Note: See TracChangeset for help on using the changeset viewer.