Rosetta Code

Kronecker product based fractals: Difference between revisions

← Older editNewer edit →
Content deleted Content added
SqrtNegInf (talk | contribs)
2,392 edits
Added Perl example
Thundergnat (talk | contribs)
10,352 edits
m →‎{{header|Perl 6}}: more effective concurrency
Line 1,903:
my @img = kronecker-fractal( @shape, $order );
my $png = Image::PNG::Portable.new: :width(@img[0].elems), :height(@img.elems);
(^@img[0] X ^@img).race.map: -> ($x, $y) {
$png.set: $x, $y, |(for ^@img[$y;$x] ?? <255 255 32-> !! <16 16 16>$y );{
$png.set: $x, $y, |( @img[$y;$x] ?? <255 255 32> !! <16 16 16> );
}
}
$png.write: "kronecker-{$name}-perl6.png";
Retrieved from "https://rosettacode.org/wiki/Kronecker_product_based_fractals"