scripts/zone-axis


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#!/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);
		}


	}

}