source: trunk/gui/scripts/isomarker.tcl @ 1247

# ----------------------------------------------------------------------
#  COMPONENT: nanovisviewer::isomarker - Marker for 3D volume rendering
#
#  This widget performs volume rendering on 3D scalar/vector datasets.
#  It connects to the Nanovis server running on a rendering farm,
#  transmits data, and displays the results.
# ======================================================================
#  AUTHOR:  Michael McLennan, Purdue University
#  Copyright (c) 2004-2005  Purdue Research Foundation
#
#  See the file "license.terms" for information on usage and
#  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
# ======================================================================
package require Itk
package require BLT
package require Img

itcl::class Rappture::NanovisViewer::IsoMarker {
    private variable value_     "";     # Absolute value of marker.
    private variable label_     ""
    private variable tick_      ""
    private variable canvas_    ""
    private variable nvobj_     "";     # Parent nanovis object.
    private variable tf_        "";     # Transfer function that this marker is 
                                        # associated with.
    private variable active_motion_   0
    private variable active_press_    0
    private common   normalIcon_ [Rappture::icon nvlegendmark]
    private common   activeIcon_ [Rappture::icon nvlegendmark2]

    constructor {c obj tf args} { 
        set canvas_ $c
        set nvobj_ $obj
        set tf_ $tf
        set w [winfo width $canvas_]
        set h [winfo height $canvas_]
        set tick_ [$c create image 0 $h \
                -image $normalIcon_ -anchor s \
                -tags "$this $obj" -state hidden]
        set label_ [$c create text 0 $h \
                -anchor n -fill white -font "Helvetica 8" \
                -tags "$this $obj" -state hidden]
        $c bind $tick_ <Enter> [itcl::code $this HandleEvent "enter"]
        $c bind $tick_ <Leave> [itcl::code $this HandleEvent "leave"]
        $c bind $tick_ <ButtonPress-1> \
            [itcl::code $this HandleEvent "start" %x %y]
        $c bind $tick_ <B1-Motion> \
            [itcl::code $this HandleEvent "update" %x %y]
        $c bind $tick_ <ButtonRelease-1> \
            [itcl::code $this HandleEvent "end" %x %y]
    }
    destructor { 
        $canvas_ delete $this
    }
    public method GetTransferFunction {} {
        return $tf_
    }
    public method GetAbsoluteValue {} {
        return $value_
    }
    public method GetRelativeValue {} {
        array set limits [$nvobj_ GetLimits $tf_] 
        if { $limits(max) == $limits(min) } {
            if { $limits(max) == 0.0 } {
                set limits(min) 0.0
                set limits(max) 1.0
            } else {
                set limits(max) [expr $limits(min) + 1.0]
            }
        }
        return [expr {($value_-$limits(min))/($limits(max) - $limits(min))}]
    }
    public method Activate { bool } {
        if  { $bool || $active_press_ || $active_motion_ } {
            $canvas_ itemconfigure $label_ -state normal
            $canvas_ itemconfigure $tick_ -image $activeIcon_
        } else {
            $canvas_ itemconfigure $label_ -state hidden
            $canvas_ itemconfigure $tick_ -image $normalIcon_
        }
    }
    public method Show {} {
        SetAbsoluteValue $value_
        $canvas_ itemconfigure $tick_ -state normal
        $canvas_ raise $tick_
    }
    public method Hide {} {
        $canvas_ itemconfigure $tick_ -state hidden
    }
    public method GetScreenPosition { } { 
        set x [GetRelativeValue]
        if { $x < 0.0 } {
            set x 0.0
        } elseif { $x > 1.0 } {
            set x 1.0 
        }
        set low 10 
        set w [winfo width $canvas_]
        set high [expr {$w  - 10}]
        set x [expr {round($x*($high - $low) + $low)}]
        return $x
    }
    public method SetAbsoluteValue { x } {
        set value_ $x
        set y 31
        $canvas_ itemconfigure $label_ -text [format %.2g $value_]
        set x [GetScreenPosition]
        $canvas_ coords $tick_ $x [expr {$y+3}]
        $canvas_ coords $label_ $x [expr {$y+5}]
    }
    public method SetRelativeValue { x } {
        array set limits [$nvobj_ GetLimits $tf_] 
        if { $limits(max) == $limits(min) } {
            set limits(min) 0.0
            set limits(max) 1.0
        }
        set r [expr $limits(max) - $limits(min)]
        SetAbsoluteValue [expr {($x * $r) + $limits(min)}]
    }
    public method HandleEvent { option args } {
        switch -- $option {
            enter {
                set active_motion_ 1
                Activate yes
                $canvas_ raise $tick_
            }
            leave {
                set active_motion_ 0
                Activate no
            }
            start {
                $canvas_ raise $tick_ 
                set active_press_ 1
                Activate yes
                $canvas_ itemconfigure limits -state hidden
            }
            update {
                set w [winfo width $canvas_]
                set x [lindex $args 0]
                SetRelativeValue [expr {double($x-10)/($w-20)}]
                $nvobj_ OverIsoMarker $this $x
                $nvobj_ UpdateTransferFunctions
            }
            end {
                set x [lindex $args 0]
                if { ![$nvobj_ RemoveDuplicateIsoMarker $this $x]} {
                    eval HandleEvent update $args
                }
                set active_press_ 0
                Activate no
                $canvas_ itemconfigure limits -state normal
            }
            default {
                error "bad option \"$option\": should be start, update, end"
            }
        }
    }
}