Kronecker product based fractals: Difference between revisions
m
→{{header|Perl 6}}: more effective concurrency
SqrtNegInf (talk | contribs) (Added Perl example) |
Thundergnat (talk | contribs) 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]
$png.set: $x, $y, |( @img[$y;$x] ?? <255 255 32> !! <16 16 16> );
}
}
$png.write: "kronecker-{$name}-perl6.png";
| |||