NAME
Acme::Text::Rhombus - Draw a rhombus with letters/digits
SYNOPSIS
use Acme::Text::Rhombus qw(rhombus);
print rhombus(
lines => 15,
letter => 'c',
case => 'upper',
fillup => '+',
forward => 1,
);
__OUTPUT__
+++++++C+++++++
++++++DDD++++++
+++++EEEEE+++++
++++FFFFFFF++++
+++GGGGGGGGG+++
++HHHHHHHHHHH++
+IIIIIIIIIIIII+
JJJJJJJJJJJJJJJ
+KKKKKKKKKKKKK+
++LLLLLLLLLLL++
+++MMMMMMMMM+++
++++NNNNNNN++++
+++++OOOOO+++++
++++++PPP++++++
+++++++Q+++++++
FUNCTIONS
rhombus, rhombus_letter
Draws a rhombus with letters and returns it as a string.
If no option value is supplied or if it is invalid, then a default will
be silently assumed (omitting all options will return a rhombus of 25
lines).
Given that the specified number of lines is even, it will be incremented
to satisfy the requirement of being an odd number.
Options:
* "lines"
Number of lines to be printed. Defaults to 25.
* "letter"
Letter to start with. Defaults to "a".
* "case"
Lower/upper case of the letters within the rhombus. Defaults to
"upper".
* "fillup"
The fillup character. Defaults to "+".
* "forward"
Forward letter enumeration. Defaults to boolean 1.
rhombus_digit
Draws a rhombus with digits and returns it as a string.
If no option value is supplied or if it is invalid, then a default will
be silently assumed (omitting all options will return a rhombus of 25
lines).
Given that the specified number of lines is even, it will be incremented
to satisfy the requirement of being an odd number.
Options:
* "lines"
Number of lines to be printed. Defaults to 25.
* "digit"
Digit to start with. Defaults to 0.
* "fillup"
The fillup character. Defaults to "+".
* "forward"
Forward digit enumeration. Defaults to boolean 1.
rhombus_random
Draws a rhombus with random letters/digits and returns it as a string.
If no option value is supplied or if it is invalid, then a default will
be silently assumed (omitting all options will return a rhombus of 25
lines).
Given that the specified number of lines is even, it will be incremented
to satisfy the requirement of being an odd number.
Options:
* "lines"
Number of lines to be printed. Defaults to 25.
* "fillup"
The fillup character. Defaults to "+".
EXPORT
Functions
"rhombus(), rhombus_letter(), rhombus_digit(), rhombus_random()" are
exportable.
Tags
":all - *()"
AUTHOR
Steven Schubiger
LICENSE
This program is free software; you may redistribute it and/or modify it
under the same terms as Perl itself.
See