aboutsummaryrefslogtreecommitdiff
path: root/scripts/check-near-bragg
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/check-near-bragg')
-rwxr-xr-xscripts/check-near-bragg23
1 files changed, 12 insertions, 11 deletions
diff --git a/scripts/check-near-bragg b/scripts/check-near-bragg
index 6c46fde6..17141fc4 100755
--- a/scripts/check-near-bragg
+++ b/scripts/check-near-bragg
@@ -14,36 +14,37 @@ while ( $line = <FH> ) {
chomp $line;
my $handled = 0;
- if ( $line =~ /^\s*[0-9\-]+\s+[0-9\-]+\s+[0-9\-]+\s+[0-9\.\-]+/ ) {
+ if ( $in_image ) {
printf(TMP "%s\n", $line);
$handled = 1;
}
- if ( $line =~ /^\s*[0-9\-\.]+\s+[0-9\-\.]+\s+[0-9\-\.]+\s+[0-9\.\-]+/ ) {
- printf(TMP "%s\n", $line);
+ if ( $line =~ /^Reflections\ measured\ after\ indexing$/ ) {
+ $in_image = 1;
$handled = 1;
}
- if ( $line =~ /^Reflections\ from\ indexing\ in\ (.+)$/ ) {
+ if ( $line =~ /^Image\ filename:\ (.+)$/ ) {
$filename = $1;
$handled = 1;
}
- if ( $line =~ /^Peaks\ from\ peak search\ in\ (.+)$/ ) {
- $filename = $1;
- $handled = 1;
- }
+ if ( $line =~ /^End\ of\ reflections$/ ) {
- if ( $line =~ /^$/ ) {
close(TMP);
- #$filename = "images-old/".basename($filename);
+
+ # Example of how to do "basename" and "prefix":
+ # $filename = "images-old/".basename($filename);
+
printf(STDERR "Viewing %s\n", $filename);
system("hdfsee ".$filename.
- " --peak-overlay=list.tmp --binning=1 --int-boost=10");
+ " --peak-overlay=list.tmp --binning=2 --int-boost=10");
if ( $? != 0 ) { exit; }
unlink("list.tmp");
open(TMP, "> list.tmp");
$handled = 1;
+ $in_image = 0;
+
}
if ( !$handled ) {