lpst.pl - removed old system for subbing pieces into a hex

This commit is contained in:
gashapwn 2021-04-04 15:25:17 +00:00
parent c8e8946a5b
commit 81072e8dc4

View File

@ -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;