#!/usr/bin/perl -w
$m = 0.139;
$p = 1.0;
for ($lambda = 3.14159/2.0 - 0.010; $lambda > 0.0; $lambda -= 0.002) {
    $deg = 90.0 - $lambda * 180.0/3.1415926;
    print "$lambda $deg ";
    open(DATA, "echo $p $lambda $m | rezest_point_comp |");
    $line = <DATA>;
    @data = split(/\s+/, $line);
    for ($i = 0; $i <= $#data; $i++) {
	if ($data[$i]) {
	    print "$data[$i] ";
	}
    }
    close(DATA);
    print "\n";
}
exit;
