Changeset 4679


Ignore:
Timestamp:
Nov 10, 2014, 5:46:41 AM (5 years ago)
Author:
ldelgass
Message:

Update axis settings in streamlines viewer

File:
1 edited

Legend:

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

    r4669 r4679  
    226226        axesVisible             1
    227227        axisLabelsVisible       1
     228        axisMinorTicks          1
    228229        axisXGrid               0
    229230        axisYGrid               0
     
    970971        DoResize
    971972        InitSettings axisXGrid axisYGrid axisZGrid axis-mode \
    972             axesVisible axisLabelsVisible
     973            axesVisible axisLabelsVisible axisMinorTicks
    973974        # This "imgflush" is to force an image returned before vtkvis starts
    974975        # reading a (big) dataset.  This will display an empty plot with axes
     
    13271328    switch -- $what {
    13281329        "volumeOpacity" {
    1329             set val $_settings(volumeOpacity)
     1330            set val $_settings($what)
    13301331            set sval [expr { 0.01 * double($val) }]
    13311332            SendCmd "polydata opacity $sval"
    13321333        }
    13331334        "volumeWireframe" {
    1334             set bool $_settings(volumeWireframe)
     1335            set bool $_settings($what)
    13351336            SendCmd "polydata wireframe $bool"
    13361337        }
    13371338        "volumeVisible" {
    1338             set bool $_settings(volumeVisible)
     1339            set bool $_settings($what)
    13391340            SendCmd "polydata visible $bool"
    13401341            if { $bool } {
     
    13471348        }
    13481349        "volumeLighting" {
    1349             set bool $_settings(volumeLighting)
     1350            set bool $_settings($what)
    13501351            SendCmd "polydata lighting $bool"
    13511352        }
    13521353        "volumeEdges" {
    1353             set bool $_settings(volumeEdges)
     1354            set bool $_settings($what)
    13541355            SendCmd "polydata edges $bool"
    13551356        }
    13561357        "axesVisible" {
    1357             set bool $_settings(axesVisible)
     1358            set bool $_settings($what)
    13581359            SendCmd "axis visible all $bool"
    13591360        }
    13601361        "axisLabelsVisible" {
    1361             set bool $_settings(axisLabelsVisible)
     1362            set bool $_settings($what)
    13621363            SendCmd "axis labels all $bool"
     1364        }
     1365        "axisMinorTicks" {
     1366            set bool $_settings($what)
     1367            SendCmd "axis minticks all $bool"
    13631368        }
    13641369        "axisXGrid" - "axisYGrid" - "axisZGrid" {
     
    14561461        }
    14571462        "streamlinesOpacity" {
    1458             set val $_settings(streamlinesOpacity)
     1463            set val $_settings($what)
    14591464            set sval [expr { 0.01 * double($val) }]
    14601465            SendCmd "streamlines opacity $sval"
    14611466        }
    14621467        "streamlinesScale" {
    1463             set val $_settings(streamlinesScale)
     1468            set val $_settings($what)
    14641469            set sval [expr { 0.01 * double($val) }]
    14651470            SendCmd "streamlines scale $sval $sval $sval"
    14661471        }
    14671472        "streamlinesLighting" {
    1468             set bool $_settings(streamlinesLighting)
     1473            set bool $_settings($what)
    14691474            SendCmd "streamlines lighting $bool"
    14701475        }
     
    17741779    set inner [$itk_component(main) insert end \
    17751780        -title "Axis Settings" \
    1776         -icon [Rappture::icon axis1]]
     1781        -icon [Rappture::icon axis2]]
    17771782    $inner configure -borderwidth 4
    17781783
    17791784    checkbutton $inner.visible \
    1780         -text "Show Axes" \
     1785        -text "Axes" \
    17811786        -variable [itcl::scope _settings(axesVisible)] \
    17821787        -command [itcl::code $this AdjustSetting axesVisible] \
     
    17841789
    17851790    checkbutton $inner.labels \
    1786         -text "Show Axis Labels" \
     1791        -text "Axis Labels" \
    17871792        -variable [itcl::scope _settings(axisLabelsVisible)] \
    17881793        -command [itcl::code $this AdjustSetting axisLabelsVisible] \
    17891794        -font "Arial 9"
    1790 
     1795    label $inner.grid_l -text "Grid" -font "Arial 9"
    17911796    checkbutton $inner.xgrid \
    1792         -text "Show X Grid" \
     1797        -text "X" \
    17931798        -variable [itcl::scope _settings(axisXGrid)] \
    17941799        -command [itcl::code $this AdjustSetting axisXGrid] \
    17951800        -font "Arial 9"
    17961801    checkbutton $inner.ygrid \
    1797         -text "Show Y Grid" \
     1802        -text "Y" \
    17981803        -variable [itcl::scope _settings(axisYGrid)] \
    17991804        -command [itcl::code $this AdjustSetting axisYGrid] \
    18001805        -font "Arial 9"
    18011806    checkbutton $inner.zgrid \
    1802         -text "Show Z Grid" \
     1807        -text "Z" \
    18031808        -variable [itcl::scope _settings(axisZGrid)] \
    18041809        -command [itcl::code $this AdjustSetting axisZGrid] \
     1810        -font "Arial 9"
     1811    checkbutton $inner.minorticks \
     1812        -text "Minor Ticks" \
     1813        -variable [itcl::scope _settings(axisMinorTicks)] \
     1814        -command [itcl::code $this AdjustSetting axisMinorTicks] \
    18051815        -font "Arial 9"
    18061816
     
    18191829
    18201830    blt::table $inner \
    1821         0,0 $inner.visible -anchor w -cspan 2 \
    1822         1,0 $inner.labels  -anchor w -cspan 2 \
    1823         2,0 $inner.xgrid   -anchor w -cspan 2 \
    1824         3,0 $inner.ygrid   -anchor w -cspan 2 \
    1825         4,0 $inner.zgrid   -anchor w -cspan 2 \
    1826         5,0 $inner.mode_l  -anchor w -cspan 2 -padx { 2 0 } \
    1827         6,0 $inner.mode    -fill x   -cspan 2
     1831        0,0 $inner.visible -anchor w -cspan 4 \
     1832        1,0 $inner.labels  -anchor w -cspan 4 \
     1833        2,0 $inner.minorticks  -anchor w -cspan 4 \
     1834        4,0 $inner.grid_l  -anchor w \
     1835        4,1 $inner.xgrid   -anchor w \
     1836        4,2 $inner.ygrid   -anchor w \
     1837        4,3 $inner.zgrid   -anchor w \
     1838        5,0 $inner.mode_l  -anchor w -padx { 2 0 } \
     1839        5,1 $inner.mode    -fill x   -cspan 3
    18281840
    18291841    blt::table configure $inner r* c* -resize none
    1830     blt::table configure $inner r7 c1 -resize expand
    1831 }
    1832 
     1842    blt::table configure $inner r7 c6 -resize expand
     1843    blt::table configure $inner r3 -height 0.125i
     1844}
    18331845
    18341846itcl::body Rappture::VtkStreamlinesViewer::BuildCameraTab {} {
     
    21472159    }
    21482160    array set settings $style
     2161    StartBufferingCommands
    21492162    SendCmd "streamlines add $tag"
    21502163    SendCmd "streamlines seed visible off $tag"
     
    21532166        set length [string length $seeds]
    21542167        SendCmd "streamlines seed fmesh 200 data follows $length $tag"
    2155         SendCmd "$seeds"
     2168        append _outbuf $seeds
    21562169        set _seeds($dataobj) 1
    21572170    }
     
    21642177    set _settings(volumeWireframe) $settings(-wireframe)
    21652178    set _settings(volumeOpacity) [expr $settings(-opacity) * 100.0]
     2179    StopBufferingCommands
    21662180    SetColormap $dataobj $comp
    21672181}
Note: See TracChangeset for help on using the changeset viewer.