- Timestamp:
- Jun 21, 2016, 11:03:06 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkviewer.tcl
r6406 r6407 267 267 glyphs-opacity 100 268 268 glyphs-outline 0 269 glyphs- paletteBCGYR269 glyphs-colormap BCGYR 270 270 glyphs-visible 1 271 271 glyphs-wireframe 0 … … 283 283 molecule-opacity 100 284 284 molecule-outline 0 285 molecule- paletteelementDefault285 molecule-colormap elementDefault 286 286 molecule-quality 1.0 287 287 molecule-representation "Ball and Stick" … … 293 293 polydata-opacity 100 294 294 polydata-outline 0 295 polydata- paletteBCGYR295 polydata-colormap BCGYR 296 296 polydata-visible 1 297 297 polydata-wireframe 0 … … 1428 1428 } 1429 1429 } 1430 "glyphs- palette" {1431 set palette [$itk_component(glyphspalette) value]1432 set _settings($what) $ palette1430 "glyphs-colormap" { 1431 set colormap [$itk_component(glyphscolormap) value] 1432 set _settings($what) $colormap 1433 1433 foreach dataset [CurrentDatasets -visible $_first] { 1434 1434 foreach {dataobj comp} [split $dataset -] break 1435 1435 set type [$dataobj type $comp] 1436 1436 if { $type == "glyphs" } { 1437 ChangeColormap $dataobj $comp $ palette1437 ChangeColormap $dataobj $comp $colormap 1438 1438 # FIXME: fill in current selected fieldname 1439 1439 #SendCmd "glyphs colormode scalar {} $dataset" … … 1500 1500 } 1501 1501 } 1502 "polydata- palette" {1503 set palette [$itk_component(meshpalette) value]1504 set _settings($what) $ palette1502 "polydata-colormap" { 1503 set colormap [$itk_component(meshcolormap) value] 1504 set _settings($what) $colormap 1505 1505 foreach dataset [CurrentDatasets -visible $_first] { 1506 1506 foreach {dataobj comp} [split $dataset -] break 1507 1507 set type [$dataobj type $comp] 1508 1508 if { $type == "polydata" } { 1509 ChangeColormap $dataobj $comp $ palette1509 ChangeColormap $dataobj $comp $colormap 1510 1510 # FIXME: fill in current selected fieldname 1511 1511 #SendCmd "polydata colormode scalar {} $dataset" … … 1572 1572 } 1573 1573 } 1574 "molecule- palette" {1575 set palette [$itk_component(moleculepalette) value]1576 set _settings($what) $ palette1574 "molecule-colormap" { 1575 set colormap [$itk_component(moleculecolormap) value] 1576 set _settings($what) $colormap 1577 1577 foreach dataset [CurrentDatasets -visible $_first] { 1578 1578 foreach {dataobj comp} [split $dataset -] break 1579 1579 set type [$dataobj type $comp] 1580 1580 if { $type == "molecule" } { 1581 ChangeColormap $dataobj $comp $ palette1582 if { $ palette== "elementDefault" } {1581 ChangeColormap $dataobj $comp $colormap 1582 if { $colormap == "elementDefault" } { 1583 1583 SendCmd [list molecule colormode by_elements element $dataset] 1584 1584 } else { … … 2003 2003 -font "Arial 9" -anchor w 2004 2004 2005 label $inner. palette_l -text "Palette" -font "Arial 9" -anchor w2006 itk_component add glyphs palette{2007 Rappture::Combobox $inner. palette-width 10 -editable 02008 } 2009 $inner. palettechoices insert end [GetColormapList]2010 $itk_component(glyphs palette) 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] 2013 2013 2014 2014 label $inner.opacity_l -text "Opacity" -font "Arial 9" -anchor w … … 2021 2021 2022 2022 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 22023 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 2032 2032 2033 2033 blt::table configure $inner r* c* -resize none … … 2075 2075 -font "Arial 9" -anchor w 2076 2076 2077 label $inner. palette_l -text "Palette" -font "Arial 9" -anchor w2078 itk_component add mesh palette{2079 Rappture::Combobox $inner. palette-width 10 -editable 02080 } 2081 $inner. palettechoices insert end [GetColormapList]2082 $itk_component(mesh palette) 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] 2085 2085 2086 2086 label $inner.opacity_l -text "Opacity" -font "Arial 9" -anchor w … … 2093 2093 2094 2094 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 22095 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 2104 2104 2105 2105 blt::table configure $inner r* c* -resize none … … 2449 2449 $inner.rscale value "Covalent" 2450 2450 2451 label $inner. palette_l -text "Palette" -font "Arial 9"2452 itk_component add molecule palette{2453 Rappture::Combobox $inner. palette-width 10 -editable 02454 } 2455 $inner. palettechoices insert end [GetColormapList -includeElementDefault]2456 $itk_component(molecule palette) 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] 2459 2459 2460 2460 label $inner.atomscale_l -text "Atom Scale" -font "Arial 9" … … 2504 2504 6,0 $inner.rscale_l -anchor w -pady { 2 0 } \ 2505 2505 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 \ 2508 2508 10,0 $inner.atomscale_l -anchor w -pady {3 0} \ 2509 2509 11,0 $inner.atomscale -fill x -padx 2 \ … … 2807 2807 SendCmd "molecule labels $settings(-labels) $tag" 2808 2808 set _settings(molecule-labels) $settings(-labels) 2809 SendCmd "molecule color [Color2RGB $settings(-constcolor)] $tag" 2809 2810 SendCmd "molecule bcmode $settings(-bondcolormode) $tag" 2810 SendCmd "molecule color [Color2RGB $settings(-constcolor)] $tag"2811 2811 SendCmd "molecule bcolor [Color2RGB $settings(-bondconstcolor)] $tag" 2812 2812 SendCmd "molecule colormap $settings(-color) $tag" 2813 set _settings(molecule- palette) $settings(-color)2814 $itk_component(molecule palette) value $settings(-color)2813 set _settings(molecule-colormap) $settings(-color) 2814 $itk_component(moleculecolormap) value $settings(-color) 2815 2815 SendCmd [list molecule colormode $settings(-colormode) $settings(-colorfield) $tag] 2816 2816 set _settings(molecule-colormode) $settings(-colormode)
Note: See TracChangeset
for help on using the changeset viewer.