Changeset 6407 for trunk/gui/scripts


Ignore:
Timestamp:
Jun 21, 2016, 11:03:06 PM (8 years ago)
Author:
ldelgass
Message:

s/palette/colormap/

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gui/scripts/vtkviewer.tcl

    r6406 r6407  
    267267        glyphs-opacity             100
    268268        glyphs-outline             0
    269         glyphs-palette             BCGYR
     269        glyphs-colormap            BCGYR
    270270        glyphs-visible             1
    271271        glyphs-wireframe           0
    … …  
    283283        molecule-opacity           100
    284284        molecule-outline           0
    285         molecule-palette           elementDefault
     285        molecule-colormap          elementDefault
    286286        molecule-quality           1.0
    287287        molecule-representation    "Ball and Stick"
    … …  
    293293        polydata-opacity           100
    294294        polydata-outline           0
    295         polydata-palette           BCGYR
     295        polydata-colormap          BCGYR
    296296        polydata-visible           1
    297297        polydata-wireframe         0
    … …  
    14281428            }
    14291429        }
    1430         "glyphs-palette" {
    1431             set palette [$itk_component(glyphspalette) value]
    1432             set _settings($what) $palette
     1430        "glyphs-colormap" {
     1431            set colormap [$itk_component(glyphscolormap) value]
     1432            set _settings($what) $colormap
    14331433            foreach dataset [CurrentDatasets -visible $_first] {
    14341434                foreach {dataobj comp} [split $dataset -] break
    14351435                set type [$dataobj type $comp]
    14361436                if { $type == "glyphs" } {
    1437                     ChangeColormap $dataobj $comp $palette
     1437                    ChangeColormap $dataobj $comp $colormap
    14381438                    # FIXME: fill in current selected fieldname
    14391439                    #SendCmd "glyphs colormode scalar {} $dataset"
    … …  
    15001500            }
    15011501        }
    1502         "polydata-palette" {
    1503             set palette [$itk_component(meshpalette) value]
    1504             set _settings($what) $palette
     1502        "polydata-colormap" {
     1503            set colormap [$itk_component(meshcolormap) value]
     1504            set _settings($what) $colormap
    15051505            foreach dataset [CurrentDatasets -visible $_first] {
    15061506                foreach {dataobj comp} [split $dataset -] break
    15071507                set type [$dataobj type $comp]
    15081508                if { $type == "polydata" } {
    1509                     ChangeColormap $dataobj $comp $palette
     1509                    ChangeColormap $dataobj $comp $colormap
    15101510                    # FIXME: fill in current selected fieldname
    15111511                    #SendCmd "polydata colormode scalar {} $dataset"
    … …  
    15721572            }
    15731573        }
    1574         "molecule-palette" {
    1575             set palette [$itk_component(moleculepalette) value]
    1576             set _settings($what) $palette
     1574        "molecule-colormap" {
     1575            set colormap [$itk_component(moleculecolormap) value]
     1576            set _settings($what) $colormap
    15771577            foreach dataset [CurrentDatasets -visible $_first] {
    15781578                foreach {dataobj comp} [split $dataset -] break
    15791579                set type [$dataobj type $comp]
    15801580                if { $type == "molecule" } {
    1581                     ChangeColormap $dataobj $comp $palette
    1582                     if { $palette == "elementDefault" } {
     1581                    ChangeColormap $dataobj $comp $colormap
     1582                    if { $colormap == "elementDefault" } {
    15831583                        SendCmd [list molecule colormode by_elements element $dataset]
    15841584                    } else {
    … …  
    20032003        -font "Arial 9" -anchor w
    20042004
    2005     label $inner.palette_l -text "Palette" -font "Arial 9" -anchor w
    2006     itk_component add glyphspalette {
    2007         Rappture::Combobox $inner.palette -width 10 -editable 0
    2008     }
    2009     $inner.palette choices insert end [GetColormapList]
    2010     $itk_component(glyphspalette) value "BCGYR"
    2011     bind $inner.palette <<Value>> \
    2012         [itcl::code $this AdjustSetting glyphs-palette]
     2005    label $inner.colormap_l -text "Colormap" -font "Arial 9" -anchor w
     2006    itk_component add glyphscolormap {
     2007        Rappture::Combobox $inner.colormap -width 10 -editable 0
     2008    }
     2009    $inner.colormap choices insert end [GetColormapList]
     2010    $itk_component(glyphscolormap) value "BCGYR"
     2011    bind $inner.colormap <<Value>> \
     2012        [itcl::code $this AdjustSetting glyphs-colormap]
    20132013
    20142014    label $inner.opacity_l -text "Opacity" -font "Arial 9" -anchor w
    … …  
    20212021
    20222022    blt::table $inner \
    2023         0,0 $inner.glyphs    -cspan 2  -anchor w -pady 2 \
    2024         1,0 $inner.outline   -cspan 2  -anchor w -pady 2 \
    2025         2,0 $inner.wireframe -cspan 2  -anchor w -pady 2 \
    2026         3,0 $inner.lighting  -cspan 2  -anchor w -pady 2 \
    2027         4,0 $inner.edges     -cspan 2  -anchor w -pady 2 \
    2028         5,0 $inner.opacity_l -anchor w -pady 2 \
    2029         5,1 $inner.opacity   -fill x   -pady 2 \
    2030         6,0 $inner.palette_l -anchor w -pady 2 \
    2031         6,1 $inner.palette   -fill x   -pady 2
     2023        0,0 $inner.glyphs     -cspan 2  -anchor w -pady 2 \
     2024        1,0 $inner.outline    -cspan 2  -anchor w -pady 2 \
     2025        2,0 $inner.wireframe  -cspan 2  -anchor w -pady 2 \
     2026        3,0 $inner.lighting   -cspan 2  -anchor w -pady 2 \
     2027        4,0 $inner.edges      -cspan 2  -anchor w -pady 2 \
     2028        5,0 $inner.opacity_l  -anchor w -pady 2 \
     2029        5,1 $inner.opacity    -fill x   -pady 2 \
     2030        6,0 $inner.colormap_l -anchor w -pady 2 \
     2031        6,1 $inner.colormap   -fill x   -pady 2
    20322032
    20332033    blt::table configure $inner r* c* -resize none
    … …  
    20752075        -font "Arial 9" -anchor w
    20762076
    2077     label $inner.palette_l -text "Palette" -font "Arial 9" -anchor w
    2078     itk_component add meshpalette {
    2079         Rappture::Combobox $inner.palette -width 10 -editable 0
    2080     }
    2081     $inner.palette choices insert end [GetColormapList]
    2082     $itk_component(meshpalette) value "BCGYR"
    2083     bind $inner.palette <<Value>> \
    2084         [itcl::code $this AdjustSetting polydata-palette]
     2077    label $inner.colormap_l -text "Colormap" -font "Arial 9" -anchor w
     2078    itk_component add meshcolormap {
     2079        Rappture::Combobox $inner.colormap -width 10 -editable 0
     2080    }
     2081    $inner.colormap choices insert end [GetColormapList]
     2082    $itk_component(meshcolormap) value "BCGYR"
     2083    bind $inner.colormap <<Value>> \
     2084        [itcl::code $this AdjustSetting polydata-colormap]
    20852085
    20862086    label $inner.opacity_l -text "Opacity" -font "Arial 9" -anchor w
    … …  
    20932093
    20942094    blt::table $inner \
    2095         0,0 $inner.mesh      -cspan 2  -anchor w -pady 2 \
    2096         1,0 $inner.outline   -cspan 2  -anchor w -pady 2 \
    2097         2,0 $inner.wireframe -cspan 2  -anchor w -pady 2 \
    2098         3,0 $inner.lighting  -cspan 2  -anchor w -pady 2 \
    2099         4,0 $inner.edges     -cspan 2  -anchor w -pady 2 \
    2100         5,0 $inner.opacity_l -anchor w -pady 2 \
    2101         5,1 $inner.opacity   -fill x   -pady 2 \
    2102         6,0 $inner.palette_l -anchor w -pady 2 \
    2103         6,1 $inner.palette   -fill x   -pady 2
     2095        0,0 $inner.mesh       -cspan 2  -anchor w -pady 2 \
     2096        1,0 $inner.outline    -cspan 2  -anchor w -pady 2 \
     2097        2,0 $inner.wireframe  -cspan 2  -anchor w -pady 2 \
     2098        3,0 $inner.lighting   -cspan 2  -anchor w -pady 2 \
     2099        4,0 $inner.edges      -cspan 2  -anchor w -pady 2 \
     2100        5,0 $inner.opacity_l  -anchor w -pady 2 \
     2101        5,1 $inner.opacity    -fill x   -pady 2 \
     2102        6,0 $inner.colormap_l -anchor w -pady 2 \
     2103        6,1 $inner.colormap   -fill x   -pady 2
    21042104
    21052105    blt::table configure $inner r* c* -resize none
    … …  
    24492449    $inner.rscale value "Covalent"
    24502450
    2451     label $inner.palette_l -text "Palette" -font "Arial 9"
    2452     itk_component add moleculepalette {
    2453         Rappture::Combobox $inner.palette -width 10 -editable 0
    2454     }
    2455     $inner.palette choices insert end [GetColormapList -includeElementDefault]
    2456     $itk_component(moleculepalette) value "elementDefault"
    2457     bind $inner.palette <<Value>> \
    2458         [itcl::code $this AdjustSetting molecule-palette]
     2451    label $inner.colormap_l -text "Colormap" -font "Arial 9"
     2452    itk_component add moleculecolormap {
     2453        Rappture::Combobox $inner.colormap -width 10 -editable 0
     2454    }
     2455    $inner.colormap choices insert end [GetColormapList -includeElementDefault]
     2456    $itk_component(moleculecolormap) value "elementDefault"
     2457    bind $inner.colormap <<Value>> \
     2458        [itcl::code $this AdjustSetting molecule-colormap]
    24592459
    24602460    label $inner.atomscale_l -text "Atom Scale" -font "Arial 9"
    … …  
    25042504        6,0 $inner.rscale_l     -anchor w -pady { 2 0 } \
    25052505        7,0 $inner.rscale       -fill x    -pady 2 \
    2506         8,0 $inner.palette_l    -anchor w  -pady 0 \
    2507         9,0 $inner.palette      -fill x    -padx 2 \
     2506        8,0 $inner.colormap_l    -anchor w  -pady 0 \
     2507        9,0 $inner.colormap      -fill x    -padx 2 \
    25082508        10,0 $inner.atomscale_l  -anchor w -pady {3 0} \
    25092509        11,0 $inner.atomscale   -fill x    -padx 2 \
    … …  
    28072807            SendCmd "molecule labels $settings(-labels) $tag"
    28082808            set _settings(molecule-labels) $settings(-labels)
     2809            SendCmd "molecule color [Color2RGB $settings(-constcolor)] $tag"
    28092810            SendCmd "molecule bcmode $settings(-bondcolormode) $tag"
    2810             SendCmd "molecule color [Color2RGB $settings(-constcolor)] $tag"
    28112811            SendCmd "molecule bcolor [Color2RGB $settings(-bondconstcolor)] $tag"
    28122812            SendCmd "molecule colormap $settings(-color) $tag"
    2813             set _settings(molecule-palette) $settings(-color)
    2814             $itk_component(moleculepalette) value $settings(-color)
     2813            set _settings(molecule-colormap) $settings(-color)
     2814            $itk_component(moleculecolormap) value $settings(-color)
    28152815            SendCmd [list molecule colormode $settings(-colormode) $settings(-colorfield) $tag]
    28162816            set _settings(molecule-colormode) $settings(-colormode)
Note: See TracChangeset for help on using the changeset viewer.