Ignore:
Timestamp:
Jan 24, 2012, 1:24:54 PM (13 years ago)
Author:
ldelgass
Message:

Heightmap viewer fixes: set fully opaque by default, fix scaling control and
limit to .5x - 2x range.

File:
1 edited

Legend:

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

    r2768 r2769  
    261261        surface-edges           0
    262262        surface-lighting        1
    263         surface-opacity         40
     263        surface-opacity         100
    264264        surface-visible         1
    265265        surface-wireframe       0
    266266        surface-numcontours     10
    267         surface-scale           1
     267        surface-scale           50
    268268        legend-visible          1
    269269    }]
     
    11121112    if { $_reset } {
    11131113        InitSettings surface-opacity \
    1114             surface-numcontours surface-lighting \
     1114            surface-numcontours surface-scale surface-lighting \
    11151115            surface-palette surface-field \
    11161116            surface-edges surface-opacity surface-wireframe
     
    15021502        "surface-scale" {
    15031503            set val $_settings(surface-scale)
    1504             set sval [expr { 0.01 * double($val) }]
     1504            set sval [expr { $val >= 50 ? double($val)/50.0 : 1.0/(2.0-(double($val)/50.0)) }]
    15051505            foreach dataset [CurrentDatasets -visible $_first] {
    1506                 SendCmd "heightmap scale $sval $sval $sval $dataset"
     1506                SendCmd "heightmap heightscale $sval $dataset"
    15071507            }
    15081508        }
     
    19921992
    19931993    label $inner.scale_l -text "Scale" -font "Arial 9"
    1994     ::scale $inner.scale -from 1 -to 100 -orient horizontal \
     1994    ::scale $inner.scale -from 0 -to 100 -orient horizontal \
    19951995        -variable [itcl::scope _settings(surface-scale)] \
    19961996        -width 10 \
     
    20322032
    20332033    blt::table $inner \
    2034         0,0 $inner.surface    -anchor w -pady 2 \
     2034        0,0 $inner.surface   -anchor w -pady 2 \
    20352035        1,0 $inner.wireframe -anchor w -pady 2 \
    20362036        2,0 $inner.lighting  -anchor w -pady 2 \
     
    20402040        6,0 $inner.numcontours_l   -anchor w -pady 2 -cspan 2 \
    20412041        7,0 $inner.numcontours     -fill x   -pady 2 -cspan 2 \
    2042         8,0 $inner.field_l     -anchor w -pady 2  \
    2043         8,1 $inner.field       -anchor w -pady 2  \
    2044         9,0 $inner.palette_l   -anchor w -pady 2  \
    2045         9,1 $inner.palette     -anchor w -pady 2  \
     2042        8,0 $inner.scale_l     -anchor w -pady 2 -cspan 2 \
     2043        9,0 $inner.scale       -fill x   -pady 2 -cspan 2 \
     2044        10,0 $inner.field_l    -anchor w -pady 2  \
     2045        10,1 $inner.field      -anchor w -pady 2  \
     2046        11,0 $inner.palette_l  -anchor w -pady 2  \
     2047        11,1 $inner.palette    -anchor w -pady 2  \
    20462048
    20472049    blt::table configure $inner r* c* -resize none
    2048     blt::table configure $inner r10 c1 -resize expand
     2050    blt::table configure $inner r12 c1 -resize expand
    20492051}
    20502052
     
    24232425        -edges 0
    24242426        -edgecolor black
     2427        -lighting 1
    24252428        -linewidth 1.0
    2426         -opacity 0.4
     2429        -opacity 1.0
     2430        -scale 1.0
     2431        -numcontours 10
     2432        -visible 1
    24272433        -wireframe 0
    2428         -lighting 1
    2429         -visible 1
    24302434    }
    24312435    if { $dataobj != $_first } {
     
    24332437    }
    24342438    array set settings $style
    2435     SendCmd "heightmap add $tag"
     2439    SendCmd "heightmap add numcontours $settings(-numcontours) $settings(-scale) $tag"
     2440    set _settings(surface-numcontours) $settings(-numcontours)
     2441    set val $settings(-scale)
     2442    set val [expr { $val < 0.5 ? 0.5 : $val } ]
     2443    set val [expr { $val > 2.0 ? 2.0 : $val } ]
     2444    set _settings(surface-scale) [expr { $val >= 1.0 ? int($val * 50.0) : int(50.0 * (2.0 - (1.0/$val))) }]
    24362445    #SendCmd "cutplane add $tag"
    24372446    #SendCmd "cutplane edges 0 $tag"
Note: See TracChangeset for help on using the changeset viewer.