use strict;

use Seismic;

my $grid = Seismic::Grid->new();

for my $line (1 .. 1000) {
    my $lineobject = Seismic::Line->new(
        {
            Id            => $line,
            Length        => int(1000 * rand(90)),
            GroupInterval => int( 100 * rand(90)),
        }
    );
    $grid->add_line($lineobject->Id, $lineobject);
    for my $station (1 .. 10) {
        my $stationobject = Seismic::Station->new(
            {
                Id          => $line . '_' . $station,
                Northing    => int(1e6 * rand(90)),
                Easting     => int(1e6 * rand(90)),
                Elevation   => int( 10 * rand(90)),
            }
        );
        $lineobject->add_station($stationobject->Id, $stationobject);
    }
}

print "line     station  position            elev.\n";
for my$line_id ($grid->line_ids) {
    my $line = $grid->get_line($line_id);
    for my $station_id ($line->station_ids) {
        my $station = $line->get_station($station_id);
        printf "%08d %-8s %08dN%08dW %4d\n",
            $line->Id,
            $station->Id,
            $station->Northing,
            $station->Easting,
            $station->Elevation;
    }
}