#-*- perl -*- # # Copyright (C) 2008 Ken'ichi Fukamachi # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # # $FML: @template.pm,v 1.12 2008/08/24 08:28:36 fukachan Exp $ # package FML::Char::Ascii::Data; use strict; use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD $banner_table); use Carp; =head1 NAME FML::Char::Ascii::Data - ascii presentation of letters =head1 SYNOPSIS NONE. =head1 DESCRIPTION Use /usr/bin/banner. For example, run "banner Perl" shows % banner Perl ###### # # ###### ##### # # # # # # # ###### ##### # # # # # ##### # # # # # # # ###### # # ###### This position data of letters are pre-defined as below. =head1 METHODS NONE. =cut # # DATA BEGIN # $banner_table = { ' ' => [ " ", " ", " ", " ", " ", " ", " ", " ", ], '!' => [ " ", " ### ", " ### ", " ### ", " # ", " ", " ### ", " ### ", ], '"' => [ " ", "### ###", "### ###", " # # ", " ", " ", " ", " ", ], '#' => [ " ", " # # ", " # # ", "#######", " # # ", "#######", " # # ", " # # ", ], '$' => [ " ", " ##### ", "# # #", "# # ", " ##### ", " # #", "# # #", " ##### ", ], '%' => [ " ", "### #", "# # # ", "### # ", " # ", " # ###", " # # #", "# ###", ], '&' => [ " ", " ## ", " # # ", " ## ", " ### ", "# # #", "# # ", " ### #", ], '\'' => [ " ", " ### ", " ### ", " # ", " # ", " ", " ", " ", ], '(' => [ " ", " ## ", " # ", " # ", " # ", " # ", " # ", " ## ", ], ')' => [ " ", " ## ", " # ", " # ", " # ", " # ", " # ", " ## ", ], '*' => [ " ", " ", " # # ", " # # ", "#######", " # # ", " # # ", " ", ], '+' => [ " ", " ", " # ", " # ", " ##### ", " # ", " # ", " ", ], ',' => [ " ", " ", " ", " ", " ### ", " ### ", " # ", " # ", ], '-' => [ " ", " ", " ", " ", " ##### ", " ", " ", " ", ], '.' => [ " ", " ", " ", " ", " ", " ### ", " ### ", " ### ", ], '/' => [ " ", " #", " # ", " # ", " # ", " # ", " # ", "# ", ], '0' => [ " ", " ### ", " # # ", "# #", "# #", "# #", " # # ", " ### ", ], '1' => [ " ", " # ", " ## ", " # # ", " # ", " # ", " # ", " ##### ", ], '2' => [ " ", " ##### ", "# #", " #", " ##### ", "# ", "# ", "#######", ], '3' => [ " ", " ##### ", "# #", " #", " ##### ", " #", "# #", " ##### ", ], '4' => [ " ", "# ", "# # ", "# # ", "# # ", "#######", " # ", " # ", ], '5' => [ " ", "#######", "# ", "# ", "###### ", " #", "# #", " ##### ", ], '6' => [ " ", " ##### ", "# #", "# ", "###### ", "# #", "# #", " ##### ", ], '7' => [ " ", "#######", "# # ", " # ", " # ", " # ", " # ", " # ", ], '8' => [ " ", " ##### ", "# #", "# #", " ##### ", "# #", "# #", " ##### ", ], '9' => [ " ", " ##### ", "# #", "# #", " ######", " #", "# #", " ##### ", ], ':' => [ " ", " # ", " ### ", " # ", " ", " # ", " ### ", " # ", ], ';' => [ " ", " ### ", " ### ", " ", " ### ", " ### ", " # ", " # ", ], '<' => [ " ", " # ", " # ", " # ", " # ", " # ", " # ", " # ", ], '=' => [ " ", " ", " ", " ##### ", " ", " ##### ", " ", " ", ], '>' => [ " ", " # ", " # ", " # ", " # ", " # ", " # ", " # ", ], '?' => [ " ", " ##### ", "# #", " #", " ### ", " # ", " ", " # ", ], '@' => [ " ", " ##### ", "# #", "# ### #", "# ### #", "# #### ", "# ", " ##### ", ], 'A' => [ " ", " # ", " # # ", " # # ", "# #", "#######", "# #", "# #", ], 'B' => [ " ", "###### ", "# #", "# #", "###### ", "# #", "# #", "###### ", ], 'C' => [ " ", " ##### ", "# #", "# ", "# ", "# ", "# #", " ##### ", ], 'D' => [ " ", "###### ", "# #", "# #", "# #", "# #", "# #", "###### ", ], 'E' => [ " ", "#######", "# ", "# ", "##### ", "# ", "# ", "#######", ], 'F' => [ " ", "#######", "# ", "# ", "##### ", "# ", "# ", "# ", ], 'G' => [ " ", " ##### ", "# #", "# ", "# ####", "# #", "# #", " ##### ", ], 'H' => [ " ", "# #", "# #", "# #", "#######", "# #", "# #", "# #", ], 'I' => [ " ", " ### ", " # ", " # ", " # ", " # ", " # ", " ### ", ], 'J' => [ " ", " #", " #", " #", " #", "# #", "# #", " ##### ", ], 'K' => [ " ", "# # ", "# # ", "# # ", "### ", "# # ", "# # ", "# # ", ], 'L' => [ " ", "# ", "# ", "# ", "# ", "# ", "# ", "#######", ], 'M' => [ " ", "# #", "## ##", "# # # #", "# # #", "# #", "# #", "# #", ], 'N' => [ " ", "# #", "## #", "# # #", "# # #", "# # #", "# ##", "# #", ], 'O' => [ " ", "#######", "# #", "# #", "# #", "# #", "# #", "#######", ], 'P' => [ " ", "###### ", "# #", "# #", "###### ", "# ", "# ", "# ", ], 'Q' => [ " ", " ##### ", "# #", "# #", "# #", "# # #", "# # ", " #### #", ], 'R' => [ " ", "###### ", "# #", "# #", "###### ", "# # ", "# # ", "# #", ], 'S' => [ " ", " ##### ", "# #", "# ", " ##### ", " #", "# #", " ##### ", ], 'T' => [ " ", "#######", " # ", " # ", " # ", " # ", " # ", " # ", ], 'U' => [ " ", "# #", "# #", "# #", "# #", "# #", "# #", " ##### ", ], 'V' => [ " ", "# #", "# #", "# #", "# #", " # # ", " # # ", " # ", ], 'W' => [ " ", "# #", "# # #", "# # #", "# # #", "# # #", "# # #", " ## ## ", ], 'X' => [ " ", "# #", " # # ", " # # ", " # ", " # # ", " # # ", "# #", ], 'Y' => [ " ", "# #", " # # ", " # # ", " # ", " # ", " # ", " # ", ], 'Z' => [ " ", "#######", " # ", " # ", " # ", " # ", " # ", "#######", ], '[' => [ " ", " ##### ", " # ", " # ", " # ", " # ", " # ", " ##### ", ], '\\' => [ " ", "# ", " # ", " # ", " # ", " # ", " # ", " #", ], ']' => [ " ", " ##### ", " # ", " # ", " # ", " # ", " # ", " ##### ", ], '^' => [ " ", " # ", " # # ", " # # ", " ", " ", " ", " ", ], '_' => [ " ", " ", " ", " ", " ", " ", " ", "#######", ], '`' => [ " ", " ### ", " ### ", " # ", " # ", " ", " ", " ", ], 'a' => [ " ", " ", " ## ", " # # ", " # #", " ######", " # #", " # #", ], 'b' => [ " ", " ", " ##### ", " # #", " ##### ", " # #", " # #", " ##### ", ], 'c' => [ " ", " ", " #### ", " # #", " # ", " # ", " # #", " #### ", ], 'd' => [ " ", " ", " ##### ", " # #", " # #", " # #", " # #", " ##### ", ], 'e' => [ " ", " ", " ######", " # ", " ##### ", " # ", " # ", " ######", ], 'f' => [ " ", " ", " ######", " # ", " ##### ", " # ", " # ", " # ", ], 'g' => [ " ", " ", " #### ", " # #", " # ", " # ###", " # #", " #### ", ], 'h' => [ " ", " ", " # #", " # #", " ######", " # #", " # #", " # #", ], 'i' => [ " ", " ", " # ", " # ", " # ", " # ", " # ", " # ", ], 'j' => [ " ", " ", " #", " #", " #", " #", " # #", " #### ", ], 'k' => [ " ", " ", " # #", " # # ", " #### ", " # # ", " # # ", " # #", ], 'l' => [ " ", " ", " # ", " # ", " # ", " # ", " # ", " ######", ], 'm' => [ " ", " ", " # #", " ## ##", " # ## #", " # #", " # #", " # #", ], 'n' => [ " ", " ", " # #", " ## #", " # # #", " # # #", " # ##", " # #", ], 'o' => [ " ", " ", " #### ", " # #", " # #", " # #", " # #", " #### ", ], 'p' => [ " ", " ", " ##### ", " # #", " # #", " ##### ", " # ", " # ", ], 'q' => [ " ", " ", " #### ", " # #", " # #", " # # #", " # # ", " ### #", ], 'r' => [ " ", " ", " ##### ", " # #", " # #", " ##### ", " # # ", " # #", ], 's' => [ " ", " ", " #### ", " # ", " #### ", " #", " # #", " #### ", ], 't' => [ " ", " ", " #####", " # ", " # ", " # ", " # ", " # ", ], 'u' => [ " ", " ", " # #", " # #", " # #", " # #", " # #", " #### ", ], 'v' => [ " ", " ", " # #", " # #", " # #", " # #", " # # ", " ## ", ], 'w' => [ " ", " ", " # #", " # #", " # #", " # ## #", " ## ##", " # #", ], 'x' => [ " ", " ", " # #", " # # ", " ## ", " ## ", " # # ", " # #", ], 'y' => [ " ", " ", " # #", " # # ", " # ", " # ", " # ", " # ", ], 'z' => [ " ", " ", " ######", " # ", " # ", " # ", " # ", " ######", ], '|' => [ " ", " # ", " # ", " # ", " ", " # ", " # ", " # ", ], '}' => [ " ", " ### ", " # ", " # ", " ##", " # ", " # ", " ### ", ], '~' => [ " ", " ## ", "# # #", " ## ", " ", " ", " ", " ", ], }; # # DATA END # =head1 CODING STYLE See C on fml coding style guide. =head1 AUTHOR Ken'ichi Fukamachi =head1 COPYRIGHT Copyright (C) 2008 Ken'ichi Fukamachi All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 HISTORY This data is derived from NetBSD's /usr/bin/banner source code (BSD License). FML::Char::Ascii::Data appeared in fml8 mailing list driver package. See C for more details. =cut 1;