view release on metacpan or  search on metacpan

README  view on Meta::CPAN

     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..

lib/Acme/Text/Rhombus.pm  view on Meta::CPAN

 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..