summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
9b6efb5)
Valid colors to filter_color() put on seperate lines to allow source
comments and easy extension on future encounters.
my $input = shift; # (452,6)-(639,13)
$input->write(file => sprintf "tests%05d.png", $i) or warn $input->errstr
if DEBUG;
my $input = shift; # (452,6)-(639,13)
$input->write(file => sprintf "tests%05d.png", $i) or warn $input->errstr
if DEBUG;
- my $stats = filter_color($input, "\020\377\030", "\317\030\030", "\310\030\030"); # ?/10FF18 | C81818/CF1818
+ my $stats = filter_color($input,
+ "\020\377\030", "\317\030\030", # CF1818/C81818
+ "\310\030\030", # ?/10FF18
+ );
my $min = getchars($stats, \%digitgreen, 7, 0, 39);
my $gas = getchars($stats, \%digitgreen, 7, 68, 107);
my $unit = getchars($stats, \%digitgreen, 7, 136, 181);
my $min = getchars($stats, \%digitgreen, 7, 0, 39);
my $gas = getchars($stats, \%digitgreen, 7, 68, 107);
my $unit = getchars($stats, \%digitgreen, 7, 136, 181);
my $input = shift; # (587,396)-(621,402)
$input->write(file => sprintf "testt%05d.png", $i) or warn $input->errstr
if DEBUG;
my $input = shift; # (587,396)-(621,402)
$input->write(file => sprintf "testt%05d.png", $i) or warn $input->errstr
if DEBUG;
- my $play = filter_color($input, "\276\272\357"); # 190, 186, 239
+ my $play = filter_color($input,
+ "\276\272\357", # BEBAEF
+ );
my $time = getchars($play, \%digittime, 6, 0, 33);
return (
$time =~ /^(?:(\d):)?(\d\d):(\d\d)$/ ?
my $time = getchars($play, \%digittime, 6, 0, 33);
return (
$time =~ /^(?:(\d):)?(\d\d):(\d\d)$/ ?