lpst.pl - added x axis
This commit is contained in:
parent
aae5e28dfd
commit
fccff335bf
50
lpst.pl
50
lpst.pl
@ -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();
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user