Ignore:
Timestamp:
Apr 17, 2015 7:52:50 PM (9 years ago)
Author:
ldelgass
Message:

Sync view settings names with trunk/1.4 branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/1.3/gui/scripts/flowvisviewer.tcl

    r5255 r5256  
    100100    private method ParseMarkersOption { tf markers }
    101101    private method QuaternionToView { q } {
    102         foreach { _view(qw) _view(qx) _view(qy) _view(qz) } $q break
     102        foreach { _view(-qw) _view(-qx) _view(-qy) _view(-qz) } $q break
    103103    }
    104104    private method Rebuild {}
    … …  
    116116    private method SlicerTip {axis}
    117117    private method ViewToQuaternion {} {
    118         return [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)]
     118        return [list $_view(-qw) $_view(-qx) $_view(-qy) $_view(-qz)]
    119119    }
    120120    private method WaitIcon { option widget }
    … …  
    218218    # Initialize the view to some default parameters.
    219219    array set _view {
    220         qw      0.853553
    221         qx      -0.353553
    222         qy      0.353553
    223         qz      0.146447
    224         zoom    1.0
    225         xpan    0
    226         ypan    0
     220        -qw      0.853553
     221        -qx      -0.353553
     222        -qy      0.353553
     223        -qz      0.146447
     224        -xpan    0
     225        -ypan    0
     226        -zoom    1.0
    227227    }
    228228    set _arcball [blt::arcball create 100 100]
    … …  
    234234
    235235    array set _settings [subst {
    236         $this-qw                $_view(qw)
    237         $this-qx                $_view(qx)
    238         $this-qy                $_view(qy)
    239         $this-qz                $_view(qz)
    240         $this-zoom              $_view(zoom)
    241         $this-xpan              $_view(xpan)
    242         $this-ypan              $_view(ypan)
     236        $this-qw                $_view(-qw)
     237        $this-qx                $_view(-qx)
     238        $this-qy                $_view(-qy)
     239        $this-qz                $_view(-qz)
     240        $this-zoom              $_view(-zoom)
     241        $this-xpan              $_view(-xpan)
     242        $this-ypan              $_view(-ypan)
    243243        $this-arrows            0
    244244        $this-currenttime       0
    … …  
    975975            array set _view $location
    976976        }
    977         set _settings($this-qw)    $_view(qw)
    978         set _settings($this-qx)    $_view(qx)
    979         set _settings($this-qy)    $_view(qy)
    980         set _settings($this-qz)    $_view(qz)
    981         set _settings($this-xpan)  $_view(xpan)
    982         set _settings($this-ypan)  $_view(ypan)
    983         set _settings($this-zoom)  $_view(zoom)
     977        set _settings($this-qw)    $_view(-qw)
     978        set _settings($this-qx)    $_view(-qx)
     979        set _settings($this-qy)    $_view(-qy)
     980        set _settings($this-qz)    $_view(-qz)
     981        set _settings($this-xpan)  $_view(-xpan)
     982        set _settings($this-ypan)  $_view(-ypan)
     983        set _settings($this-zoom)  $_view(-zoom)
    984984        set q [ViewToQuaternion]
    985985        $_arcball quaternion $q
    … …  
    987987        SendCmd "camera reset"
    988988        PanCamera
    989         SendCmd "camera zoom $_view(zoom)"
     989        SendCmd "camera zoom $_view(-zoom)"
    990990        }
    991991        # The active transfer function is by default the first component of
    … …  
    12571257
    12581258    }
    1259     set _settings($this-qw)    $_view(qw)
    1260     set _settings($this-qx)    $_view(qx)
    1261     set _settings($this-qy)    $_view(qy)
    1262     set _settings($this-qz)    $_view(qz)
    1263     set _settings($this-xpan)  $_view(xpan)
    1264     set _settings($this-ypan)  $_view(ypan)
    1265     set _settings($this-zoom)  $_view(zoom)
     1259    set _settings($this-qw)    $_view(-qw)
     1260    set _settings($this-qx)    $_view(-qx)
     1261    set _settings($this-qy)    $_view(-qy)
     1262    set _settings($this-qz)    $_view(-qz)
     1263    set _settings($this-xpan)  $_view(-xpan)
     1264    set _settings($this-ypan)  $_view(-ypan)
     1265    set _settings($this-zoom)  $_view(-zoom)
    12661266
    12671267    set q [ViewToQuaternion]
    … …  
    12701270    SendCmd "camera reset"
    12711271    PanCamera
    1272     SendCmd "camera zoom $_view(zoom)"
     1272    SendCmd "camera zoom $_view(-zoom)"
    12731273
    12741274    foreach dataobj [get] {
    … …  
    13501350    switch -- $option {
    13511351        "in" {
    1352             set _view(zoom) [expr {$_view(zoom)*1.25}]
    1353             set _settings($this-zoom) $_view(zoom)
    1354             SendCmd "camera zoom $_view(zoom)"
     1352            set _view(-zoom) [expr {$_view(-zoom)*1.25}]
     1353            set _settings($this-zoom) $_view(-zoom)
     1354            SendCmd "camera zoom $_view(-zoom)"
    13551355        }
    13561356        "out" {
    1357             set _view(zoom) [expr {$_view(zoom)*0.8}]
    1358             set _settings($this-zoom) $_view(zoom)
    1359             SendCmd "camera zoom $_view(zoom)"
     1357            set _view(-zoom) [expr {$_view(-zoom)*0.8}]
     1358            set _settings($this-zoom) $_view(-zoom)
     1359            SendCmd "camera zoom $_view(-zoom)"
    13601360        }
    13611361        "reset" {
    13621362            array set _view {
    1363                 qw      0.853553
    1364                 qx      -0.353553
    1365                 qy      0.353553
    1366                 qz      0.146447
    1367                 zoom    1.0
    1368                 xpan   0
    1369                 ypan   0
     1363                -qw      0.853553
     1364                -qx      -0.353553
     1365                -qy      0.353553
     1366                -qz      0.146447
     1367                -xpan    0
     1368                -ypan    0
     1369                -zoom    1.0
    13701370            }
    13711371            if { $_first != "" } {
    … …  
    13791379            SendCmd "camera orient $q"
    13801380            SendCmd "camera reset"
    1381             set _settings($this-qw)    $_view(qw)
    1382             set _settings($this-qx)    $_view(qx)
    1383             set _settings($this-qy)    $_view(qy)
    1384             set _settings($this-qz)    $_view(qz)
    1385             set _settings($this-xpan)  $_view(xpan)
    1386             set _settings($this-ypan)  $_view(ypan)
    1387             set _settings($this-zoom)  $_view(zoom)
     1381            set _settings($this-qw)    $_view(-qw)
     1382            set _settings($this-qx)    $_view(-qx)
     1383            set _settings($this-qy)    $_view(-qy)
     1384            set _settings($this-qz)    $_view(-qz)
     1385            set _settings($this-xpan)  $_view(-xpan)
     1386            set _settings($this-ypan)  $_view(-ypan)
     1387            set _settings($this-zoom)  $_view(-zoom)
    13881388        }
    13891389    }
    … …  
    13911391
    13921392itcl::body Rappture::FlowvisViewer::PanCamera {} {
    1393     #set x [expr ($_view(xpan)) / $_limits(xrange)]
    1394     #set y [expr ($_view(ypan)) / $_limits(yrange)]
    1395     set x $_view(xpan)
    1396     set y $_view(ypan)
     1393    set x $_view(-xpan)
     1394    set y $_view(-ypan)
    13971395    SendCmd "camera pan $x $y"
    13981396}
    … …  
    14331431                set q [$_arcball rotate $x $y $_click(x) $_click(y)]
    14341432                QuaternionToView $q
    1435                 set _settings($this-qw) $_view(qw)
    1436                 set _settings($this-qx) $_view(qx)
    1437                 set _settings($this-qy) $_view(qy)
    1438                 set _settings($this-qz) $_view(qz)
     1433                set _settings($this-qw) $_view(-qw)
     1434                set _settings($this-qx) $_view(-qx)
     1435                set _settings($this-qy) $_view(-qy)
     1436                set _settings($this-qz) $_view(-qz)
    14391437                SendCmd "camera orient $q"
    14401438
    … …  
    14691467        set x [expr $x / double($w)]
    14701468        set y [expr $y / double($h)]
    1471         set _view(xpan) [expr $_view(xpan) + $x]
    1472         set _view(ypan) [expr $_view(ypan) + $y]
     1469        set _view(-xpan) [expr $_view(-xpan) + $x]
     1470        set _view(-ypan) [expr $_view(-ypan) + $y]
    14731471        PanCamera
    1474         set _settings($this-xpan) $_view(xpan)
    1475         set _settings($this-ypan) $_view(ypan)
     1472        set _settings($this-xpan) $_view(-xpan)
     1473        set _settings($this-ypan) $_view(-ypan)
    14761474        return
    14771475    }
    … …  
    14861484        set _click(x) $x
    14871485        set _click(y) $y
    1488         set _view(xpan) [expr $_view(xpan) - $dx]
    1489         set _view(ypan) [expr $_view(ypan) - $dy]
     1486        set _view(-xpan) [expr $_view(-xpan) - $dx]
     1487        set _view(-ypan) [expr $_view(-ypan) - $dy]
    14901488        PanCamera
    1491         set _settings($this-xpan) $_view(xpan)
    1492         set _settings($this-ypan) $_view(ypan)
     1489        set _settings($this-xpan) $_view(-xpan)
     1490        set _settings($this-ypan) $_view(-ypan)
    14931491    }
    14941492    if { $option == "release" } {
    … …  
    23912389        0,0 $inner.view_l -anchor e -pady 2 \
    23922390        0,1 $inner.view -anchor w -pady 2
     2391    blt::table configure $inner r0 -resize none
    23932392
    23942393    set row 1
    … …  
    23982397        entry $inner.${tag} -font "Arial 9"  -bg white \
    23992398            -textvariable [itcl::scope _settings($this-$tag)]
    2400         bind $inner.${tag} <KeyPress-Return> \
    2401             [itcl::code $this camera set ${tag}]
     2399        bind $inner.${tag} <Return> \
     2400            [itcl::code $this camera set -${tag}]
     2401        bind $inner.${tag} <KP_Enter> \
     2402            [itcl::code $this camera set -${tag}]
    24022403        blt::table $inner \
    24032404            $row,0 $inner.${tag}label -anchor e -pady 2 \
    … …  
    24072408    }
    24082409
    2409     blt::table configure $inner c* r* -resize none
     2410    blt::table configure $inner c* -resize none
    24102411    blt::table configure $inner c2 -resize expand
    24112412    blt::table configure $inner r$row -resize expand
    … …  
    25602561itcl::body Rappture::FlowvisViewer::SlicerTip {axis} {
    25612562    set val [$itk_component(${axis}CutScale) get]
    2562 #    set val [expr {0.01*($val-50)
    2563 #        *($_limits(${axis}max)-$_limits(${axis}min))
    2564 #          + 0.5*($_limits(${axis}max)+$_limits(${axis}min))}]
    25652563    return "Move the [string toupper $axis] cut plane.\nCurrently:  $axis = $val%"
    25662564}
    … …  
    26042602        }
    26052603        "set" {
    2606             set who [lindex $args 0]
    2607             set x $_settings($this-$who)
     2604            set what [lindex $args 0]
     2605            set x $_settings($this-$what)
    26082606            set code [catch { string is double $x } result]
    26092607            if { $code != 0 || !$result } {
    2610                 set _settings($this-$who) $_view($who)
     2608                set _settings($this-$what) $_view($what)
    26112609                return
    26122610            }
    2613             switch -- $who {
    2614                 "xpan" - "ypan" {
    2615                     set _view($who) $_settings($this-$who)
     2611            switch -- $what {
     2612                "-xpan" - "-ypan" {
     2613                    set _view($what) $_settings(${this}${what})
    26162614                    PanCamera
    26172615                }
    2618                 "qx" - "qy" - "qz" - "qw" {
    2619                     set _view($who) $_settings($this-$who)
     2616                "-qx" - "-qy" - "-qz" - "-qw" {
     2617                    set _view($what) $_settings(${this}${what})
    26202618                    set q [ViewToQuaternion]
    26212619                    $_arcball quaternion $q
    26222620                    SendCmd "camera orient $q"
    26232621                }
    2624                 "zoom" {
    2625                     set _view($who) $_settings($this-$who)
    2626                     SendCmd "camera zoom $_view(zoom)"
     2622                "-zoom" {
     2623                    set _view($what) $_settings(${this}${what})
     2624                    SendCmd "camera zoom $_view($what)"
    26272625                }
    26282626            }
    … …  
    30073005        bottom "0.707107 0.707107 0 0"
    30083006    }
    3009     foreach name { qw qx qy qz } value $positions($side) {
     3007    foreach name { -qw -qx -qy -qz } value $positions($side) {
    30103008        set _view($name) $value
    30113009    }
    … …  
    30143012    SendCmd "camera orient $q"
    30153013    SendCmd "camera reset"
    3016     set _view(xpan) 0.0
    3017     set _view(ypan) 0.0
    3018     set _view(zoom) 1.0
    3019     set _settings($this-xpan) $_view(xpan)
    3020     set _settings($this-ypan) $_view(ypan)
    3021     set _settings($this-zoom) $_view(zoom)
    3022 }
     3014    set _view(-xpan) 0.0
     3015    set _view(-ypan) 0.0
     3016    set _view(-zoom) 1.0
     3017    set _settings($this-xpan) $_view(-xpan)
     3018    set _settings($this-ypan) $_view(-ypan)
     3019    set _settings($this-zoom) $_view(-zoom)
     3020}
Note: See TracChangeset for help on using the changeset viewer.