9 for (my $y=-$r;$y<=$r;$y++) {
10 my @line = split(//," "x
(2*$zoom*$r));
11 my $x = int(sqrt(($r*$r)-($y*$y))+.5);
12 $line[($r-$x)*$zoom] = "+";
13 $line[($r+$x)*$zoom] = "+";
14 print @line; print "\n";
This page took 0.421286 seconds and 4 git commands to generate.