|
|
@@ -205,8 +205,6 @@ sub f_1($$$){ |
|
|
|
my $s0; |
|
|
|
|
|
|
|
$p =~ s/($P1|$P2)$DIV//; |
|
|
|
# $p =~ s/$EMPTY_CELL//; |
|
|
|
# $p .= "__" if length($p) < 1; |
|
|
|
$p .= "_" if length($p) < 2; |
|
|
|
$s0 = $hex; |
|
|
|
|
|
|
@@ -215,12 +213,6 @@ sub f_1($$$){ |
|
|
|
unless($p eq "__"){ |
|
|
|
substr($s0, 2,2) = $p; |
|
|
|
} |
|
|
|
# if ($p eq "__"){ |
|
|
|
# $s0 =~ s/$ALT_SUB_CHR{1,2}/$SHADE_1_CHR$SHADE_1_CHR/; |
|
|
|
# }else{ |
|
|
|
# # $p =~ s/_/$SHADE_1_CHR/; |
|
|
|
# $s0 =~ s/$ALT_SUB_CHR{1,2}/$p/; |
|
|
|
# } |
|
|
|
|
|
|
|
if($c0 % 2 == 0){ |
|
|
|
$s0 =~ s/$SUB_CHR/$BLANK_CELL_CHR/g; |
|
|
|