Changeset 5101


Ignore:
Timestamp:
Mar 8, 2015 3:23:52 AM (8 years ago)
Author:
ldelgass
Message:

whitespace

Location:
branches/1.4/gui/scripts
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r5095 r5101  
    1 # -*- mode: tcl; indent-tabs-mode: nil -*- 
     1# -*- mode: tcl; indent-tabs-mode: nil -*-
    22# ----------------------------------------------------------------------
    33#  COMPONENT: flowvisviewer - 3D flow rendering
    4 #
    54#
    65# This widget performs volume and flow rendering on 3D scalar/vector datasets.
    … …  
    6564    public method limits { cname }
    6665    public method overMarker { m x }
    67     public method parameters {title args} { 
    68         # do nothing 
     66    public method parameters {title args} {
     67        # do nothing
    6968    }
    7069    public method removeDuplicateMarker { m x }
    … …  
    8988    private method CurrentVolumeIds {{what -all}}
    9089    private method Disconnect {}
    91     private method EventuallyResize { w h } 
    92     private method EventuallyGoto { nSteps } 
    93     private method EventuallyResizeLegend { } 
     90    private method EventuallyResize { w h }
     91    private method EventuallyGoto { nSteps }
     92    private method EventuallyResizeLegend { }
    9493    private method FlowCmd { dataobj comp nbytes extents }
    95     private method GetDatasetsWithComponent { cname } 
     94    private method GetDatasetsWithComponent { cname }
    9695    private method GetFlowInfo { widget }
    9796    private method GetMovie { widget width height }
    … …  
    103102    private method ParseLevelsOption { tf levels }
    104103    private method ParseMarkersOption { tf markers }
    105     private method QuaternionToView { q } { 
     104    private method QuaternionToView { q } {
    106105        foreach { _view(-qw) _view(-qx) _view(-qy) _view(-qz) } $q break
    107106    }
    … …  
    117116    private method Slice {option args}
    118117    private method SlicerTip {axis}
    119     private method ViewToQuaternion {} { 
     118    private method ViewToQuaternion {} {
    120119        return [list $_view(-qw) $_view(-qx) $_view(-qy) $_view(-qz)]
    121120    }
    122121    private method WaitIcon { option widget }
    123122    private method Zoom {option}
    124     private method arrows { tag name } 
    125     private method box { tag name } 
    126     private method millisecs2str { value } 
    127     private method particles { tag name } 
    128     private method str2millisecs { value } 
    129     private method streams { tag name } 
     123    private method arrows { tag name }
     124    private method box { tag name }
     125    private method millisecs2str { value }
     126    private method particles { tag name }
     127    private method str2millisecs { value }
     128    private method streams { tag name }
    130129
    131130    private variable _arcball ""
    … …  
    133132    private variable _allDataObjs
    134133    private variable _obj2ovride   ;# maps dataobj => style override
    135     private variable _serverObjs   ;# maps dataobj-component to volume ID 
     134    private variable _serverObjs   ;# maps dataobj-component to volume ID
    136135                                    # in the server
    137     private variable _recvObjs  ;# list of data objs to send to server
     136    private variable _recvObjs     ;# list of data objs to send to server
    138137    private variable _obj2style    ;# maps dataobj-component to transfunc
    139     private variable _style2objs   ;# maps tf back to list of 
     138    private variable _style2objs   ;# maps tf back to list of
    140139                                    # dataobj-components using the tf.
    141     private variable _obj2flow;         # Maps dataobj-component to a flow.
    142 
    143     private variable _reset 1;          # Connection to server has been reset
     140    private variable _obj2flow;     # Maps dataobj-component to a flow.
     141
     142    private variable _reset 1      ;# Connection to server has been reset
    144143    private variable _click        ;# info used for rotate operations
    145144    private variable _limits       ;# autoscale min/max for all axes
    146145    private variable _view         ;# view params for 3D view
    147     private variable _isomarkers    ;# array of isosurface level values 0..1
     146    private variable _isomarkers   ;# array of isosurface level values 0..1
    148147    private common   _settings
    149148    private variable _activeTf ""  ;# The currently active transfer function.
    150149    private variable _first ""     ;# This is the topmost volume.
    151     private variable _volcomponents   ; # Array of components found
    152     private variable _componentsList   ; # Array of components found
     150    private variable _volcomponents   ;# Array of components found
     151    private variable _componentsList  ;# Array of components found
    153152    private variable _nextToken 0
    154153    private variable _icon 0
    155154    private variable _flow
    156     # This
    157     # indicates which isomarkers and transfer
    158     # function to use when changing markers,
    159     # opacity, or thickness.
    160155    private common _downloadPopup          ;# download options from popup
    161156
    … …  
    198193    $_dispatcher register !play
    199194    $_dispatcher dispatch $this !play "[itcl::code $this flow next]; list"
    200    
     195
    201196    # Draw legend event
    202197    $_dispatcher register !goto
    … …  
    239234        $this-qy                $_view(-qy)
    240235        $this-qz                $_view(-qz)
    241         $this-zoom              $_view(-zoom)   
     236        $this-zoom              $_view(-zoom)
    242237        $this-xpan              $_view(-xpan)
    243238        $this-ypan              $_view(-ypan)
    … …  
    346341        [itcl::code $this EventuallyResizeLegend]
    347342
    348     # Hack around the Tk panewindow.  The problem is that the requested 
     343    # Hack around the Tk panewindow.  The problem is that the requested
    349344    # size of the 3d view isn't set until an image is retrieved from
    350345    # the server.  So the panewindow uses the tiny size.
    … …  
    354349        0,0 $itk_component(3dview) -fill both -reqwidth $w \
    355350        1,0 $itk_component(legend) -fill x
    356     blt::table configure $itk_component(plotarea) r1 -resize none   
     351    blt::table configure $itk_component(plotarea) r1 -resize none
    357352    # Create flow controls...
    358353
    359354    itk_component add flowcontrols {
    360         frame $itk_interior.flowcontrols 
     355        frame $itk_interior.flowcontrols
    361356    } {
    362357        usual
    … …  
    405400            -offimage [Rappture::icon flow-play] \
    406401            -variable [itcl::scope _settings($this-play)] \
    407             -command [itcl::code $this flow toggle] 
     402            -command [itcl::code $this flow toggle]
    408403    }
    409404    set fg [option get $itk_component(hull) font Font]
    … …  
    457452    } {
    458453        usual
    459         ignore -highlightthickness 
     454        ignore -highlightthickness
    460455        rename -background -controlbackground controlBackground Background
    461456    }
    … …  
    466461    } {
    467462        usual
    468         ignore -highlightthickness 
     463        ignore -highlightthickness
    469464        rename -background -controlbackground controlBackground Background
    470465    }
    … …  
    476471    } {
    477472        usual
    478         ignore -highlightthickness 
     473        ignore -highlightthickness
    479474        rename -background -controlbackground controlBackground Background
    480475    }
    … …  
    493488        0,4 $itk_component(dial) -fill x -padx {2 0 } \
    494489        0,5 $itk_component(duration) -padx { 0 0} \
    495         0,7 $itk_component(speed) -padx {2 3} 
    496 
    497 #        0,6 $itk_component(speedlabel) -padx {2 0} 
     490        0,7 $itk_component(speed) -padx {2 3}
     491
     492#        0,6 $itk_component(speedlabel) -padx {2 0}
    498493    blt::table configure $itk_component(flowcontrols) c* -resize none
    499494    blt::table configure $itk_component(flowcontrols) c4 -resize both
    … …  
    695690    # If anything changed, then rebuild the plot
    696691    if {$changed} {
    697         # Repair the reverse lookup 
     692        # Repair the reverse lookup
    698693        foreach tf [array names _style2objs] {
    699694            set list {}
    … …  
    728723        -opacity 0.5
    729724    }
    730     array unset _limits 
    731     array unset _volcomponents 
     725    array unset _limits
     726    array unset _volcomponents
    732727    foreach dataobj $args {
    733728        if { ![$dataobj isvalid] } {
    … …  
    873868        return 0
    874869    }
    875     set _reset 1 
     870    set _reset 1
    876871    set result [VisViewer::Connect $_hosts]
    877872    if { $result } {
    … …  
    883878            set info {}
    884879            set user "???"
    885             if { [info exists env(USER)] } {
     880            if { [info exists env(USER)] } {
    886881                set user $env(USER)
    887             }
     882            }
    888883            set session "???"
    889             if { [info exists env(SESSION)] } {
     884            if { [info exists env(SESSION)] } {
    890885                set session $env(SESSION)
    891             }
     886            }
    892887            lappend info "version" "$Rappture::version"
    893888            lappend info "build" "$Rappture::build"
    … …  
    990985            $_image(plot) configure -data $bytes
    991986            #puts stderr "image received [image width $_image(plot)] by [image height $_image(plot)]"
    992         } 
     987        }
    993988        "print" {
    994989            set tag $this-$info(-token)
    995990            set _hardcopy($tag) $bytes
    996         } 
     991        }
    997992        "movie" {
    998993            set tag $this-$info(-token)
    … …  
    10101005#       The procedure is the response from the render server to each "legend"
    10111006#       command.  The server sends back a "legend" command invoked our
    1012 #       the slave interpreter.  The purpose is to collect data of the image 
     1007#       the slave interpreter.  The purpose is to collect data of the image
    10131008#       representing the legend in the canvas.  In addition, the isomarkers
    10141009#       of the active transfer function are displayed.
    10151010#
    10161011#       I don't know is this is the right place to display the isomarkers.
    1017 #       I don't know all the different paths used to draw the plot. There's 
     1012#       I don't know all the different paths used to draw the plot. There's
    10181013#       "Rebuild", "add", etc.
    10191014#
    … …  
    11001095# Called automatically whenever something changes that affects the data
    11011096# in the widget.  Clears any existing data and rebuilds the widget to
    1102 # display new data. 
     1097# display new data.
    11031098#
    11041099itcl::body Rappture::FlowvisViewer::Rebuild {} {
    … …  
    11131108    # Turn on buffering of commands to the server.  We don't want to
    11141109    # be preempted by a server disconnect/reconnect (which automatically
    1115     # generates a new call to Rebuild).   
     1110    # generates a new call to Rebuild).
    11161111    StartBufferingCommands
    11171112
    … …  
    14611456                record {
    14621457                    if { [$itk_component(rewind) cget -relief] != "sunken" } {
    1463                         $itk_component(rewind) configure -relief sunken 
    1464                         $itk_component(stop) configure -relief raised 
    1465                         $itk_component(play) configure -relief raised 
     1458                        $itk_component(rewind) configure -relief sunken
     1459                        $itk_component(stop) configure -relief raised
     1460                        $itk_component(play) configure -relief raised
    14661461                        set inner $itk_component(settingsFrame)
    14671462                        set frames [$inner.framecnt value]
    … …  
    14731468                stop {
    14741469                    if { [$itk_component(stop) cget -relief] != "sunken" } {
    1475                         $itk_component(rewind) configure -relief raised 
    1476                         $itk_component(stop) configure -relief sunken 
    1477                         $itk_component(play) configure -relief raised 
     1470                        $itk_component(rewind) configure -relief raised
     1471                        $itk_component(stop) configure -relief sunken
     1472                        $itk_component(play) configure -relief raised
    14781473                        _pause
    14791474                        set cmds "flow reset"
    … …  
    14841479                    if { [$itk_component(play) cget -relief] != "sunken" } {
    14851480                        $itk_component(rewind) configure -relief raised
    1486                         $itk_component(stop) configure -relief raised 
     1481                        $itk_component(stop) configure -relief raised
    14871482                        $itk_component(play) configure \
    14881483                            -image [Rappture::icon flow-pause] \
    1489                             -relief sunken 
     1484                            -relief sunken
    14901485                        bind $itk_component(play) <ButtonPress> \
    14911486                            [itcl::code $this _pause]
    … …  
    15271522    $itk_component(play) configure \
    15281523        -image [Rappture::icon flow-start] \
    1529         -relief raised 
     1524        -relief raised
    15301525    bind $itk_component(play) <ButtonPress> \
    15311526        [itcl::code $this Flow movie play toggle]
    … …  
    15551550    switch -- $what {
    15561551        colormap {
    1557             set color [$itk_component(colormap) value] 
    1558             set _settings(colormap) $color 
    1559             #ResetColormap $color 
     1552            set color [$itk_component(colormap) value]
     1553            set _settings(colormap) $color
     1554            #ResetColormap $color
    15601555        }
    15611556        light {
    … …  
    16221617                blt::table $itk_component(plotarea) \
    16231618                    0,0 $itk_component(3dview) -fill both \
    1624                     1,0 $itk_component(legend) -fill x 
     1619                    1,0 $itk_component(legend) -fill x
    16251620                blt::table configure $itk_component(plotarea) r1 -resize none
    16261621            } else {
    … …  
    16391634            set bool $_settings($this-$what)
    16401635            if { [isconnected] } {
    1641                 set vols [CurrentVolumeIds -cutplanes] 
     1636                set vols [CurrentVolumeIds -cutplanes]
    16421637                SendCmd "cutplane state $bool $axis $vols"
    16431638            }
    … …  
    17431738    # reference.
    17441739    #
    1745     # FIXME: The current way we generate transfer-function names completely 
    1746     #        ignores the -markers option.  The problem is that we are forced 
    1747     #        to compute the name from an increasing complex set of values: 
     1740    # FIXME: The current way we generate transfer-function names completely
     1741    #        ignores the -markers option.  The problem is that we are forced
     1742    #        to compute the name from an increasing complex set of values:
    17481743    #        color, levels, marker, opacity.  I think the cow's out of the
    17491744    #        barn on this one.
    … …  
    18911886            $itk_component(legend) itemconfigure labels -fill $itk_option(-plotforeground)
    18921887            $m relval $x
    1893             lappend _isomarkers($tf) $m 
     1888            lappend _isomarkers($tf) $m
    18941889        }
    18951890    } else {
    … …  
    18981893            $itk_component(legend) itemconfigure labels -fill $itk_option(-plotforeground)
    18991894            $m relval $x
    1900             lappend _isomarkers($tf) $m 
     1895            lappend _isomarkers($tf) $m
    19011896        }
    19021897    }
    … …  
    19051900#
    19061901# The -markers option takes a list of zero or more values (the values
    1907 # may be separated either by spaces or commas) that have the following 
     1902# may be separated either by spaces or commas) that have the following
    19081903# format:
    19091904#
    … …  
    19211916        set n [scan $marker "%g%s" value suffix]
    19221917        if { $n == 2 && $suffix == "%" } {
    1923             # ${n}% : Set relative value. 
     1918            # ${n}% : Set relative value.
    19241919            set value [expr {$value * 0.01}]
    19251920            set m [Rappture::IsoMarker \#auto $c $this $tf]
    … …  
    19381933
    19391934# ----------------------------------------------------------------------
    1940 # USAGE: UndateTransferFuncs 
     1935# USAGE: UndateTransferFuncs
    19411936# ----------------------------------------------------------------------
    19421937itcl::body Rappture::FlowvisViewer::updateTransferFunctions {} {
    … …  
    19481943        error "active transfer function isn't set"
    19491944    }
    1950     set tf $_activeTf 
     1945    set tf $_activeTf
    19511946    set c $itk_component(legend)
    19521947    set m [Rappture::IsoMarker \#auto $c $this $tf]
    … …  
    21072102        2,0 $inner.outline  -cspan 2 -anchor w \
    21082103        3,0 $inner.volume  -cspan 2 -anchor w \
    2109         4,0 $inner.legend  -cspan 2 -anchor w 
     2104        4,0 $inner.legend  -cspan 2 -anchor w
    21102105
    21112106    bind $inner <Map> [itcl::code $this GetFlowInfo $inner]
    … …  
    21572152    label $inner.thick -text "Thick" -font $fg
    21582153
    2159     label $inner.colormap_l -text "Colormap" -font "Arial 9" 
     2154    label $inner.colormap_l -text "Colormap" -font "Arial 9"
    21602155    itk_component add colormap {
    21612156        Rappture::Combobox $inner.colormap -width 10 -editable no
    … …  
    22922287    $inner configure -borderwidth 4
    22932288
    2294     label $inner.view_l -text "view" -font "Arial 9" 
    2295     set f [frame $inner.view] 
    2296     foreach side { front back left right top bottom } { 
     2289    label $inner.view_l -text "view" -font "Arial 9"
     2290    set f [frame $inner.view]
     2291    foreach side { front back left right top bottom } {
    22972292        button $f.$side  -image [Rappture::icon view$side] \
    2298             -command [itcl::code $this SetOrientation $side] 
    2299         Rappture::Tooltip::for $f.$side "Change the view to $side" 
    2300         pack $f.$side -side left 
     2293            -command [itcl::code $this SetOrientation $side]
     2294        Rappture::Tooltip::for $f.$side "Change the view to $side"
     2295        pack $f.$side -side left
    23012296    }
    23022297
    23032298    blt::table $inner \
    23042299        0,0 $inner.view_l -anchor e -pady 2 \
    2305         0,1 $inner.view -anchor w -pady 2 
     2300        0,1 $inner.view -anchor w -pady 2
    23062301    blt::table configure $inner r0 -resize none
    23072302
    2308     set row 1 
     2303    set row 1
    23092304    set labels { qw qx qy qz xpan ypan zoom }
    23102305    foreach tag $labels {
    … …  
    23602355    blt::table $inner \
    23612356        1,0 $inner.showstreams  -anchor w \
    2362         2,0 $inner.showarrows  -anchor w 
     2357        2,0 $inner.showarrows  -anchor w
    23632358    blt::table configure $inner c0 c1 -resize none
    23642359    blt::table configure $inner c2 -resize expand
    … …  
    23832378            -font "Arial 9"
    23842379        Rappture::Tooltip::for $inner.part$row $info(description)
    2385         blt::table $inner $row,0 $inner.part$row -anchor w 
     2380        blt::table $inner $row,0 $inner.part$row -anchor w
    23862381        if { !$_settings($this-particles-$name) } {
    23872382            $inner.part$row select
    2388         } 
     2383        }
    23892384        incr row
    23902385    }
    … …  
    24102405        if { !$_settings($this-box-$name) } {
    24112406            $inner.box$row select
    2412         } 
     2407        }
    24132408        incr row
    24142409    }
    … …  
    24162411    blt::table configure $inner r$row -resize expand
    24172412    blt::table configure $inner c3 -resize expand
    2418     event generate [winfo parent [winfo parent $w]] <Configure> 
     2413    event generate [winfo parent [winfo parent $w]] <Configure>
    24192414}
    24202415
    … …  
    25102505}
    25112506
    2512 #  camera -- 
     2507#  camera --
    25132508itcl::body Rappture::FlowvisViewer::camera {option args} {
    2514     switch -- $option { 
     2509    switch -- $option {
    25152510        "show" {
    25162511            puts [array get _view]
    … …  
    25972592        append cmd " -corner1 {$info(corner1)} "
    25982593        append cmd " -corner2 {$info(corner2)}\n"
    2599     }   
     2594    }
    26002595    append cmd "$tag data follows $nbytes $extents\n"
    26012596    return $cmd
    … …  
    26652660        "stop" {
    26662661            if { $_flow(state) } {
    2667                 flow off 
     2662                flow off
    26682663                flow reset
    26692664            }
    … …  
    26712666        "pause" {
    26722667            if { $_flow(state) } {
    2673                 flow off 
     2668                flow off
    26742669            }
    26752670        }
    … …  
    26842679                    set _settings($this-step) 1
    26852680                    SendCmd "flow reset"
    2686                 } 
     2681                }
    26872682                flow next
    26882683            }
    … …  
    26912686            if { $_settings($this-play) } {
    26922687                flow play
    2693             } else { 
     2688            } else {
    26942689                flow pause
    26952690            }
    … …  
    27162711            }
    27172712            $_dispatcher event -after $_flow(delay) !play
    2718         } 
     2713        }
    27192714        default {
    27202715            error "bad option \"$option\": should be play, stop, toggle, or reset."
    … …  
    27672762            1,0 $inner.please -anchor w \
    27682763            1,1 $inner.icon -anchor e  \
    2769             2,0 $inner.cancel -cspan 2 
    2770         blt::table configure $inner r0 -pady 4 
    2771         blt::table configure $inner r2 -pady 4 
     2764            2,0 $inner.cancel -cspan 2
     2765        blt::table configure $inner r0 -pady 4
     2766        blt::table configure $inner r2 -pady 4
    27722767        bind $inner.cancel <KeyPress-Return> [list $inner.cancel invoke]
    27732768    } else {
    … …  
    27852780    update idletasks
    27862781    update
    2787     # We wait here for either 
    2788     #  1) the png to be delivered or 
    2789     #  2) timeout or 
     2782    # We wait here for either
     2783    #  1) the png to be delivered or
     2784    #  2) timeout or
    27902785    #  3) user cancels the operation.
    27912786    tkwait variable $var
    … …  
    28262821            1,0 $inner.please -anchor w \
    28272822            1,1 $inner.icon -anchor e  \
    2828             2,0 $inner.cancel -cspan 2 
    2829         blt::table configure $inner r0 -pady 4 
    2830         blt::table configure $inner r2 -pady 4 
     2823            2,0 $inner.cancel -cspan 2
     2824        blt::table configure $inner r0 -pady 4
     2825        blt::table configure $inner r2 -pady 4
    28312826        bind $inner.cancel <KeyPress-Return> [list $inner.cancel invoke]
    28322827    } else {
    28332828        set inner [$popup component inner]
    28342829    }
    2835     update 
     2830    update
    28362831    # Timeout is set to 10 minutes.
    28372832    $_dispatcher event -after 600000 !movietimeout
    … …  
    28392834    grab set $inner
    28402835    focus $inner.cancel
    2841    
     2836
    28422837    flow duration
    28432838    flow speed
    … …  
    28512846    set start [clock seconds]
    28522847    SendCmd "flow video $token -width $w -height $h -numframes $nframes "
    2853    
     2848
    28542849    $popup activate $widget below
    2855     update idletasks 
     2850    update idletasks
    28562851    update
    28572852    # We wait here until
    2858     #  1. the movie is delivered or 
    2859     #  2. we've timed out or 
     2853    #  1. the movie is delivered or
     2854    #  2. we've timed out or
    28602855    #  3. the user has canceled the operation.b
    28612856    tkwait variable $var
    … …  
    28722867
    28732868    # This will both cancel the movie generation (if it hasn't already
    2874     # completed) and reset the flow. 
     2869    # completed) and reset the flow.
    28752870    SendCmd "flow reset"
    28762871    if { $_hardcopy($this-$token) != "" } {
    … …  
    29062901}
    29072902
    2908 itcl::body Rappture::FlowvisViewer::SetOrientation { side } { 
    2909     array set positions { 
    2910         front "1 0 0 0" 
    2911         back  "0 0 1 0" 
    2912         left  "0.707107 0 -0.707107 0" 
    2913         right "0.707107 0 0.707107 0" 
    2914         top   "0.707107 -0.707107 0 0" 
    2915         bottom "0.707107 0.707107 0 0" 
    2916     } 
    2917     foreach name { -qw -qx -qy -qz } value $positions($side) { 
     2903itcl::body Rappture::FlowvisViewer::SetOrientation { side } {
     2904    array set positions {
     2905        front "1 0 0 0"
     2906        back  "0 0 1 0"
     2907        left  "0.707107 0 -0.707107 0"
     2908        right "0.707107 0 0.707107 0"
     2909        top   "0.707107 -0.707107 0 0"
     2910        bottom "0.707107 0.707107 0 0"
     2911    }
     2912    foreach name { -qw -qx -qy -qz } value $positions($side) {
    29182913        set _view($name) $value
    2919     } 
     2914    }
    29202915    set q [ViewToQuaternion]
    29212916    $_arcball quaternion $q
    2922     SendCmd "camera orient $q" 
     2917    SendCmd "camera orient $q"
    29232918    SendCmd "camera reset"
    29242919    set _view(-xpan) 0.0
    … …  
    29312926
    29322927# Reset global settings from dataset's settings.
    2933 itcl::body Rappture::FlowvisViewer::BuildVolumeComponents {} { 
     2928itcl::body Rappture::FlowvisViewer::BuildVolumeComponents {} {
    29342929    $itk_component(volcomponents) choices delete 0 end
    29352930    foreach name $_componentsList {
    … …  
    29412936
    29422937# Reset global settings from dataset's settings.
    2943 itcl::body Rappture::FlowvisViewer::GetDatasetsWithComponent { cname } { 
     2938itcl::body Rappture::FlowvisViewer::GetDatasetsWithComponent { cname } {
    29442939    if { ![info exists _volcomponents($cname)] } {
    29452940        return ""

  • branches/1.4/gui/scripts/nanovisviewer.tcl

    r5095 r5101  
    1 # -*- mode: tcl; indent-tabs-mode: nil -*- 
     1# -*- mode: tcl; indent-tabs-mode: nil -*-
    22# ----------------------------------------------------------------------
    33#  COMPONENT: nanovisviewer - 3D volume rendering
    … …  
    1919#
    2020# FIXME:
    21 #       Need to Add DX readers this client to examine the data before 
     21#       Need to Add DX readers this client to examine the data before
    2222#       it's sent to the server.  This will eliminate 90% of the insanity in
    23 #       computing the limits of all the volumes.  I can rip out all the 
     23#       computing the limits of all the volumes.  I can rip out all the
    2424#       "receive data" "send transfer function" event crap.
    2525#
    … …  
    2929#       when a new volume is drawn (using the default transfer function) and
    3030#       then when the correct transfer function has been sent and linked to
    31 #       the volume. 
     31#       the volume.
    3232#
    3333option add *NanovisViewer.width 4i widgetDefault
    … …  
    7575    public method isconnected {}
    7676    public method limits { tf }
    77     public method parameters {title args} { 
    78         # do nothing 
     77    public method parameters {title args} {
     78        # do nothing
    7979    }
    8080    public method scale {args}
    … …  
    8383    # The following methods are only used by this class.
    8484
    85     private method AddNewMarker { x y } 
     85    private method AddNewMarker { x y }
    8686    private method AdjustSetting {what {value ""}}
    8787    private method BuildCameraTab {}
    … …  
    9090    private method BuildVolumeComponents {}
    9191    private method BuildVolumeTab {}
    92     private method ComputeAlphamap { cname } 
     92    private method ComputeAlphamap { cname }
    9393    private method ComputeTransferFunction { cname }
    9494    private method Connect {}
    … …  
    9797    private method DoResize {}
    9898    private method DrawLegend { cname }
    99     private method EventuallyRedrawLegend { } 
    100     private method EventuallyResize { w h } 
     99    private method EventuallyRedrawLegend { }
     100    private method EventuallyResize { w h }
    101101    private method FixLegend {}
    102     private method GetAlphamap { cname color } 
    103     private method GetColormap { cname color } 
    104     private method GetDatasetsWithComponent { cname } 
     102    private method GetAlphamap { cname color }
     103    private method GetColormap { cname color }
     104    private method GetDatasetsWithComponent { cname }
    105105    private method GetVolumeInfo { w }
    106     private method HideAllMarkers {} 
    107     private method InitComponentSettings { cname } 
     106    private method HideAllMarkers {}
     107    private method InitComponentSettings { cname }
    108108    private method InitSettings { args }
    109     private method NameToAlphamap { name } 
     109    private method NameToAlphamap { name }
    110110    private method NameTransferFunction { dataobj comp }
    111111    private method Pan {option x y}
    … …  
    113113    private method ParseLevelsOption { cname levels }
    114114    private method ParseMarkersOption { cname markers }
    115     private method QuaternionToView { q } { 
     115    private method QuaternionToView { q } {
    116116        foreach { _view(-qw) _view(-qx) _view(-qy) _view(-qz) } $q break
    117117    }
    … …  
    128128    private method Slice {option args}
    129129    private method SlicerTip {axis}
    130     private method SwitchComponent { cname } 
     130    private method SwitchComponent { cname }
    131131    private method ToggleVolume { tag name }
    132     private method ViewToQuaternion {} { 
     132    private method ViewToQuaternion {} {
    133133        return [list $_view(-qw) $_view(-qx) $_view(-qy) $_view(-qz)]
    134134    }
    … …  
    137137    private variable _arcball ""
    138138
    139     private variable _dlist ""     ;# list of data objects
    140     private variable _obj2ovride   ;# maps dataobj => style override
    141     private variable _serverDatasets   ;# contains all the dataobj-component 
    142                                    ;# to volumes in the server
     139    private variable _dlist ""         ;# list of data objects
     140    private variable _obj2ovride       ;# maps dataobj => style override
     141    private variable _serverDatasets   ;# contains all the dataobj-component
     142                                       ;# to volumes in the server
    143143    private variable _recvdDatasets;    # list of data objs to send to server
    144144    private variable _dataset2style;    # maps dataobj-component to transfunc
    145     private variable _style2datasets;   # maps tf back to list of 
     145    private variable _style2datasets;   # maps tf back to list of
    146146                                        # dataobj-components using the tf.
    147147
    148     private variable _reset 1;          # Connection to server has been reset.
     148    private variable _reset 1;          # Connection to server has been reset.
    149149    private variable _click;            # Info used for rotate operations.
    150150    private variable _limits;           # Autoscale min/max for all axes
    … …  
    156156
    157157    private variable _first "" ;        # This is the topmost volume.
    158     private variable _current "";       # Currently selected component 
    159     private variable _volcomponents   ; # Array of components found
    160     private variable _componentsList   ; # Array of components found
     158    private variable _current "";       # Currently selected component
     159    private variable _volcomponents    ;# Array of components found
     160    private variable _componentsList   ;# Array of components found
    161161    private variable _cname2style
    162162    private variable _cname2transferFunction
    … …  
    319319            -offimage [Rappture::icon cutbutton] \
    320320            -variable [itcl::scope _settings(-cutplanesvisible)] \
    321             -command [itcl::code $this AdjustSetting -cutplanesvisible] 
     321            -command [itcl::code $this AdjustSetting -cutplanesvisible]
    322322    }
    323323    Rappture::Tooltip::for $itk_component(cutplane) \
    … …  
    331331        BuildCameraTab
    332332    } errs] != 0 } {
    333         global errorInfo
     333        global errorInfo
    334334        puts stderr "errs=$errs errorInfo=$errorInfo"
    335335    }
    … …  
    351351        [list focus $itk_component(legend)]
    352352
    353     # Hack around the Tk panewindow.  The problem is that the requested 
     353    # Hack around the Tk panewindow.  The problem is that the requested
    354354    # size of the 3d view isn't set until an image is retrieved from
    355355    # the server.  So the panewindow uses the tiny size.
    … …  
    358358    blt::table $itk_component(plotarea) \
    359359        0,0 $itk_component(3dview) -fill both -reqwidth $w \
    360         1,0 $itk_component(legend) -fill x 
     360        1,0 $itk_component(legend) -fill x
    361361    blt::table configure $itk_component(plotarea) r1 -resize none
    362362
    … …  
    433433    }
    434434    catch { blt::arcball destroy $_arcball }
    435     array unset _settings 
     435    array unset _settings
    436436}
    437437
    … …  
    567567        -markers  ""
    568568    }
    569     array unset _limits 
    570     array unset _volcomponents 
     569    array unset _limits
     570    array unset _volcomponents
    571571    foreach dataobj $args {
    572572        if { ![$dataobj isvalid] } {
    … …  
    636636            # to the BLT picture image it won't be necessary to decode the
    637637            # image data.
    638             if { [image width $_image(plot)] > 0 && 
     638            if { [image width $_image(plot)] > 0 &&
    639639                 [image height $_image(plot)] > 0 } {
    640640                set bytes [$_image(plot) data -format "jpeg -quality 100"]
    … …  
    662662        return 0
    663663    }
    664     set _reset 1 
     664    set _reset 1
    665665    set result [VisViewer::Connect $_hosts]
    666666    if { $result } {
    … …  
    753753    ReceiveEcho <<line "<read $info(-bytes) bytes"
    754754    if { $info(-type) == "image" } {
    755         ReceiveEcho "for [image width $_image(plot)]x[image height $_image(plot)] image>"       
     755        ReceiveEcho "for [image width $_image(plot)]x[image height $_image(plot)] image>"
    756756        $_image(plot) configure -data $bytes
    757757    } elseif { $info(-type) == "print" } {
    … …  
    804804    # The colormap may have changed. Resync the slicers with the colormap.
    805805    InitSettings -cutplanesvisible -xcutplanevisible -ycutplanevisible \
    806         -zcutplanevisible 
     806        -zcutplanevisible
    807807}
    808808
    … …  
    813813#       The procedure is the response from the render server to each "legend"
    814814#       command.  The server sends back a "legend" command invoked our
    815 #       the slave interpreter.  The purpose is to collect data of the image 
     815#       the slave interpreter.  The purpose is to collect data of the image
    816816#       representing the legend in the canvas.  In addition, the
    817817#       active transfer function is displayed.
    … …  
    896896    # Turn on buffering of commands to the server.  We don't want to
    897897    # be preempted by a server disconnect/reconnect (which automatically
    898     # generates a new call to Rebuild).   
     898    # generates a new call to Rebuild).
    899899    StartBufferingCommands
    900900
    … …  
    952952    set _first [lindex [get] 0]
    953953    if { $_reset } {
    954         #
    955         # Reset the camera and other view parameters
    956         #
     954        #
     955        # Reset the camera and other view parameters
     956        #
    957957        set _settings(-qw)    $_view(-qw)
    958958        set _settings(-qx)    $_view(-qx)
    959959        set _settings(-qy)    $_view(-qy)
    960960        set _settings(-qz)    $_view(-qz)
    961         set _settings(-xpan)  $_view(-xpan)
    962         set _settings(-ypan)  $_view(-ypan)
    963         set _settings(-zoom)  $_view(-zoom)
     961        set _settings(-xpan)  $_view(-xpan)
     962        set _settings(-ypan)  $_view(-ypan)
     963        set _settings(-zoom)  $_view(-zoom)
    964964
    965965        set q [ViewToQuaternion]
    … …  
    967967        SendCmd "camera orient $q"
    968968        SendCmd "camera reset"
    969         PanCamera
    970         SendCmd "camera zoom $_view(-zoom)"
    971        
     969        PanCamera
     970        SendCmd "camera zoom $_view(-zoom)"
     971
    972972        #cutplane state 0 all
    973973        foreach axis {x y z} {
    … …  
    979979            -isosurfaceshading -gridvisible -axesvisible \
    980980
    981         if {"" != $_first} {
    982             set axis [$_first hints updir]
    983             if { "" != $axis } {
    984                 SendCmd "up $axis"
    985             }
    986             set location [$_first hints camera]
    987             if { $location != "" } {
    988                 array set _view $location
    989             }
    990         }
     981        if {"" != $_first} {
     982            set axis [$_first hints updir]
     983            if { "" != $axis } {
     984                SendCmd "up $axis"
     985            }
     986            set location [$_first hints camera]
     987            if { $location != "" } {
     988                array set _view $location
     989            }
     990        }
    991991    }
    992992
    … …  
    994994    SendCmd "volume state 0"
    995995    if {"" != $_first} {
    996         set datasets [array names _serverDatasets $_first-*] 
     996        set datasets [array names _serverDatasets $_first-*]
    997997        if { $datasets != "" } {
    998998            SendCmd "volume state 1 $datasets"
    … …  
    10761076                }
    10771077            }
    1078             set q [ViewToQuaternion]         
     1078            set q [ViewToQuaternion]
    10791079            $_arcball quaternion $q
    10801080            SendCmd "camera orient $q"
    … …  
    12271227        "-background" {
    12281228            set bgcolor [$itk_component(background) value]
    1229             array set fgcolors {
    1230                 "black" "white"
    1231                 "white" "black"
    1232                 "grey"  "black"
    1233             }
     1229            array set fgcolors {
     1230                "black" "white"
     1231                "white" "black"
     1232                "grey"  "black"
     1233            }
    12341234            configure -plotbackground $bgcolor \
    1235                 -plotforeground $fgcolors($bgcolor)
    1236             DrawLegend $_current
     1235                -plotforeground $fgcolors($bgcolor)
     1236            DrawLegend $_current
    12371237        }
    12381238        "-colormap" {
    … …  
    12731273                blt::table $itk_component(plotarea) \
    12741274                    0,0 $itk_component(3dview) -fill both \
    1275                     1,0 $itk_component(legend) -fill x 
     1275                    1,0 $itk_component(legend) -fill x
    12761276                blt::table configure $itk_component(plotarea) r1 -resize none
    12771277            } else {
    … …  
    13131313            # have to synchronize each of the local controls (see below) with
    13141314            # this.
    1315             set datasets [CurrentDatasets] 
     1315            set datasets [CurrentDatasets]
    13161316            set bool $_settings($what)
    13171317            SendCmd "volume data state $bool $datasets"
    … …  
    13291329        }
    13301330        "-volumevisible" {
    1331             # This is the component specific control.  It changes the 
     1331            # This is the component specific control.  It changes the
    13321332            # visibility of only the current component.
    13331333            set _settings($_current${what}) $_settings($what)
    … …  
    13401340            set bool $_settings($what)
    13411341            # We only set cutplanes on the first dataset.
    1342             set datasets [CurrentDatasets -cutplanes] 
     1342            set datasets [CurrentDatasets -cutplanes]
    13431343            set tag [lindex $datasets 0]
    13441344            if { $_settings(-cutplanesvisible) } {
    … …  
    14521452            ParseLevelsOption $cname $styles(-levels)
    14531453        }
    1454        
     1454
    14551455    }
    14561456    set wmap [ComputeAlphamap $cname]
    … …  
    14731473    }
    14741474    # Add a new marker to the current transfer function
    1475     $_transferFunctionEditors($_current) deleteMarker $x $y 
     1475    $_transferFunctionEditors($_current) deleteMarker $x $y
    14761476}
    14771477
    … …  
    14981498        SendCmd "grid axiscolor $rgb"
    14991499        SendCmd "grid linecolor $rgb"
    1500         $itk_component(legend) itemconfigure labels -fill $color 
    1501         $itk_component(legend) itemconfigure limits -fill $color 
     1500        $itk_component(legend) itemconfigure labels -fill $color
     1501        $itk_component(legend) itemconfigure limits -fill $color
    15021502    }
    15031503}
    … …  
    15461546#
    15471547# The -markers option takes a list of zero or more values (the values
    1548 # may be separated either by spaces or commas) that have the following 
     1548# may be separated either by spaces or commas) that have the following
    15491549# format:
    15501550#
    … …  
    15641564        set n [scan $marker "%g%s" value suffix]
    15651565        if { $n == 2 && $suffix == "%" } {
    1566             # $n% : Set relative value (0..1). 
     1566            # $n% : Set relative value (0..1).
    15671567            lappend list [expr {$value * 0.01}]
    15681568        } else {
    … …  
    15771577
    15781578# ----------------------------------------------------------------------
    1579 # USAGE: UndateTransferFuncs 
     1579# USAGE: UndateTransferFuncs
    15801580# ----------------------------------------------------------------------
    15811581itcl::body Rappture::NanovisViewer::updateTransferFunctions {} {
    … …  
    16041604    if { $min != "" } {
    16051605        set _limits(min) $min
    1606     } 
     1606    }
    16071607    if { $max != "" } {
    16081608        set _limits(max) $max
    … …  
    16581658        -font "Arial 9"
    16591659
    1660     label $inner.background_l -text "Background" -font "Arial 9" 
     1660    label $inner.background_l -text "Background" -font "Arial 9"
    16611661    itk_component add background {
    16621662        Rappture::Combobox $inner.background -width 10 -editable no
    … …  
    16651665        "black"              "black"            \
    16661666        "white"              "white"            \
    1667         "grey"               "grey"             
     1667        "grey"               "grey"
    16681668
    16691669    $itk_component(background) value $_settings(-background)
    … …  
    17291729    label $inner.thick -text "Thick" -font $fg
    17301730
    1731     # Colormap 
     1731    # Colormap
    17321732    label $inner.colormap_l -text "Colormap" -font $fg
    17331733    itk_component add colormap {
    … …  
    19841984}
    19851985
    1986 #  camera -- 
     1986#  camera --
    19871987#
    19881988itcl::body Rappture::NanovisViewer::camera {option args} {
    1989     switch -- $option { 
     1989    switch -- $option {
    19901990        "show" {
    19911991            puts [array get _view]
    … …  
    20612061            -font "Arial 9"
    20622062        Rappture::Tooltip::for $inner.vol$row $info(description)
    2063         blt::table $inner $row,0 $inner.vol$row -anchor w 
     2063        blt::table $inner $row,0 $inner.vol$row -anchor w
    20642064        if { !$_settings(-volume-$name) } {
    20652065            $inner.vol$row select
    2066         } 
     2066        }
    20672067        incr row
    20682068    }
    … …  
    20702070    blt::table configure $inner r$row -resize expand
    20712071    blt::table configure $inner c3 -resize expand
    2072     event generate [winfo parent [winfo parent $w]] <Configure> 
     2072    event generate [winfo parent [winfo parent $w]] <Configure>
    20732073}
    20742074
    … …  
    20782078}
    20792079
    2080 itcl::body Rappture::NanovisViewer::SetOrientation { side } { 
     2080itcl::body Rappture::NanovisViewer::SetOrientation { side } {
    20812081    array set positions {
    20822082        front "1 0 0 0"
    … …  
    20892089    foreach name { -qw -qx -qy -qz } value $positions($side) {
    20902090        set _view($name) $value
    2091     } 
     2091    }
    20922092    set q [ViewToQuaternion]
    20932093    $_arcball quaternion $q
    2094     SendCmd "camera orient $q" 
     2094    SendCmd "camera orient $q"
    20952095    SendCmd "camera reset"
    20962096    set _view(-xpan) 0
    … …  
    21102110#    time we try to switch to a given component in SwitchComponent below.
    21112111#
    2112 itcl::body Rappture::NanovisViewer::InitComponentSettings { cname } { 
     2112itcl::body Rappture::NanovisViewer::InitComponentSettings { cname } {
    21132113    foreach {key value} {
    21142114        -colormap          "default"
    … …  
    21332133#    with the settings of the new current component.
    21342134#
    2135 itcl::body Rappture::NanovisViewer::SwitchComponent { cname } { 
     2135itcl::body Rappture::NanovisViewer::SwitchComponent { cname } {
    21362136    if { ![info exists _settings($cname-light)] } {
    21372137        InitComponentSettings $cname
    … …  
    21642164#    volume settings tab.
    21652165#
    2166 itcl::body Rappture::NanovisViewer::BuildVolumeComponents {} { 
     2166itcl::body Rappture::NanovisViewer::BuildVolumeComponents {} {
    21672167    $itk_component(volcomponents) choices delete 0 end
    21682168    foreach name $_componentsList {
    … …  
    21742174    if { [llength $_componentsList] <= 1 } {
    21752175        # Unpack the components label and dropdown if there's only one
    2176         # component. 
     2176        # component.
    21772177        blt::table forget $parent.volcomponents_l $parent.volcomponents
    21782178    } else {
    2179         # Pack the components label and dropdown into the table there's 
    2180         # more than one component to select. 
     2179        # Pack the components label and dropdown into the table there's
     2180        # more than one component to select.
    21812181        blt::table $parent \
    21822182            0,0 $parent.volcomponents_l -anchor e -cspan 2 \
    2183             0,2 $parent.volcomponents -cspan 3 -fill x 
     2183            0,2 $parent.volcomponents -cspan 3 -fill x
    21842184    }
    21852185}
    … …  
    21932193#    volumes that have the current component.
    21942194#
    2195 itcl::body Rappture::NanovisViewer::GetDatasetsWithComponent { cname } { 
     2195itcl::body Rappture::NanovisViewer::GetDatasetsWithComponent { cname } {
    21962196    if { ![info exists _volcomponents($cname)] } {
    21972197        return ""
    … …  
    22142214#    created, deleted, or moved markers.
    22152215#
    2216 itcl::body Rappture::NanovisViewer::HideAllMarkers {} { 
     2216itcl::body Rappture::NanovisViewer::HideAllMarkers {} {
    22172217    foreach cname [array names _transferFunctionEditors] {
    2218         $_transferFunctionEditors($cname) hideMarkers 
    2219     }
    2220 }
    2221 
    2222 itcl::body Rappture::NanovisViewer::GetColormap { cname color } { 
     2218        $_transferFunctionEditors($cname) hideMarkers
     2219    }
     2220}
     2221
     2222itcl::body Rappture::NanovisViewer::GetColormap { cname color } {
    22232223    if { $color == "default" } {
    22242224        return $_cname2defaultcolormap($cname)
    … …  
    22272227}
    22282228
    2229 itcl::body Rappture::NanovisViewer::GetAlphamap { cname name } { 
     2229itcl::body Rappture::NanovisViewer::GetAlphamap { cname name } {
    22302230    if { $name == "default" } {
    22312231        return $_cname2defaultalphamap($cname)
    … …  
    22342234}
    22352235
    2236 itcl::body Rappture::NanovisViewer::ResetColormap { cname color } { 
     2236itcl::body Rappture::NanovisViewer::ResetColormap { cname color } {
    22372237    # Get the current transfer function
    22382238    if { ![info exists _cname2transferFunction($cname)] } {
    … …  
    22462246}
    22472247
    2248 itcl::body Rappture::NanovisViewer::ComputeAlphamap { cname } { 
     2248itcl::body Rappture::NanovisViewer::ComputeAlphamap { cname } {
    22492249    if { ![info exists _transferFunctionEditors($cname)] } {
    22502250        return [list 0.0 0.0 1.0 1.0]
    … …  
    22652265    # Scale values between 0.00001 and 0.01000
    22662266    set delta [expr {double($_settings($cname-thickness)) * 0.0001}]
    2267    
     2267
    22682268    set first [lindex $isovalues 0]
    22692269    set last [lindex $isovalues end]
    … …  
    23122312    switch -- $name {
    23132313        "ramp-up" {
    2314             set wmap { 
    2315                 0.0 0.0 
    2316                 1.0 1.0 
     2314            set wmap {
     2315                0.0 0.0
     2316                1.0 1.0
    23172317            }
    23182318        }
    23192319        "ramp-down" {
    2320             set wmap { 
    2321                 0.0 1.0 
    2322                 1.0 0.0 
     2320            set wmap {
     2321                0.0 1.0
     2322                1.0 0.0
    23232323            }
    23242324        }
    23252325        "vee" {
    2326             set wmap { 
    2327                 0.0 1.0 
    2328                 0.5 0.0 
    2329                 1.0 1.0 
     2326            set wmap {
     2327                0.0 1.0
     2328                0.5 0.0
     2329                1.0 1.0
    23302330            }
    23312331        }
    23322332        "tent-1" {
    2333             set wmap { 
    2334                 0.0 0.0 
    2335                 0.5 1.0 
    2336                 1.0 0.0 
     2333            set wmap {
     2334                0.0 0.0
     2335                0.5 1.0
     2336                1.0 0.0
    23372337            }
    23382338        }
    23392339        "tent-2" {
    2340             set wmap { 
    2341                 0.0 0.0 
    2342                 0.25 1.0 
    2343                 0.5 0.0 
    2344                 0.75 1.0 
    2345                 1.0 0.0 
     2340            set wmap {
     2341                0.0 0.0
     2342                0.25 1.0
     2343                0.5 0.0
     2344                0.75 1.0
     2345                1.0 0.0
    23462346            }
    23472347        }
    23482348        "tent-3" {
    2349             set wmap { 
    2350                 0.0 0.0 
     2349            set wmap {
     2350                0.0 0.0
    23512351                0.16666 1.0
    23522352                0.33333 0.0
    … …  
    23542354                0.66666 0.0
    23552355                0.83333 1.0
    2356                 1.0 0.0 
     2356                1.0 0.0
    23572357            }
    23582358        }
    23592359        "tent-4" {
    2360             set wmap { 
    2361                 0.0     0.0 
     2360            set wmap {
     2361                0.0     0.0
    23622362                0.125   1.0
    23632363                0.25    0.0
    23642364                0.375   1.0
    2365                 0.5     0.0       
     2365                0.5     0.0
    23662366                0.625   1.0
    23672367                0.75    0.0
    23682368                0.875   1.0
    2369                 1.0     0.0 
     2369                1.0     0.0
    23702370            }
    23712371        }
    23722372        "sinusoid-1" {
    23732373            set wmap {
    2374                 0.0                     0.000 0.600 0.800 
    2375                 0.14285714285714285     0.400 0.900 1.000 
    2376                 0.2857142857142857      0.600 1.000 1.000 
    2377                 0.42857142857142855     0.800 1.000 1.000 
    2378                 0.5714285714285714      0.900 0.900 0.900 
    2379                 0.7142857142857143      0.600 0.600 0.600 
    2380                 0.8571428571428571      0.400 0.400 0.400 
     2374                0.0                     0.000 0.600 0.800
     2375                0.14285714285714285     0.400 0.900 1.000
     2376                0.2857142857142857      0.600 1.000 1.000
     2377                0.42857142857142855     0.800 1.000 1.000
     2378                0.5714285714285714      0.900 0.900 0.900
     2379                0.7142857142857143      0.600 0.600 0.600
     2380                0.8571428571428571      0.400 0.400 0.400
    23812381                1.0                     0.200 0.200 0.200
    23822382            }
    23832383        }
    23842384        "sinusoid-2" {
    2385             set wmap { 
    2386                 0.0                     0.900 1.000 1.000 
    2387                 0.1111111111111111      0.800 0.983 1.000 
    2388                 0.2222222222222222      0.700 0.950 1.000 
    2389                 0.3333333333333333      0.600 0.900 1.000 
    2390                 0.4444444444444444      0.500 0.833 1.000 
    2391                 0.5555555555555556      0.400 0.750 1.000 
    2392                 0.6666666666666666      0.300 0.650 1.000 
    2393                 0.7777777777777778      0.200 0.533 1.000 
    2394                 0.8888888888888888      0.100 0.400 1.000 
     2385            set wmap {
     2386                0.0                     0.900 1.000 1.000
     2387                0.1111111111111111      0.800 0.983 1.000
     2388                0.2222222222222222      0.700 0.950 1.000
     2389                0.3333333333333333      0.600 0.900 1.000
     2390                0.4444444444444444      0.500 0.833 1.000
     2391                0.5555555555555556      0.400 0.750 1.000
     2392                0.6666666666666666      0.300 0.650 1.000
     2393                0.7777777777777778      0.200 0.533 1.000
     2394                0.8888888888888888      0.100 0.400 1.000
    23952395                1.0                     0.000 0.250 1.000
    23962396            }
    … …  
    23982398        "sinusoid-6" {
    23992399            set wmap {
    2400                 0.0                             0.200   0.100   0.000 
    2401                 0.09090909090909091             0.400   0.187   0.000 
    2402                 0.18181818181818182             0.600   0.379   0.210 
    2403                 0.2727272727272727              0.800   0.608   0.480 
    2404                 0.36363636363636365             0.850   0.688   0.595 
    2405                 0.45454545454545453             0.950   0.855   0.808 
    2406                 0.5454545454545454              0.800   0.993   1.000 
    2407                 0.6363636363636364              0.600   0.973   1.000 
    2408                 0.7272727272727273              0.400   0.940   1.000 
    2409                 0.8181818181818182              0.200   0.893   1.000 
    2410                 0.9090909090909091              0.000   0.667   0.800 
    2411                 1.0                             0.000   0.480   0.600 
     2400                0.0                             0.200   0.100   0.000
     2401                0.09090909090909091             0.400   0.187   0.000
     2402                0.18181818181818182             0.600   0.379   0.210
     2403                0.2727272727272727              0.800   0.608   0.480
     2404                0.36363636363636365             0.850   0.688   0.595
     2405                0.45454545454545453             0.950   0.855   0.808
     2406                0.5454545454545454              0.800   0.993   1.000
     2407                0.6363636363636364              0.600   0.973   1.000
     2408                0.7272727272727273              0.400   0.940   1.000
     2409                0.8181818181818182              0.200   0.893   1.000
     2410                0.9090909090909091              0.000   0.667   0.800
     2411                1.0                             0.000   0.480   0.600
    24122412            }
    24132413        }
    24142414        "sinusoid-10" {
    24152415            set wmap {
    2416                 0.0                             0.000   0.480   0.600 
    2417                 0.09090909090909091             0.000   0.667   0.800 
    2418                 0.18181818181818182             0.200   0.893   1.000 
    2419                 0.2727272727272727              0.400   0.940   1.000 
    2420                 0.36363636363636365             0.600   0.973   1.000 
    2421                 0.45454545454545453             0.800   0.993   1.000 
    2422                 0.5454545454545454              0.950   0.855   0.808 
    2423                 0.6363636363636364              0.850   0.688   0.595 
    2424                 0.7272727272727273              0.800   0.608   0.480 
    2425                 0.8181818181818182              0.600   0.379   0.210 
    2426                 0.9090909090909091              0.400   0.187   0.000 
    2427                 1.0                             0.200   0.100   0.000 
     2416                0.0                             0.000   0.480   0.600
     2417                0.09090909090909091             0.000   0.667   0.800
     2418                0.18181818181818182             0.200   0.893   1.000
     2419                0.2727272727272727              0.400   0.940   1.000
     2420                0.36363636363636365             0.600   0.973   1.000
     2421                0.45454545454545453             0.800   0.993   1.000
     2422                0.5454545454545454              0.950   0.855   0.808
     2423                0.6363636363636364              0.850   0.688   0.595
     2424                0.7272727272727273              0.800   0.608   0.480
     2425                0.8181818181818182              0.600   0.379   0.210
     2426                0.9090909090909091              0.400   0.187   0.000
     2427                1.0                             0.200   0.100   0.000
    24282428            }
    24292429        }
    … …  
    24632463            set wmap {
    24642464                "#EE82EE"
    2465                 "#4B0082" 
    2466                 "blue" 
    2467                 "#008000" 
    2468                 "yellow" 
    2469                 "#FFA500" 
    2470                 "red" 
     2465                "#4B0082"
     2466                "blue"
     2467                "#008000"
     2468                "yellow"
     2469                "#FFA500"
     2470                "red"
    24712471            }
    24722472        }
Note: See TracChangeset for help on using the changeset viewer.