GopherProxy

#!/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";
}