Changeset 415

Timestamp:

Dec 4, 2009 5:05:47 PM (14 years ago)

Author:

toby

Message:

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

File:

• trunk/readexp.tcl (modified) (2 diffs, 3 props)

trunk/readexp.tcl

@@ -991 +991 @@
 #     LBdamp  -- LeBail damping value (*)
 #     tmin/tmax -- minimum & maximum usable 2theta/TOF/energy
+#     excl -- excluded regions (*)
 proc histinfo {histlist parm "action get" "value {}"} {
     global expgui
@@ -1320 +1321 @@
             tmax-get {
                 return [string trim [string range [readexp "${key} TRNGE"] 10 19]]
+            }
+            excl-get {
+                set n [string trim [string range [readexp "${key} NEXC"] 0 4]]
+                set exlist {}
+                for {set i 1} {$i <= $n} {incr i} {
+                    lappend exlist \
+                            [string trim [readexp [format "${key}EXC%3d" $i]]]
+                }
+                return $exlist
+            }
+            excl-set {
+                set n [llength $value]
+                if ![validint n 5] {return 0}
+                setexp "${key} NEXC" $n 1 5
+                set i 0
+                foreach p $value {
+                    incr i
+                    foreach {r1 r2} $p {}
+                    validreal r1 10 3
+                    validreal r2 10 3
+                    set k [format "${key}EXC%3d" $i]
+                    if {![existsexp $k]} {
+                        makeexprec $k
+                    }
+                    setexp $k ${r1}${r2} 1 20
+                }
+            }
+            file-get {
+                return [string trim [readexp "${key}  HFIL"] ]
+            }
+            bank-get {
+                return [string trim [string range [readexp "${key} BANK"] 0 4]]
             }
             default {