27
edits
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 |
edits