Changeset 415


Ignore:
Timestamp:
Dec 4, 2009 5:05:47 PM (11 years ago)
Author:
toby
Message:

# on 2001/09/04 22:04:24, toby did:
excluded region support
bank & file names

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 2001/06/29 17:54:33 to 2001/09/04 22:04:24
    • Property rcs:lines changed from +147 -103 to +33 -0
    • Property rcs:rev changed from 1.27 to 1.28
    r396 r415  
    991991#     LBdamp  -- LeBail damping value (*)
    992992#     tmin/tmax -- minimum & maximum usable 2theta/TOF/energy
     993#     excl -- excluded regions (*)
    993994proc histinfo {histlist parm "action get" "value {}"} {
    994995    global expgui
     
    13201321            tmax-get {
    13211322                return [string trim [string range [readexp "${key} TRNGE"] 10 19]]
     1323            }
     1324            excl-get {
     1325                set n [string trim [string range [readexp "${key} NEXC"] 0 4]]
     1326                set exlist {}
     1327                for {set i 1} {$i <= $n} {incr i} {
     1328                    lappend exlist \
     1329                            [string trim [readexp [format "${key}EXC%3d" $i]]]
     1330                }
     1331                return $exlist
     1332            }
     1333            excl-set {
     1334                set n [llength $value]
     1335                if ![validint n 5] {return 0}
     1336                setexp "${key} NEXC" $n 1 5
     1337                set i 0
     1338                foreach p $value {
     1339                    incr i
     1340                    foreach {r1 r2} $p {}
     1341                    validreal r1 10 3
     1342                    validreal r2 10 3
     1343                    set k [format "${key}EXC%3d" $i]
     1344                    if {![existsexp $k]} {
     1345                        makeexprec $k
     1346                    }
     1347                    setexp $k ${r1}${r2} 1 20
     1348                }
     1349            }
     1350            file-get {
     1351                return [string trim [readexp "${key}  HFIL"] ]
     1352            }
     1353            bank-get {
     1354                return [string trim [string range [readexp "${key} BANK"] 0 4]]
    13221355            }
    13231356            default {
Note: See TracChangeset for help on using the changeset viewer.