—

              
package Ascii::Text::Font::Doom;
use strict;
use warnings;
use Rope;
use Rope::Autoload;
# DOOM by Frans P. de Vries <fpv@xymph.iaf.nl>  18 Jun 1996
# based on Big by Glenn Chappell 4/93 -- based on Standard
# Permission is hereby given to modify this font, as long as the
# modifier's name is placed on a comment line.
extends 'Ascii::Text::Font';
property character_height => (
        initable => 0,
        writable => 0,
        value => 8,
);
function space => sub {
        my @character = $_[0]->default_character(7);
        return \@character;
};
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[1][0] = $character[2][0] = $character[2][2] = $character[3][0]
            = $character[4][0] = $character[4][2] = "\|";
        $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[4][3] = $character[5][1] = $character[5][2]
            = $character[5][3] = $character[5][4] = "_";
        $character[2][4] = $character[2][6] = $character[4][4] = $character[4][6]
            = $character[5][5] = "\/";
        $character[1][6] = $character[3][6] = $character[5][0] = "\\";
        return \@character;
};
function character_C => sub {
        my @character = $_[0]->default_character(7);
        $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[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
            = $character[0][5] = $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[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[4][3] = $character[4][5] = $character[5][4] = "\/";
        $character[0][0] = $character[0][1] = $character[0][2] = $character[0][3]
            = $character[0][4] = $character[0][5] = $character[1][3]
            = $character[5][1] = $character[5][2] = $character[5][3] = "_";
        $character[1][6] = "\\";
        $character[1][0] = $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][0] = "\|";
        return \@character;
};
function character_E => sub {
        my @character = $_[0]->default_character(7);
        $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[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[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] = "\/";
        return \@character;
};
function character_F => sub {
        my @character = $_[0]->default_character(7);
        $character[5][0] = "\\";
        $character[0][0] = $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][6] = $character[2][0] = $character[2][2]
            = $character[3][0] = $character[3][4] = $character[4][0]
            = $character[4][2] = $character[5][2] = "\|";
        return \@character;
};
function character_G => sub {
        my @character = $_[0]->default_character(7);
        $character[1][6] = $character[2][5] = $character[4][4] = $character[4][6]
            = $character[5][1] = "\\";
        $character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
            = $character[0][5] = $character[1][3] = $character[1][4]
            = $character[3][4] = $character[3][5] = $character[4][3]
            = $character[5][2] = $character[5][3] = $character[5][4]
            = $character[5][5] = "_";
        $character[2][6] = $character[5][6] = "\/";
        $character[1][0] = $character[2][0] = $character[2][2] = $character[3][0]
            = $character[3][2] = $character[4][0] = $character[4][2] = "\|";
        return \@character;
};
function character_H => 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][6]
            = $character[4][0] = $character[4][2] = $character[4][4]
            = $character[4][6] = $character[5][2] = $character[5][4] = "\|";
        $character[5][6] = "\/";
        $character[0][1] = $character[0][5] = $character[2][3] = $character[3][3]
            = $character[5][1] = $character[5][5] = "_";
        $character[5][0] = "\\";
        return \@character;
};
function character_I => sub {
        my @character = $_[0]->default_character(7);
        $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] = "_";
        $character[5][5] = "\/";
        $character[1][0] = $character[1][6] = $character[2][2] = $character[2][4]
            = $character[3][2] = $character[3][4] = $character[4][2]
            = $character[4][4] = "\|";
        return \@character;
};
function character_J => sub {
        my @character = $_[0]->default_character(7);
        $character[2][2] = "\$";
        $character[4][1] = $character[5][0] = "\\";
        $character[4][0] = $character[4][4] = $character[4][6] = $character[5][5]
            = "\/";
        $character[0][3] = $character[0][4] = $character[0][5] = $character[1][3]
            = $character[4][2] = $character[4][3] = $character[5][1]
            = $character[5][2] = $character[5][3] = $character[5][4] = "_";
        $character[1][2] = $character[1][6] = $character[2][4] = $character[2][6]
            = $character[3][4] = $character[3][6] = "\|";
        return \@character;
};
function character_K => sub {
        my @character = $_[0]->default_character(7);
        $character[1][4] = $character[1][6] = $character[2][3] = $character[2][5]
            = $character[5][6] = "\/";
        $character[0][1] = $character[0][5] = $character[0][6] = $character[5][1]
            = $character[5][5] = "_";
        $character[3][5] = $character[4][3] = $character[4][6] = $character[5][0]
            = $character[5][4] = "\\";
        $character[1][0] = $character[1][2] = $character[2][0] = $character[2][2]
            = $character[3][0] = $character[4][0] = $character[4][2]
            = $character[5][2] = "\|";
        return \@character;
};
function character_L => sub {
        my @character = $_[0]->default_character(7);
        $character[1][4] = $character[2][4] = "\$";
        $character[5][6] = "\/";
        $character[0][1] = $character[4][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[5][0] = "\\";
        $character[1][0] = $character[1][2] = $character[2][0] = $character[2][2]
            = $character[3][0] = $character[3][2] = $character[4][0]
            = $character[4][2] = "\|";
        return \@character;
};
function character_M => sub {
        my @character = $_[0]->default_character(8);
        $character[1][4] = $character[3][4] = $character[5][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][3] = $character[3][3] = $character[5][0] = "\\";
        $character[2][2] = $character[2][5] = "\.";
        $character[1][0] = $character[1][7] = $character[2][0] = $character[2][7]
            = $character[3][0] = $character[3][2] = $character[3][5]
            = $character[3][7] = $character[4][0] = $character[4][2]
            = $character[4][5] = $character[4][7] = $character[5][2]
            = $character[5][5] = "\|";
        return \@character;
};
function character_N => sub {
        my @character = $_[0]->default_character(7);
        $character[5][6] = "\/";
        $character[3][4] = "\`";
        $character[1][2] = $character[2][3] = $character[4][3] = $character[5][0]
            = $character[5][4] = "\\";
        $character[3][2] = "\.";
        $character[0][1] = $character[0][5] = $character[5][1] = $character[5][5]
            = "_";
        $character[1][0] = $character[1][4] = $character[1][6] = $character[2][0]
            = $character[2][4] = $character[2][6] = $character[3][0]
            = $character[3][6] = $character[4][0] = $character[4][2]
            = $character[4][6] = $character[5][2] = "\|";
        return \@character;
};
function character_O => sub {
        my @character = $_[0]->default_character(7);
        $character[4][4] = $character[4][6] = $character[5][5] = "\/";
        $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][0] = $character[4][2] = $character[5][1] = "\\";
        $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] = "_";
        return \@character;
};
function character_P => sub {
        my @character = $_[0]->default_character(7);
        $character[1][0] = $character[2][0] = $character[2][2] = $character[3][0]
            = $character[4][0] = $character[4][2] = $character[5][2] = "\|";
        $character[1][6] = $character[5][0] = "\\";
        $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] = "\/";
        return \@character;
};
function character_Q => sub {
        my @character = $_[0]->default_character(7);
        $character[4][4] = "\'";
        $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][3] = $character[4][6] = $character[5][3] = "\/";
        return \@character;
};
function character_R => sub {
        my @character = $_[0]->default_character(7);
        $character[1][0] = $character[2][0] = $character[2][2] = $character[3][0]
            = $character[4][0] = $character[4][2] = $character[5][2]
            = $character[5][6] = "\|";
        $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[5][1] = $character[5][5] = "_";
        $character[1][6] = $character[4][3] = $character[4][5] = $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[1][0] = $character[4][0] = $character[4][4] = $character[4][6]
            = $character[5][5] = "\/";
        $character[2][2] = $character[3][1] = "\`";
        $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][5] = $character[3][4] = "\.";
        $character[2][3] = $character[2][4] = $character[3][2] = $character[3][3]
            = "\-";
        $character[2][0] = $character[3][6] = $character[4][1] = $character[5][0]
            = "\\";
        $character[1][6] = "\|";
        return \@character;
};
function character_T => sub {
        my @character = $_[0]->default_character(7);
        $character[5][4] = "\/";
        $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[5][2] = "\\";
        $character[1][0] = $character[1][6] = $character[2][2] = $character[2][4]
            = $character[3][2] = $character[3][4] = $character[4][2]
            = $character[4][4] = "\|";
        return \@character;
};
function character_U => sub {
        my @character = $_[0]->default_character(7);
        $character[5][1] = "\\";
        $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[4][4] = $character[4][6] = "\|";
        $character[5][5] = "\/";
        return \@character;
};
function character_V => sub {
        my @character = $_[0]->default_character(7);
        $character[4][4] = $character[4][6] = $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][2]
            = $character[3][4] = $character[3][6] = "\|";
        $character[0][1] = $character[0][5] = $character[4][3] = $character[5][2]
            = $character[5][3] = $character[5][4] = "_";
        $character[4][0] = $character[4][2] = $character[5][1] = "\\";
        return \@character;
};
function character_W => sub {
        my @character = $_[0]->default_character(8);
        $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[0][1] = $character[0][6] = "_";
        $character[3][4] = $character[4][0] = $character[4][4] = $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[1][0] = $character[1][2] = $character[2][1] = $character[3][5]
            = $character[4][4] = $character[4][6] = $character[5][0]
            = $character[5][5] = "\\";
        $character[2][3] = "V";
        $character[0][0] = $character[0][1] = $character[0][5] = $character[0][6]
            = "_";
        $character[4][3] = "\^";
        $character[1][4] = $character[1][6] = $character[2][5] = $character[3][1]
            = $character[4][0] = $character[4][2] = $character[5][1]
            = $character[5][6] = "\/";
        return \@character;
};
function character_Y => sub {
        my @character = $_[0]->default_character(7);
        $character[1][0] = $character[1][2] = $character[2][1] = $character[3][2]
            = $character[5][2] = "\\";
        $character[0][0] = $character[0][1] = $character[0][5] = $character[0][6]
            = $character[5][3] = "_";
        $character[2][3] = "V";
        $character[4][2] = $character[4][4] = "\|";
        $character[1][4] = $character[1][6] = $character[2][5] = $character[3][4]
            = $character[5][4] = "\/";
        return \@character;
};
function character_Z => sub {
        my @character = $_[0]->default_character(7);
        $character[1][6] = $character[2][3] = $character[2][5] = $character[3][2]
            = $character[3][4] = $character[4][1] = $character[4][3]
            = $character[5][6] = "\/";
        $character[2][2] = "\$";
        $character[4][0] = "\.";
        $character[5][0] = "\\";
        $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][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] = "\|";
        return \@character;
};
function character_a => sub {
        my @character = $_[0]->default_character(7);
        $character[3][1] = "\/";
        $character[5][4] = "\,";
        $character[3][4] = "\`";
        $character[5][1] = "\\";
        $character[4][2] = "\(";
        $character[2][2] = $character[2][3] = $character[2][5] = $character[3][3]
            = $character[4][3] = $character[5][2] = $character[5][3]
            = $character[5][5] = "_";
        $character[3][6] = $character[4][0] = $character[4][4] = $character[4][6]
            = $character[5][6] = "\|";
        return \@character;
};
function character_b => sub {
        my @character = $_[0]->default_character(7);
        $character[3][5] = "\\";
        $character[5][2] = "\.";
        $character[0][1] = $character[2][3] = $character[2][4] = $character[3][3]
            = $character[4][3] = $character[5][1] = $character[5][3]
            = $character[5][4] = "_";
        $character[3][2] = "\'";
        $character[1][0] = $character[1][2] = $character[2][0] = $character[2][2]
            = $character[3][0] = $character[4][0] = $character[4][2]
            = $character[4][6] = $character[5][0] = "\|";
        $character[4][4] = "\)";
        $character[5][5] = "\/";
        return \@character;
};
function character_c => sub {
        my @character = $_[0]->default_character(6);
        $character[3][1] = "\/";
        $character[5][1] = "\\";
        $character[2][2] = $character[2][3] = $character[2][4] = $character[3][3]
            = $character[3][4] = $character[4][3] = $character[4][4]
            = $character[5][2] = $character[5][3] = $character[5][4] = "_";
        $character[4][2] = "\(";
        $character[3][5] = $character[4][0] = $character[5][5] = "\|";
        return \@character;
};
function character_d => sub {
        my @character = $_[0]->default_character(7);
        $character[3][1] = "\/";
        $character[5][4] = "\,";
        $character[3][4] = "\`";
        $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[4][2] = "\(";
        $character[5][1] = "\\";
        $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] = "\|";
        return \@character;
};
function character_e => sub {
        my @character = $_[0]->default_character(6);
        $character[3][1] = $character[4][5] = "\/";
        $character[4][0] = $character[5][5] = "\|";
        $character[2][2] = $character[2][3] = $character[2][4] = $character[3][3]
            = $character[4][3] = $character[4][4] = $character[5][2]
            = $character[5][3] = $character[5][4] = "_";
        $character[3][5] = $character[5][1] = "\\";
        return \@character;
};
function character_f => sub {
        my @character = $_[0]->default_character(5);
        $character[1][1] = "\/";
        $character[0][2] = $character[0][3] = $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] = "\|";
        return \@character;
};
function character_g => sub {
        my @character = $_[0]->default_character(7);
        $character[5][1] = "\\";
        $character[4][2] = "\(";
        $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][4] = "\,";
        $character[3][4] = "\`";
        return \@character;
};
function character_h => sub {
        my @character = $_[0]->default_character(7);
        $character[1][0] = $character[1][2] = $character[2][0] = $character[2][2]
            = $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] = "\\";
        $character[0][1] = $character[2][3] = $character[2][4] = $character[3][3]
            = $character[5][1] = $character[5][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[1][0] = "\(";
        $character[3][0] = $character[3][2] = $character[4][0] = $character[4][2]
            = $character[5][0] = $character[5][2] = "\|";
        $character[1][2] = "\)";
        return \@character;
};
function character_j => sub {
        my @character = $_[0]->default_character(5);
        $character[1][4] = "\)";
        $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[0][3] = $character[1][3] = $character[2][3] = $character[6][1]
            = $character[7][1] = $character[7][2] = "_";
        $character[1][2] = "\(";
        $character[6][2] = $character[7][3] = "\/";
        return \@character;
};
function character_k => sub {
        my @character = $_[0]->default_character(6);
        $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[0][1] = $character[2][4] = $character[2][5] = $character[5][1]
            = $character[5][4] = "_";
        $character[5][3] = $character[5][5] = "\\";
        $character[4][4] = "\<";
        $character[3][3] = $character[3][5] = "\/";
        return \@character;
};
function character_l => sub {
        my @character = $_[0]->default_character(3);
        $character[0][1] = $character[5][1] = "_";
        $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][2] = "\|";
        return \@character;
};
function character_m => sub {
        my @character = $_[0]->default_character(11);
        $character[3][5] = "\`";
        $character[3][0] = $character[4][0] = $character[4][2] = $character[4][4]
            = $character[4][6] = $character[4][8] = $character[4][10]
            = $character[5][0] = $character[5][2] = $character[5][4]
            = $character[5][6] = $character[5][8] = $character[5][10] = "\|";
        $character[3][2] = "\'";
        $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[3][9] = "\\";
        return \@character;
};
function character_n => sub {
        my @character = $_[0]->default_character(7);
        $character[3][5] = "\\";
        $character[2][1] = $character[2][3] = $character[2][4] = $character[3][3]
            = $character[5][1] = $character[5][5] = "_";
        $character[3][2] = "\'";
        $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] = "\|";
        return \@character;
};
function character_o => sub {
        my @character = $_[0]->default_character(7);
        $character[4][4] = "\)";
        $character[4][0] = $character[4][6] = "\|";
        $character[3][5] = $character[5][1] = "\\";
        $character[4][2] = "\(";
        $character[2][2] = $character[2][3] = $character[2][4] = $character[3][3]
            = $character[4][3] = $character[5][2] = $character[5][3]
            = $character[5][4] = "_";
        $character[3][1] = $character[5][5] = "\/";
        return \@character;
};
function character_p => sub {
        my @character = $_[0]->default_character(7);
        $character[5][5] = "\/";
        $character[2][1] = $character[2][3] = $character[2][4] = $character[3][3]
            = $character[4][3] = $character[5][3] = $character[5][4]
            = $character[7][1] = "_";
        $character[3][5] = "\\";
        $character[5][2] = "\.";
        $character[3][2] = "\'";
        $character[4][4] = "\)";
        $character[3][0] = $character[4][0] = $character[4][2] = $character[4][6]
            = $character[5][0] = $character[6][0] = $character[6][2]
            = $character[7][0] = $character[7][2] = "\|";
        return \@character;
};
function character_q => sub {
        my @character = $_[0]->default_character(7);
        $character[2][2] = $character[2][3] = $character[2][5] = $character[3][3]
            = $character[4][3] = $character[5][2] = $character[5][3]
            = $character[7][5] = "_";
        $character[4][2] = "\(";
        $character[5][1] = "\\";
        $character[3][6] = $character[4][0] = $character[4][4] = $character[4][6]
            = $character[5][6] = $character[6][4] = $character[6][6]
            = $character[7][4] = $character[7][6] = "\|";
        $character[3][1] = "\/";
        $character[3][4] = "\`";
        $character[5][4] = "\,";
        return \@character;
};
function character_r => sub {
        my @character = $_[0]->default_character(6);
        $character[3][0] = $character[3][5] = $character[4][0] = $character[4][2]
            = $character[5][0] = $character[5][2] = "\|";
        $character[2][1] = $character[2][3] = $character[2][4] = $character[3][3]
            = $character[3][4] = $character[5][1] = "_";
        $character[3][2] = "\'";
        return \@character;
};
function character_s => sub {
        my @character = $_[0]->default_character(5);
        $character[3][0] = $character[5][4] = "\/";
        $character[3][4] = $character[5][0] = "\|";
        $character[4][0] = $character[4][4] = "\\";
        $character[2][1] = $character[2][2] = $character[2][3] = $character[3][2]
            = $character[3][3] = $character[4][1] = $character[4][2]
            = $character[5][1] = $character[5][2] = $character[5][3] = "_";
        return \@character;
};
function character_t => sub {
        my @character = $_[0]->default_character(5);
        $character[5][1] = "\\";
        $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] = "\|";
        return \@character;
};
function character_u => sub {
        my @character = $_[0]->default_character(7);
        $character[5][4] = "\,";
        $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[5][1] = "\\";
        $character[2][1] = $character[2][5] = $character[4][3] = $character[5][2]
            = $character[5][3] = $character[5][5] = "_";
        return \@character;
};
function character_v => sub {
        my @character = $_[0]->default_character(7);
        $character[3][4] = $character[3][6] = $character[4][5] = $character[5][4]
            = "\/";
        $character[2][0] = $character[2][1] = $character[2][5] = $character[2][6]
            = $character[5][3] = "_";
        $character[4][3] = "V";
        $character[3][0] = $character[3][2] = $character[4][1] = $character[5][2]
            = "\\";
        return \@character;
};
function character_w => sub {
        my @character = $_[0]->default_character(10);
        $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";
        $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] = "\\";
        return \@character;
};
function character_x => sub {
        my @character = $_[0]->default_character(6);
        $character[4][1] = "\>";
        $character[3][3] = $character[3][5] = $character[5][0] = $character[5][2]
            = "\/";
        $character[4][4] = "\<";
        $character[2][0] = $character[2][1] = $character[2][4] = $character[2][5]
            = $character[5][1] = $character[5][4] = "_";
        $character[3][0] = $character[3][2] = $character[5][3] = $character[5][5]
            = "\\";
        return \@character;
};
function character_y => sub {
        my @character = $_[0]->default_character(7);
        $character[5][4] = "\,";
        $character[6][4] = $character[7][5] = "\/";
        $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][2] = $character[6][3]
            = $character[7][2] = $character[7][3] = $character[7][4] = "_";
        return \@character;
};
function character_z => sub {
        my @character = $_[0]->default_character(5);
        $character[3][0] = $character[5][4] = "\|";
        $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][4] = $character[4][1] = $character[4][3] = $character[5][0]
            = "\/";
        return \@character;
};
function character_0 => sub {
        my @character = $_[0]->default_character(7);
        $character[2][4] = "\'";
        $character[4][0] = $character[5][1] = "\\";
        $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][3] = $character[3][3] = $character[4][4] = $character[4][6]
            = $character[5][5] = "\/";
        return \@character;
};
function character_1 => sub {
        my @character = $_[0]->default_character(5);
        $character[2][0] = "\`";
        $character[1][0] = $character[5][4] = "\/";
        $character[1][3] = $character[2][1] = $character[2][3] = $character[3][1]
            = $character[3][3] = $character[4][1] = $character[4][3] = "\|";
        $character[0][1] = $character[0][2] = $character[4][0] = $character[4][4]
            = $character[5][1] = $character[5][2] = $character[5][3] = "_";
        $character[5][0] = "\\";
        return \@character;
};
function character_2 => sub {
        my @character = $_[0]->default_character(7);
        $character[2][0] = "\`";
        $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[2][1] = $character[2][6] = "\'";
        $character[4][0] = "\.";
        $character[1][6] = $character[5][0] = "\\";
        $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] = "_";
        return \@character;
};
function character_3 => sub {
        my @character = $_[0]->default_character(7);
        $character[2][4] = $character[2][6] = $character[4][4] = $character[4][6]
            = $character[5][5] = "\/";
        $character[3][2] = "\$";
        $character[1][0] = $character[1][6] = "\|";
        $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[3][4] = $character[3][6] = $character[5][0] = "\\";
        $character[4][0] = "\.";
        return \@character;
};
function character_4 => sub {
        my @character = $_[0]->default_character(7);
        $character[1][6] = $character[2][4] = $character[2][6] = $character[3][4]
            = $character[3][6] = $character[4][6] = $character[5][4] = "\|";
        $character[4][0] = "\\";
        $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][2] = $character[2][1] = $character[2][3] = $character[3][0]
            = $character[3][2] = $character[5][6] = "\/";
        return \@character;
};
function character_5 => sub {
        my @character = $_[0]->default_character(7);
        $character[2][5] = $character[3][4] = $character[3][6] = $character[4][1]
            = $character[5][0] = "\\";
        $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][2] = $character[5][3]
            = $character[5][4] = "_";
        $character[1][0] = $character[1][6] = $character[2][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][2] = $character[3][3] = $character[3][4]
            = $character[4][3] = $character[5][1] = $character[5][2]
            = $character[5][3] = $character[5][4] = $character[5][5] = "_";
        $character[3][6] = $character[4][2] = $character[5][0] = "\\";
        $character[1][6] = $character[3][0] = $character[4][0] = $character[4][6]
            = "\|";
        $character[1][1] = $character[2][0] = $character[2][2] = $character[4][4]
            = $character[5][6] = "\/";
        return \@character;
};
function character_7 => sub {
        my @character = $_[0]->default_character(7);
        $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[2][2] = "\$";
        $character[1][0] = "\|";
        $character[4][0] = "\.";
        $character[5][0] = "\\";
        $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] = "_";
        return \@character;
};
function character_8 => sub {
        my @character = $_[0]->default_character(7);
        $character[1][0] = $character[1][6] = $character[4][0] = $character[4][2]
            = $character[4][4] = $character[4][6] = "\|";
        $character[2][3] = "V";
        $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[2][1] = $character[3][5] = $character[5][0] = "\\";
        $character[2][5] = $character[3][1] = $character[5][6] = "\/";
        return \@character;
};
function character_9 => sub {
        my @character = $_[0]->default_character(7);
        $character[4][4] = $character[4][6] = $character[5][5] = "\/";
        $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[3][0] = $character[5][0] = "\\";
        $character[4][0] = "\.";
        $character[1][0] = $character[1][6] = $character[2][0] = $character[2][2]
            = $character[2][4] = $character[2][6] = $character[3][6] = "\|";
        return \@character;
};
1;
__END__
HideShow 760 lines of Pod
=head1 NAME
Ascii::Text::Font::Doom - Doom font
=head1 VERSION
Version 0.21
=cut
=head1 SYNOPSIS
Quick summary of what the module does.
        use Ascii::Text::Font::Doom;
        my $foo = Ascii::Text::Font::Doom->new();
        ...
=head1 SUBROUTINES/METHODS
=head2 character_A
          ___  
         / _ \ 
        / /_\ \
        |  _  |
        | | | |
        \_| |_/
                
                
=head2 character_B
        ______ 
        | ___ \
        | |_/ /
        | ___ \
        | |_/ /
        \____/ 
                
                
=head2 character_C
         _____ 
        /  __ \
        | /  \/
        | |    
        | \__/\
         \____/
                
                
=head2 character_D
        ______ 
        |  _  \
        | | | |
        | | | |
        | |/ / 
        |___/  
                
                
=head2 character_E
         _____ 
        |  ___|
        | |__  
        |  __| 
        | |___ 
        \____/ 
                
                
=head2 character_F
        ______ 
        |  ___|
        | |_   
        |  _|  
        | |    
        \_|    
                
                
=head2 character_G
         _____ 
        |  __ \
        | |  \/
        | | __ 
        | |_\ \
         \____/
                
                
=head2 character_H
         _   _ 
        | | | |
        | |_| |
        |  _  |
        | | | |
        \_| |_/
                
                
=head2 character_I
         _____ 
        |_   _|
          | |  
          | |  
         _| |_ 
         \___/ 
                
                
=head2 character_J
           ___ 
          |_  |
          $ | |
            | |
        /\__/ /
        \____/ 
                
                
=head2 character_K
         _   __
        | | / /
        | |/ / 
        |    \ 
        | |\  \
        \_| \_/
                
                
=head2 character_L
         _     
        | | $  
        | | $  
        | |    
        | |____
        \_____/
                
                
=head2 character_M
        ___  ___
        |  \/  |
        | .  . |
        | |\/| |
        | |  | |
        \_|  |_/
                 
                 
=head2 character_N
         _   _ 
        | \ | |
        |  \| |
        | . ` |
        | |\  |
        \_| \_/
                
                
=head2 character_O
         _____ 
        |  _  |
        | | | |
        | | | |
        \ \_/ /
         \___/ 
                
                
=head2 character_P
        ______ 
        | ___ \
        | |_/ /
        |  __/ 
        | |    
        \_|    
                
                
=head2 character_Q
         _____ 
        |  _  |
        | | | |
        | | | |
        \ \/' /
         \_/\_\
                
                
=head2 character_R
        ______ 
        | ___ \
        | |_/ /
        |    / 
        | |\ \ 
        \_| \_|
                
                
=head2 character_S
         _____ 
        /  ___|
        \ `--. 
         `--. \
        /\__/ /
        \____/ 
                
                
=head2 character_T
         _____ 
        |_   _|
          | |  
          | |  
          | |  
          \_/  
                
                
=head2 character_U
         _   _ 
        | | | |
        | | | |
        | | | |
        | |_| |
         \___/ 
                
                
=head2 character_V
         _   _ 
        | | | |
        | | | |
        | | | |
        \ \_/ /
         \___/ 
                
                
=head2 character_W
         _    _ 
        | |  | |
        | |  | |
        | |/\| |
        \  /\  /
         \/  \/ 
                 
                 
=head2 character_X
        __   __
        \ \ / /
         \ V / 
         /   \ 
        / /^\ \
        \/   \/
                
                
=head2 character_Y
        __   __
        \ \ / /
         \ V / 
          \ /  
          | |  
          \_/  
                
                
=head2 character_Z
         ______
        |___  /
          $/ / 
          / /  
        ./ /___
        \_____/
                
                
=head2 character_a
                
                
          __ _ 
         / _` |
        | (_| |
         \__,_|
                
                
=head2 character_b
         _     
        | |    
        | |__  
        | '_ \ 
        | |_) |
        |_.__/ 
                
                
=head2 character_c
               
               
          ___ 
         / __|
        | (__ 
         \___|
               
               
=head2 character_d
             _ 
            | |
          __| |
         / _` |
        | (_| |
         \__,_|
                
                
=head2 character_e
               
               
          ___ 
         / _ \
        |  __/
         \___|
               
               
=head2 character_f
          __ 
         / _|
        | |_ 
        |  _|
        | |  
        |_|  
              
              
=head2 character_g
                
                
          __ _ 
         / _` |
        | (_| |
         \__, |
          __/ |
         |___/ 
=head2 character_h
         _     
        | |    
        | |__  
        | '_ \ 
        | | | |
        |_| |_|
                
                
=head2 character_i
         _ 
        (_)
         _ 
        | |
        | |
        |_|
            
            
=head2 character_j
           _ 
          (_)
           _ 
          | |
          | |
          | |
         _/ |
        |__/ 
=head2 character_k
         _    
        | |   
        | | __
        | |/ /
        |   < 
        |_|\_\
               
               
=head2 character_l
         _ 
        | |
        | |
        | |
        | |
        |_|
            
            
=head2 character_m
                    
                    
         _ __ ___  
        | '_ ` _ \ 
        | | | | | |
        |_| |_| |_|
                    
                    
=head2 character_n
                
                
         _ __  
        | '_ \ 
        | | | |
        |_| |_|
                
                
=head2 character_o
                
                
          ___  
         / _ \ 
        | (_) |
         \___/ 
                
                
=head2 character_p
                
                
         _ __  
        | '_ \ 
        | |_) |
        | .__/ 
        | |    
        |_|    
=head2 character_q
                
                
          __ _ 
         / _` |
        | (_| |
         \__, |
            | |
            |_|
=head2 character_r
               
               
         _ __ 
        | '__|
        | |   
        |_|   
               
               
=head2 character_s
              
              
         ___ 
        / __|
        \__ \
        |___/
              
              
=head2 character_t
         _   
        | |  
        | |_ 
        | __|
        | |_ 
         \__|
              
              
=head2 character_u
                
                
         _   _ 
        | | | |
        | |_| |
         \__,_|
                
                
=head2 character_v
                
                
        __   __
        \ \ / /
         \ V / 
          \_/  
                
                
=head2 character_w
                   
                   
        __      __
        \ \ /\ / /
         \ V  V / 
          \_/\_/  
                   
                   
=head2 character_x
               
               
        __  __
        \ \/ /
         >  < 
        /_/\_\
               
               
=head2 character_y
                
                
         _   _ 
        | | | |
        | |_| |
         \__, |
          __/ |
         |___/ 
=head2 character_z
              
              
         ____
        |_  /
         / / 
        /___|
              
              
=head2 character_0
         _____ 
        |  _  |
        | |/' |
        |  /| |
        \ |_/ /
         \___/ 
                
                
=head2 character_1
         __  
        /  | 
        `| | 
         | | 
        _| |_
        \___/
              
              
=head2 character_2
         _____ 
        / __  \
        `' / /'
          / /  
        ./ /___
        \_____/
                
                
=head2 character_3
         _____ 
        |____ |
            / /
          $ \ \
        .___/ /
        \____/ 
                
                
=head2 character_4
           ___ 
          /   |
         / /| |
        / /_| |
        \___  |
            |_/
                
                
=head2 character_5
         _____ 
        |  ___|
        |___ \ 
            \ \
        /\__/ /
        \____/ 
                
                
=head2 character_6
          ____ 
         / ___|
        / /___ 
        | ___ \
        | \_/ |
        \_____/
                
                
=head2 character_7
         ______
        |___  /
          $/ / 
          / /  
        ./ /   
        \_/    
                
                
=head2 character_8
         _____ 
        |  _  |
         \ V / 
         / _ \ 
        | |_| |
        \_____/
                
                
=head2 character_9
         _____ 
        |  _  |
        | |_| |
        \____ |
        .___/ /
        \____/ 
                
                
=head1 EXTENDS
=head2 Ascii::Text::Font
=head1 AUTHOR
AUTHOR, C<< <EMAIL> >>
=head1 BUGS
Please report any bugs or feature requests to C<bug-ascii::text::font::doom at rt.cpan.org>, or through
the web interface at L<https://rt.cpan.org/NoAuth/ReportBug.html?Queue=Ascii-Text-Font-Doom>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
=head1 SUPPORT
You can find documentation for this module with the perldoc command.
    perldoc Ascii::Text::Font::Doom
You can also look for information at:
=over 4
=item * RT: CPAN's request tracker (report bugs here)
L<https://rt.cpan.org/NoAuth/Bugs.html?Dist=Ascii-Text-Font-Doom>
=item * AnnoCPAN: Annotated CPAN documentation
L<http://annocpan.org/dist/Ascii-Text-Font-Doom>
=item * CPAN Ratings
L<https://cpanratings.perl.org/d/Ascii-Text-Font-Doom>
=item * Search CPAN
L<https://metacpan.org/release/Ascii-Text-Font-Doom>
=back
=head1 ACKNOWLEDGEMENTS
=head1 LICENSE AND COPYRIGHT
This software is Copyright (c) 2020 by AUTHOR.
This is free software, licensed under:
  The Artistic License 2.0 (GPL Compatible)
=cut