Clean up old, useless and broken scripts

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;