#!/usr/bin/perl -w

$dither = 0.0;

for ($i = 0; $i < 100; $i++) {
	$dither = rand(2) - 1.0;
	print($i."\t".(int(sin($i / 10) * 32 + $dither)/32.0)."\n");
}
