Acme::Text::Rhombus - Draw an alphanumerical rhombus
use Acme::Text::Rhombus qw(rhombus);
print rhombus( lines => 31, letter => 'c', case => 'upper', fillup => '+', );
__OUTPUT__
++++++C++++++ +++++DDD+++++ ++++EEEEE++++ +++FFFFFFF+++ ++GGGGGGGGG++ +HHHHHHHHHHH+ IIIIIIIIIIIII +JJJJJJJJJJJ+ ++KKKKKKKKK++ +++LLLLLLL+++ ++++MMMMM++++ +++++NNN+++++ ++++++O++++++
Draws an alphanumerical rhombus and returns it as string. Omitting options will return a rhombus of 25 lines.
Options:
Amount of lines to be printed.
Alphanumerical letter to start with.
Lower/upper case of the letters within the rhombus.
The fillup character.
Steven Schubiger <schubiger@cpan.org>
This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.