Awhile back, some girl, I assume, asked how she could make flowers with Perl. Everyone directed her to various ascii art modules or 2d graphics libraries, my personal offering would have been Tk::Zinc generation of petals. That code is quite complicated.

But as the winter freeze sets in on my camp, I have found an ever-blooming flower, which can be generated with a single line of Perl code. screenshot 1 screenshot 2

#!/usr/bin/perl
use PDL;
use PDL::Graphics::TriD;

# hit 'q' to exit

imag3d [sqrt(rvals(zeroes(50,50))/2)], {Lines=>0};
[download]