Changeset 429

Timestamp:

Dec 4, 2009 5:06:01 PM (14 years ago)

Author:

toby

Message:

# on 2001/09/04 22:57:16, toby did:
set dmin
set histogram file name (for use in scripts)

File:

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

trunk/readexp.tcl

@@ -992 +992 @@
 #     tmin/tmax -- minimum & maximum usable 2theta/TOF/energy
 #     excl -- excluded regions (*)
+#     dmin -- minimum d-space for reflection generation (*)
 proc histinfo {histlist parm "action get" "value {}"} {
     global expgui
@@ -1351 +1352 @@
                 return [string trim [readexp "${key}  HFIL"] ]
             }
+            file-set {
+                setexp "${key}  HFIL" $value 3 65
+            }
             bank-get {
                 return [string trim [string range [readexp "${key} BANK"] 0 4]]
+            }
+            dmin-get {
+                return [string trim [string range [readexp "${key} NREF"] 5 14]]
+            }
+            dmin-set {
+                if ![validreal value 10 4] {return 0}
+                setexp "${key} NREF" $value 6 10
             }
             default {