Talk:Constrained random points on a circle: Difference between revisions
Content added Content deleted
| Line 48: | Line 48: | ||
<pre> |
<pre> |
||
my @bitmap = map { " " x 32 } 0 .. |
my @bitmap = map { " " x 32 } 0 .. 33; |
||
for (1 .. 100) { |
for (1 .. 100) { |
||
my $x = int rand(31) - 15; |
my $x = int rand(31) - 15; |
||
| Line 57: | Line 57: | ||
$min = $min > 0 ? sqrt $min : 0; |
$min = $min > 0 ? sqrt $min : 0; |
||
my $y = int rand( $max-$min ) + $min; |
my $y = int rand( 1+$max-$min ) + $min; |
||
$y = -$y if rand() < .5; |
$y = -$y if rand() < .5; |
||
$x += |
$x += 16; |
||
$y += |
$y += 16; |
||
#print "$x $y\n"; |
|||
substr( $bitmap[$y], $x, 1, "#" ); |
substr( $bitmap[$y], $x, 1, "#" ); |
||
} |
} |
||