lpst.pl - added x axis

This commit is contained in:
gashapwn 2021-04-04 00:39:52 +00:00
parent aae5e28dfd
commit fccff335bf

50
lpst.pl
View File

@ -4,6 +4,7 @@ use warnings;
use strict;
my $PAD_AXIS = " ";
my $PAD_EVEN = " ";
my $PAD_ODD = " ";
@ -11,6 +12,8 @@ my $HEX_1 = '-/--\-';
my $HEX_2 = '| __ |';
my $HEX_3 = '| |';
my $SUB_CHR = "_";
my $PREF_1 = substr($HEX_1, -2, 2);
my $PREF_2 = ' ';
my $PREF_3 = ' ';
@ -51,6 +54,10 @@ my %AXIS = (
"J" => 10,
"K" => 11
);
my %AXIS_RV = map {
$AXIS{$_} => $_
} keys(%AXIS);
#
# /--\ +1
@ -270,12 +277,51 @@ sub disp_row($){
return $row;
}
sub disp_y_axis(){
my $s0;
$s0 = $PAD_AXIS;
$s0 .= join(
$PAD_AXIS, map{
$AXIS_RV{$_}
}(1..11));
$s0 .= "\n";
return $s0
}
sub disp_trailing_row(){
my $s0;
my $s1;
$s0 = $PAD_EVEN.$PREF_1;
# Clear some chars from
# our hex patterns
$s1 = $HEX_1;
substr($s1, 2,2) = " ";
# Append hex pattern to
# trailing row
for my $i (1..11){
$s0 .= $s1;
}
# Clear one last pair of
# chrs
substr($s0, -2,2) = " ";
$s0 .= "\n";
return $s0;
}
sub disp_board(){
my $b;
for my $i (map {11-$_+1} (1..11)) {
$b .= disp_row($i);
}
$b .= disp_trailing_row();
$b .= disp_y_axis();
$b =~ s/$TRAIL_1$TRAIL_3\n/\n/m;
for my $i (1..11-1){
@ -295,7 +341,9 @@ sub cell_index($){
my $l0;
$l0 = $_;
(map {$l0.$_} ("1".."11"))
} ("A".."K");
} map{
$AXIS_RV{$_}
}(1...11);
disp_board();