From 9d4ba2898d27adf7e976e866dba7df76cc8e5d2e Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Wed, 8 Sep 2010 17:02:25 +0200
Subject: Add scripts/check-near-bragg

---
 scripts/check-near-bragg | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100755 scripts/check-near-bragg

diff --git a/scripts/check-near-bragg b/scripts/check-near-bragg
new file mode 100755
index 00000000..9b72c0cb
--- /dev/null
+++ b/scripts/check-near-bragg
@@ -0,0 +1,38 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+open(FH, $ARGV[0]);
+open(TMP, "> list.tmp");
+
+my $in_image = 0;
+my $line;
+my $filename;
+while ( $line = <FH> ) {
+
+	chomp $line;
+	my $handled = 0;
+
+	if ( $line =~ /^\s*[0-9\-]+\s+[0-9\-]+\s+[0-9\-]+\s+[0-9\.\-]+/ ) {
+		printf(TMP "%s\n", $line);
+		$handled = 1;
+	}
+
+	if ( $line =~ /^Reflections\ from\ indexing\ in\ (.+)$/ ) {
+		$filename = $1;
+		$handled = 1;
+	}
+
+	if ( $line =~ /^Peak statistics/ ) {
+		close(TMP);
+		system("hdfsee ".$filename." --peak-overlay=list.tmp --binning=1 --int-boost=10");
+		unlink("list.tmp");
+		open(TMP, "> list.tmp");
+		$handled = 1;
+	}
+
+	if ( !$handled ) {
+		printf(STDERR "Unhandled: '%s'\n", $line);
+	}
+
+}
-- 
cgit v1.2.3