#!/usr/bin/perl -w

use strict;

use POSIX;

my $samples = 244_540;

my $pixels = 800;

my $column = 0;

my $sample = 0;

my $err;

my $count = 0;

my $spp = $samples / $pixels;

my $total = 0;

print "samples per pixel: " . $spp . "\n";

sub error {

my $err_pos = fmod($sample, $spp);

my $err_neg = $spp - fmod($sample, $spp);

return $err_pos < $err_neg ? $err_pos : $err_neg;

}

do {

$sample++;

$count++;

$err = error();

print "column $column, sample $sample, error: $err\n";

if ($err < .5) {

print "column $column averages $count samples (error: $err)\n";

$column++;

$total += $count;

$count = 0;

}

} while ($sample < $samples);

print "$total samples consumed\n";