Ignore:
Timestamp:
Oct 22, 2010, 4:06:10 PM (14 years ago)
Author:
gah
Message:
 
File:
1 edited

Legend:

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

    r1525 r1929  
    4848itcl::body Rappture::Unirect2d::constructor {xmlobj field cname {extents 1}} {
    4949    if {![Rappture::library isvalid $xmlobj]} {
    50         error "bad value \"$xmlobj\": should be Rappture::library"
     50        error "bad value \"$xmlobj\": should be Rappture::library"
    5151    }
    5252    set path [$field get $cname.mesh]
     
    6161    set _compNum $extents
    6262    foreach {key path} {
    63         group   about.group
    64         label   about.label
    65         color   about.color
    66         style   about.style
    67         type    about.type
    68         xlabel  xaxis.label
    69         xdesc   xaxis.description
    70         xunits  xaxis.units
    71         xscale  xaxis.scale
    72         xmin    xaxis.min
    73         xmax    xaxis.max
    74         ylabel  yaxis.label
    75         ydesc   yaxis.description
    76         yunits  yaxis.units
    77         yscale  yaxis.scale
    78         ymin    yaxis.min
    79         ymax    yaxis.max
     63        group   about.group
     64        label   about.label
     65        color   about.color
     66        style   about.style
     67        type    about.type
     68        xlabel  xaxis.label
     69        xdesc   xaxis.description
     70        xunits  xaxis.units
     71        xscale  xaxis.scale
     72        xmin    xaxis.min
     73        xmax    xaxis.max
     74        ylabel  yaxis.label
     75        ydesc   yaxis.description
     76        yunits  yaxis.units
     77        yscale  yaxis.scale
     78        ymin    yaxis.min
     79        ymax    yaxis.max
    8080    } {
    81         set str [$m get $path]
    82         if {"" != $str} {
    83             set _hints($key) $str
    84         }
     81        set str [$m get $path]
     82        if {"" != $str} {
     83            set _hints($key) $str
     84        }
    8585    }
    8686    foreach {key} { axisorder } {
    87         set str [$field get $cname.$key]
    88         if {"" != $str} {
    89             set _hints($key) $str
    90         }
     87        set str [$field get $cname.$key]
     88        if {"" != $str} {
     89            set _hints($key) $str
     90        }
    9191    }
    9292    itcl::delete object $m
     
    9595    set values [$field get "$cname.values"]
    9696    if { $values == "" } {
    97         set values [$field get "$cname.zvalues"]
     97        set values [$field get "$cname.zvalues"]
    9898    }
    9999    $_values set $values
    100100    set n [expr $_xNum * $_yNum * $_compNum]
    101101    if { [$_values length] != $n } {
    102         error "wrong \# of values in \"$cname.values\": expected $n values"
     102        error "wrong \# of values in \"$cname.values\": expected $n values"
    103103    }
    104104}
     
    109109itcl::body Rappture::Unirect2d::destructor {} {
    110110    if { $_values != "" } {
    111         blt::vector destroy $_values
     111        blt::vector destroy $_values
    112112    }
    113113}
     
    125125    lappend data "xmin" $_xMin "ymin" $_yMin "xmax" $_xMax "ymax" $_yMax
    126126    foreach key { axisorder xunits yunits units } {
    127         set hint [hints $key]
    128         if { $hint != "" } {
    129             lappend data $key $hint
    130         }
     127        set hint [hints $key]
     128        if { $hint != "" } {
     129            lappend data $key $hint
     130        }
    131131    }
    132132    if { [$_values length] > 0 } {
    133         lappend data "values" [$_values range 0 end]
     133        lappend data "values" [$_values range 0 end]
    134134    }
    135135    return [Rappture::encoding::encode -as zb64 "$data"]
     
    146146    set dy [expr {($_yMax - $_yMin) / double($_yNum)}]
    147147    for { set i 0 } { $i < $_xNum } { incr i } {
    148         set x [expr {$_xMin + (double($i) * $dx)}]
    149         for { set j 0 } { $j < $_yNum } { incr j } {
    150             set y [expr {$_yMin + (double($i) * $dy)}]
    151             lappend data $x $y
    152         }
     148        set x [expr {$_xMin + (double($i) * $dx)}]
     149        for { set j 0 } { $j < $_yNum } { incr j } {
     150            set y [expr {$_yMin + (double($i) * $dy)}]
     151            lappend data $x $y
     152        }
    153153    }
    154154    return $data
     
    163163itcl::body Rappture::Unirect2d::values {} {
    164164    if { [$_values length] > 0 } {
    165         return [$_values range 0 end]
     165        return [$_values range 0 end]
    166166    }
    167167    return ""
     
    178178
    179179    switch -- $which {
    180         x - xlin - xlog {
    181             set min $_xMin
    182             set max $_xMax
    183             set axis "xaxis"
    184         }
    185         y - ylin - ylog {
    186             set min $_yMin
    187             set max $_yMax
    188             set axis "yaxis"
    189         }
    190         v - vlin - vlog - z - zlin - zlog {
    191             if { [$_values length] > 0 } {
    192                set min [blt::vector expr min($_values)]
    193                set max [blt::vector expr max($_values)]
    194             } else {
    195                 set min 0.0
    196                 set max 1.0
    197             }
    198             set axis "zaxis"
    199         }
    200         default {
    201             error "unknown axis description \"$which\""
    202         }
     180        x - xlin - xlog {
     181            set min $_xMin
     182            set max $_xMax
     183            set axis "xaxis"
     184        }
     185        y - ylin - ylog {
     186            set min $_yMin
     187            set max $_yMax
     188            set axis "yaxis"
     189        }
     190        v - vlin - vlog - z - zlin - zlog {
     191            if { [$_values length] > 0 } {
     192               set min [blt::vector expr min($_values)]
     193               set max [blt::vector expr max($_values)]
     194            } else {
     195                set min 0.0
     196                set max 1.0
     197            }
     198            set axis "zaxis"
     199        }
     200        default {
     201            error "unknown axis description \"$which\""
     202        }
    203203    }
    204204#     set val [$_field get $axis.min]
     
    230230itcl::body Rappture::Unirect2d::hints { {keyword ""} } {
    231231    if {[info exists _hints(xlabel)] && "" != $_hints(xlabel)
    232         && [info exists _hints(xunits)] && "" != $_hints(xunits)} {
    233         set _hints(xlabel) "$_hints(xlabel) ($_hints(xunits))"
     232        && [info exists _hints(xunits)] && "" != $_hints(xunits)} {
     233        set _hints(xlabel) "$_hints(xlabel) ($_hints(xunits))"
    234234    }
    235235    if {[info exists _hints(ylabel)] && "" != $_hints(ylabel)
    236         && [info exists _hints(yunits)] && "" != $_hints(yunits)} {
    237         set _hints(ylabel) "$_hints(ylabel) ($_hints(yunits))"
     236        && [info exists _hints(yunits)] && "" != $_hints(yunits)} {
     237        set _hints(ylabel) "$_hints(ylabel) ($_hints(yunits))"
    238238    }
    239239   
    240240    if {[info exists _hints(group)] && [info exists _hints(label)]} {
    241         # pop-up help for each curve
    242         set _hints(tooltip) $_hints(label)
     241        # pop-up help for each curve
     242        set _hints(tooltip) $_hints(label)
    243243    }
    244244    if {$keyword != ""} {
    245         if {[info exists _hints($keyword)]} {
    246             return $_hints($keyword)
    247         }
    248         return ""
     245        if {[info exists _hints($keyword)]} {
     246            return $_hints($keyword)
     247        }
     248        return ""
    249249    }
    250250    return [array get _hints]
     
    255255    set string [$obj get $path]
    256256    if { [scan $string "%d" value] != 1 || $value < 0 } {
    257         puts stderr "can't get size \"$string\" of \"$path\""
    258         return
     257        puts stderr "can't get size \"$string\" of \"$path\""
     258        return
    259259    }
    260260    upvar $varName size
     
    265265    set string [$obj get $path]
    266266    if { [scan $string "%g" value] != 1 } {
    267         return
     267        return
    268268    }
    269269    upvar $varName number
     
    274274    set string [$obj get $path]
    275275    if { $string == "" } {
    276         puts stderr "can't get string \"$string\" of \"$path\""
    277         return
     276        puts stderr "can't get string \"$string\" of \"$path\""
     277        return
    278278    }
    279279    upvar $varName str
Note: See TracChangeset for help on using the changeset viewer.