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/zone-axis | |
| parent | e0ec9d63f7747b47ab516c701fd55ffe977031a7 (diff) | |
Clean up old, useless and broken scripts
Diffstat (limited to 'scripts/zone-axis')
| -rwxr-xr-x | scripts/zone-axis | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/scripts/zone-axis b/scripts/zone-axis deleted file mode 100755 index a9e77dda..00000000 --- a/scripts/zone-axis +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl -w - -use strict; - -open(FH, $ARGV[0]); - -my $line; - -while ( $line = <FH> ) { - - if ( $line =~ /^([\d\-]+)\s+([\d\-]+)\s+([\d\-]+)\s+([\d\.\-]+)\s+/ ) { - - my $h = $1; - my $k = $2; - my $l = $3; - my $intensity = $4; - - if ( $l == 0 ) { - printf("%3i %3i %3i %f\n", $h, $k, $l, $intensity); - } - - - } - -} |