From 81072e8dc41ad65446cffceb2cb900c39fe1783d Mon Sep 17 00:00:00 2001 From: gashapwn Date: Sun, 4 Apr 2021 15:25:17 +0000 Subject: [PATCH] lpst.pl - removed old system for subbing pieces into a hex --- lpst.pl | 8 -------- 1 file changed, 8 deletions(-) diff --git a/lpst.pl b/lpst.pl index e61eac8..bef1526 100644 --- a/lpst.pl +++ b/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;