#!/usr/local/bin/perl
#+JMJ
# qdstar - Quick and Dirty Starfield Generator

$ROWS=24;
$COLS=69;
$OPAC=0.07;

$nstar=int($ROWS*$COLS*$OPAC);

for $r (0..$ROWS-1)
{
    for $c (0..$COLS-1)
    {
	$grid[$r][$c]=' ';
    }
}

for $n (0..$nstar-1)
{
    $mag=rand();
    if ($mag < 0.5) { $star='.'; }
    elsif ($mag < 0.75) { $star=','; }
    elsif ($mag < 0.875) { $star='o'; }
    elsif ($mag < 0.9375) { $star='*'; }
    elsif ($mag < 0.96875) { $star='O'; }
    elsif ($mag < 0.984375) { $star='0'; }
    else { $star='@'; }
    $grid[int(rand($ROWS))][int(rand($COLS))]=$star;
}

for $r (0..$ROWS-1)
{
    for $c (0..$COLS-1)
    {
	print $grid[$r][$c];
    }
    print "\n";
}