diff options
author | Thomas White <taw@physics.org> | 2011-03-30 17:28:54 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2012-02-22 15:27:23 +0100 |
commit | 0636814cc2c360fd9f37a1f7fe3e2be04cee8377 (patch) | |
tree | 1c42e92d3b8febd15e0a4bf6801bcc4be29163a0 /scripts/frequency | |
parent | e0ec9d63f7747b47ab516c701fd55ffe977031a7 (diff) |
Clean up old, useless and broken scripts
Diffstat (limited to 'scripts/frequency')
-rwxr-xr-x | scripts/frequency | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/scripts/frequency b/scripts/frequency deleted file mode 100755 index d6caf72c..00000000 --- a/scripts/frequency +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/perl -w - -use strict; - -my $nplots = 32; -my $sym = "6/mmm"; - -my $stream = $ARGV[0]; - -#system("~/crystfel/src/process_hkl -i ".$stream." -o test.hkl -y ".$sym); - -open(FH, "test.hkl"); -my $max = 0; -my $h; -my $k; -my $l; -my $line; -while ( $line = <FH> ) { - - chomp $line; - - if ( $line =~ /\s+(\d+)$/ ) { - - my $n = $1; - if ( $n > $max ) { - $line =~ /^\s+(\d+)\s+(\d+)\s+(\d+)\s+/; - $h = $1; - $k = $2; - $l = $3; - $max = $n; - } - - } -} - -printf("%i %i %i = %i\n", $h, $k, $l, $max); - -exit 0; |