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