Changeset 1007 for branches/sandbox


Ignore:
Timestamp:
Sep 16, 2010 4:27:48 PM (10 years ago)
Author:
chlake
Message:

relabel constraints tab (need a better label!)
readexp: breakup lines w/o spaces
distrest: wipe old entry vals; reload rests after save; generate DISAGL file as needed, add pleasewait

Location:
branches/sandbox
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/distrest.tcl

    r1006 r1007  
    101101        # switch to run disagl here someday
    102102        if {[file exists $filename]} {
    103                 puts "$filename from [pwd] is opened"
     103                #puts "$filename from [pwd] is opened"
    104104                set fh [open $filename r]
    105105#               puts $fh
     
    149149              set t2 [string map {" " ""} [set t1 $initsoftpar($x)]]
    150150
    151               set z [info exists ::sr_restraintdist($t2)]
    152               if {$z == 0} {
    153                             set ::sr_restraintdist($t2) ""
    154                             set ::sr_restraintesd($t2) ""
    155                             }
     151#              set z [info exists ::sr_restraintdist($t2)]
     152#              if {$z == 0} {
     153#                            set ::sr_restraintdist($t2) ""
     154#                            set ::sr_restraintesd($t2) ""
     155#                            }
    156156
    157157              #extract bond distance
     
    220220       } else {
    221221         if {$::sr_distance_button == 1} {
    222              puts "distance"
     222             #puts "distance"
    223223             set sr_prsort [lsort -increasing -index 8 $::sr_bond_list]
    224224             $dlabel1 config -text "Distance \u2193"
     
    317317                                          checkbutton $main.sr_crestraint$i -variable ::sr_crestraint([lindex $rprint 13])
    318318                                          } else {
    319                                           label $main.restraint$i -width 8 -textvariable ::sr_restraintdist([lindex $rprint 13]) -takefocus 1
    320                                           label $main.restesd$i -width 8 -textvariable ::sr_restraintesd([lindex $rprint 13]) -takefocus 1
     319                                          label $main.restraint$i -width 8 -textvariable ::sr_restraintdist([lindex $rprint 13]) -takefocus 1  -justify center -anchor center
     320                                          label $main.restesd$i -width 8 -textvariable ::sr_restraintesd([lindex $rprint 13]) -takefocus 1   -justify center -anchor center
    321321                                          }
    322322                                          incr rownum
     
    383383#**************************************************************************************
    384384proc SR_Load_Restraints {args} {
     385
     386catch {unset ::sr_restraintdist}
     387catch {unset ::sr_restraintesd}
    385388set temp_res [SoftConst restraintlist]
    386389set lenr [llength $temp_res]
     
    445448                                lappend new_list $temp
    446449
    447                     } else {
    448                            unset ::sr_restraintdist([lindex $temp 13])
    449                            unset ::sr_restraintesd([lindex $temp 13])
     450#                    } else {
     451#                           unset ::sr_restraintdist([lindex $temp 13])
     452#                           unset ::sr_restraintesd([lindex $temp 13])
    450453                           }
    451454          }
    452           puts $sr_write
     455          #puts $sr_write
    453456          # put the entire restraint list back into the .EXP file
    454457          SoftConst restraintlist set $sr_write
     
    460463          set ::sr_display_mode noedit
    461464          afterputontop
     465          SR_Rest_Only
    462466          DisplayDistanceRestraints
    463467     } else {
     
    668672#*************************************************************************
    669673proc SR_Initialize {} {
    670 catch {unset ::sr_restraintdist}
    671 catch {unset ::sr_restraintesd}
     674#catch {unset ::sr_restraintdist}
     675#catch {unset ::sr_restraintesd}
    672676
    673677set ::sr_atom1_button 1
     
    711715
    712716proc SR_TEST {} {
     717     global expgui
     718     pleasewait "searching interatomic distances"
     719     set root [file root $expgui(expfile)]
     720     catch {file delete -force $root.disagl}
    713721     set ::sr_display_mode edit
    714      SR_Read_Distances test2.disagl
     722     close [open disagl.inp w]
     723     catch {exec [file join $expgui(gsasexe) disagl] \
     724                [file tail $root] < disagl.inp > disagl.out}
     725     catch {file delete -force disagl.inp disagl.out}
     726     if {! [file exists $root.disagl]} {
     727            MyMessageBox -parent . -title "DISAGL Problem" \
     728                -message "Unable to run DISAGL. Do you have problems writing files in [pwd]?" \
     729                -icon error
     730       donewait
     731       return
     732     }
     733
     734     SR_Read_Distances $root.disagl
    715735SR_Load_Restraints
    716736SR_Main_Editor
    717 }
    718 
    719 
    720 
    721 
    722 
    723 
    724 
    725 
    726 
    727 
    728 
     737donewait
     738}
     739
     740
     741
     742
     743
     744
     745
     746
     747
     748
     749
  • branches/sandbox/expgui

    r997 r1007  
    33483348            DisplayProfile \
    33493349            1  expgui5.html ""}
    3350     {consFrame    Constraints \
     3350    {consFrame    "Re/Constraints" \
    33513351            "source [file join $expgui(scriptdir) atomcons.tcl]; MakeConstraintsPane" \
    33523352            DisplayConstraintsPane \
  • branches/sandbox/readexp.tcl

    r1000 r1007  
    29062906            for {set i 1} {$i <= $ncons} {incr i} {
    29072907                set fi [string toupper [format %.4x $i]]
    2908                 lappend conslist [string trim [readexp "${key}BD$fi"]] 
     2908                set line [readexp "${key}BD$fi"]
     2909                set const {}
     2910                foreach len {3 5 5 3 3 3 3 3 6 6} {
     2911                  set lenm1 [expr {$len - 1}]
     2912                  lappend const [string trim [string range $line 0 $lenm1]]
     2913                  set line [string range $line $len end]
     2914                }
     2915                lappend conslist $const
    29092916            }
    29102917            return $conslist
Note: See TracChangeset for help on using the changeset viewer.