Changeset 4745


Ignore:
Timestamp:
Nov 17, 2014, 9:26:46 AM (5 years ago)
Author:
ldelgass
Message:

sync fixes

Location:
trunk/gui/scripts
Files:
2 edited

Legend:

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

    r4735 r4745  
    990990        # Reset the camera and other view parameters
    991991        $_arcball quaternion [ViewToQuaternion]
     992        InitSettings -ortho
    992993        DoRotate
    993994        PanCamera
    994995        set _first ""
    995         InitSettings -xgrid -ygrid -zgrid -axismode \
    996             -axesvisible -axislabels -axisminorticks -ortho
     996        InitSettings -background \
     997            -xgrid -ygrid -zgrid -axismode \
     998            -axesvisible -axislabels -axisminorticks
    997999        #SendCmd "axis lformat all %g"
    9981000        StopBufferingCommands
     
    21902192 
    21912193    SendCmd "cutplane add $tag"
     2194    SendCmd "cutplane color [Color2RGB $itk_option(-plotforeground)] $tag"
    21922195    SendCmd "cutplane visible $style(-cutplanesvisible) $tag"
    21932196
  • trunk/gui/scripts/vtkvolumeviewer.tcl

    r4744 r4745  
    691691        }
    692692        # Determine limits for each axis.
    693         foreach axis {x y z v} {
     693        foreach axis { x y z } {
    694694            foreach { min max } [$dataobj limits $axis] break
    695695            if {"" != $min && "" != $max} {
     
    10191019        }
    10201020        DoRotate
    1021         InitSettings -volumeoutline -background \
     1021        PanCamera
     1022        set _first ""
     1023        InitSettings -background \
    10221024            -xgrid -ygrid -zgrid -axisflymode \
    10231025            -axesvisible -axislabels -axisminorticks
    1024         PanCamera
    1025     }
    1026 
    1027     SendCmd "imgflush"
     1026        StopBufferingCommands
     1027        SendCmd "imgflush"
     1028        StartBufferingCommands
     1029     }
    10281030    set _first ""
    10291031
     
    11191121        -volumeambient -volumediffuse -volumespecularlevel \
    11201122        -volumespecularexponent -volumeblendmode -volumethickness \
    1121         -volumeopacity -volumequality -volumevisible \
     1123        -volumelighting -volumeopacity -volumequality -volumeoutline -volumevisible \
    11221124        -cutplanesvisible \
    11231125        -xcutplaneposition -ycutplaneposition -zcutplaneposition \
     
    11251127
    11261128    if { $_reset } {
    1127         InitSettings -volumelighting
    11281129        SendCmd "camera reset"
    11291130        SendCmd "camera zoom $_view(-zoom)"
     
    21202121        5,1 $itk_component(yCutScale)   -fill y \
    21212122        4,2 $itk_component(zCutButton)  -anchor e -padx 2 -pady 2 \
    2122         5,2 $itk_component(zCutScale)   -fill y \
     2123        5,2 $itk_component(zCutScale)   -fill y
    21232124
    21242125    blt::table configure $inner r* c* -resize none
     
    22342235        -color      BCGYR
    22352236        -lighting   1
     2237        -opacity    0.5
    22362238        -outline    0
    22372239        -visible    1
     
    22392241    array set styles [$dataobj style $cname]
    22402242    set _settings($cname-volumelighting)        $styles(-lighting)
     2243    set _settings($cname-volumeopacity)         [expr $styles(-opacity) * 100]
    22412244    set _settings($cname-volumeoutline)         $styles(-outline)
    22422245    set _settings($cname-volumevisible)         $styles(-visible)
     
    22452248
    22462249    SendCmd "outline add $tag"
     2250    SendCmd "outline color [Color2RGB $itk_option(-plotforeground)] $tag"
    22472251    SendCmd "outline visible $styles(-outline) $tag"
    22482252
    22492253    SendCmd "$_cutplaneCmd add $tag"
     2254    SendCmd "$_cutplaneCmd color [Color2RGB $itk_option(-plotforeground)] $tag"
    22502255    SendCmd "$_cutplaneCmd visible 0 $tag"
    22512256
    22522257    SendCmd "volume add $tag"
    22532258    SendCmd "volume lighting $styles(-lighting) $tag"
     2259    SendCmd "volume opacity $styles(-opacity) $tag"
    22542260    SendCmd "volume visible $styles(-visible) $tag"
    22552261
Note: See TracChangeset for help on using the changeset viewer.