File Coverage

blib/lib/Ascii/Text/Font/Boomer.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Ascii::Text::Font::Boomer;

use strict;
use warnings;
use Rope;
use Rope::Autoload;

extends 'Ascii::Text::Font';

property character_height => (
	initable => 0,
	writeable => 0,
	value => 8
);

function character_A => sub {
	my @character = $_[0]->default_character(7);
	$character[0][2] = $character[0][3] = $character[0][4] = $character[1][3] = $character[2][3] = $character[3][3] = $character[5][1] = $character[5][5] = '_';
	$character[1][1] = $character[2][0] = $character[2][2] = $character[5][6] = '/';
	$character[1][5] = $character[2][4] = $character[2][6] = $character[5][0] = '\\';
	$character[3][0] = $character[3][6] = $character[4][0] = $character[4][2] = $character[4][4] = $character[4][6] = $character[5][2] = $character[5][4] = '|';
	return \@character;
};

function character_B => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][2] = $character[1][3] = $character[1][4] = $character[2][3] = $character[3][2] = $character[3][3] = $character[3][4] = $character[5][1] = $character[5][2] = $character[5][3] = $character[5][4] = $character[4][3] = '_';
	$character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[2][2] = $character[4][2] = '|';
	$character[1][6] = $character[3][6] = $character[5][0] = '\\';
	$character[2][4] = $character[2][6] = $character[4][6] = $character[5][5] = $character[4][4] = '/';
	return \@character;
};

function character_C => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[0][1] = $character[1][1] = $character[1][2] = $character[1][5] = $character[2][1] = $character[2][3] = $character[2][4] = $character[3][1] = $character[3][3] = $character[3][4] = $character[3][5] = $character[3][6] = $character[4][1] = $character[5][1] = $character[6][0] = $character[6][1] = $character[6][2] = $character[6][3] = $character[6][4] = $character[6][5] = $character[6][6] = ' ';
	$character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[1][3] = $character[1][4] = $character[4][3] = $character[4][4] = $character[5][2] = $character[5][3] = $character[5][4] = $character[5][5] = '_';
	$character[2][0] = $character[3][0] = $character[3][2] = $character[4][0] = '|';
	$character[1][0] = $character[2][2] = $character[2][6] = $character[4][5] = $character[5][6] = '/';

	$character[1][6] = $character[2][5] = $character[4][2] = $character[4][6] = $character[5][1] = '\\';
	return \@character;
};

function character_D => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[5][1] = $character[1][3] = $character[5][2] = $character[5][3] = '_';
	$character[4][3] = $character[4][5] = $character[5][4] = '/';
	$character[1][6] = '\\';
	$character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[2][2] = $character[3][2] = $character[4][2] = $character[2][4] = $character[3][4] = $character[2][6] = $character[3][6] = '|';
	return \@character;
};

function character_E => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[0][5] = $character[1][1] = $character[1][2] = $character[2][1] = $character[2][2] = $character[3][1] = $character[3][2] = $character[4][1] = $character[4][2] = ' ';
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = $character[2][3] = $character[2][4] = $character[3][3] = $character[3][4] = $character[4][3] = $character[4][4] = $character[4][5] = $character[5][1] = $character[5][2] = $character[5][3] = $character[5][4] = $character[5][5] = '_';
	$character[1][0] = $character[1][6] = $character[2][0] = $character[2][2] = $character[3][0] = $character[3][5] = $character[4][0] = $character[4][2] = '|';
	$character[5][0] = '\\';
	$character[5][5] = '/';
	return \@character;
};

function character_F => sub {
	my @character = $_[0]->default_character(6);
	$character[0][0] = $character[1][1] = $character[1][2] = $character[2][1] = $character[2][2] = $character[3][1] = $character[3][2] = $character[4][1] = $character[4][2] = ' ';
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3] = $character[1][4] = $character[1][5] = $character[2][3] = $character[3][3] = $character[5][1] = '_';
	$character[1][0] = $character[1][5] = $character[2][0] = $character[2][2] = $character[3][0] = $character[3][4] = $character[4][0] = $character[4][2] = $character[5][2] = '|';
	$character[5][0] = '\\';
	return \@character;
};

function character_G => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3] = $character[1][4] = $character[4][3] = $character[5][2] = $character[5][3] = $character[5][4] = $character[5][5] = $character[3][4] = $character[3][5] = '_';
	$character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[2][2] = $character[3][2] = $character[4][2] = '|';
	$character[1][6] = $character[2][5] = $character[4][4] = $character[4][6] = $character[5][1] = '\\';
	$character[2][6] = $character[5][6] = '/';
	return \@character;
};

function character_H => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[0][5] = $character[3][3] = $character[2][3] = $character[5][1] = $character[5][5] = '_';
	$character[1][0] = $character[1][2] = $character[1][4] = $character[1][6] = $character[2][0] = $character[2][2] = $character[2][4] = $character[2][6] = $character[3][0] = $character[3][6] = $character[4][0] = $character[4][2] = $character[4][4] = $character[4][6] = $character[5][2] = $character[5][4] = '|';
	$character[5][0] = '\\';
	$character[5][6] = '/';
	$character[5][0] = '\\';
	$character[5][6] = '/';
	return \@character;
};

function character_I => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[0][6] = $character[1][2] = $character[1][3] = $character[1][4] = $character[2][0] = $character[2][1] = $character[2][3] = $character[2][5] = $character[2][6] = $character[3][0] = $character[3][1] = $character[3][3] = $character[3][5] = $character[3][6] = $character[4][0] = $character[4][1] = $character[4][3] = $character[4][6] = $character[5][0] = $character[5][6] = ' ';
	$character[1][0] = $character[1][6] = $character[2][2] = $character[2][4] = $character[3][2] = $character[3][4] = $character[4][2] = $character[4][4] = '|';
	$character[5][5] = '/';
	$character[5][1] = '\\';
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][1] = $character[1][5] = $character[4][1] = $character[4][5] = $character[5][2] = $character[5][3] = $character[5][4] = '_';
	return \@character;
};

function character_J => sub {
	my @character = $_[0]->default_character(7);
       $character[0][0] = $character[0][1] = $character[0][2] = $character[0][6] = $character[1][0] = $character[1][1] = $character[1][4] = $character[1][5] = $character[2][0] = $character[2][1] = $character[2][2] = $character[2][3] = $character[2][5] = $character[3][0] = $character[3][1] = $character[3][2] = $character[3][3] = $character[3][5] = $character[4][5] = $character[5][6] = ' ';
	$character[1][2] = $character[1][6] = $character[2][4] = $character[2][6] = $character[3][4] = $character[3][6] = '|';
	$character[4][0] = $character[4][4] = $character[4][6] = $character[5][5] = '/';
	$character[4][1] = $character[5][0] = '\\';
	$character[4][2] = $character[4][3] = $character[5][1] = $character[5][2] = $character[5][3] = $character[5][4] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3] = '_';
	return \@character;
};

function character_K => sub {
	my @character = $_[0]->default_character(7);
	$character[0][6] = $character[0][1] = $character[0][5] = $character[5][1] = $character[5][5] = '_';
	$character[1][4] = $character[1][6] = $character[2][5] = $character[2][3] = $character[5][6] = '/';
	$character[3][5] = $character[4][6] = $character[4][3] = $character[5][4] = $character[5][0] = '\\';
	$character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[1][2] = $character[2][2] = $character[4][2] = $character[5][2] = '|';
	return \@character;
};

function character_L => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[4][3] = $character[4][4] = $character[4][5] = $character[5][1] = $character[5][2] = $character[5][3] = $character[5][4] = $character[5][5] = '_';
	$character[1][0] = $character[1][2] = $character[2][0] = $character[2][2] = $character[3][0] = $character[3][2] = $character[4][0] = $character[4][2] = '|';
	$character[5][0] = '\\';
	$character[5][5] = '/';
	return \@character;
};

function character_M => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[0][1] = $character[0][2] = $character[0][5] = $character[0][6] = $character[0][7] = $character[5][1] = $character[5][6] = '_';
	$character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[3][2] = $character[4][2] = $character[5][2] = $character[3][5] = $character[4][5] = $character[5][5] = $character[1][7] = $character[2][7] = $character[3][7] = $character[4][7] = '|';
	$character[2][2] = $character[2][5] = '.';
	$character[1][3] = $character[3][3] = $character[5][0] = '\\';
	$character[1][4] = $character[3][4] = $character[5][7] = '/';
	return \@character;
};

function character_N => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[0][5] = $character[5][1] = $character[5][5] = '_';
	$character[1][2] = $character[2][3] = $character[4][3] = $character[5][0] = $character[5][4] = '\\';
	$character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[4][2] = $character[5][2] = $character[1][4] = $character[2][4] = $character[1][6] = $character[2][6] = $character[3][6] = $character[4][6] = '|';
	$character[5][6] = '/';
	$character[3][2] = '.';
	$character[3][4] = '`';
	return \@character;
};

function character_O => sub {
	my @character = $_[0]->default_character(7);
	$character[1][0] = $character[1][6] = $character[2][0] = $character[2][2] = $character[2][4] = $character[2][6] = $character[3][0] = $character[3][2] = $character[3][4] = $character[3][6] = '|';
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3] = $character[4][3] = $character[5][2] = $character[5][3] = $character[5][4] = '_';
	$character[4][0] = $character[4][2] = $character[5][1] = '\\';
	$character[4][4] = $character[4][6] = $character[5][5] = '/';
	return \@character;
};

function character_P => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][2] = $character[1][3] = $character[1][4] = $character[2][3] = $character[3][3] = $character[3][4] = $character[5][1] = '_';
	$character[2][4] = $character[2][6] = $character[3][5] = '/';
	$character[1][6] = $character[5][0] = '\\';
	$character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[2][2] = $character[4][2] = $character[5][2] = '|';
	return \@character;
};

function character_Q => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[1][1] = $character[1][2] = $character[1][4] = $character[1][5] = $character[2][1] = $character[2][3] = $character[2][5] = $character[3][1] = $character[3][3] = $character[3][5] = $character[4][1] = $character[4][5] = $character[5][0] = ' ';
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3] = $character[5][2] = $character[5][5] = '_';
	$character[4][0] = $character[4][2] = $character[5][1] = $character[5][4] = $character[5][6] = '\\';
	$character[1][0] = $character[1][6] = $character[2][0] = $character[2][2] = $character[2][4] = $character[2][6] = $character[3][0] = $character[3][2] = $character[3][4] = $character[3][6] = '|';
	$character[4][4] = '\'';
	$character[4][3] = $character[4][6] = $character[5][3] = '/';
	return \@character;
};

function character_R => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][2] = $character[1][3] = $character[1][4] = $character[5][1] = $character[5][5] = $character[2][3] = '_';
	$character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[2][2] = $character[4][2] = $character[5][2] = $character[5][6] = '|';
	$character[1][6] = $character[4][5] = $character[4][3] = $character[5][0] = $character[5][4] = '\\';
	$character[2][4] = $character[2][6] = $character[3][5] = '/';
	return \@character;
};

function character_S => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3] = $character[1][4] = $character[1][5] = $character[4][2] = $character[4][3] = $character[5][1] = $character[5][2] = $character[5][3] = $character[5][4] = '_';
	$character[2][0] = $character[3][6] = $character[4][1] = $character[5][0] = '\\';
	$character[1][0] = $character[4][0] = $character[4][4] = $character[4][6] = $character[5][5] = '/';
	$character[1][6] = '|';
	$character[2][2] = $character[3][1] = '`';
	$character[2][5] = $character[3][4] = '.';
	$character[2][3] = $character[2][4] = $character[3][2] = $character[3][3] = '-';
	return \@character;
};

function character_T => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[0][6] = $character[1][2] = $character[1][3] = $character[1][4] = $character[2][0] = $character[2][1] = $character[2][3] = $character[2][5] = $character[2][6] = $character[3][0] = $character[3][1] = $character[3][3] = $character[3][5] = $character[3][6] = $character[4][0] = $character[4][1] = $character[4][3] = $character[4][5] = $character[4][6] = $character[5][0] = $character[5][1] = $character[5][3] = $character[5][5] = $character[5][6] = ' ';
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][1] = $character[1][5] = $character[5][3] = '_';
	$character[1][0] = $character[1][6] = $character[2][2] = $character[2][4] = $character[3][2] = $character[3][4] = $character[4][2] = $character[4][4] = '|';
	$character[5][4] = '/';
	$character[5][2] = '\\';
	return \@character;
};

function character_U => sub {
	my @character = $_[0]->default_character(7);
	$character[1][0] = $character[1][2] = $character[1][4] = $character[1][6] = $character[2][0] = $character[2][2] = $character[2][4] = $character[2][6] = $character[3][0] = $character[3][2] = $character[3][4] = $character[3][6] = $character[4][0] = $character[4][2] = $character[4][4] = $character[4][6] = '|';
	$character[0][1] = $character[0][5] = $character[4][3] = $character[5][2] = $character[5][3] = $character[5][4] = '_';
	$character[5][1] = '\\';
	$character[5][5] = '/';
	return \@character;
};

function character_V => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[0][5] = $character[4][3] = $character[5][2] = $character[5][3] = $character[5][4] = '_';
	$character[1][0] = $character[1][2] = $character[1][4] = $character[1][6] = $character[2][0] = $character[2][2] = $character[2][4] = $character[2][6] = $character[3][0] = $character[3][2] = $character[3][4] = $character[3][6] = '|';
	$character[4][0] = $character[4][2] = $character[5][1] = '\\';
	$character[4][4] = $character[4][6] = $character[5][5] = '/';
	return \@character;
};

function character_W => sub {
	my @character = $_[0]->default_character(8);
	$character[0][1] = $character[0][6] = '_';
	$character[1][0] = $character[1][2] = $character[1][5] = $character[1][7] = $character[2][0] = $character[2][2] = $character[2][5] = $character[2][7] = $character[3][0] = $character[3][2] = $character[3][5] = $character[3][7] = '|';
	$character[3][4] = $character[4][4] = $character[4][0] = $character[5][1] = $character[5][5] = '\\';
	$character[3][3] = $character[4][3] = $character[4][7] = $character[5][2] = $character[5][6] = '/';
	return \@character;
};

function character_X => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[0][1] = $character[0][5] = $character[0][6] = '_';
	$character[1][0] = $character[1][2] = $character[2][1] = $character[3][5] = $character[4][4] = $character[4][6] = $character[5][5] = $character[5][0] = '\\';
	$character[1][4] = $character[1][6] = $character[2][5] = $character[3][1] = $character[4][0] = $character[4][2] = $character[5][1] = $character[5][6] = '/';
	$character[2][3] = 'v';
	$character[4][3] = '^';
	return \@character;
};

function character_Y => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[0][1] = $character[0][5] = $character[0][6] = $character[5][3] = '_';
	$character[1][4] = $character[1][6] = $character[2][5] = $character[5][4] = $character[3][4] = '/';
	$character[1][0] = $character[1][2] = $character[3][2] = $character[5][2] = $character[2][1] = '\\';
	$character[2][3] = 'v';
	$character[4][2] = $character[4][4] = '|';
	return \@character;
};

function character_Z => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[1][1] = $character[1][2] = $character[1][3] = $character[4][5] = $character[4][6] = $character[4][4] = $character[5][1] = $character[5][2] = $character[5][3] = $character[5][4] = $character[5][5] = '_';
	$character[2][3] = $character[2][5] = $character[1][6] = $character[3][2] = $character[3][4] = $character[4][1] = $character[4][3] = $character[5][6] = '/';
	$character[5][0] = '\\';
	$character[1][0] = '|';
	return \@character;
};

function character_a => sub {
	my @character = $_[0]->default_character(7);
	$character[2][2] = $character[2][3] = $character[2][5] = '_';
	$character[3][1] = '/';
	$character[3][3] = '_';
	$character[3][4] = '`';
	$character[3][6] = '|';
	$character[4][0] = '|';
	$character[4][2] = '(';
	$character[4][3] = '_';
	$character[4][4] = '|';
	$character[4][6] = '|';
	$character[5][1] = '\\';
	$character[5][2] = '_';
	$character[5][3] = '_';
	$character[5][4] = ',';
	$character[5][5] = '_';
	$character[5][6] = '|';
	return \@character;
};

function character_b => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[5][1] = $character[5][3] = $character[5][4] = $character[2][3] = $character[2][4] = $character[3][3] = $character[4][3] = '_';
	$character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[1][2] = $character[2][2] = $character[4][2] = $character[4][6] = '|';
	$character[4][4] = ')';
	$character[5][2] = '.';
	$character[3][2] = '\'';
	$character[3][5] = '\\';
	$character[5][5] = '/';
	return \@character;
};

function character_c => sub {
	my @character = $_[0]->default_character(6);
	$character[2][2] = $character[2][3] = $character[2][4] = $character[5][2] = $character[5][3] = $character[5][4] = $character[3][3] = $character[3][4] = $character[4][3] = $character[4][4] = '_';
	$character[3][1] = '/';
	$character[4][0] = '|';
	$character[4][2] = '(';
	$character[5][1] = '\\';
	$character[3][5] = $character[5][5] = '|';
	return \@character;
};

function character_d => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][6] = $character[1][0] = $character[1][1] = $character[1][2] = $character[1][3] = $character[1][5] = $character[2][0] = $character[2][1] = $character[2][2] = $character[2][3] = $character[2][5] = ' ';
	$character[0][5] = $character[2][2] = $character[2][3] = $character[3][3] = $character[4][3] = $character[5][2] = $character[5][3] = $character[5][5] = '_';
	$character[1][4] = $character[1][6] = $character[2][4] = $character[2][6] = $character[3][6] = $character[4][0] = $character[4][4] = $character[4][6] = $character[5][6] = '|';
	$character[4][2] = '(';
	$character[5][4] = ',';
	$character[3][4] = '`';
	$character[5][1] = '\\';
	$character[3][1] = '/';
	$character[0][0] = $character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][6] = $character[1][0] = $character[1][1] = $character[1][2] = $character[1][3] = $character[1][5] = $character[2][0] = $character[2][1] = $character[2][2] = $character[2][3] = $character[2][5] = ' ';
	$character[0][5] = $character[2][2] = $character[2][3] = $character[3][3] = $character[4][3] = $character[5][2] = $character[5][3] = $character[5][5] = '_';
	$character[1][4] = $character[1][6] = $character[2][4] = $character[2][6] = $character[3][6] = $character[4][0] = $character[4][4] = $character[4][6] = $character[5][6] = '|';
	$character[4][2] = '(';
	$character[5][4] = ',';
	$character[3][4] = '`';
	$character[5][1] = '\\';
	$character[3][1] = '/';
	return \@character;
};

function character_e => sub {
	my @character = $_[0]->default_character(6);
	$character[2][2] = $character[2][3] = $character[2][4] = $character[5][2] = $character[5][3] = $character[5][4] = $character[4][3] = $character[4][4] = $character[3][3] = '_';
	$character[3][5] = $character[5][1] = '\\';
	$character[4][0] = $character[5][5] = '|';
	$character[3][1] = $character[4][5] = '/';
	return \@character;
};

function character_f => sub {
	my @character = $_[0]->default_character(5);
	$character[0][3] = $character[0][4] = $character[1][3] = $character[2][3] = $character[3][3] = $character[5][1] = '_';
	$character[1][4] = $character[2][0] = $character[2][2] = $character[3][0] = $character[3][4] =
	$character[4][0] = $character[4][2] = $character[5][0] = $character[5][2] = '|';
	$character[1][1] = '/';
	return \@character;
};

function character_g => sub {
	my @character = $_[0]->default_character(7);
	$character[2][0] = $character[2][1] = $character[2][4] = $character[2][6] = $character[3][0] = $character[3][2] = $character[3][4] = $character[3][5] = $character[4][1] = $character[4][5] = $character[5][0] = $character[5][5] = $character[6][0] = $character[6][1] = $character[6][5] = $character[7][0] = $character[7][6] = ' ';
	$character[2][2] = $character[2][3] = $character[2][5] = $character[3][3] = $character[4][3] = $character[5][2] = $character[5][3] = $character[6][2] = $character[6][3] = $character[7][2] = $character[7][3] = $character[7][4] = '_';
	$character[3][6] = $character[4][0] = $character[4][4] = $character[4][6] = $character[5][6] = $character[6][6] = $character[7][1] = '|';
	$character[3][1] = $character[6][4] = $character[7][5] = '/';
	$character[5][1] = '\\';
	$character[3][4] = '`';
	$character[5][4] = ',';
	$character[4][2] = '(';
	return \@character;
};

function character_h => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[5][1] = $character[5][5] = $character[2][3] = $character[2][4] = $character[3][3] = '_';
	$character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[5][0] = $character[1][2] = $character[2][2] = $character[4][2] = $character[5][2] = $character[4][4] = $character[5][4] = $character[4][6] = $character[5][6] = '|';
	$character[3][5] = '\\';
	return \@character;
};

function character_i => sub {
	my @character = $_[0]->default_character(3);
	$character[0][1] = $character[1][1] = $character[2][1] = $character[5][1] = '_';
	$character[3][2] = $character[4][2] = $character[5][2] = $character[3][0] = $character[4][0] = $character[5][0] = '|';
	$character[1][0] = '(';
	$character[1][2] = ')';
	return \@character;
};

function character_j => sub {
	my @character = $_[0]->default_character(5);
	$character[0][0] = $character[0][1] = $character[0][2] = $character[1][0] = $character[1][1] = $character[2][0] = $character[2][1] = $character[2][2] = $character[3][0] = $character[3][1] = $character[3][3] = $character[4][0] = $character[4][1] = $character[4][3] = $character[5][0] = $character[5][3] = ' ';
	$character[0][3] = $character[1][3] = $character[2][3] = $character[6][1] = $character[7][1] = $character[7][2] = '_';
	$character[3][2] = $character[3][4] = $character[4][2] = $character[4][4] = $character[5][2] = $character[5][4] = $character[6][4] = $character[7][0] = '|';
	$character[6][2] = $character[7][3] = '/';
	$character[1][2] = '(';
	$character[1][4] = ')';
	return \@character;
};

function character_k => sub {
	my @character = $_[0]->default_character(6);
	$character[0][1] = $character[2][4] = $character[2][5] = $character[5][1] = $character[5][4] = '_';
	$character[1][0] = $character[1][2] = $character[2][0] = $character[2][2] = $character[3][0] = $character[3][2] = $character[4][0] = $character[5][0] = $character[5][2] = '|';
	$character[3][3] = $character[3][5] = '/';
	$character[4][4] = '<';
	$character[5][3] = $character[5][5] = '\\';
	return \@character;
};

function character_l => sub {
	my @character = $_[0]->default_character(3);
	$character[0][1] = $character[5][1] = '_';
	$character[1][0] = $character[2][0] = $character[3][0] = $character[4][0] = $character[1][2] = $character[2][2] = $character[3][2] = $character[4][2] = $character[5][0] = $character[5][2] = '|';
	return \@character;
};

function character_m => sub {
	my @character = $_[0]->default_character(11);
	$character[2][1] = $character[2][3] = $character[2][4] = $character[2][6] = $character[2][7] = $character[2][8] = $character[3][3] = $character[3][7] = $character[5][1] = $character[5][5] = $character[5][9] = '_';
	$character[2][0] = $character[2][2] = $character[2][5] = $character[2][9] = $character[3][1] = $character[4][1] = $character[4][3] = $character[4][5] = $character[4][7] = $character[4][9] = $character[5][3] = $character[5][7] = ' ';
	$character[3][0] = $character[4][0] = $character[5][0] = $character[4][2] = $character[5][2] = $character[4][4] = $character[5][4] = $character[4][6] = $character[5][6] = $character[4][8] = $character[5][8] = $character[4][10] = $character[5][10] = '|';
	$character[3][2] = '\'';
	$character[3][9] = '\\';
	$character[3][5] = '`';
	return \@character;
};

function character_n => sub {
	my @character = $_[0]->default_character(7);
	$character[2][1] = $character[2][3] = $character[2][4] = $character[4][3] = $character[4][5] = $character[4][4] = $character[3][3] = $character[5][5] = $character[5][1] = '_';
	$character[2][0] = $character[2][2] = $character[2][5] = $character[2][6] = $character[3][1] = $character[4][1] = $character[4][3] = $character[4][5] = ' ';
	$character[3][0] = $character[4][0] = $character[4][2] = $character[4][4] = $character[4][6] = $character[5][0] = $character[5][2] = $character[5][4] = $character[5][6] = '|';
	$character[3][2] = '\'';
	$character[3][5] = '\\';
	return \@character;
};

function character_o => sub {
	my @character = $_[0]->default_character(7);
	$character[2][2] = $character[2][3] = $character[2][4] = '_';
	$character[3][3] = '_';
	$character[3][1] = '/';
	$character[3][5] = '\\';
	$character[4][0] = $character[4][6] = '|';
	$character[4][2] = '(';
	$character[4][4] = ')';
	$character[4][3] = '_';
	$character[5][1] = '\\';
	$character[5][5] = '/';
	$character[5][2] = $character[5][3] = $character[5][4] = '_';
	return \@character;
};

function character_p => sub {
	my @character = $_[0]->default_character(7);
	$character[2][1] = $character[2][4] = $character[2][3]= $character[7][1] = '_';
	$character[3][3] = $character[4][3] = $character[5][3] = $character[5][4] = '_';
	$character[3][0] = $character[4][0] = $character[5][0] = $character[6][0] = '|';
	$character[7][0] = $character[4][2] = $character[6][2] = $character[7][2] = $character[4][6] = '|';
	$character[3][2] = '\'';
	$character[5][2] = '.';
	$character[4][4] = ')';
	$character[3][5] = '\\';
	$character[5][5] = '/';
	return \@character;
};

function character_q => sub {
	my @character = $_[0]->default_character(7);
	$character[2][2] = $character[2][5] = $character[2][3] = $character[7][5] = '_';
	$character[3][3] = $character[4][3] = $character[5][3] = $character[5][2] = '_';
	$character[4][0] = $character[4][4] = $character[6][4] = $character[7][6] = $character[7][4]='|';
	$character[3][6] = $character[4][6] = $character[5][6] = $character[6][6] = '|';
	$character[4][2] = '(';
	$character[5][1] = '\\';
	$character[3][1] = '/';
	$character[5][4] = ',';
	$character[3][4] = '`';
	return \@character;
};

function character_r => sub {
	my @character = $_[0]->default_character(5);
	$character[2][3]=$character[2][1] = $character[5][1] =  $character[3][3] = '_';
	$character[3][0]=$character[4][0] = $character[5][0] =$character[4][2] = $character[5][2] = $character[3][4] = '|';
	$character[3][2]='\'';
	return \@character;
};

function character_s => sub {
	my @character = $_[0]->default_character(5);
	$character[2][1] = $character[2][2] = $character[2][3] = '_';
	$character[3][0] = '/';
	$character[3][2] = $character[3][3] = '_';
	$character[3][4] = '|';
	$character[4][0] = '\\';
	$character[4][1] = $character[4][2] = '_';
	$character[4][4] = '\\';
	$character[5][0] = '|';
	$character[5][1] = $character[5][2] = $character[5][3] = '_';
	$character[5][4] = '/';
	return \@character;
};

function character_t => sub {
	my @character = $_[0]->default_character(5);
	$character[0][1] = $character[2][3] = $character[3][2] = $character[3][3] = $character[4][3] = $character[5][2] = $character[5][3] = '_';
	$character[1][0] = $character[1][2] = $character[2][0] = $character[2][2] = $character[3][0] = $character[3][4] = $character[4][0] = $character[4][2] = $character[5][4] = '|';
	$character[5][1] = '\\';
	return \@character;
};

function character_u => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = ' ';
	$character[1][0] = $character[1][1] = $character[1][2] = $character[1][3] = $character[1][4] = $character[1][5] = $character[1][6] = ' ';
	$character[2][0] = $character[2][2] = $character[2][3] = $character[2][6] = $character[5][0] = ' ';
	$character[3][1] = $character[3][3] = $character[3][5] = $character[4][1] = $character[4][5] = ' ';
	$character[6][0] = $character[6][1] = $character[6][2] = $character[6][3] = $character[6][4] = $character[6][5] = $character[6][6] = ' ';
	$character[3][0] = $character[4][0] = $character[3][2] = $character[4][2] = $character[3][4] = $character[4][4] = $character[3][6] = $character[4][6] = $character[5][6] = '|';
	$character[2][1] = $character[2][5] = $character[4][3] = $character[5][2] = $character[5][3] = $character[5][5] = '_';
	$character[5][1] = '\\';
	$character[5][4] = ',';
	return \@character;
};

function character_v => sub {
	my @character = $_[0]->default_character(7);
	$character[2][0] = $character[2][1] = $character[2][5] = $character[2][6] = $character[5][3] = '_';
	$character[3][0] = $character[3][2] = $character[4][1] = $character[5][2] = '\\';
	$character[3][4] = $character[3][6] = $character[4][5] = $character[5][4] = '/';
	$character[4][3] = 'V';
	return \@character;
};

function character_w => sub {
	my @character = $_[0]->default_character(10);
    	$character[2][0] = $character[2][1] = $character[2][8] = $character[2][9] = $character[5][3] = $character[5][6] = '_';
    	$character[3][0] = $character[3][2] = $character[3][5] = $character[4][1] = $character[5][2] = $character[5][5] ='\\';
    	$character[3][4] = $character[3][7] = $character[3][9] = $character[4][8] = $character[5][4] = $character[5][7] = '/';
    	$character[4][3] = $character[4][6] = 'V';
	return \@character;
};

function character_x => sub {
	my @character = $_[0]->default_character(6);
	$character[0][0] = $character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] =  ' ';
	$character[1][0] = $character[1][1] = $character[1][2] = $character[1][3] = $character[1][4] = $character[1][5] = ' ';
	$character[2][0] = $character[2][1] = $character[2][4] = $character[2][5] = $character[5][1] = $character[5][4] = '_';
	$character[3][1] = $character[3][4] = $character[4][0] = $character[4][2] = $character[4][3] = $character[4][5] = ' ';
	$character[3][0] = $character[3][2] = $character[5][3] = $character[5][5] = '\\';
	$character[3][3] = $character[3][5] = $character[5][0] = $character[5][2] = '/';
	$character[4][1] = '>';
	$character[4][4] = '<';
	return \@character;
};

function character_y => sub {
	my @character = $_[0]->default_character(7);
	$character[3][0]=$character[3][2]=$character[3][4]=$character[3][6]=$character[4][0]=$character[4][2]=$character[4][4]=$character[4][6]=$character[5][6]=$character[6][6]=$character[7][1]='|';
	$character[5][1]='\\';
	$character[2][1]=$character[2][5]=$character[4][3]=$character[5][2]=$character[5][3]=$character[6][3]=$character[6][2]=$character[7][4]=$character[7][3]=$character[7][2]='_';
	$character[6][4]=$character[7][5]='/';
	$character[5][4]=',';
	return \@character;
};

function character_z => sub {
	my @character = $_[0]->default_character(5);
	$character[2][0] = $character[3][2] = $character[3][3] = $character[4][0] = $character[4][2] = ' ';
	$character[2][1] = $character[2][2] = $character[2][3] = $character[2][4] = $character[3][1] = $character[5][1] = $character[5][2] = $character[5][3] = '_';
	$character[3][0] = $character[5][4] = '|';
	$character[3][4] = $character[4][1] = $character[4][3] = $character[5][0] = '/';
	return \@character;
};

function character_0 => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3] = $character[4][3] = $character[5][2] = $character[5][3] = $character[5][4] = '_';
	$character[1][0] = $character[1][6] = $character[2][0] = $character[2][2] = $character[2][6] = $character[3][0] = $character[3][4] = $character[3][6] = $character[4][2] = '|';
	$character[2][4] = '\'';
	$character[4][0] = $character[5][1] = '\\';
	$character[2][3] = $character[3][3] = $character[4][4] = $character[4][6] = $character[5][5] = '/';
	return \@character;
};

function character_1 => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[0][2] = $character[0][3] =$character[4][0]=$character[4][5]=$character[5][1]=$character[5][2]=$character[5][3]=$character[5][4]='_';
	$character[1][0]=$character[5][5]='/';
	$character[2][0]='`';
	$character[2][1]=$character[3][1]=$character[4][1]='|';
	$character[1][4]=$character[2][4]=$character[3][4]=$character[4][4]='|';
	$character[5][0]='\\';
	return \@character;
};

function character_2 => sub {
	my @character = $_[0]->default_character(7);
      	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][2] = $character[1][3] = $character[4][4] = $character[4][5] = $character[4][6] = $character[5][1] = $character[5][2] = $character[5][3] = $character[5][4] = $character[5][5] = '_';
	$character[1][0] = $character[2][3] = $character[2][5] = $character[3][2] = $character[3][4] = $character[4][1] = $character[4][3] = $character[5][6] = '/';
	$character[1][6] = $character[5][0] = '\\';
	$character[4][0] = '.';
	$character[2][0] = '`';
	$character[2][1] = $character[2][6] = '\'';
	return \@character;
};

function character_3 => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0]=$character[0][6]=$character[1][5]=$character[2][0]=$character[2][1]=$character[2][2]=$character[2][3]=$character[2][5]=$character[3][0]=$character[3][1]=$character[3][2]=$character[3][3]=$character[3][5]=' ';
	$character[0][1]=$character[0][2]=$character[0][3]=$character[0][4]=$character[0][5]=$character[1][1]=$character[1][2]=$character[1][3]=$character[1][4]=$character[4][1]=$character[4][2]=$character[4][3]=$character[5][1]=$character[5][2]=$character[5][3]=$character[5][4]='_';
	$character[1][0]=$character[1][6]='|';
	$character[2][4]=$character[2][6]=$character[4][4]=$character[4][6]=$character[5][5]='/';
	$character[3][4]=$character[3][6]=$character[5][0]='\\';
	$character[4][0]='.';
	return \@character;
};

function character_4 => sub {
	my @character = $_[0]->default_character(7);
	$character[0][3] = $character[0][4] = $character[0][5] = $character[3][3] = $character[4][1] = $character[4][2] = $character[4][3] = $character[5][5] = '_';
	$character[1][6] = $character[2][6] = $character[3][6] = $character[4][6] = $character[2][4] = $character[3][4] = $character[5][4] = '|';
	$character[1][2] = $character[2][1] = $character[2][3] = $character[3][2] = $character[3][0] = $character[5][6] = '/';
	$character[4][0] = '\\';
	return \@character;
};

function character_5 => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3]
	= $character[1][4] = $character[1][5] = $character[2][1] = $character[2][2] = $character[2][3] = $character[4][2]
	= $character[4][3] = $character[5][1] = $character[5][3] = $character[5][4] = '_';
	$character[1][0] = $character[1][6] = $character[2][0]  = '|';
	$character[2][5] = $character[3][4] = $character[3][6] = $character[4][1] = $character[5][0] = '\\';
	$character[4][0] = $character[4][4] = $character[4][6] = $character[5][5] = '/';
	return \@character;
};

function character_6 => sub {
	my @character = $_[0]->default_character(7);
	$character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3] = $character[1][4] = $character[1][5] = $character[2][3] = $character[2][4] = $character[2][5] = $character[3][3] = $character[3][4] = $character[3][2] = $character[5][1] = $character[5][2] = $character[5][3] = $character[5][4] = $character[5][5] = $character[4][3] = '_';
	$character[5][0] = '\\';
	$character[5][6] = '/';
	$character[4][2] = '\\';
	$character[4][4] = '/';
	$character[3][6] = '\\';
	$character[2][0] = $character[2][2] = '/';
	$character[1][1] = '/';
	$character[1][6] = $character[3][0] = $character[4][0] = $character[4][6] = '|';
	return \@character;
};

function character_7 => sub {
	my @character = $_[0]->default_character(7);
	$character[0][0] = $character[1][4] = $character[1][5] = $character[2][6] = $character[2][4] = $character[2][2] = $character[2][1] = $character[2][0] = $character[3][0] = $character[3][1] = $character[3][3] = $character[3][5] = $character[3][6] = $character[4][0] = $character[4][2] = $character[4][4] = $character[4][5] = $character[4][6] = $character[5][3] = $character[5][4] = $character[5][5] = $character[5][6] = $character[6][0] = $character[6][1] = $character[6][3] = $character[6][4] = $character[6][5] = $character[6][6] = ' ';
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[0][6] = $character[1][1] = $character[1][2] = $character[1][3] = $character[5][1] = '_';
	$character[1][0] = '|';
	$character[4][0] = '.';
	$character[5][0] = '\\';
	$character[1][6] = $character[2][3] = $character[2][5] = $character[3][2] = $character[3][4] = $character[4][1] = $character[4][3] = $character[5][2] = '/';
	$character[1][0] = '|';
	$character[4][0] = '.';
	$character[5][0] = '\\';
	$character[1][6] = $character[2][3] = $character[2][5] = $character[3][2] = $character[3][4] = $character[4][1] = $character[4][3] = $character[5][2] = '/';
	return \@character;
};

function character_8 => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3] = $character[3][3] = $character[4][3] = $character[5][1] = $character[5][2] = $character[5][3] = $character[5][4] = $character[5][5] = '_';
	$character[1][0] = $character[1][6] = $character[4][0] = $character[4][2] = $character[4][4] = $character[4][6] = '|';
	$character[2][1] = $character[3][5] = $character[5][0] = '\\';
	$character[2][5] = $character[3][1] = $character[5][6] = '/';
	$character[2][3] = 'V';
	return \@character;
};

function character_9 => sub {
	my @character = $_[0]->default_character(7);
	$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3]
	= $character[2][3] = $character[3][1] = $character[3][2] = $character[3][3] = $character[3][4] = $character[4][1]
	= $character[4][2] = $character[4][3] = $character[5][1] = $character[5][2] = $character[5][3] = $character[5][4]
	= $character[4][6] = '_';

	$character[1][0] = $character[1][6] = $character[2][0] = $character[2][2] = $character[2][4] = $character[2][6] = $character[3][6] = '|';

	$character[4][0] = '.';
	$character[4][4] = $character[4][6] = $character[5][5] = '/';
	$character[3][0] = $character[5][0] = '\\';
	return \@character;
};

function space => sub {
	my @character = $_[0]->default_character(7);
	return \@character;
};

1;

__END__