Changeset 4438 for branches/1.3


Ignore:
Timestamp:
Jun 25, 2014 7:11:11 PM (6 years ago)
Author:
ldelgass
Message:

Sync with trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.3/gui/scripts/vtkheightmapviewer.tcl

    r4436 r4438  
    77# ======================================================================
    88#  AUTHOR:  Michael McLennan, Purdue University
    9 #  Copyright (c) 2004-2012  HUBzero Foundation, LLC
     9#  Copyright (c) 2004-2014  HUBzero Foundation, LLC
    1010#
    1111#  See the file "license.terms" for information on usage and
     
    220220        -axisminorticks         1
    221221        -axisvisible            1
     222        -colormap               BCGYR
    222223        -colormapdiscrete       0
    223224        -colormapvisible        1
     
    243244    }
    244245    array set _changed {
    245         -colormap                0
    246         -numisolines             0
    247         -opacity                 0
     246        -colormap               0
     247        -numisolines            0
     248        -opacity                0
    248249    }
    249250    itk_component add view {
     
    16001601        "-lighting" {
    16011602            if { $_settings(-isheightmap) } {
    1602                 set _settings(-savelighting) $_settings(-lighting)
     1603                set _settings(-savelighting) $_settings($what)
    16031604                set bool $_settings($what)
    16041605                SendCmd "heightmap lighting $bool"
     
    19381939        "none"               "none"
    19391940
    1940     $itk_component(colormap) value "BCGYR"
     1941    $itk_component(colormap) value $_settings(-colormap)
    19411942    bind $inner.colormap <<Value>> \
    19421943        [itcl::code $this AdjustSetting -colormap]
     
    19581959        "none"               "none"
    19591960
    1960     $itk_component(isolinecolor) value "black"
     1961    $itk_component(isolinecolor) value $_settings(-isolinecolor)
    19611962    bind $inner.isolinecolor <<Value>> \
    19621963        [itcl::code $this AdjustSetting -isolinecolor]
     
    20922093        "furthest_triad"  "farthest" \
    20932094        "outer_edges"     "outer"         
    2094     $itk_component(axisflymode) value "static"
     2095    $itk_component(axisflymode) value $_settings(-axisflymode)
    20952096    bind $inner.mode <<Value>> [itcl::code $this AdjustSetting -axisflymode]
    20962097
     
    22782279    array set style {
    22792280        -color BCGYR
     2281        -levels 10
    22802282        -opacity 1.0
    2281         -levels 10
    22822283    }
    22832284    set stylelist [$dataobj style $comp]
     
    22982299    }
    22992300    if { $_changed(-numisolines) } {
    2300         set style(-levels) $_settings-(numisolines)
     2301        set style(-levels) $_settings(-numisolines)
    23012302    }
    23022303    if { $_changed(-colormap) } {
     
    23262327    SendCmd "heightmap edges $_settings(-edges) $tag"
    23272328    SendCmd "heightmap wireframe $_settings(-wireframe) $tag"
    2328     SetCurrentColormap $style(-color) 
     2329    SetCurrentColormap $style(-color)
    23292330    set color [$itk_component(isolinecolor) value]
    23302331    SendCmd "heightmap isolinecolor [Color2RGB $color] $tag"
     
    24002401        # If there's a legend title, create a text item for the title.
    24012402        $c create text $x $y \
    2402                 -anchor ne \
    2403                 -fill $itk_option(-plotforeground) -tags "title legend" \
    2404                 -font $font
     2403            -anchor ne \
     2404            -fill $itk_option(-plotforeground) -tags "title legend" \
     2405            -font $font
     2406        if { $title != "" } {
     2407            incr y $lineht
     2408        }
    24052409        $c create text $x $y \
    2406             -anchor ne \
    2407             -fill $itk_option(-plotforeground) -tags "vmax legend" \
    2408             -font $font
    2409         incr y $lineht
     2410            -anchor ne \
     2411            -fill $itk_option(-plotforeground) -tags "vmax legend" \
     2412            -font $font
     2413        incr y $lineht
    24102414        $c create image $x $y \
    24112415            -anchor ne \
Note: See TracChangeset for help on using the changeset viewer.