|
@@ -33,7 +33,8 @@ sub f2($$$){ |
|
|
my ($s0, $tc, $apl) = (shift, shift, shift); |
|
|
my ($s0, $tc, $apl) = (shift, shift, shift); |
|
|
my $mt0; |
|
|
my $mt0; |
|
|
|
|
|
|
|
|
$mt0 = mt1($s0, $tc); |
|
|
|
|
|
|
|
|
return LPST->P2 if $apl eq LPST->P1; |
|
|
|
|
|
return LPST->P1; |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
sub f1($){ |
|
|
sub f1($){ |
|
@@ -46,11 +47,12 @@ sub f1($){ |
|
|
$tc = 0; |
|
|
$tc = 0; |
|
|
|
|
|
|
|
|
for my $s0 (split(/\n/, $ns0)){ |
|
|
for my $s0 (split(/\n/, $ns0)){ |
|
|
|
|
|
# $mt0 = mt1($s0, $tc); |
|
|
$apl = f2($s0, $tc, $apl); |
|
|
$apl = f2($s0, $tc, $apl); |
|
|
# printf(">>%s\n", $s0); |
|
|
# printf(">>%s\n", $s0); |
|
|
$tc++; |
|
|
$tc++; |
|
|
} |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
my $ns0; |
|
|
my $ns0; |
|
|
|
|
|
|
|
@@ -66,10 +68,10 @@ my $m2 = "B3"; |
|
|
my $c1 = LPST->MG_SY; |
|
|
my $c1 = LPST->MG_SY; |
|
|
my $c2 = LPST->MG_A; |
|
|
my $c2 = LPST->MG_A; |
|
|
|
|
|
|
|
|
# $b = LPST->new(); |
|
|
|
|
|
|
|
|
$b = LPST->new(); |
|
|
|
|
|
|
|
|
# $board{$m1} = $P1.$DIV.$c1; |
|
|
# $board{$m1} = $P1.$DIV.$c1; |
|
|
# $board{$m2} = $P2.$DIV.$c2; |
|
|
# $board{$m2} = $P2.$DIV.$c2; |
|
|
|
|
|
|
|
|
# $b->shade_all_p1_mvmt(); |
|
|
# $b->shade_all_p1_mvmt(); |
|
|
# $b->disp_board(); |
|
|
|
|
|
|
|
|
$b->disp_board(); |