lpst.pl - removed old system for subbing pieces into a hex
This commit is contained in:
parent
c8e8946a5b
commit
81072e8dc4
8
lpst.pl
8
lpst.pl
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user