diff --git a/lpst.pl b/lpst.pl index 14292e6..f06f01f 100644 --- a/lpst.pl +++ b/lpst.pl @@ -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){