Changeset 2585


Ignore:
Timestamp:
Sep 29, 2011, 8:24:43 AM (13 years ago)
Author:
gah
Message:
 
Location:
trunk/gui/scripts
Files:
2 added
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gui/scripts/vtkstreamlinesviewer.tcl

    r2584 r2585  
    8585    private method BuildAxisTab {}
    8686    private method BuildCameraTab {}
    87     private method BuildColormap { colormap dataobj comp }
     87    private method BuildColormap { name colors }
    8888    private method BuildCutplaneTab {}
    8989    private method BuildDownloadPopup { widget command }
    … …  
    334334    $itk_component(volume) select
    335335    Rappture::Tooltip::for $itk_component(volume) \
    336         "Toggle the volume on/off"
     336        "Don't display the volume"
    337337    pack $itk_component(volume) -padx 2 -pady 2
    338338
    339339    itk_component add streamlines {
    340340        Rappture::PushButton $f.streamlines \
    341             -onimage [Rappture::icon stream] \
    342             -offimage [Rappture::icon stream] \
     341            -onimage [Rappture::icon streamlines-on] \
     342            -offimage [Rappture::icon streamlines-off] \
    343343            -variable [itcl::scope _streamlines(visible)] \
    344344            -command [itcl::code $this AdjustSetting streamlines-visible] \
    … …  
    522522# ----------------------------------------------------------------------
    523523itcl::body Rappture::VtkStreamlinesViewer::add {dataobj {settings ""}} {
    524     puts stderr "add dataobj=$dataobj settings=$settings"
    525524    array set params {
    526525        -color auto
    … …  
    567566# ----------------------------------------------------------------------
    568567itcl::body Rappture::VtkStreamlinesViewer::delete {args} {
    569     puts stderr "[info level -1]: delete args=$args"
    570568    if { [llength $args] == 0} {
    571569        set args $_dlist
    … …  
    604602# ----------------------------------------------------------------------
    605603itcl::body Rappture::VtkStreamlinesViewer::get {args} {
    606     puts stderr "get args=$args"
    607604    if {[llength $args] == 0} {
    608605        set args "-objects"
    … …  
    676673# ----------------------------------------------------------------------
    677674itcl::body Rappture::VtkStreamlinesViewer::scale {args} {
    678     puts stderr "scale args=$args"
    679675    array unset _limits
    680676    foreach dataobj $args {
    … …  
    718714# ----------------------------------------------------------------------
    719715itcl::body Rappture::VtkStreamlinesViewer::download {option args} {
    720     puts stderr "download option=$option args=$args"
    721716    switch $option {
    722717        coming {
    … …  
    928923# ----------------------------------------------------------------------
    929924itcl::body Rappture::VtkStreamlinesViewer::Rebuild {} {
    930     puts stderr "Rebuild"
     925    update
    931926
    932927    set w [winfo width $itk_component(view)]
    … …  
    10791074# ----------------------------------------------------------------------
    10801075itcl::body Rappture::VtkStreamlinesViewer::Zoom {option} {
    1081     puts stderr "Zoom option=$option"
    10821076    switch -- $option {
    10831077        "in" {
    … …  
    11141108
    11151109itcl::body Rappture::VtkStreamlinesViewer::PanCamera {} {
    1116     puts stderr "PanCamera"
    11171110    set x $_view(xpan)
    11181111    set y $_view(ypan)
    … …  
    11301123# ----------------------------------------------------------------------
    11311124itcl::body Rappture::VtkStreamlinesViewer::Rotate {option x y} {
    1132     puts stderr "Rotate option=$option x=$x y=$y"
    11331125    switch -- $option {
    11341126        "click" {
    … …  
    11891181# ----------------------------------------------------------------------
    11901182itcl::body Rappture::VtkStreamlinesViewer::Pan {option x y} {
    1191     puts stderr "Pan option=$option x=$x y=$y"
    11921183    switch -- $option {
    11931184        "set" {
    … …  
    12541245#
    12551246itcl::body Rappture::VtkStreamlinesViewer::AdjustSetting {what {value ""}} {
    1256     puts stderr "AdjustSetting what=$what value=$value"
    12571247    if { ![isconnected] } {
    12581248        return
    … …  
    12771267                SendCmd "polydata visible $bool $dataset"
    12781268            }
     1269            if { $bool } {
     1270                Rappture::Tooltip::for $itk_component(volume) \
     1271                    "Hide the volume"
     1272            } else {
     1273                Rappture::Tooltip::for $itk_component(volume) \
     1274                    "Show the volume"
     1275            }
    12791276        }
    12801277        "volume-lighting" {
    … …  
    13181315            set axis [string range $what 0 0]
    13191316            set bool $_cutplane(${axis}visible)
    1320             puts stderr "axis=$axis, bool=$bool"
    13211317            if { $bool } {
    13221318                $itk_component(${axis}CutScale) configure -state normal \
    … …  
    13261322                    -troughcolor grey82
    13271323            }
    1328             puts stderr "cutplane axis $axis $bool"
    13291324            SendCmd "cutplane axis $axis $bool"
    13301325            SendCmd "cutplane colormode vmag"
    … …  
    13331328            set axis [string range $what 0 0]
    13341329            set pos [expr $_cutplane(${axis}position) * 0.01]
    1335             puts stderr "cutplane slice ${axis} ${pos}"
    13361330            SendCmd "cutplane slice ${axis} ${pos}"
    13371331            set _cutplanePending 0
    … …  
    13551349                SendCmd "streamlines visible $bool $dataset"
    13561350            }
     1351            if { $bool } {
     1352                Rappture::Tooltip::for $itk_component(streamlines) \
     1353                    "Hide the streamlines"
     1354            } else {
     1355                Rappture::Tooltip::for $itk_component(streamlines) \
     1356                    "Show the streamlines"
     1357            }
    13571358        }
    13581359        "streamlines-mode" {
    … …  
    13991400            }
    14001401            foreach dataset [CurrentDatasets -visible $_first] {
    1401                 puts stderr "streamlines colormode ${mode} $dataset"
    14021402                SendCmd "dataset scalar ${field} $dataset"
    14031403                SendCmd "streamlines colormode ${mode} $dataset"
    … …  
    14211421#
    14221422itcl::body Rappture::VtkStreamlinesViewer::RequestLegend { {mode vmag} } {
    1423     puts stderr "RequestLegend mode=$mode"
    14241423    #puts stderr "RequestLegend _first=$_first"
    14251424    #puts stderr "RequestLegend width=$_width height=$_height"
    … …  
    14471446#
    14481447itcl::body Rappture::VtkStreamlinesViewer::SetColormap { dataobj comp } {
    1449     puts stderr "SetColormap dataobj=$dataobj comp=$comp"
    14501448    array set style {
    14511449        -color rainbow
    … …  
    14661464    if { ![info exists _colormaps($colormap)] } {
    14671465        # Build the pseudo colormap if it doesn't exist.
    1468         BuildColormap $colormap $dataobj $comp
     1466        BuildColormap $colormap $style(-color)
    14691467        set _colormaps($colormap) 1
    14701468    }
    … …  
    14741472}
    14751473
    1476 #
    1477 # BuildColormap --
    1478 #
    1479 itcl::body Rappture::VtkStreamlinesViewer::BuildColormap { colormap dataobj comp } {
    1480     puts stderr "BuildColormap colormap=$colormap dataobj=$dataobj comp=$comp"
    1481     array set style {
    1482         -color rainbow
    1483         -levels 6
    1484         -opacity 1.0
    1485     }
    1486     array set style [$dataobj style $comp]
    1487     if {$style(-color) == "rainbow"} {
    1488         set style(-color) "white:yellow:green:cyan:blue:magenta"
    1489     }
    1490     set clist [split $style(-color) :]
     1474itcl::body Rappture::VtkStreamlinesViewer::ColorsToColormap { colors } {
     1475    switch -- $colors {
     1476        "blue-to-gray" {
     1477            set clist {
     1478                \#0099cc \#66e5ff \#99ffff \#ccffff \#e5e5e5 \#999999
     1479                \#666666 \#333333
     1480            }
     1481        }
     1482        "blue" {
     1483            set clist {
     1484                \#e5ffff \#ccfaff \#b2f2ff \#99e5ff \#7fd4ff \#66bfff
     1485                \#4ca5ff \#3387ff \#1966ff \#003fff
     1486            }
     1487        }
     1488        "blue-to-brown" {
     1489            return {
     1490                0.0                             0.200   0.100   0.000
     1491                0.09090909090909091             0.400   0.187   0.000
     1492                0.18181818181818182             0.600   0.379   0.210
     1493                0.2727272727272727              0.800   0.608   0.480
     1494                0.36363636363636365             0.850   0.688   0.595
     1495                0.45454545454545453             0.950   0.855   0.808
     1496                0.5454545454545454              0.800   0.993   1.000
     1497                0.6363636363636364              0.600   0.973   1.000
     1498                0.7272727272727273              0.400   0.940   1.000
     1499                0.8181818181818182              0.200   0.893   1.000
     1500                0.9090909090909091              0.000   0.667   0.800
     1501                1.0                             0.000   0.480   0.600
     1502            }
     1503        }
     1504        "blue-to-orange" {
     1505            return {
     1506                0.0                             0.000   0.167   1.000
     1507                0.09090909090909091             0.100   0.400   1.000
     1508                0.18181818181818182             0.200   0.600   1.000
     1509                0.2727272727272727              0.400   0.800   1.000
     1510                0.36363636363636365             0.600   0.933   1.000
     1511                0.45454545454545453             0.800   1.000   1.000
     1512                0.5454545454545454              1.000   1.000   0.800
     1513                0.6363636363636364              1.000   0.933   0.600
     1514                0.7272727272727273              1.000   0.800   0.400
     1515                0.8181818181818182              1.000   0.600   0.200
     1516                0.9090909090909091              1.000   0.400   0.100
     1517                1.0                             1.000   0.167   0.000
     1518            }
     1519        }
     1520        "rainbow" {
     1521            set clist {
     1522                "red" "#FFA500" "yellow" "#008000" "blue" "#4B0082" "#EE82EE"
     1523            }
     1524        }
     1525        "typical" {
     1526            set clist {
     1527                "red" "#FFA500" "yellow" "#008000" "blue"
     1528            }
     1529        }
     1530        "greyscale" {
     1531            return {
     1532                0.0 0.0 0.0 0.0 1.0 1.0 1.0 1.0
     1533            }
     1534        }
     1535        "nanohub" {
     1536            set clist "white yellow green cyan blue magenta"
     1537        }
     1538        default {
     1539            set clist $color
     1540        }
     1541    }
    14911542    set cmap {}
    14921543    for {set i 0} {$i < [llength $clist]} {incr i} {
    … …  
    14951546        append cmap "$x [Color2RGB $color] "
    14961547    }
     1548    return $cmap
     1549}
     1550
     1551#
     1552# BuildColormap --
     1553#
     1554itcl::body Rappture::VtkStreamlinesViewer::BuildColormap { name colors } {
     1555    set cmap [ColorsToColormap $colors]
    14971556    if { [llength $cmap] == 0 } {
    14981557        set cmap "0.0 0.0 0.0 0.0 1.0 1.0 1.0 1.0"
    … …  
    15041563
    15051564    set wmap "0.0 1.0 1.0 1.0"
    1506     SendCmd "colormap add $colormap { $cmap } { $wmap }"
     1565    SendCmd "colormap add $name { $cmap } { $wmap }"
    15071566}
    15081567
    … …  
    15291588
    15301589itcl::body Rappture::VtkStreamlinesViewer::limits { dataobj } {
    1531     puts stderr "[info level -1]: limits dataobj=$dataobj"
    15321590    array unset _limits $dataobj-*
    15331591    foreach comp [$dataobj components] {
    … …  
    16591717    set inner [$itk_component(main) insert end \
    16601718        -title "Streams Settings" \
    1661         -icon [Rappture::icon stream]]
     1719        -icon [Rappture::icon streamlines-on]]
    16621720    $inner configure -borderwidth 4
    16631721
    … …  
    16671725        -command [itcl::code $this AdjustSetting streamlines-visible] \
    16681726        -font "Arial 9"
    1669 
     1727   
    16701728    checkbutton $inner.lighting \
    16711729        -text "Enable Lighting" \
    … …  
    19462004#
    19472005itcl::body Rappture::VtkStreamlinesViewer::camera {option args} {
    1948     puts stderr "camera option=$option args=$args"
    19492006    switch -- $option {
    19502007        "show" {
    … …  
    20662123
    20672124itcl::body Rappture::VtkStreamlinesViewer::SetObjectStyle { dataobj comp } {
    2068     puts stderr "SetObjectStyle dataobj=$dataobj comp=$comp"
    20692125    # Parse style string.
    20702126    set tag $dataobj-$comp
    … …  
    21422198# ----------------------------------------------------------------------
    21432199itcl::body Rappture::VtkStreamlinesViewer::ReceiveLegend { colormap title vmin vmax size } {
    2144     puts stderr "ReceiveLegend colormap=$colormap title=$title range=$vmin,$vmax size=$size"
     2200    #puts stderr "ReceiveLegend colormap=$colormap title=$title range=$vmin,$vmax size=$size"
    21452201    set _limits(vmin) $vmin
    21462202    set _limits(vmax) $vmax
    … …  
    21702226    set lineht [font metrics $font -linespace]
    21712227   
     2228    regsub {\(mag\)} $title "" title
    21722229    if { $_settings(legend) } {
    21732230        set x [expr $w - 2]
    … …  
    22042261        }
    22052262        set y 2
    2206         puts stderr "$c coords title $x $y"
    22072263        $c coords title $x $y
    22082264        incr y $lineht
    22092265        $c coords vmax $x $y
    2210         puts stderr "$c coords vmin $x $y"
    22112266        incr y $lineht
    22122267        $c coords colormap $x $y
    2213         puts stderr "$c coords vmin $x [expr {$h - 2}]"
    22142268        $c coords vmin $x [expr {$h - 2}]
    22152269    }
Note: See TracChangeset for help on using the changeset viewer.