#!/usr/local/bin/perl

open(OUT, ">newline2.aml");
print OUT "generate nlin5\n";
print OUT "lines\n";
$maxx = -6848688.3314;
$x = -7033955.4973125;
$num=1;
while ($x < $maxx)
{
$y=5050571.7427;
$maxy=5235896.8227;
while ($y < $maxy)
{
print OUT "$num\n";
print OUT "$x,$y\n";
$y=$y+33.0937642857143;
print OUT "$x,$y\n";
print OUT "end\n";
++$num;
}
$x=$x+115.828175;
++$num;
}
print OUT "end\n";
print OUT "quit\n\n";

print OUT "projectdefine cover nlin5\n";
print OUT "projection sinusoidal\n";
print OUT "units meters\n";
print OUT "spheroid sphere\n";
print OUT "param\n";
print OUT "6370997.0\n";
print OUT "0  0  0.0\n";
print OUT "0.0\n";
print OUT "0.0\n\n";

print OUT "project cover nlin5 geonlin5\n";
print OUT "output\n";
print OUT "projection geographic\n";
print OUT "units dd\n";
print OUT "datum wgs84\n";
print OUT "param\n";
print OUT "end\n\n";

print OUT "build geonlin5 LINE\n\n";

close(OUT);