Ignore:
Timestamp:
Aug 6, 2007 2:27:44 PM (15 years ago)
Author:
ajj
Message:

merge in changes to prepare from nickm

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/utils/bt5/prepare/prepare

    r120 r141  
    2020#             Mar  2004 Change packing of GUI to permit expansion of buf list 
    2121#                       Fix buffer copy bug - KOD 
     22#             Mar  2006 Change range of increment scans for BT1 reflecting 
     23#                       changes to monochromators at instrument - NCM 
    2224#             May  2006 Change contents of I-Buffer list to show relevant 
    2325#                       motors for BT5 - AJJ 
    24 set version {$Id: prepare.tcl,v 1.47 2005/08/11 19:55:25 nickm Exp $} 
     26set version {$Id: prepare.tcl,v 1.53 2007/07/23 16:34:14 nickm Exp $} 
    2527# set tcl_precision 12 
    2628#set config(root) $env(HOME) 
     
    241243            set config(pola_state) disabled 
    242244            set config(mode)       0  
    243             set config(mono_list)  {Ge311 Cu311 Si531} 
     245            set config(mono_list)  {Ge311 Cu311 Ge733} 
    244246            set config(instr_list) {} 
    245247 
     
    256258            set config(cps-Ge311-15') 2100 
    257259            set config(cps-Cu311-15') 1100 
    258             set config(cps-Si531-15')  600 
     260            set config(cps-Ge733-15')  600 
    259261            set config(cps-Ge311-7')  1050 
    260262            set config(cps-Cu311-7')   550 
    261             set config(cps-Si531-7')   300 
     263            set config(cps-Ge733-7')   300 
    262264            # Instrument scientist values for monitor rates 
    263265            if {[catch {source $config(root)/cfg/bt1-mrat.dat} errmsg]} { 
     
    321323            set config(qbuf_state) normal 
    322324            set config(bbuf_state) normal 
     325            set config(dbuf_state) normal 
    323326            set config(mono_list)  {Si111 PG002} 
    324327        } 
     
    346349            set config(pola_state) disabled 
    347350            set config(mono_list)  {PG002} 
     351        } 
     352        -11 { 
     353            set config(default_buf) increment 
     354            set config(qbuf_state) disabled 
     355            set config(bbuf_state) disabled 
     356            set config(tbuf_state) disabled 
     357            set config(rbuf_state) disabled 
     358            set config(dbuf_state) normal 
    348359        } 
    349360    } 
     
    437448    # Get current instrument configuration 
    438449    switch -glob $monobt1 { 
    439         G* { set config(mono) Ge311 } 
    440         S* { set config(mono) Si311 } 
     450        GE311 { set config(mono) Ge311 } 
     451        GE733 { set config(mono) Ge733 } 
    441452        default { 
    442453            set config(mono) Cu311 
     
    462473        1 { 
    463474            switch -glob $config(instr) { 
    464                 Ge* { set config(mono) Ge311 } 
    465                 Si* { set config(mono) Si531 } 
     475                G*311 { set config(mono) Ge311 } 
     476                G*733 { set config(mono) Ge733 } 
    466477                default { 
    467478                    set config(mono) Cu311 
     
    501512    label $parent.bufnolabel -textvariable ibufdisp(label) 
    502513    label $parent.commentlabel -text "Comment:" 
    503     entry $parent.comment -width 35 -textvariable ibufdisp(comment) 
     514    entry $parent.comment -width 35 -textvariable ibufdisp(comment)  
    504515    if $text_only { 
    505516       grid $parent.bufnolabel -row 0 -column 0 -sticky w 
     
    663674    bind $parent.pts.val <Return>   IBufCalcAngles 
    664675    bind $parent.pts.val <FocusOut> IBufCalcAngles 
     676    bind $parent.comment <Return>   IBufCommentBinding 
     677    bind $parent.comment <FocusOut>   IBufCommentBinding 
     678     
    665679 
    666680    return $parent 
     
    10341048    entry .field.initentry -textvariable ibufdisp(hf)  -width 10 
    10351049    entry .field.increntry -textvariable ibufdisp(ihf) -width 10 
    1036     entry .field.waitentry -textvariable ibufdisp(ihw) -width 10 
     1050    entry .field.waitentry -textvariable ibufdisp(hfw) -width 10 
    10371051    label .field.t1 -text "(Wait used in non-persistent mode on SC only)" 
    10381052    label .field.t2 -text "(Reply 0 to get default optimum wait times)" 
     
    12391253} 
    12401254 
     1255proc IBufCommentBinding { } { 
     1256    global ibufdisp 
     1257 
     1258    if {[string length $ibufdisp(comment)] > 50} { 
     1259        set ibufdisp(comment) [string range $ibufdisp(comment) 0 49] 
     1260    } 
     1261} 
     1262 
    12411263# Special rules for BT1 
    12421264proc IBufCalcBT1 {} { 
     
    12481270        if {$config(mono) == "Ge311"} { 
    12491271            lappend varlist a4beg a4end 
    1250             lappend vallist 1.3   11.3 
     1272            lappend vallist 1.8   11.8 
    12511273        } else { 
    12521274            lappend varlist a4beg a4end 
    1253             lappend vallist 3.0   13.0 
     1275            lappend vallist 2.8 12.8 
    12541276        } 
    12551277        if {$config(mode) == 0} { 
     
    18031825    entry .field_q.initentry -textvariable qbufdisp(hf)  -width 10 
    18041826    entry .field_q.increntry -textvariable qbufdisp(ihf) -width 10 
    1805     entry .field_q.waitentry -textvariable qbufdisp(ihw) -width 10 
     1827    entry .field_q.waitentry -textvariable qbufdisp(hfw) -width 10 
    18061828    label .field_q.t1 -text "(Wait used in non-persistent mode on SC only)" 
    18071829    label .field_q.t2 -text "(Reply 0 to get default optimum wait times)" 
     
    20392061    label $p.temp.th0label -text "Hld0:" 
    20402062    entry $p.temp.th0 -textvariable bbufdisp(th0) -width 6 
    2041     button $p.temp.field -text FIELD -command QBufFieldDialog 
     2063    button $p.temp.field -text FIELD -command BBufFieldDialog 
    20422064    pack $p.temp.t0label $p.temp.t0 $p.temp.tinclabel $p.temp.tinc \ 
    20432065            $p.temp.twlabel $p.temp.tw $p.temp.terlabel $p.temp.ter \ 
     
    23792401    entry .field_b.initentry -textvariable bbufdisp(hf)  -width 10 
    23802402    entry .field_b.increntry -textvariable bbufdisp(ihf) -width 10 
    2381     entry .field_b.waitentry -textvariable bbufdisp(ihw) -width 10 
     2403    entry .field_b.waitentry -textvariable bbufdisp(hfw) -width 10 
    23822404    label .field_b.t1 -text "(Wait used in non-persistent mode on SC only)" 
    23832405    label .field_b.t2 -text "(Reply 0 to get default optimum wait times)" 
     
    40924114    foreach i $anglist { 
    40934115        if [catch {expr $dbufdisp(lpn_$i) * 1} dbufdisp(lpn_$i)] { 
    4094             set dbufdisp(lpts_$i) "------" 
     4116            set dbufdisp(lpn_$i) 1 
    40954117            return 
    40964118        } 
     
    41044126        if {$dbufdisp(lpn_$i) > 6} { set dbufdisp(lpn_$i) 6 } 
    41054127        set iloop $dbufdisp(lpn_$i) 
     4128        # Probably not good enough 
     4129        if {$iloop > $maxloop} { set maxloop $iloop } 
     4130        # 
    41064131        if { $ploop(pts_$iloop) == 0 } { 
    4107             set ploop(pts_$iloop) $dbufdisp(lpts_$i) 
     4132            set ploop(pts_$i) $dbufdisp(lpts_$i) 
    41084133        } else { 
    41094134            set dbufdisp(lpts_$i) $ploop(pts_$iloop) 
     
    41124137 
    41134138    set pts 0 
    4114     foreach i $anglist { 
     4139    for {set i 1} {$i <= $maxloop} {incr i} { 
    41154140        if { $ploop(pts_$i) > 0 } { 
    41164141            if {$pts == 0} {  
Note: See TracChangeset for help on using the changeset viewer.