Changeset 1225 for trunk/anomal.tcl


Ignore:
Timestamp:
Nov 8, 2012 1:42:25 PM (8 years ago)
Author:
toby
Message:

update to latest, with Fourier & f'/f

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/anomal.tcl

    r1219 r1225  
    1515     set ::anom_wave [histinfo $histlbl lam1]
    1616     foreach test $::expmap(powderlist) {
    17              puts "[histinfo $test lam1] versus $::anom_wave"
     17             #puts "[histinfo $test lam1] versus $::anom_wave"
    1818             if {[histinfo $test lam1] == $::anom_wave} {
    1919                lappend ::anom_list $test
     
    4242             set ::anom_fp($::anom_atomcount) [lindex $temp 1]
    4343             set ::anom_f2p($::anom_atomcount) [lindex $temp 2]
    44              puts "$::anom_lbl($::anom_atomcount) $::anom_fp($::anom_atomcount) $::anom_f2p($::anom_atomcount)"
     44             #puts "$::anom_lbl($::anom_atomcount) $::anom_fp($::anom_atomcount) $::anom_f2p($::anom_atomcount)"
    4545     }
    4646}
     
    5656
    5757     grid [frame $anomal.list -bd 2 -relief groove] -row 0 -column 0 -sticky news
    58      grid [label $anomal.list.lbl1 -text "The anomalous dispersion terms will be set for the following histograms\n with wavelength $::anom_wave angstroms:"] -row 0 -column 0
     58     grid [label $anomal.list.lbl1 -text "The anomalous dispersion terms will be set for x-ray histograms\n with wavelength $::anom_wave angstroms:"] -row 0 -column 0
    5959     grid [label $anomal.list.lbl1a -text "$::anom_list"] -row 1 -column 0
    6060
    6161     grid [frame $anomal.con -bd 2 -relief groove] -row 5  -column 0 -sticky news
    6262     grid [button $anomal.con.save  -width 8 -text "Save"  -command {anomalous_save}] -column 0 -row 4 -padx 3
    63      grid [button $anomal.con.abort -width 8 -text "abort" -command {anomalous_abort}] -column 1 -row 4 -padx 3
     63     grid [button $anomal.con.abort -width 8 -text "Cancel" -command {anomalous_abort}] -column 1 -row 4 -padx 3
    6464
    6565     grid [frame $anomal.warning -bd 2 -relief groove] -row 7 -column 0 -sticky news
     
    8686proc anomalous_save {args} {
    8787     set histnum $::expgui(curhist)
    88      puts $histnum
     88     #puts $histnum
    8989     set histlbl [lindex $::expmap(powderlist) $histnum]
    90      puts $histlbl
     90     #puts $histlbl
    9191     set x ""
    9292     set atomcount 0
     
    9595             lappend x "$::anom_lbl($atomcount) $::anom_fp($atomcount) $::anom_f2p($atomcount)"
    9696     }
    97      puts $x
     97     #puts $x
    9898     foreach test $::anom_list {
    9999          histinfo $test anomff set $x
Note: See TracChangeset for help on using the changeset viewer.