The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use strict;
use Rope;
property character_height => (
initable => 0,
writable => 0,
value => 5,
);
function space => sub {
my @character = $_[0]->default_character(9);
return \@character;
};
function character_A => sub {
my @character = $_[0]->default_character(9);
$character[1][0] = $character[1][8] = $character[2][0] = $character[2][8]
= $character[3][0] = $character[3][4] = $character[3][8] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[1][4] = $character[3][1] = $character[3][2]
= $character[3][3] = $character[3][5] = $character[3][6]
= $character[3][7] = "_";
return \@character;
};
function character_B => sub {
my @character = $_[0]->default_character(8);
$character[1][7] = "\\";
$character[1][0] = $character[2][0] = $character[3][0] = "\|";
$character[2][7] = "\<";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[1][4]
= $character[1][5] = $character[2][4] = $character[2][5]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = $character[3][5] = $character[3][6] = "_";
$character[3][7] = "\/";
return \@character;
};
function character_C => sub {
my @character = $_[0]->default_character(8);
$character[1][0] = $character[1][7] = $character[2][0] = $character[2][7]
= $character[3][0] = $character[3][7] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[3][1]
= $character[3][2] = $character[3][3] = $character[3][4]
= $character[3][5] = $character[3][6] = "_";
$character[2][4] = $character[2][5] = $character[2][6] = "\-";
return \@character;
};
function character_D => sub {
my @character = $_[0]->default_character(8);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[3][1] = $character[3][2]
= $character[3][3] = $character[3][4] = $character[3][5] = "_";
$character[1][6] = "\\";
$character[1][0] = $character[2][0] = $character[2][7] = $character[3][0]
= "\|";
$character[3][6] = "\/";
$character[2][3] = $character[2][4] = "\-";
return \@character;
};
function character_E => sub {
my @character = $_[0]->default_character(9);
$character[1][0] = $character[1][8] = $character[2][0] = $character[2][8]
= $character[3][0] = $character[3][8] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[1][5] = $character[1][6] = $character[1][7]
= $character[2][5] = $character[2][6] = $character[2][7]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = $character[3][5] = $character[3][6]
= $character[3][7] = "_";
return \@character;
};
function character_F => sub {
my @character = $_[0]->default_character(9);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[1][5] = $character[1][6] = $character[1][7]
= $character[2][5] = $character[2][6] = $character[2][7]
= $character[3][1] = $character[3][2] = $character[3][3] = "_";
$character[1][0] = $character[1][8] = $character[2][0] = $character[2][8]
= $character[3][0] = $character[3][4] = "\|";
return \@character;
};
function character_G => sub {
my @character = $_[0]->default_character(9);
$character[1][0] = $character[1][8] = $character[2][0] = $character[2][5]
= $character[2][8] = $character[3][0] = $character[3][8] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[1][6] = $character[1][7] = $character[3][1]
= $character[3][2] = $character[3][3] = $character[3][4]
= $character[3][5] = $character[3][6] = $character[3][7] = "_";
return \@character;
};
function character_H => sub {
my @character = $_[0]->default_character(9);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][5] = $character[3][6] = $character[3][7] = "_";
$character[1][0] = $character[1][4] = $character[1][8] = $character[2][0]
= $character[2][8] = $character[3][0] = $character[3][4]
= $character[3][8] = "\|";
return \@character;
};
function character_I => sub {
my @character = $_[0]->default_character(9);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[1][1] = $character[1][7] = $character[2][1]
= $character[2][7] = $character[3][1] = $character[3][2]
= $character[3][3] = $character[3][4] = $character[3][5]
= $character[3][6] = $character[3][7] = "_";
$character[1][0] = $character[1][8] = $character[2][2] = $character[2][6]
= $character[3][0] = $character[3][8] = "\|";
return \@character;
};
function character_J => sub {
my @character = $_[0]->default_character(9);
$character[0][3] = $character[0][4] = $character[0][5] = $character[0][6]
= $character[0][7] = $character[1][1] = $character[3][1]
= $character[3][2] = $character[3][3] = $character[3][4]
= $character[3][5] = $character[3][6] = $character[3][7] = "_";
$character[1][2] = $character[1][8] = $character[2][0] = $character[2][8]
= $character[3][0] = $character[3][8] = "\|";
return \@character;
};
function character_K => sub {
my @character = $_[0]->default_character(8);
$character[1][0] = $character[1][3] = $character[1][7] = $character[2][0]
= $character[3][0] = $character[3][3] = $character[3][7] = "\|";
$character[3][4] = "\\";
$character[2][6] = "\<";
$character[0][1] = $character[0][2] = $character[0][5] = $character[0][6]
= $character[3][1] = $character[3][2] = $character[3][5]
= $character[3][6] = "_";
$character[1][4] = "\/";
return \@character;
};
function character_L => sub {
my @character = $_[0]->default_character(9);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[1][7] = $character[3][1]
= $character[3][2] = $character[3][3] = $character[3][4]
= $character[3][5] = $character[3][6] = $character[3][7] = "_";
$character[1][0] = $character[1][6] = $character[2][0] = $character[2][8]
= $character[3][0] = $character[3][8] = "\|";
return \@character;
};
function character_M => sub {
my @character = $_[0]->default_character(9);
$character[1][0] = $character[1][4] = $character[1][8] = $character[2][0]
= $character[2][8] = $character[3][0] = $character[3][3]
= $character[3][5] = $character[3][8] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[3][1] = $character[3][2] = $character[3][4]
= $character[3][6] = $character[3][7] = "_";
return \@character;
};
function character_N => sub {
my @character = $_[0]->default_character(9);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[3][1] = $character[3][2] = $character[3][4]
= $character[3][5] = $character[3][6] = $character[3][7] = "_";
$character[1][0] = $character[1][5] = $character[1][8] = $character[2][0]
= $character[2][8] = $character[3][0] = $character[3][3]
= $character[3][8] = "\|";
return \@character;
};
function character_O => sub {
my @character = $_[0]->default_character(9);
$character[2][4] = "\-";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = $character[3][5] = $character[3][6]
= $character[3][7] = "_";
$character[1][0] = $character[1][8] = $character[2][0] = $character[2][8]
= $character[3][0] = $character[3][8] = "\|";
return \@character;
};
function character_P => sub {
my @character = $_[0]->default_character(8);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[1][4]
= $character[1][5] = $character[2][5] = $character[2][6]
= $character[3][1] = $character[3][2] = $character[3][3] = "_";
$character[1][0] = $character[2][0] = $character[3][0] = $character[3][4]
= "\|";
$character[1][7] = "\\";
$character[2][7] = "\/";
return \@character;
};
function character_Q => sub {
my @character = $_[0]->default_character(9);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[2][7] = $character[3][1] = $character[3][2]
= $character[3][3] = $character[3][4] = $character[3][5]
= $character[3][6] = $character[3][7] = "_";
$character[1][0] = $character[1][8] = $character[2][0] = $character[2][8]
= $character[3][0] = $character[3][8] = "\|";
$character[2][4] = "\-";
return \@character;
};
function character_R => sub {
my @character = $_[0]->default_character(8);
$character[2][7] = "\<";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[1][4]
= $character[1][5] = $character[3][1] = $character[3][2]
= $character[3][3] = $character[3][5] = $character[3][6] = "_";
$character[1][7] = "\\";
$character[1][0] = $character[2][0] = $character[3][0] = $character[3][4]
= $character[3][7] = "\|";
return \@character;
};
function character_S => sub {
my @character = $_[0]->default_character(9);
$character[1][0] = $character[1][8] = $character[2][0] = $character[2][8]
= $character[3][0] = $character[3][8] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[1][6] = $character[1][7] = $character[2][1]
= $character[2][2] = $character[3][1] = $character[3][2]
= $character[3][3] = $character[3][4] = $character[3][5]
= $character[3][6] = $character[3][7] = "_";
return \@character;
};
function character_T => sub {
my @character = $_[0]->default_character(9);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[1][1] = $character[1][7] = $character[3][3]
= $character[3][4] = $character[3][5] = "_";
$character[1][0] = $character[1][8] = $character[2][2] = $character[2][6]
= $character[3][2] = $character[3][6] = "\|";
return \@character;
};
function character_U => sub {
my @character = $_[0]->default_character(9);
$character[1][0] = $character[1][4] = $character[1][8] = $character[2][0]
= $character[2][4] = $character[2][8] = $character[3][0]
= $character[3][8] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = $character[3][5] = $character[3][6]
= $character[3][7] = "_";
return \@character;
};
function character_V => sub {
my @character = $_[0]->default_character(9);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][5]
= $character[0][6] = $character[0][7] = $character[3][2]
= $character[3][3] = $character[3][4] = $character[3][5]
= $character[3][6] = "_";
$character[1][0] = $character[1][4] = $character[1][8] = $character[2][0]
= $character[2][4] = $character[2][8] = "\|";
$character[3][1] = "\\";
$character[3][7] = "\/";
return \@character;
};
function character_W => sub {
my @character = $_[0]->default_character(10);
$character[1][0] = $character[1][3] = $character[1][6] = $character[1][9]
= $character[2][0] = $character[2][3] = $character[2][6]
= $character[2][9] = $character[3][0] = $character[3][9] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[0][8] = $character[3][1] = $character[3][2]
= $character[3][3] = $character[3][4] = $character[3][5]
= $character[3][6] = $character[3][7] = $character[3][8] = "_";
return \@character;
};
function character_X => sub {
my @character = $_[0]->default_character(9);
$character[2][1] = $character[2][7] = "\-";
$character[1][0] = $character[1][4] = $character[1][8] = $character[2][0]
= $character[2][8] = $character[3][0] = $character[3][4]
= $character[3][8] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][5]
= $character[0][6] = $character[0][7] = $character[3][1]
= $character[3][2] = $character[3][3] = $character[3][5]
= $character[3][6] = $character[3][7] = "_";
return \@character;
};
function character_Y => sub {
my @character = $_[0]->default_character(9);
$character[2][1] = "\\";
$character[1][0] = $character[1][4] = $character[1][8] = $character[3][2]
= $character[3][6] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][5]
= $character[0][6] = $character[0][7] = $character[3][3]
= $character[3][4] = $character[3][5] = "_";
$character[2][7] = "\/";
return \@character;
};
function character_Z => sub {
my @character = $_[0]->default_character(9);
$character[1][0] = $character[1][8] = $character[2][0] = $character[2][8]
= $character[3][0] = $character[3][8] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[0][7]
= $character[1][1] = $character[1][2] = $character[2][6]
= $character[2][7] = $character[3][1] = $character[3][2]
= $character[3][3] = $character[3][4] = $character[3][5]
= $character[3][6] = $character[3][7] = "_";
return \@character;
};
function character_a => sub {
my @character = $_[0]->default_character(7);
$character[2][3] = $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][5] = "_";
$character[2][0] = $character[2][6] = $character[3][0] = $character[3][6]
= "\|";
$character[1][1] = $character[1][2] = $character[1][3] = $character[1][5]
= "\-";
$character[1][0] = $character[1][4] = $character[1][6] = $character[3][4]
= "\.";
return \@character;
};
function character_b => sub {
my @character = $_[0]->default_character(7);
$character[1][0] = $character[1][3] = $character[2][0] = $character[2][6]
= $character[3][0] = $character[3][6] = "\|";
$character[0][1] = $character[0][2] = $character[2][3] = $character[3][1]
= $character[3][2] = $character[3][3] = $character[3][4]
= $character[3][5] = "_";
$character[1][6] = "\.";
$character[1][4] = $character[1][5] = "\-";
return \@character;
};
function character_c => sub {
my @character = $_[0]->default_character(6);
$character[2][3] = $character[2][4] = $character[3][1] = $character[3][2]
= $character[3][3] = $character[3][4] = "_";
$character[2][0] = $character[2][5] = $character[3][0] = $character[3][5]
= "\|";
$character[1][1] = $character[1][2] = $character[1][3] = $character[1][4]
= "\-";
$character[1][0] = $character[1][5] = "\.";
return \@character;
};
function character_d => sub {
my @character = $_[0]->default_character(7);
$character[1][0] = "\.";
$character[1][1] = $character[1][2] = "\-";
$character[1][3] = $character[1][6] = $character[2][0] = $character[2][6]
= $character[3][0] = $character[3][6] = "\|";
$character[0][4] = $character[0][5] = $character[2][3] = $character[3][1]
= $character[3][2] = $character[3][3] = $character[3][4]
= $character[3][5] = "_";
return \@character;
};
function character_e => sub {
my @character = $_[0]->default_character(7);
$character[2][4] = $character[2][5] = $character[3][1] = $character[3][2]
= $character[3][3] = $character[3][4] = $character[3][5] = "_";
$character[2][0] = $character[2][6] = $character[3][0] = $character[3][6]
= "\|";
$character[1][1] = $character[1][2] = $character[1][3] = $character[1][4]
= $character[1][5] = $character[2][3] = "\-";
$character[1][0] = $character[1][6] = "\.";
return \@character;
};
function character_f => sub {
my @character = $_[0]->default_character(6);
$character[1][0] = "\.";
$character[1][1] = "\'";
$character[1][5] = $character[2][0] = $character[2][5] = $character[3][0]
= $character[3][3] = "\|";
$character[0][2] = $character[0][3] = $character[0][4] = $character[1][4]
= $character[2][4] = $character[3][1] = $character[3][2] = "_";
return \@character;
};
function character_g => sub {
my @character = $_[0]->default_character(7);
$character[2][3] = $character[3][1] = $character[3][2] = $character[3][3]
= $character[4][1] = $character[4][2] = $character[4][3]
= $character[4][4] = $character[4][5] = "_";
$character[2][0] = $character[2][6] = $character[3][0] = $character[3][6]
= $character[4][0] = $character[4][6] = "\|";
$character[1][1] = $character[1][2] = $character[1][3] = $character[1][4]
= $character[1][5] = "\-";
$character[1][0] = $character[1][6] = "\.";
return \@character;
};
function character_h => sub {
my @character = $_[0]->default_character(7);
$character[1][0] = $character[1][3] = $character[2][0] = $character[2][6]
= $character[3][0] = $character[3][3] = $character[3][6] = "\|";
$character[0][1] = $character[0][2] = $character[3][1] = $character[3][2]
= $character[3][4] = $character[3][5] = "_";
$character[1][6] = "\.";
$character[1][4] = $character[1][5] = "\-";
return \@character;
};
function character_i => sub {
my @character = $_[0]->default_character(4);
$character[1][0] = $character[1][3] = $character[2][0] = $character[2][3]
= $character[3][0] = $character[3][3] = "\|";
$character[0][1] = $character[0][2] = $character[1][1] = $character[1][2]
= $character[3][1] = $character[3][2] = "_";
return \@character;
};
function character_j => sub {
my @character = $_[0]->default_character(5);
$character[1][1] = $character[1][4] = $character[2][1] = $character[2][4]
= $character[3][1] = $character[3][4] = $character[4][0]
= $character[4][4] = "\|";
$character[0][2] = $character[0][3] = $character[1][2] = $character[1][3]
= $character[4][1] = $character[4][2] = $character[4][3] = "_";
return \@character;
};
function character_k => sub {
my @character = $_[0]->default_character(7);
$character[0][1] = $character[0][2] = $character[3][1] = $character[3][2]
= $character[3][4] = $character[3][5] = "_";
$character[2][5] = "\<";
$character[1][0] = $character[1][3] = $character[2][0] = $character[3][0]
= $character[3][3] = $character[3][6] = "\|";
$character[1][4] = $character[1][5] = "\-";
$character[1][6] = "\.";
return \@character;
};
function character_l => sub {
my @character = $_[0]->default_character(4);
$character[0][1] = $character[0][2] = $character[3][1] = $character[3][2]
= "_";
$character[1][0] = $character[1][3] = $character[2][0] = $character[2][3]
= $character[3][0] = $character[3][3] = "\|";
return \@character;
};
function character_m => sub {
my @character = $_[0]->default_character(10);
$character[1][1] = $character[1][2] = $character[1][3] = $character[1][4]
= $character[1][5] = $character[1][6] = $character[1][7]
= $character[1][8] = "\-";
$character[1][0] = $character[1][9] = "\.";
$character[3][1] = $character[3][2] = $character[3][4] = $character[3][5]
= $character[3][7] = $character[3][8] = "_";
$character[2][0] = $character[2][9] = $character[3][0] = $character[3][3]
= $character[3][6] = $character[3][9] = "\|";
return \@character;
};
function character_n => sub {
my @character = $_[0]->default_character(7);
$character[1][1] = $character[1][2] = $character[1][3] = $character[1][4]
= $character[1][5] = "\-";
$character[1][0] = $character[1][6] = "\.";
$character[3][1] = $character[3][2] = $character[3][4] = $character[3][5]
= "_";
$character[2][0] = $character[2][6] = $character[3][0] = $character[3][3]
= $character[3][6] = "\|";
return \@character;
};
function character_o => sub {
my @character = $_[0]->default_character(7);
$character[2][3] = $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = $character[3][5] = "_";
$character[2][0] = $character[2][6] = $character[3][0] = $character[3][6]
= "\|";
$character[1][1] = $character[1][2] = $character[1][3] = $character[1][4]
= $character[1][5] = "\-";
$character[1][0] = $character[1][6] = "\.";
return \@character;
};
function character_p => sub {
my @character = $_[0]->default_character(7);
$character[1][0] = $character[1][6] = "\.";
$character[1][1] = $character[1][2] = $character[1][3] = $character[1][4]
= $character[1][5] = "\-";
$character[2][0] = $character[2][6] = $character[3][0] = $character[3][6]
= $character[4][0] = $character[4][3] = "\|";
$character[2][3] = $character[3][4] = $character[3][5] = $character[4][1]
= $character[4][2] = "_";
return \@character;
};
function character_q => sub {
my @character = $_[0]->default_character(7);
$character[1][1] = $character[1][2] = $character[1][3] = $character[1][4]
= $character[1][5] = "\-";
$character[1][0] = $character[1][6] = "\.";
$character[2][3] = $character[3][1] = $character[3][2] = $character[4][4]
= $character[4][5] = "_";
$character[2][0] = $character[2][6] = $character[3][0] = $character[3][6]
= $character[4][3] = $character[4][6] = "\|";
return \@character;
};
function character_r => sub {
my @character = $_[0]->default_character(6);
$character[1][0] = $character[1][5] = "\.";
$character[1][1] = $character[1][2] = $character[1][3] = $character[1][4]
= "\-";
$character[2][0] = $character[2][5] = $character[3][0] = $character[3][3]
= "\|";
$character[2][4] = $character[3][1] = $character[3][2] = "_";
return \@character;
};
function character_s => sub {
my @character = $_[0]->default_character(7);
$character[2][1] = $character[2][2] = $character[3][1] = $character[3][2]
= $character[3][3] = $character[3][4] = $character[3][5] = "_";
$character[2][0] = $character[2][6] = $character[3][0] = $character[3][6]
= "\|";
$character[1][1] = $character[1][2] = $character[1][3] = $character[1][4]
= $character[1][5] = $character[2][4] = $character[2][5] = "\-";
$character[1][0] = $character[1][6] = "\.";
return \@character;
};
function character_t => sub {
my @character = $_[0]->default_character(6);
$character[0][1] = $character[0][2] = $character[1][4] = $character[2][4]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = "_";
$character[1][0] = $character[1][3] = $character[2][0] = $character[2][5]
= $character[3][0] = $character[3][5] = "\|";
return \@character;
};
function character_u => sub {
my @character = $_[0]->default_character(7);
$character[2][0] = $character[2][3] = $character[2][6] = $character[3][0]
= $character[3][6] = "\|";
$character[3][1] = $character[3][2] = $character[3][3] = $character[3][4]
= $character[3][5] = "_";
$character[1][0] = $character[1][3] = $character[1][6] = "\.";
$character[1][1] = $character[1][2] = $character[1][4] = $character[1][5]
= "\-";
return \@character;
};
function character_v => sub {
my @character = $_[0]->default_character(7);
$character[3][2] = $character[3][3] = $character[3][4] = "_";
$character[3][1] = "\\";
$character[2][0] = $character[2][3] = $character[2][6] = "\|";
$character[3][5] = "\/";
$character[1][1] = $character[1][2] = $character[1][4] = $character[1][5]
= "\-";
$character[1][0] = $character[1][3] = $character[1][6] = "\.";
return \@character;
};
function character_w => sub {
my @character = $_[0]->default_character(10);
$character[2][0] = $character[2][3] = $character[2][6] = $character[2][9]
= $character[3][0] = $character[3][9] = "\|";
$character[3][1] = $character[3][2] = $character[3][3] = $character[3][4]
= $character[3][5] = $character[3][6] = $character[3][7]
= $character[3][8] = "_";
$character[1][0] = $character[1][3] = $character[1][6] = $character[1][9]
= "\.";
$character[1][1] = $character[1][2] = $character[1][4] = $character[1][5]
= $character[1][7] = $character[1][8] = "\-";
return \@character;
};
function character_x => sub {
my @character = $_[0]->default_character(7);
$character[2][1] = $character[2][5] = $character[3][1] = $character[3][2]
= $character[3][4] = $character[3][5] = "_";
$character[2][0] = $character[2][6] = $character[3][0] = $character[3][6]
= "\|";
$character[1][1] = $character[1][2] = $character[1][4] = $character[1][5]
= "\-";
$character[1][0] = $character[1][3] = $character[1][6] = $character[3][3]
= "\.";
return \@character;
};
function character_y => sub {
my @character = $_[0]->default_character(7);
$character[2][0] = $character[2][3] = $character[2][6] = $character[3][0]
= $character[3][6] = $character[4][0] = $character[4][6] = "\|";
$character[3][1] = $character[3][2] = $character[3][3] = $character[4][1]
= $character[4][2] = $character[4][3] = $character[4][4]
= $character[4][5] = "_";
$character[1][0] = $character[1][3] = $character[1][6] = "\.";
$character[1][1] = $character[1][2] = $character[1][4] = $character[1][5]
= "\-";
return \@character;
};
function character_z => sub {
my @character = $_[0]->default_character(7);
$character[2][4] = $character[2][5] = $character[3][1] = $character[3][2]
= $character[3][3] = $character[3][4] = $character[3][5] = "_";
$character[2][0] = $character[2][6] = $character[3][0] = $character[3][6]
= "\|";
$character[1][1] = $character[1][2] = $character[1][3] = $character[1][4]
= $character[1][5] = $character[2][1] = $character[2][2] = "\-";
$character[1][0] = $character[1][6] = "\.";
return \@character;
};
function character_0 => sub {
my @character = $_[0]->default_character(8);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[3][1]
= $character[3][2] = $character[3][3] = $character[3][4]
= $character[3][5] = $character[3][6] = "_";
$character[1][0] = $character[1][7] = $character[2][0] = $character[2][7]
= $character[3][0] = $character[3][7] = "\|";
$character[2][3] = $character[2][4] = "\-";
return \@character;
};
function character_1 => sub {
my @character = $_[0]->default_character(8);
$character[1][0] = $character[1][5] = $character[2][2] = $character[2][5]
= $character[3][0] = $character[3][7] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[1][1] = $character[2][1] = $character[2][6]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = $character[3][5] = $character[3][6] = "_";
return \@character;
};
function character_2 => sub {
my @character = $_[0]->default_character(8);
$character[1][0] = $character[1][7] = $character[2][0] = $character[2][7]
= $character[3][0] = $character[3][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[2][5] = $character[2][6]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = $character[3][5] = $character[3][6] = "_";
return \@character;
};
function character_3 => sub {
my @character = $_[0]->default_character(8);
$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[2][1] = $character[2][2]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = $character[3][5] = $character[3][6] = "_";
$character[1][0] = $character[1][7] = $character[2][0] = $character[2][7]
= $character[3][0] = $character[3][7] = "\|";
return \@character;
};
function character_4 => sub {
my @character = $_[0]->default_character(8);
$character[1][0] = $character[1][3] = $character[1][6] = $character[2][0]
= $character[2][7] = $character[3][3] = $character[3][6] = "\|";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[2][1] = $character[2][2]
= $character[3][4] = $character[3][5] = "_";
return \@character;
};
function character_5 => sub {
my @character = $_[0]->default_character(8);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[1][5]
= $character[1][6] = $character[2][1] = $character[2][2]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = $character[3][5] = $character[3][6] = "_";
$character[1][0] = $character[1][7] = $character[2][0] = $character[2][7]
= $character[3][0] = $character[3][7] = "\|";
return \@character;
};
function character_6 => sub {
my @character = $_[0]->default_character(8);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[1][5]
= $character[1][6] = $character[2][3] = $character[2][4]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = $character[3][5] = $character[3][6] = "_";
$character[1][0] = $character[1][7] = $character[2][0] = $character[2][7]
= $character[3][0] = $character[3][7] = "\|";
return \@character;
};
function character_7 => sub {
my @character = $_[0]->default_character(8);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[2][1]
= $character[3][3] = $character[3][4] = $character[3][5]
= $character[3][6] = "_";
$character[1][0] = $character[1][7] = $character[2][0] = $character[2][7]
= $character[3][2] = $character[3][7] = "\|";
return \@character;
};
function character_8 => sub {
my @character = $_[0]->default_character(8);
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[1][3]
= $character[1][4] = $character[2][3] = $character[2][4]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = $character[3][5] = $character[3][6] = "_";
$character[1][0] = $character[1][7] = $character[2][0] = $character[2][7]
= $character[3][0] = $character[3][7] = "\|";
return \@character;
};
function character_9 => sub {
my @character = $_[0]->default_character(8);
$character[1][0] = $character[1][7] = $character[2][0] = $character[2][7]
= $character[3][0] = $character[3][7] = "\|";
$character[4][0] = "\
";
$character[0][1] = $character[0][2] = $character[0][3] = $character[0][4]
= $character[0][5] = $character[0][6] = $character[1][3]
= $character[1][4] = $character[2][1] = $character[2][2]
= $character[3][1] = $character[3][2] = $character[3][3]
= $character[3][4] = $character[3][5] = $character[3][6] = "_";
return \@character;
};
1;
__END__
=head1 NAME
Ascii::Text::Font::Chunky - Chunky font
=head1 VERSION
Version 0.21
=cut
=head1 SYNOPSIS
Quick summary of what the module does.
use Ascii::Text::Font::Chunky;
my $foo = Ascii::Text::Font::Chunky->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
___ ___
| | |
|- -|
|___|___|
=head2 character_Y
___ ___
| | |
\ /
|___|
=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
.--.--.
| | |
\___/
=head2 character_w
.--.--.--.
| | | |
|________|
=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
______
| __ |
| __ |
|______|
=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::chunky at rt.cpan.org>, or through
the web interface at L<https://rt.cpan.org/NoAuth/ReportBug.html?Queue=Ascii-Text-Font-Chunky>. 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::Chunky
You can also look for information at:
=over 4
=item * RT: CPAN's request tracker (report bugs here)
=item * AnnoCPAN: Annotated CPAN documentation
=item * CPAN Ratings
=item * Search CPAN
=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