|
|
@@ -218,7 +218,7 @@ sub disp_3(){ |
|
|
|
return $HEX_3; |
|
|
|
} |
|
|
|
|
|
|
|
sub disp_x_axis($$$$){ |
|
|
|
sub disp_y_axis($$$$){ |
|
|
|
my ($s0, $s1, $s2, $r0) = @_; |
|
|
|
my $n0; |
|
|
|
|
|
|
@@ -249,7 +249,7 @@ sub disp_0($){ |
|
|
|
|
|
|
|
$r0 = shift; |
|
|
|
|
|
|
|
($s0, $s1, $s2) = disp_x_axis($s0, $s1, $s2, $r0); |
|
|
|
($s0, $s1, $s2) = disp_y_axis($s0, $s1, $s2, $r0); |
|
|
|
for my $i (1..11){ |
|
|
|
($s0, $s1, $s2) = add_cell($s0, $s1, $s2, $r0, $i); |
|
|
|
} |
|
|
@@ -277,7 +277,7 @@ sub disp_row($){ |
|
|
|
return $row; |
|
|
|
} |
|
|
|
|
|
|
|
sub disp_y_axis(){ |
|
|
|
sub disp_x_axis(){ |
|
|
|
my $s0; |
|
|
|
|
|
|
|
$s0 = $PAD_AXIS; |
|
|
@@ -321,7 +321,7 @@ sub disp_board(){ |
|
|
|
$b .= disp_row($i); |
|
|
|
} |
|
|
|
$b .= disp_trailing_row(); |
|
|
|
$b .= disp_y_axis(); |
|
|
|
$b .= disp_x_axis(); |
|
|
|
$b =~ s/$TRAIL_1$TRAIL_3\n/\n/m; |
|
|
|
|
|
|
|
for my $i (1..11-1){ |
|
|
|