Changeset 429


Ignore:
Timestamp:
Dec 4, 2009 5:06:01 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 2001/09/04 22:04:24 to 2001/09/04 22:57:16
    • Property rcs:lines changed from +33 -0 to +11 -0
    • Property rcs:rev changed from 1.28 to 1.29
    r415 r429  
    992992#     tmin/tmax -- minimum & maximum usable 2theta/TOF/energy
    993993#     excl -- excluded regions (*)
     994#     dmin -- minimum d-space for reflection generation (*)
    994995proc histinfo {histlist parm "action get" "value {}"} {
    995996    global expgui
     
    13511352                return [string trim [readexp "${key}  HFIL"] ]
    13521353            }
     1354            file-set {
     1355                setexp "${key}  HFIL" $value 3 65
     1356            }
    13531357            bank-get {
    13541358                return [string trim [string range [readexp "${key} BANK"] 0 4]]
     1359            }
     1360            dmin-get {
     1361                return [string trim [string range [readexp "${key} NREF"] 5 14]]
     1362            }
     1363            dmin-set {
     1364                if ![validreal value 10 4] {return 0}
     1365                setexp "${key} NREF" $value 6 10
    13551366            }
    13561367            default {
Note: See TracChangeset for help on using the changeset viewer.