Re: How?
By: Deuce to Angus McLeod on Mon Sep 11 2006 11:30:00
Using imagemagick to grab the bottom bit and save as a pbm then running it through ocrad (http://www.gnu.org/software/ocrad/ocrad.html) should do the trick I would think.
Dunno about ocrad, but this:
-----------8<-----------------
#!/usr/bin/perl -w
use Image::Magick;
%digit = (
"00000000000000" => 0, # blank space = 0
"be6030990c067d" => 0,
"0806028140207c" => 1,
"be2010c41104fe" => 2,
"7f10040302067d" => 3,
"20188a24fa8340" => 4,
"ff40e00704067d" => 5,
"3c41a0370c067d" => 6,
"7f200882200802" => 7,
"1c9188230a067d" => 8,
"be6030ec05823c" => 9,
);
# filling in the other months will take a YEAR!!!!
%month = (
"3efefc820408060810f4f1e3072440004880409000011f7f02" => 9, # SEP );
my $ink;
sub setink {
my $img = shift;
my $x = shift;
my $y = shift;
my @pixel = $p->GetPixels(
width => 1,
height => 1,
x => $x,
y => $y,
map => 'RGB',
normalize => 0
);
$paper = $pixel[0];
if ($paper == 0) {
$ink = 65535;
} else {
$ink = 0;
}
}
sub gettext {
my $img = shift;
my $x = shift;
my $y = shift;
my $w = shift || 7;
my @pixel = $p->GetPixels(
width => $w,
height => 8,
x => $x,
y => $y,
map => 'RGB',
normalize => 0
);
my $bitstring = "";
my $offset = 0;
for ($i=0; $i<=$#pixel; $i+=3) {
if ($pixel[$i] == $ink) {
vec( $bitstring, $offset++, 1 ) = 1;
#print "#";
} else {
vec( $bitstring, $offset++, 1 ) = 0;
#print " ";
}
#if (($offset % $w) == 0) { print "\n" }
}
$bitstring =~ s/(.|\n)/sprintf("%02lx", ord $1)/eg;
return $bitstring;
}
$file = $ARGV[0];
$p = new Image::Magick();
Read( $file );
Posterize( levels => 2, dither => 0 );
setink( $p, 150, 470 );
$d1 = gettext( $p, 189, 469 );
$d2 = gettext( $p, 198, 469 );
$m = gettext( $p, 216, 469,25 );
$y1 = gettext( $p, 252, 469 );
$y2 = gettext( $p, 261, 469 );
if ((defined $digit{$d1}) && (defined $digit{$d2})
&& (defined $month{$m})
&& (defined $digit{$y1}) && (defined $digit{$y2})) {
$yyyymmdd = sprintf "%04d-%02d-%02d",
(($digit{$y1} * 10) + $digit{$y2}) + 2000,
$month{$m},
(($digit{$d1} * 10) + $digit{$d2});
} else {
$yyyymmdd = "????-??-??";
}
$h1 = gettext( $p, 306, 469 );
$h2 = gettext( $p, 315, 469 );
$m1 = gettext( $p, 324, 469 );
$m2 = gettext( $p, 333, 469 );
if ((defined $digit{$h1}) && (defined $digit{$h2})
&& (defined $digit{$m1}) && (defined $digit{$m2})) {
$hhmm = sprintf "%02d:%02d",
(($digit{$h1} * 10) + $digit{$h2}),
(($digit{$m1} * 10) + $digit{$m2}),
} else {
$hhmm = "??:??";
}
#foreach $key (keys %digit) {
# print "$key = $digit{$key}\n";
#}
printf "%s %s\n", $yyyymmdd, $hhmm;
-------------------->8----------------------
works SOME of the time. For instance, it works on
http://hadar.cira.colostate.edu/ramsdis/online/data/rmtcrso/502.jpg
which is thermal infrared, but not on
http://hadar.cira.colostate.edu/ramsdis/online/data/rmtcrso/483.jpg
which is short-wave IR. Note the cyan ink on white paper! My attempt to
beat the problem with setink() failed, because the characters themselves
are distorted. (Uncomment print statements in gettext() to see.) I can't help feeling that some combination of ImageMagick functions ought to be
able to clean up the image and make reading the data reliable, but I don't know ImageMagick all that well.
Fortunately, the short-wave IR images are the ugliest, and I'm even
thinking of dropping them from consideration altogether, and stick with
VIS and IR4 only.
<ponders>
---
Playing: "When tomorrow comes" by "Eurythmics"
from the "Greatest hits" album
þ Synchronet þ Programatically generated on The ANJO BBS
