#!/usr/bin/perl
$rad = $ARGV[0];
$pi = 3.141562;
$num = 64;
foreach $s (0 .. ($num-1)) {
$o = sprintf("%d, ",
sin( $s * $pi *2 / $num) * $rad + $rad);
$c += length($o);
print $o;
if($c > 70) {
print "\n";
$c=0;
}
}
print "\n";