XDSGUI User tools: Difference between revisions

 
Line 8: Line 8:
X=$(perl -e '
X=$(perl -e '
# Read IDXREF.LP to get refined beam center, save in $x, $y
# Read IDXREF.LP to get refined beam center, save in $x, $y
open(F,"<IDXREF.LP");
open(F,"<IDXREF.LP") or die;
while(<F>){
while(<F>){
   if(/BEAM +(\S*\d) +(\S*\d)/){ $x=$1; $y=$2; } # get X,Y beam
   if(/BEAM +(\S*\d) +(\S*\d)/){ $x=$1; $y=$2; } # get X,Y beam
}
}
# Read XDS.INP to get parameters needed to adjust for horizontal 2-theta offset (vertical offsets not supported)
# Read XDS.INP to get parameters needed to adjust for horizontal 2-theta offset (vertical offsets not supported)
open(F,"<XDS.INP");
open(F,"<XDS.INP") or die;
while(<F>){
while(<F>){
   if(/^[^!]*DETECTOR_DISTANCE= *(\S*\d)/) { $d=$1; } # d = detector distance
   if(/^[^!]*DETECTOR_DISTANCE= *(\S*\d)/) { $d=$1; } # d = detector distance
27

edits