a 3D flower made with Perl, for anonymous girl

[zentara]

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};

[teamster_jr]

very nice. my entry would be this

edit: and in fact I originally started looking at rendering a mathematically generated 3d flower... I guess you beat me to it :)

a