Changeset 480


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

# on 2001/10/31 20:08:54, toby did:
support excledt

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 2001/10/19 19:27:09 to 2001/10/31 20:08:54
    • Property rcs:lines changed from +3 -3 to +16 -2
    • Property rcs:rev changed from 1.32 to 1.33
    r471 r480  
    328328            cdatset MXCY [format %4d $value]
    329329        }
     330        cyclesrun-get {
     331            set cycle -1
     332            regexp {.*cycles run *([0-9]*) } [readexp "  GNLS  RUN"] x cycle
     333            return $cycle
     334        }
    330335        print-get {
    331336            set print [string trim [cdatget PRNT]]
     
    10021007#     dstep -- dummy histogram step size tmin/emin/2theta (*)
    10031008#     dpoints -- dummy histogram number of points (*)
     1009#     dtype   -- dummy histogram type (CONST or SLOG)
     1010#   parameters transferred from the instrument parameter file:
     1011#     ITYP    -- returns the contents of the ITYP record
    10041012proc histinfo {histlist parm "action get" "value {}"} {
    10051013    global expgui
     
    14111419                if ![validint value 10] {return 0}
    14121420                setexp "${key} DUMMY" $value 1 10
     1421            }
     1422            dtype-get {
     1423                return [string trim [string range [readexp "${key} DUMMY"] 10 19]]
     1424            }
     1425            ITYP-get {
     1426                return [string trim [readexp "${key}I ITYP"]]
    14131427            }
    14141428            default {
Note: See TracChangeset for help on using the changeset viewer.