Kronecker product based fractals: Difference between revisions
m
→{{header|Perl 6}}: distribute the load better
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: more effective concurrency) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: distribute the load better) |
||
Line 1,903:
my @img = kronecker-fractal( @shape, $order );
my $png = Image::PNG::Portable.new: :width(@img[0].elems), :height(@img.elems);
(^@img[0]).race(:12batch).map: -> $x {
for ^@img -> $y {
$png.set: $x, $y, |( @img[$y;$x] ?? <255 255 32> !! <16 16 16> );
|