gashapwn/lpst
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
gashapwn 2021-04-04 15:25:17 +00:00
parent c8e8946a5b
commit 81072e8dc4
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lpst.pl
View File

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