Changeset 1027 for branches


Ignore:
Timestamp:
Oct 15, 2010 3:23:59 PM (11 years ago)
Author:
chlake
Message:

Added standard uncertainties, Dmax filter and fixed a few bugs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/Geo_Viewer.tcl

    r1024 r1027  
    4747     array set ::geo_bonds ""
    4848     set ::geo_alist ""
     49     set ::geo_filterval 5.00
    4950}
    5051
     
    6061   set angle_total -1
    6162
     63   catch {unset ::geo_phase_list}
     64   catch {unset ::geo_angles}
     65   catch {unset ::geo_bonds}
    6266   array set ::geo_bonds ""
    6367   array set ::geo_angles ""
    6468   array set ::geo_angle_keys ""
     69
    6570
    6671   while {[gets $fh line] >= 0} {
     
    175180     eval tk_optionMenu $sc.phase ::geo_entryvar(phase) $::geo_phase_list
    176181     label $sc.atom1 -text "Atom Type"
     182     label $sc.filterlab -text "Dmax Filter"
     183     entry $sc.filterval -textvariable ::geo_filterval
     184          $sc.filterval config -width 6
    177185     #button $sc.engage -text "Print Info" -command Geo_Fill_Display
    178186     grid $sc.phlabel -row 0 -column 0
    179      grid $sc.phase  -row 0 -column 1
    180      grid $sc.atom1 -column 0 -row 1
     187     grid $sc.phase   -row 0 -column 1
     188     grid $sc.atom1   -row 1 -column 0
     189     grid $sc.filterlab   -row 2 -column 0
     190     grid $sc.filterval -row 2 -column 1
    181191
    182192     label $as.atom -text "Choose Atom(s)"
     
    293303             set symlist {}
    294304             incr rownum
     305             if {[string trim $::geo_filterval] == ""} {set ::geo_filterval 5.00}
    295306             foreach j $slist {
    296                  lappend keylist [lindex $j 10]
    297                  lappend atmlist [lindex $j 6]
    298                  lappend symlist [lindex $j 9]
    299                  label $::geo_side.atom1${bondnum} -text [lindex $j 5] -width 8
    300                  label $::geo_main.atom2${bondnum} -text [lindex $j 6] -width 8
    301                  label $::geo_main.atom2symm${bondnum} -text [lindex $j 9] -width 8
    302                  label $::geo_main.bonddist${bondnum} -text [lindex $j 7] -width 8
    303 
    304                  grid $::geo_side.atom1${bondnum} -row $rownum -column 0
    305                  grid $::geo_main.atom2${bondnum} -row $rownum -column 0
    306                  grid $::geo_main.atom2symm${bondnum} -row $rownum -column 1
    307                  grid $::geo_main.bonddist${bondnum} -row $rownum -column 2
    308 
    309                  set key [lindex $j 10]
    310                  set atom [lindex $j 1]
    311                  set phase [lindex $j 0]
    312 
    313 
    314                  foreach k $keylist {
    315 
    316                  if {$key != $k} {
    317                     if {[array name ::geo_angles "$phase,$key,$atom,$k"] != ""} {
    318                     label $::geo_main.$counter -text [lindex $::geo_angles($phase,$key,$atom,$k) 7]
    319                     grid $::geo_main.$counter -row $rownum -column $colnum -padx 5
    320                     incr colnum
    321                     incr counter
    322                     } elseif {[array name ::geo_angles "$phase,$k,$atom,$key"] != ""} {
    323                     label $::geo_main.$counter -text [lindex $::geo_angles($phase,$k,$atom,$key) 7]
    324                     grid $::geo_main.$counter -row $rownum -column $colnum -padx 5
    325 
    326                     incr colnum
    327                     incr counter
     307                 if {[lindex $j 7] <= $::geo_filterval} {
     308                    lappend keylist [lindex $j 10]
     309                    lappend atmlist [lindex $j 6]
     310                    lappend symlist [lindex $j 9]
     311                    label $::geo_side.atom1${bondnum} -text [lindex $j 5] -width 8
     312                    label $::geo_main.atom2${bondnum} -text [lindex $j 6] -width 8
     313                    label $::geo_main.atom2symm${bondnum} -text [lindex $j 9] -width 8
     314                    set bonddist [lindex $j 7]
     315                    set bondesd  [lindex $j 8]
     316                    set bondentry [formatSU $bonddist $bondesd]
     317                    label $::geo_main.bonddist${bondnum} -text $bondentry -width 8
     318
     319                    grid $::geo_side.atom1${bondnum} -row $rownum -column 0
     320                    grid $::geo_main.atom2${bondnum} -row $rownum -column 0
     321                    grid $::geo_main.atom2symm${bondnum} -row $rownum -column 1
     322                    grid $::geo_main.bonddist${bondnum} -row $rownum -column 2
     323
     324                    set key [lindex $j 10]
     325                    set atom [lindex $j 1]
     326                    set phase [lindex $j 0]
     327
     328
     329                    foreach k $keylist {
     330
     331                            if {$key != $k} {
     332                            # search for atom 1 - central atom - atom 2 angle.
     333                            if {[array name ::geo_angles "$phase,$key,$atom,$k"] != ""} {
     334                               set ang  [lindex $::geo_angles($phase,$key,$atom,$k) 7]
     335                               set angesd [lindex $::geo_angles($phase,$key,$atom,$k) 8]
     336                               set angentry [formatSU $ang $angesd]
     337                               label $::geo_main.$counter -text $angentry
     338#                               label $::geo_main.$counter -text [lindex $::geo_angles($phase,$key,$atom,$k) 7]
     339                               grid $::geo_main.$counter -row $rownum -column $colnum -padx 5
     340                               incr colnum
     341                               incr counter
     342                               # search for atom 2 - central atom - atom 1 angle.
     343                            } elseif {[array name ::geo_angles "$phase,$k,$atom,$key"] != ""} {
     344                               set ang  [lindex $::geo_angles($phase,$k,$atom,$key) 7]
     345                               set angesd [lindex $::geo_angles($phase,$k,$atom,$key) 8]
     346                               set angentry [formatSU $ang $angesd]
     347                               label $::geo_main.$counter -text $angentry
     348#                              label $::geo_main.$counter -text [lindex $::geo_angles($phase,$k,$atom,$key) 7]
     349                              grid $::geo_main.$counter -row $rownum -column $colnum -padx 5
     350
     351                              incr colnum
     352                              incr counter
     353                            }
     354                            }
    328355                    }
    329 
    330                  }
    331                  }
    332356                 incr bondnum
    333                 incr rownum
     357                 incr rownum
    334358                 set colnum 3
    335 
     359             }
    336360             }
    337361                  set colnum 3
Note: See TracChangeset for help on using the changeset viewer.