Big OCR update. Also added redundant ConvTPAArr to mufasatypesutil,
added Copy() to TMufasaBitmap, and added GetDirectories to files. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@318 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup?
parent
36d0cc2f9c
commit
20a66b3854
|
|
@ -31,12 +31,12 @@
|
|||
<PackageName Value="LCL"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="11">
|
||||
<Units Count="15">
|
||||
<Unit0>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="project1"/>
|
||||
<UsageCount Value="28"/>
|
||||
<UsageCount Value="49"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
|
|
@ -44,10 +44,10 @@
|
|||
<ComponentName Value="Form1"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit1"/>
|
||||
<CursorPos X="1" Y="102"/>
|
||||
<TopLine Value="90"/>
|
||||
<CursorPos X="77" Y="89"/>
|
||||
<TopLine Value="62"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="28"/>
|
||||
<UsageCount Value="49"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
|
|
@ -58,7 +58,7 @@
|
|||
<UnitName Value="colourhistory"/>
|
||||
<CursorPos X="10" Y="457"/>
|
||||
<TopLine Value="437"/>
|
||||
<UsageCount Value="13"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="../SAMufasaGUI/testunit.pas"/>
|
||||
|
|
@ -68,189 +68,219 @@
|
|||
<UnitName Value="TestUnit"/>
|
||||
<CursorPos X="38" Y="405"/>
|
||||
<TopLine Value="382"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="../../Units/MMLCore/client.pas"/>
|
||||
<UnitName Value="Client"/>
|
||||
<CursorPos X="21" Y="52"/>
|
||||
<TopLine Value="32"/>
|
||||
<CursorPos X="25" Y="50"/>
|
||||
<TopLine Value="31"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="15"/>
|
||||
<UsageCount Value="25"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<UnitName Value="ocr"/>
|
||||
<CursorPos X="77" Y="93"/>
|
||||
<TopLine Value="153"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="15"/>
|
||||
<CursorPos X="18" Y="467"/>
|
||||
<TopLine Value="448"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="25"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
|
||||
<UnitName Value="bitmaps"/>
|
||||
<CursorPos X="25" Y="436"/>
|
||||
<TopLine Value="416"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<UsageCount Value="14"/>
|
||||
<CursorPos X="18" Y="81"/>
|
||||
<TopLine Value="47"/>
|
||||
<EditorIndex Value="8"/>
|
||||
<UsageCount Value="24"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="../../Units/MMLCore/ocrutil.pas"/>
|
||||
<UnitName Value="ocrutil"/>
|
||||
<CursorPos X="20" Y="267"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="54" Y="198"/>
|
||||
<TopLine Value="115"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="14"/>
|
||||
<UsageCount Value="24"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="../../../../Documents/lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/>
|
||||
<CursorPos X="41" Y="1226"/>
|
||||
<TopLine Value="1205"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="../../Units/MMLAddon/tpa.pas"/>
|
||||
<UnitName Value="tpa"/>
|
||||
<CursorPos X="68" Y="798"/>
|
||||
<TopLine Value="779"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<UsageCount Value="12"/>
|
||||
<CursorPos X="5" Y="557"/>
|
||||
<TopLine Value="535"/>
|
||||
<EditorIndex Value="7"/>
|
||||
<UsageCount Value="22"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="../../Units/MMLCore/mufasatypesutil.pas"/>
|
||||
<UnitName Value="mufasatypesutil"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<CursorPos X="23" Y="23"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="11"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<UsageCount Value="21"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<UnitName Value="finder"/>
|
||||
<CursorPos X="78" Y="455"/>
|
||||
<TopLine Value="432"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="18"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="../../../../Documents/fpc/rtl/inc/objpash.inc"/>
|
||||
<CursorPos X="48" Y="193"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="../../../../Documents/fpc/rtl/objpas/sysutils/finah.inc"/>
|
||||
<CursorPos X="17" Y="40"/>
|
||||
<TopLine Value="4"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit13>
|
||||
<Unit14>
|
||||
<Filename Value="../../Units/MMLCore/files.pas"/>
|
||||
<UnitName Value="files"/>
|
||||
<CursorPos X="7" Y="103"/>
|
||||
<TopLine Value="73"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<UsageCount Value="15"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit14>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="87" Column="27" TopLine="56"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="571" Column="25" TopLine="551"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="72" Column="4" TopLine="56"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="581" Column="4" TopLine="550"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="70" Column="70" TopLine="56"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="575" Column="3" TopLine="555"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="../../Units/MMLCore/ocrutil.pas"/>
|
||||
<Caret Line="169" Column="23" TopLine="156"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="458" Column="25" TopLine="425"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="71" Column="29" TopLine="44"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="459" Column="121" TopLine="440"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="../../Units/MMLCore/ocrutil.pas"/>
|
||||
<Caret Line="184" Column="58" TopLine="160"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="588" Column="39" TopLine="560"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="74" Column="107" TopLine="58"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="593" Column="5" TopLine="563"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="57" Column="33" TopLine="37"/>
|
||||
<Caret Line="588" Column="7" TopLine="575"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="../../Units/MMLAddon/tpa.pas"/>
|
||||
<Caret Line="30" Column="64" TopLine="25"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="585" Column="7" TopLine="563"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="../../Units/MMLAddon/tpa.pas"/>
|
||||
<Caret Line="63" Column="20" TopLine="44"/>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="64" Column="27" TopLine="49"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="89" Column="20" TopLine="70"/>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="65" Column="27" TopLine="49"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="94" Column="57" TopLine="71"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="583" Column="67" TopLine="551"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="96" Column="57" TopLine="71"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="597" Column="18" TopLine="576"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="98" Column="61" TopLine="82"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="601" Column="7" TopLine="576"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="114" Column="13" TopLine="88"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="581" Column="39" TopLine="564"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="96" Column="61" TopLine="77"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="594" Column="7" TopLine="574"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="103" Column="10" TopLine="77"/>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="622" Column="79" TopLine="588"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="102" Column="8" TopLine="84"/>
|
||||
<Caret Line="54" Column="20" TopLine="1"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="42" Column="36" TopLine="25"/>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="53" Column="20" TopLine="15"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="108" Column="47" TopLine="84"/>
|
||||
<Caret Line="45" Column="65" TopLine="39"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="333" Column="23" TopLine="301"/>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="119" Column="5" TopLine="93"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="109" Column="28" TopLine="89"/>
|
||||
<Caret Line="30" Column="68" TopLine="6"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="356" Column="43" TopLine="325"/>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="105" Column="3" TopLine="73"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="343" Column="17" TopLine="324"/>
|
||||
<Caret Line="12" Column="77" TopLine="1"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="346" Column="11" TopLine="331"/>
|
||||
<Caret Line="37" Column="77" TopLine="26"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="355" Column="37" TopLine="331"/>
|
||||
<Caret Line="619" Column="28" TopLine="592"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="351" Column="33" TopLine="332"/>
|
||||
<Caret Line="527" Column="41" TopLine="496"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
|
||||
<Caret Line="368" Column="49" TopLine="337"/>
|
||||
<Filename Value="../../Units/MMLCore/ocrutil.pas"/>
|
||||
<Caret Line="57" Column="21" TopLine="37"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="351" Column="37" TopLine="332"/>
|
||||
<Caret Line="467" Column="18" TopLine="448"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="../../Units/MMLCore/ocr.pas"/>
|
||||
<Caret Line="377" Column="57" TopLine="347"/>
|
||||
<Filename Value="../../Units/MMLAddon/tpa.pas"/>
|
||||
<Caret Line="50" Column="33" TopLine="30"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
|
|
@ -264,7 +294,15 @@
|
|||
<OtherUnitFiles Value="$(ProjPath)../../Units/MMLCore/;$(ProjPath)../../Units/MMLAddon/;$(ProjPath)../../Units/PascalScript/;$(ProjPath)../../Units/Misc/;$(ProjPath)../../Units/MMLAddon/PSInc/;$(ProjPath)../../Units/Linux/;$(LazarusDir)/components/mouseandkeyinput/"/>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
|
|
@ -273,7 +311,8 @@
|
|||
</Linking>
|
||||
<Other>
|
||||
<CustomOptions Value="-dOCRDEBUG
|
||||
-dOCRTPA"/>
|
||||
-dOCRTPA
|
||||
-dOCRSAVEBITMAP"/>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
|
|
|
|||
|
|
@ -48,26 +48,8 @@ object Form1: TForm1
|
|||
Top = 112
|
||||
Width = 79
|
||||
Caption = 'Shadow?'
|
||||
OnChange = FShadowChange
|
||||
TabOrder = 3
|
||||
end
|
||||
object SplitEdit: TEdit
|
||||
Left = 512
|
||||
Height = 27
|
||||
Top = 168
|
||||
Width = 88
|
||||
TabOrder = 4
|
||||
Text = '1'
|
||||
end
|
||||
object SplitLabel: TLabel
|
||||
Left = 512
|
||||
Height = 18
|
||||
Top = 144
|
||||
Width = 88
|
||||
AutoSize = False
|
||||
Caption = 'Split Spacing:'
|
||||
ParentColor = False
|
||||
end
|
||||
object OCRFileOpen: TOpenDialog
|
||||
Filter = '.bmp'
|
||||
left = 416
|
||||
|
|
|
|||
|
|
@ -14,8 +14,6 @@ type
|
|||
|
||||
TForm1 = class(TForm)
|
||||
BitmapButton: TButton;
|
||||
SplitLabel: TLabel;
|
||||
SplitEdit: TEdit;
|
||||
FShadow: TCheckBox;
|
||||
PathButton: TButton;
|
||||
OCRButton: TButton;
|
||||
|
|
@ -24,12 +22,11 @@ type
|
|||
UpCharsDialog: TSelectDirectoryDialog;
|
||||
procedure BitmapButtonClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FShadowChange(Sender: TObject);
|
||||
procedure OCRButtonClick(Sender: TObject);
|
||||
procedure PathButtonClick(Sender: TObject);
|
||||
private
|
||||
BitmapPath: String;
|
||||
UpTextPath: String;
|
||||
FontPath: String;
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
|
|
@ -52,7 +49,7 @@ Var
|
|||
x,y: integer;
|
||||
s: string;
|
||||
Shadow: boolean;
|
||||
Spacing: Integer;
|
||||
t: dword;
|
||||
|
||||
begin
|
||||
if not FileExists(BitmapPath) then
|
||||
|
|
@ -63,12 +60,12 @@ begin
|
|||
BitmapPath := OCRFileOpen.FileName;
|
||||
Exit;
|
||||
end;
|
||||
if not DirectoryExists(UpTextPath) then
|
||||
if not DirectoryExists(FontPath) then
|
||||
begin
|
||||
MessageBox(0,pchar('You did not set a UpText Path' ), Pchar('Path Error'),
|
||||
MessageBox(0,pchar('You did not set a FontPath' ), Pchar('Path Error'),
|
||||
MB_OK);
|
||||
if UpCharsDialog.Execute then
|
||||
UpTextPath := UpCharsDialog.FileName;
|
||||
FontPath := UpCharsDialog.FileName;
|
||||
Exit;
|
||||
end;
|
||||
|
||||
|
|
@ -83,40 +80,34 @@ begin
|
|||
|
||||
Shadow :=FShadow.Checked;
|
||||
|
||||
try
|
||||
Spacing := StrToInt(Form1.SplitEdit.Text);
|
||||
except
|
||||
if shadow then
|
||||
begin
|
||||
MessageBox(0,pchar('Spacing could not be parsed.' +
|
||||
'Defaulting to 2' ), Pchar('Space Error'), MB_OK);
|
||||
Spacing := 2;
|
||||
end
|
||||
else
|
||||
begin
|
||||
MessageBox(0,pchar('Spacing could not be parsed.' +
|
||||
'Defaulting to 1' ), Pchar('Space Error'), MB_OK);
|
||||
Spacing := 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
// DS + .. + DS because InitOCR wants the directory of the Fonts, not UpChars
|
||||
// only.
|
||||
C.MOCR.InitTOCR(UpTextPath + DS + '..' + DS, Shadow);
|
||||
s := C.MOCR.GetUpTextAtEx(7,7, Shadow, Spacing);
|
||||
C.MOCR.InitTOCR(FontPath, Shadow);
|
||||
|
||||
t:=gettickcount;
|
||||
s := C.MOCR.GetUpTextAtEx(7, 7, Shadow);
|
||||
writeln(inttostr(gettickcount-t));
|
||||
|
||||
// write to debugbmp
|
||||
{$IFDEF OCRDEBUG}
|
||||
for y := 0 to C.MOCR.debugbmp.Height - 1 do
|
||||
for x := 0 to C.MOCR.debugbmp.Width -1 do
|
||||
Form1.Image1.Canvas.Pixels[x,y] := C.MOCR.debugbmp.FastGetPixel(x,y);
|
||||
|
||||
// print ocr'ed text
|
||||
|
||||
Form1.Image1.Canvas.Font.Color:=clRed;
|
||||
Form1.Image1.Canvas.TextOut(0, C.MOCR.debugbmp.Height, s);
|
||||
|
||||
C.MOCR.debugbmp.Free;
|
||||
{$ELSE}
|
||||
Form1.Image1.Canvas.Font.Color:=clRed;
|
||||
Form1.Image1.Canvas.TextOut(0, 0, s);
|
||||
{$ENDIF}
|
||||
Form1.Image1.Picture.SaveToFile('/tmp/ocrbench.bmp');
|
||||
|
||||
bmp.Free;
|
||||
C.Free;
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
|
||||
procedure TForm1.BitmapButtonClick(Sender: TObject);
|
||||
|
|
@ -127,22 +118,14 @@ end;
|
|||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
BitmapPath := '/home/merlijn/Programs/mufasa/pics/uptext2.bmp';
|
||||
UpTextPath := '/home/merlijn/Programs/mufasa/Fonts/UpChars';
|
||||
end;
|
||||
|
||||
procedure TForm1.FShadowChange(Sender: TObject);
|
||||
begin
|
||||
if Form1.FShadow.Checked then
|
||||
Form1.SplitEdit.Text:='2'
|
||||
else
|
||||
Form1.SplitEdit.Text:='1';
|
||||
BitmapPath := '/home/merlijn/Programs/mufasa/pics/uptext4.bmp';
|
||||
FontPath := '/home/merlijn/Programs/mufasa/Fonts/';
|
||||
end;
|
||||
|
||||
procedure TForm1.PathButtonClick(Sender: TObject);
|
||||
begin
|
||||
if UpCharsDialog.Execute then
|
||||
UpTextPath := UpCharsDialog.FileName;
|
||||
FontPath := UpCharsDialog.FileName;
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
function rs_GetUpText: String;
|
||||
begin
|
||||
Result := CurrThread.Client.MOCR.GetUpTextAt(7, 7, false);
|
||||
{writeln('inside: ' + result);}
|
||||
// why the hell does it still not use shadows?
|
||||
Result := CurrThread.Client.MOCR.GetUpTextAtEx(7, 7, true);
|
||||
end;
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -78,6 +78,7 @@ type
|
|||
procedure Invert;
|
||||
procedure Posterize(TargetBitmap : TMufasaBitmap; Po : integer);overload;
|
||||
procedure Posterize(Po : integer);overload;
|
||||
function Copy: TMufasaBitmap;
|
||||
function CreateTMask : TMask;
|
||||
constructor Create;
|
||||
destructor Destroy;override;
|
||||
|
|
@ -377,6 +378,13 @@ begin;
|
|||
Result := BGR.R or BGR.g shl 8 or BGR.b shl 16;
|
||||
end;
|
||||
|
||||
function TMufasaBitmap.Copy: TMufasaBitmap;
|
||||
begin
|
||||
Result := TMufasaBitmap.Create;
|
||||
Result.SetSize(self.Width, self.Height);
|
||||
Move(self.FData[0], Result.FData[0],self.w * self.h * SizeOf(TRGB32));
|
||||
end;
|
||||
|
||||
procedure TMufasaBitmap.FastSetPixel(x, y: integer; Color: TColor);
|
||||
begin
|
||||
ValidatePoint(x,y);
|
||||
|
|
|
|||
|
|
@ -64,6 +64,7 @@ type
|
|||
|
||||
// We don't need one per object. :-)
|
||||
function GetFiles(Path, Ext: string): TStringArray;
|
||||
function GetDirectories(Path: string): TstringArray;
|
||||
|
||||
implementation
|
||||
uses
|
||||
|
|
@ -88,6 +89,25 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
function GetDirectories(Path: string): TstringArray;
|
||||
var
|
||||
SearchRec : TSearchRec;
|
||||
c : integer;
|
||||
begin
|
||||
c := 0;
|
||||
if FindFirst(Path + '*', faDirectory, SearchRec) = 0 then
|
||||
begin
|
||||
repeat
|
||||
if SearchRec.Name[1] = '.' then
|
||||
continue;
|
||||
inc(c);
|
||||
SetLength(Result,c);
|
||||
Result[c-1] := SearchRec.Name;
|
||||
until FindNext(SearchRec) <> 0;
|
||||
SysUtils.FindClose(SearchRec);
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TMFiles.Create;
|
||||
begin
|
||||
inherited Create;
|
||||
|
|
|
|||
|
|
@ -1,51 +1,63 @@
|
|||
unit mufasatypesutil;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils,mufasatypes;
|
||||
|
||||
function ConvArr(Arr: array of TPoint): TPointArray; overload;
|
||||
function ConvArr(Arr: array of TPointArray): T2DPointArray; overload;
|
||||
function ConvArr(Arr: array of Integer): TIntegerArray; overload;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
function ConvArr(Arr: array of TPoint): TPointArray; overload;
|
||||
var
|
||||
Len : Integer;
|
||||
begin;
|
||||
Len := Length(Arr);
|
||||
SetLength(Result, Len);
|
||||
Move(Arr[Low(Arr)], Result[0], Len*SizeOf(TPoint));
|
||||
end;
|
||||
|
||||
function ConvArr(Arr: array of TPointArray): T2DPointArray; overload;
|
||||
var
|
||||
Len,Len2 : Integer;
|
||||
i : integer;
|
||||
begin;
|
||||
Len := Length(Arr);
|
||||
SetLength(Result, Len);
|
||||
for i := Len - 1 downto 0 do
|
||||
begin
|
||||
Len2 := Length(Arr[i]);
|
||||
SetLength(result[i],len2);
|
||||
Move(Arr[i][0],Result[i][0],Len2*SizeOf(TPoint));
|
||||
end;
|
||||
end;
|
||||
|
||||
function ConvArr(Arr: array of Integer): TIntegerArray; overload;
|
||||
var
|
||||
Len : Integer;
|
||||
begin;
|
||||
Len := Length(Arr);
|
||||
SetLength(Result, Len);
|
||||
Move(Arr[Low(Arr)], Result[0], Len*SizeOf(Integer));
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
unit mufasatypesutil;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils,mufasatypes;
|
||||
|
||||
function ConvArr(Arr: array of TPoint): TPointArray; overload;
|
||||
function ConvArr(Arr: array of TPointArray): T2DPointArray; overload;
|
||||
function ConvArr(Arr: array of Integer): TIntegerArray; overload;
|
||||
|
||||
function ConvTPAArr(Arr: array of TPoint): TPointArray; overload;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
function ConvArr(Arr: array of TPoint): TPointArray; overload;
|
||||
var
|
||||
Len : Integer;
|
||||
begin;
|
||||
Len := Length(Arr);
|
||||
SetLength(Result, Len);
|
||||
Move(Arr[Low(Arr)], Result[0], Len*SizeOf(TPoint));
|
||||
end;
|
||||
|
||||
function ConvTPAArr(Arr: array of TPoint): TPointArray; overload;
|
||||
var
|
||||
Len : Integer;
|
||||
begin;
|
||||
Len := Length(Arr);
|
||||
SetLength(Result, Len);
|
||||
Move(Arr[Low(Arr)], Result[0], Len*SizeOf(TPoint));
|
||||
end;
|
||||
|
||||
|
||||
function ConvArr(Arr: array of TPointArray): T2DPointArray; overload;
|
||||
var
|
||||
Len,Len2 : Integer;
|
||||
i : integer;
|
||||
begin;
|
||||
Len := Length(Arr);
|
||||
SetLength(Result, Len);
|
||||
for i := Len - 1 downto 0 do
|
||||
begin
|
||||
Len2 := Length(Arr[i]);
|
||||
SetLength(result[i],len2);
|
||||
Move(Arr[i][0],Result[i][0],Len2*SizeOf(TPoint));
|
||||
end;
|
||||
end;
|
||||
|
||||
function ConvArr(Arr: array of Integer): TIntegerArray; overload;
|
||||
var
|
||||
Len : Integer;
|
||||
begin;
|
||||
Len := Length(Arr);
|
||||
SetLength(Result, Len);
|
||||
Move(Arr[Low(Arr)], Result[0], Len*SizeOf(Integer));
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -38,12 +38,25 @@ uses
|
|||
constructor Create(Owner: TObject);
|
||||
destructor Destroy; override;
|
||||
function InitTOCR(path: string; shadow: Boolean): boolean;
|
||||
function getTextPointsIn(sx, sy, w, h: Integer; shadow: boolean; spacing: Integer): TNormArray;
|
||||
function GetUpTextAtEx(atX, atY: integer; shadow: boolean; Spacing: Integer): string;
|
||||
function GetFontIndex(FontName: string): integer;
|
||||
function GetFont(FontName: string): TocrData;
|
||||
|
||||
function getTextPointsIn(sx, sy, w, h: Integer; shadow: boolean;
|
||||
var _chars, _shadows: T2DPointArray): Boolean;
|
||||
function GetUpTextAtEx(atX, atY: integer; shadow: boolean): string;
|
||||
function GetUpTextAt(atX, atY: integer; shadow: boolean): string;
|
||||
|
||||
procedure FilterUpTextByColour(bmp: TMufasaBitmap; w,h: integer);
|
||||
procedure FilterUpTextByCharacteristics(bmp: TMufasaBitmap; w,h: integer);
|
||||
procedure FilterShadowBitmap(bmp: TMufasaBitmap);
|
||||
procedure FilterCharsBitmap(bmp: TMufasaBitmap);
|
||||
{$IFDEF OCRDEBUG}
|
||||
procedure DebugToBmp(bmp: TMufasaBitmap; hmod,h: integer);
|
||||
{$ENDIF}
|
||||
private
|
||||
Client: TObject;
|
||||
OCRData: TocrDataArray;
|
||||
OCRNames: Array Of String;
|
||||
OCRPath: string;
|
||||
{$IFDEF OCRDEBUG}
|
||||
public
|
||||
|
|
@ -104,44 +117,12 @@ We can also just split the chars, and then use their shadow.
|
|||
Non optimised. ;-)
|
||||
}
|
||||
|
||||
function TMOCR.getTextPointsIn(sx, sy, w, h: Integer; shadow: boolean; spacing: integer): TNormArray;
|
||||
procedure TMOCR.FilterUpTextByColour(bmp: TMufasaBitmap; w,h: integer);
|
||||
var
|
||||
bmp: TMufasaBitmap;
|
||||
x,y: integer;
|
||||
r,g,b: integer;
|
||||
n: TNormArray;
|
||||
{$IFDEF OCRDEBUG}
|
||||
dx,dy: integer;
|
||||
{$ENDIF}
|
||||
{$IFDEF OCRTPA}
|
||||
t: tpointarray;
|
||||
at, atf,att: T2DPointArray;
|
||||
pc: integer;
|
||||
max_len: integer;
|
||||
{$ENDIF}
|
||||
|
||||
x, y,r, g, b: Integer;
|
||||
begin
|
||||
bmp := TMufasaBitmap.Create;
|
||||
|
||||
{ Increase to create a black horizonal line at the top and at the bottom }
|
||||
{ This so the crappy algo can do it's work correctly. }
|
||||
bmp.SetSize(w{ + 1}, h + 2);
|
||||
|
||||
bmp.CopyClientToBitmap(TClient(Client).MWindow, False, {1}0,1, sx, sy, sx + w - 1, sy + h - 1);
|
||||
|
||||
{$IFDEF OCRDEBUG}
|
||||
debugbmp := TMufasaBitmap.Create;
|
||||
debugbmp.SetSize(w, (h + 2) * 5);
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OCRSAVEBITMAP}
|
||||
bmp.SaveToFile('/tmp/ocrinit.bmp');
|
||||
{$ENDIF}
|
||||
{$IFDEF OCRDEBUG}
|
||||
for dy := 0 to bmp.height - 1 do
|
||||
for dx := 0 to bmp.width - 1 do
|
||||
debugbmp.fastsetpixel(dx,dy,bmp.fastgetpixel(dx,dy));
|
||||
{$ENDIF}
|
||||
// We're going to filter the bitmap solely on colours first.
|
||||
// If we found one, we set it to it's `normal' colour.
|
||||
for y := 0 to bmp.Height - 1 do
|
||||
for x := 0 to bmp.Width - 1 do
|
||||
begin
|
||||
|
|
@ -204,231 +185,302 @@ begin
|
|||
bmp.fastsetpixel(x,y,0);
|
||||
end;
|
||||
|
||||
|
||||
// make outline black for shadow characteristics filter
|
||||
// first and last horiz line = 0
|
||||
for x := 0 to bmp.width -1 do
|
||||
bmp.fastsetpixel(x,0,0);
|
||||
for x := 0 to bmp.width -1 do
|
||||
bmp.fastsetpixel(x,bmp.height-1,0);
|
||||
{ for y := 0 to bmp.Height -1 do
|
||||
bmp.fastsetpixel(0, y, 0); }
|
||||
// same for vertical lines
|
||||
for y := 0 to bmp.Height -1 do
|
||||
bmp.fastsetpixel(0, y, 0);
|
||||
for y := 0 to bmp.Height -1 do
|
||||
bmp.fastsetpixel(bmp.Width-1, y, 0);
|
||||
end;
|
||||
|
||||
{$IFDEF OCRSAVEBITMAP}
|
||||
bmp.SaveToFile('/tmp/ocrcol.bmp');
|
||||
{$ENDIF}
|
||||
{$IFDEF OCRDEBUG}
|
||||
for dy := 0 to bmp.height - 1 do
|
||||
for dx := 0 to bmp.width - 1 do
|
||||
debugbmp.fastsetpixel(dx,dy+h,bmp.fastgetpixel(dx,dy));
|
||||
{$ENDIF}
|
||||
for y := 0 to bmp.Height - 2 do
|
||||
for x := 0 to bmp.Width - 2 do
|
||||
procedure TMOCR.FilterUpTextByCharacteristics(bmp: TMufasaBitmap; w,h: integer);
|
||||
var
|
||||
x,y: Integer;
|
||||
begin
|
||||
// Filter 2
|
||||
// This performs a `simple' filter.
|
||||
// What we are doing here is simple checking that if Colour[x,y] is part
|
||||
// of the uptext, then so must Colour[x+1,y+1], or Colour[x+1,y+1] is a shadow.
|
||||
// if it is neither, we can safely remove it.
|
||||
for y := 0 to bmp.Height - 2 do
|
||||
for x := 0 to bmp.Width - 2 do
|
||||
begin
|
||||
if bmp.fastgetpixel(x,y) = clPurple then
|
||||
continue;
|
||||
if bmp.fastgetpixel(x,y) = clBlack then
|
||||
continue;
|
||||
if (bmp.fastgetpixel(x,y) <> bmp.fastgetpixel(x+1,y+1)) and (bmp.fastgetpixel(x+1,y+1) <> clpurple) then
|
||||
bmp.fastsetpixel(x,y,{clAqua}0);
|
||||
end;
|
||||
|
||||
// Remove false shadow
|
||||
for y := bmp.Height - 1 downto 1 do
|
||||
for x := bmp.Width - 1 downto 1 do
|
||||
begin
|
||||
if bmp.fastgetpixel(x,y) <> clPurple then
|
||||
continue;
|
||||
if bmp.fastgetpixel(x,y) = bmp.fastgetpixel(x-1,y-1) then
|
||||
begin
|
||||
bmp.fastsetpixel(x,y,clSilver);
|
||||
continue;
|
||||
end;
|
||||
if bmp.fastgetpixel(x-1,y-1) = 0 then
|
||||
bmp.fastsetpixel(x,y,clSilver);
|
||||
end;
|
||||
|
||||
// Now we do another filter like
|
||||
for y := bmp.Height - 2 downto 0 do
|
||||
for x := bmp.Width - 2 downto 0 do
|
||||
begin
|
||||
if bmp.fastgetpixel(x,y) = clPurple then
|
||||
continue;
|
||||
if bmp.fastgetpixel(x,y) = clBlack then
|
||||
continue;
|
||||
if (bmp.fastgetpixel(x,y) = bmp.fastgetpixel(x+1,y+1) ) then
|
||||
continue;
|
||||
|
||||
if bmp.fastgetpixel(x+1,y+1) <> clPurple then
|
||||
begin
|
||||
bmp.fastsetpixel(x,y,clOlive);
|
||||
continue;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{$IFDEF OCRDEBUG}
|
||||
procedure TMOCR.DebugToBmp(bmp: TMufasaBitmap; hmod, h: integer);
|
||||
var
|
||||
x,y: integer;
|
||||
begin
|
||||
for y := 0 to bmp.height - 1 do
|
||||
for x := 0 to bmp.width - 1 do
|
||||
debugbmp.fastsetpixel(x,y + hmod *h,bmp.fastgetpixel(x,y));
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function getshadows(shadowsbmp:TMufasaBitmap; charpoint: tpointarray): tpointarray;
|
||||
var
|
||||
i,c:integer;
|
||||
begin
|
||||
setlength(result,length(charpoint));
|
||||
c:=0;
|
||||
for i := 0 to high(charpoint) do
|
||||
begin
|
||||
if shadowsbmp.fastgetpixel(charpoint[i].x+1,charpoint[i].y+1) = clPurple then
|
||||
begin
|
||||
result[c]:=point(charpoint[i].x+1, charpoint[i].y+1);
|
||||
inc(c);
|
||||
end;
|
||||
end;
|
||||
setlength(result,c);
|
||||
end;
|
||||
|
||||
procedure TMOCR.FilterShadowBitmap(bmp: TMufasaBitmap);
|
||||
var
|
||||
x,y:integer;
|
||||
begin
|
||||
for y := 0 to bmp.Height - 1 do
|
||||
for x := 0 to bmp.Width - 1 do
|
||||
begin
|
||||
if bmp.fastgetpixel(x,y) <> clPurple then
|
||||
begin
|
||||
bmp.FastSetPixel(x,y,0);
|
||||
continue;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMOCR.FilterCharsBitmap(bmp: TMufasaBitmap);
|
||||
var
|
||||
x,y: integer;
|
||||
begin
|
||||
begin
|
||||
for y := 0 to bmp.Height - 1 do
|
||||
for x := 0 to bmp.Width - 1 do
|
||||
begin
|
||||
if bmp.fastgetpixel(x,y) = clPurple then
|
||||
begin
|
||||
bmp.FastSetPixel(x,y,0);
|
||||
continue;
|
||||
if bmp.fastgetpixel(x,y) = clBlack then
|
||||
end;
|
||||
if bmp.fastgetpixel(x,y) = clOlive then
|
||||
begin
|
||||
bmp.FastSetPixel(x,y,0);
|
||||
continue;
|
||||
if (bmp.fastgetpixel(x,y) <> bmp.fastgetpixel(x+1,y+1)) and (bmp.fastgetpixel(x+1,y+1) <> clpurple) then
|
||||
bmp.fastsetpixel(x,y,{clAqua}0);
|
||||
end;
|
||||
if bmp.fastgetpixel(x,y) = clSilver then
|
||||
begin
|
||||
bmp.FastSetPixel(x,y,0);
|
||||
continue;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ Optional - remove false shadow }
|
||||
for y := bmp.Height - 1 downto 1 do
|
||||
for x := bmp.Width - 1 downto 1 do
|
||||
begin
|
||||
if bmp.fastgetpixel(x,y) <> clPurple then
|
||||
continue;
|
||||
if bmp.fastgetpixel(x,y) = bmp.fastgetpixel(x-1,y-1) then
|
||||
begin
|
||||
bmp.fastsetpixel(x,y,clSilver);
|
||||
continue;
|
||||
end;
|
||||
if bmp.fastgetpixel(x-1,y-1) = 0 then
|
||||
bmp.fastsetpixel(x,y,clSilver);
|
||||
end;
|
||||
|
||||
{ remove bad points }
|
||||
for y := bmp.Height - 2 downto 0 do
|
||||
for x := bmp.Width - 2 downto 0 do
|
||||
begin
|
||||
if bmp.fastgetpixel(x,y) = clPurple then
|
||||
continue;
|
||||
if bmp.fastgetpixel(x,y) = clBlack then
|
||||
continue;
|
||||
if (bmp.fastgetpixel(x,y) = bmp.fastgetpixel(x+1,y+1) ) then
|
||||
continue;
|
||||
|
||||
if bmp.fastgetpixel(x+1,y+1) <> clPurple then
|
||||
begin
|
||||
bmp.fastsetpixel(x,y,clOlive);
|
||||
continue;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ may remove some pixels from chars. }
|
||||
{ for y := bmp.Height - 2 downto 1 do
|
||||
for x := bmp.Width - 2 downto 1 do
|
||||
begin
|
||||
if (bmp.fastgetpixel(x,y) <> bmp.fastgetpixel(x+1,y)) and
|
||||
(bmp.fastgetpixel(x,y) <> bmp.fastgetpixel(x-1,y)) and
|
||||
(bmp.fastgetpixel(x,y) <> bmp.fastgetpixel(x,y+1)) and
|
||||
(bmp.fastgetpixel(x,y) <> bmp.fastgetpixel(x,y-1)) then
|
||||
bmp.fastsetpixel(x,y, clOlive);
|
||||
end; }
|
||||
{ remove debug ;) }
|
||||
function TMOCR.getTextPointsIn(sx, sy, w, h: Integer; shadow: boolean;
|
||||
var _chars, _shadows: T2DPointArray): Boolean;
|
||||
var
|
||||
bmp, shadowsbmp, charsbmp: TMufasaBitmap;
|
||||
x,y: integer;
|
||||
r,g,b: integer;
|
||||
n: TNormArray;
|
||||
{$IFDEF OCRDEBUG}
|
||||
for dy := 0 to bmp.height - 1 do
|
||||
for dx := 0 to bmp.width - 1 do
|
||||
debugbmp.fastsetpixel(dx,dy+h+h,bmp.fastgetpixel(dx,dy));
|
||||
{$ENDIF}
|
||||
{$IFDEF OCRSAVEBITMAP}
|
||||
bmp.SaveToFile('/tmp/ocrdebug.bmp');
|
||||
dx,dy: integer;
|
||||
{$ENDIF}
|
||||
shadows: T2DPointArray;
|
||||
helpershadow: TPointArray;
|
||||
chars: TPointArray;
|
||||
charscount: integer;
|
||||
chars_2d, chars_2d_b, finalchars: T2DPointArray;
|
||||
pc: integer;
|
||||
bb: Tbox;
|
||||
|
||||
if shadow then
|
||||
begin
|
||||
for y := 0 to bmp.Height - 1 do
|
||||
for x := 0 to bmp.Width - 1 do
|
||||
begin
|
||||
if bmp.fastgetpixel(x,y) <> clPurple then
|
||||
begin
|
||||
bmp.FastSetPixel(x,y,0);
|
||||
continue;
|
||||
end;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
for y := 0 to bmp.Height - 1 do
|
||||
for x := 0 to bmp.Width - 1 do
|
||||
begin
|
||||
if bmp.fastgetpixel(x,y) = clPurple then
|
||||
begin
|
||||
bmp.FastSetPixel(x,y,0);
|
||||
continue;
|
||||
end;
|
||||
if bmp.fastgetpixel(x,y) = clOlive then
|
||||
begin
|
||||
bmp.FastSetPixel(x,y,0);
|
||||
continue;
|
||||
end;
|
||||
if bmp.fastgetpixel(x,y) = clSilver then
|
||||
begin
|
||||
bmp.FastSetPixel(x,y,0);
|
||||
continue;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
begin
|
||||
bmp := TMufasaBitmap.Create;
|
||||
{ Increase to create a black horizonal line at the top and at the bottom }
|
||||
{ This so the crappy algo can do it's work correctly. }
|
||||
bmp.SetSize(w + 2, h + 2);
|
||||
|
||||
for y := 0 to bmp.Height -1 do
|
||||
bmp.fastsetpixel(0, y, 0);
|
||||
// Copy the client to out working bitmap.
|
||||
bmp.CopyClientToBitmap(TClient(Client).MWindow, False, 1{0},1, sx, sy, sx + w - 1, sy + h - 1);
|
||||
|
||||
{$IFDEF OCRTPA}
|
||||
pc := 0;
|
||||
setlength(t, bmp.Height * bmp.Width);
|
||||
{$ENDIF}
|
||||
{$IFDEF OCRSAVEBITMAP}
|
||||
bmp.SaveToFile('/tmp/ocrinit.bmp');
|
||||
{$ENDIF}
|
||||
|
||||
setlength(n, bmp.Height * bmp.Width);
|
||||
{$IFDEF OCRDEBUG}
|
||||
debugbmp := TMufasaBitmap.Create;
|
||||
debugbmp.SetSize(w + 2, (h + 2) * 7);
|
||||
{$ENDIF}
|
||||
{$IFDEF OCRDEBUG}
|
||||
DebugToBmp(bmp,0,h);
|
||||
{$ENDIF}
|
||||
|
||||
for y := 0 to bmp.Height - 1 do
|
||||
for x := 0 to bmp.Width - 1 do
|
||||
begin
|
||||
if bmp.fastgetpixel(x,y) > 0 then
|
||||
begin
|
||||
n[x + y * bmp.width] := 1;
|
||||
{$IFDEF OCRTPA}
|
||||
t[pc] := point(x,y);
|
||||
inc(pc);
|
||||
{$ENDIF}
|
||||
end
|
||||
else
|
||||
n[x
|
||||
+ y * bmp.width] := 0;
|
||||
end;
|
||||
// Filter 1
|
||||
FilterUpTextByColour(bmp,w,h);
|
||||
{$IFDEF OCRSAVEBITMAP}
|
||||
bmp.SaveToFile('/tmp/ocrcol.bmp');
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OCRTPA}
|
||||
setlength(t,pc);
|
||||
{$ENDIF}
|
||||
{$IFDEF OCRDEBUG}
|
||||
DebugToBmp(bmp,1,h);
|
||||
{$ENDIF}
|
||||
|
||||
result := n;
|
||||
{$IFDEF OCRSAVEBITMAP}
|
||||
bmp.SaveToFile('/tmp/ocrfinal.bmp');
|
||||
{$ENDIF}
|
||||
{$IFDEF OCRDEBUG}
|
||||
for dy := 0 to bmp.height - 1 do
|
||||
for dx := 0 to bmp.width - 1 do
|
||||
debugbmp.fastsetpixel(dx,dy+h+h+h,bmp.fastgetpixel(dx,dy));
|
||||
{$ENDIF}
|
||||
FilterUpTextByCharacteristics(bmp,w,h);
|
||||
|
||||
{$IFDEF OCRTPA}
|
||||
at:=splittpaex(t,spacing,bmp.height);
|
||||
{$IFDEF OCRSAVEBITMAP}
|
||||
bmp.SaveToFile('/tmp/ocrdebug.bmp');
|
||||
{$ENDIF}
|
||||
{$IFDEF OCRDEBUG}
|
||||
DebugToBmp(bmp,2,h);
|
||||
{$ENDIF}
|
||||
|
||||
{
|
||||
// this was to split extra large points into smaller ones, but it usually won't help
|
||||
if shadow then
|
||||
max_len := 30
|
||||
else
|
||||
max_len := 50;
|
||||
// create a bitmap with only the shadows on it
|
||||
shadowsbmp := bmp.copy;
|
||||
FilterShadowBitmap(shadowsbmp);
|
||||
{$IFDEF OCRDEBUG}
|
||||
DebugToBmp(shadowsbmp,3,h);
|
||||
{$ENDIF}
|
||||
|
||||
for x := 0 to high(at) do
|
||||
begin
|
||||
if length(at[x]) > max_len then
|
||||
begin
|
||||
setlength(t,0);
|
||||
// t := at[x];
|
||||
att := splittpaex(at[x], 1, bmp.height);
|
||||
for y := 0 to high(att) do
|
||||
begin
|
||||
setlength(atf,length(atf)+1);
|
||||
atf[high(atf)] := convtpaarr(att[y]);
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
setlength(atf,length(atf)+1);
|
||||
atf[high(atf)] := convtpaarr(at[x]);
|
||||
end;
|
||||
end;
|
||||
// create a bitmap with only the chars on it
|
||||
charsbmp := bmp.copy;
|
||||
FilterCharsBitmap(charsbmp);
|
||||
{$IFDEF OCRDEBUG}
|
||||
DebugToBmp(charsbmp,4,h);
|
||||
{$ENDIF}
|
||||
|
||||
for x := 0 to high(atf) do
|
||||
begin
|
||||
pc := random(clWhite);
|
||||
for y := 0 to high(atf[x]) do
|
||||
bmp.FastSetPixel(atf[x][y].x, atf[x][y].y, pc);
|
||||
end; }
|
||||
// this gets the chars from the bitmap.
|
||||
|
||||
for x := 0 to high(at) do
|
||||
begin
|
||||
if length(at[x]) > 70 then
|
||||
begin
|
||||
for y := 0 to high(at[x]) do
|
||||
bmp.FastSetPixel(at[x][y].x, at[x][y].y, clOlive);
|
||||
end else
|
||||
begin
|
||||
pc := random(clWhite);
|
||||
for y := 0 to high(at[x]) do
|
||||
bmp.FastSetPixel(at[x][y].x, at[x][y].y, pc);
|
||||
end;
|
||||
end;
|
||||
{$IFDEF OCRDEBUG}
|
||||
for dy := 0 to bmp.height - 1 do
|
||||
for dx := 0 to bmp.width - 1 do
|
||||
debugbmp.fastsetpixel(dx,dy+h+h+h+h,bmp.fastgetpixel(dx,dy));
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
// TODO:
|
||||
// We should make a different TPA
|
||||
// for each colour, rather than put them all in one. Noise can be a of a
|
||||
// differnet colour.
|
||||
setlength(chars, charsbmp.height * charsbmp.width);
|
||||
charscount:=0;
|
||||
for y := 0 to charsbmp.height - 1 do
|
||||
for x := 0 to charsbmp.width - 1 do
|
||||
begin
|
||||
if charsbmp.fastgetpixel(x,y) > 0 then
|
||||
begin
|
||||
chars[charscount]:=point(x,y);
|
||||
inc(charscount);
|
||||
end;
|
||||
end;
|
||||
setlength(chars,charscount);
|
||||
|
||||
chars_2d := SplitTPAEx(chars,1,charsbmp.height);
|
||||
SortATPAFrom(chars_2d, point(0,0));
|
||||
for x := 0 to high(chars_2d) do
|
||||
begin
|
||||
pc := random(clWhite);
|
||||
for y := 0 to high(chars_2d[x]) do
|
||||
charsbmp.FastSetPixel(chars_2d[x][y].x, chars_2d[x][y].y, pc);
|
||||
end;
|
||||
{$IFDEF OCRDEBUG}
|
||||
DebugToBmp(charsbmp,5,h);
|
||||
{$ENDIF}
|
||||
|
||||
for y := 0 to high(chars_2d) do
|
||||
begin
|
||||
bb:=gettpabounds(chars_2d[y]);
|
||||
if (bb.x2 - bb.x1 > 10) or (length(chars_2d[y]) > 70) then
|
||||
begin // more than one char
|
||||
{$IFDEF OCRDEBUG}
|
||||
if length(chars_2d[y]) > 70 then
|
||||
writeln('more than one char at y: ' + inttostr(y));
|
||||
if (bb.x2 - bb.x1 > 10) then
|
||||
writeln('too wide at y: ' + inttostr(y));
|
||||
{$ENDIF}
|
||||
helpershadow:=getshadows(shadowsbmp,chars_2d[y]);
|
||||
chars_2d_b := splittpaex(helpershadow,2,shadowsbmp.height);
|
||||
//writeln('chars_2d_b length: ' + inttostr(length(chars_2d_b)));
|
||||
shadowsbmp.DrawATPA(chars_2d_b);
|
||||
for x := 0 to high(chars_2d_b) do
|
||||
begin
|
||||
setlength(shadows,length(shadows)+1);
|
||||
shadows[high(shadows)] := ConvTPAArr(chars_2d_b[x]);
|
||||
end;
|
||||
end else
|
||||
if length(chars_2d[y]) < 70 then
|
||||
begin
|
||||
setlength(shadows,length(shadows)+1);
|
||||
shadows[high(shadows)] := getshadows(shadowsbmp, chars_2d[y]);
|
||||
end;
|
||||
end;
|
||||
|
||||
SortATPAFromFirstPoint(chars_2d, point(0,0));
|
||||
for y := 0 to high(chars_2d) do
|
||||
begin
|
||||
if length(chars_2d[y]) > 70 then
|
||||
continue;
|
||||
setlength(finalchars,length(finalchars)+1);
|
||||
finalchars[high(finalchars)] := chars_2d[y];
|
||||
end;
|
||||
|
||||
|
||||
bmp.Free;
|
||||
{ Dangerous removes all pixels that had no pixels on x-1 or x+1}
|
||||
{ for y := 0 to bmp.Height - 2 do
|
||||
for x := 1 to bmp.Width - 2 do
|
||||
begin
|
||||
if bmp.fastgetpixel(x,y) = clBlack then continue;
|
||||
if bmp.fastgetpixel(x,y) = clPurple then continue;
|
||||
if bmp.fastgetpixel(x,y) = clOlive then continue;
|
||||
if bmp.fastgetpixel(x,y) = clSilver then continue;
|
||||
if bmp.fastgetpixel(x,y) = clLime then continue;
|
||||
if (bmp.fastgetpixel(x,y) <> bmp.fastgetpixel(x+1,y) ) and
|
||||
(bmp.fastgetpixel(x,y) <> bmp.fastgetpixel(x-1,y) ) then
|
||||
bmp.fastsetpixel(x,y,clFuchsia);
|
||||
end; }
|
||||
SortATPAFromFirstPoint(shadows, point(0,0));
|
||||
for x := 0 to high(shadows) do
|
||||
begin
|
||||
pc:=0;
|
||||
pc := random(clWhite);
|
||||
//pc := rgbtocolor(integer(round((x+1)*255/length(shadows))), round((x+1)*255/length(shadows)), round((x+1)*255/length(shadows)));
|
||||
for y := 0 to high(shadows[x]) do
|
||||
shadowsbmp.FastSetPixel(shadows[x][y].x, shadows[x][y].y, pc);
|
||||
end;
|
||||
{$IFDEF OCRDEBUG}
|
||||
DebugToBmp(shadowsbmp,6,h);
|
||||
{$ENDIF}
|
||||
|
||||
_chars := finalchars;
|
||||
_shadows := shadows;
|
||||
|
||||
bmp.Free;
|
||||
end;
|
||||
|
||||
constructor TMOCR.Create(Owner: TObject);
|
||||
|
|
@ -441,9 +493,7 @@ begin
|
|||
Self.Client := Owner;
|
||||
|
||||
SetLength(OCRData, 0);
|
||||
|
||||
//files := GetFiles('/home/merlijn/Programs/mufasa/ben/upchars', 'bmp');
|
||||
|
||||
SetLength(OCRNames, 0);
|
||||
end;
|
||||
|
||||
destructor TMOCR.Destroy;
|
||||
|
|
@ -451,46 +501,144 @@ destructor TMOCR.Destroy;
|
|||
begin
|
||||
|
||||
SetLength(OCRData, 0);
|
||||
SetLength(OCRNames, 0);
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
function TMOCR.InitTOCR(path: string; shadow: boolean): boolean;
|
||||
var
|
||||
dirs: array of string;
|
||||
i: longint;
|
||||
dir: string;
|
||||
begin
|
||||
{ This must be dynamic }
|
||||
writeln(path);
|
||||
|
||||
SetLength(OCRData, 2);
|
||||
result := true;
|
||||
OCRPath := path + DS;
|
||||
if DirectoryExists(path + DS + 'UpChars' + DS) then
|
||||
OCRData[0] := ocrutil.InitOCR(path + DS + 'UpChars' + DS, shadow)
|
||||
else
|
||||
result := false;
|
||||
dirs := GetDirectories(path);
|
||||
|
||||
if DirectoryExists(path + DS + 'StatChars' + DS) then
|
||||
OCRData[1] := ocrutil.InitOCR(path + DS + 'StatChars' + DS, shadow)
|
||||
else
|
||||
result := false;
|
||||
|
||||
SetLength(OCRData, length(dirs) * 2);
|
||||
SetLength(OCRNames, length(dirs) * 2);
|
||||
|
||||
for i := 0 to high(dirs) do
|
||||
begin
|
||||
OCRData[i] := ocrutil.InitOCR(path + dirs[i] + DS, false);
|
||||
OCRNames[i] := dirs[i];
|
||||
OCRData[i+length(dirs)] := ocrutil.InitOCR(path + dirs[i] + DS, true);
|
||||
OCRNames[i+length(dirs)] := dirs[i] + '_s';
|
||||
{writeln('Loaded Font ' + OCRNames[i]);
|
||||
writeln('Loaded Font ' + OCRNames[i+1]);}
|
||||
end;
|
||||
Result := (length(OCRData) > 0);
|
||||
OCRPath := path;
|
||||
end;
|
||||
|
||||
function TMOCR.GetUpTextAtEx(atX, atY: integer; shadow: boolean; spacing: Integer): string;
|
||||
function TMOCR.GetFontIndex(FontName: string): integer;
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
if length(OCRNames) <> length(OCRData) then
|
||||
raise Exception.Create('Internal OCR error. Len(OCRData) <> Len(OCRNames)');
|
||||
for i := 0 to high(OCRNames) do
|
||||
if FontName = OCRNames[i] then
|
||||
begin
|
||||
Exit(i);
|
||||
end;
|
||||
raise Exception.Create('Font ' + FontName + ' is not loaded.');
|
||||
end;
|
||||
|
||||
function TMOCR.GetFont(FontName: string): TocrData;
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
if length(OCRNames) <> length(OCRData) then
|
||||
raise Exception.Create('Internal OCR error. Len(OCRData) <> Len(OCRNames)');
|
||||
for i := 0 to high(OCRNames) do
|
||||
if FontName = OCRNames[i] then
|
||||
begin
|
||||
Exit(OCRData[i]);
|
||||
end;
|
||||
raise Exception.Create('Font ' + FontName + ' is not loaded.');
|
||||
end;
|
||||
|
||||
function TMOCR.GetUpTextAtEx(atX, atY: integer; shadow: boolean): string;
|
||||
var
|
||||
n:Tnormarray;
|
||||
ww, hh: integer;
|
||||
ww, hh,i,j: integer;
|
||||
font: TocrData;
|
||||
chars, shadows, thachars: T2DPointArray;
|
||||
t:Tpointarray;
|
||||
b,lb:tbox;
|
||||
lbset: boolean;
|
||||
|
||||
begin
|
||||
ww := 400;
|
||||
hh := 20;
|
||||
getTextPointsIn(atX, atY, ww, hh, shadow, chars, shadows);
|
||||
|
||||
n := getTextPointsIn(atX, atY, ww, hh, shadow, spacing);
|
||||
Result := ocrDetect(n, ww, hh, OCRData[0]);
|
||||
// only shadow!
|
||||
//shadow:=true;
|
||||
if shadow then
|
||||
begin
|
||||
font := GetFont('UpChars_s');
|
||||
thachars := shadows;
|
||||
{$IFDEF OCRDEBUG}
|
||||
writeln('using shadows');
|
||||
{$ENDIF}
|
||||
end
|
||||
else
|
||||
begin
|
||||
font := GetFont('UpChars');
|
||||
thachars := chars;
|
||||
{$IFDEF OCRDEBUG}
|
||||
writeln('not using shadows');
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
lbset:=false;
|
||||
//writeln(format('FFont Width/Height: (%d, %d)', [font.width,font.height]));
|
||||
setlength(n, (font.width+1) * (font.height+1));
|
||||
for j := 0 to high(thachars) do
|
||||
begin
|
||||
for i := 0 to high(n) do
|
||||
n[i] := 0;
|
||||
|
||||
t:= thachars[j];
|
||||
b:=gettpabounds(t);
|
||||
if not lbset then
|
||||
begin
|
||||
lb:=b;
|
||||
lbset:=true;
|
||||
end else
|
||||
begin
|
||||
if b.x1 - lb.x2 > 5 then
|
||||
result:=result+' ';
|
||||
lb:=b;
|
||||
end;
|
||||
for i := 0 to high(t) do
|
||||
t[i] := t[i] - point(b.x1,b.y1);
|
||||
|
||||
for i := 0 to high(thachars[j]) do
|
||||
begin
|
||||
n[(thachars[j][i].x) + ((thachars[j][i].y) * font.width)] := 1;
|
||||
end;
|
||||
result := result + GuessGlyph(n, font);
|
||||
//writeln('--'+GuessGlyph(n, font));
|
||||
end;
|
||||
|
||||
|
||||
//Result := ocrDetect(n, ww-1, hh-1, font);
|
||||
//Result:='To do';
|
||||
//Result:='';
|
||||
end;
|
||||
|
||||
function TMOCR.GetUpTextAt(atX, atY: integer; shadow: boolean): string;
|
||||
|
||||
begin
|
||||
if shadow then
|
||||
result := GetUpTextAtEx(atX, atY, shadow, 2)
|
||||
result := GetUpTextAtEx(atX, atY, true)
|
||||
else
|
||||
result := GetUpTextAtEx(atX, atY, shadow, 1);
|
||||
result := GetUpTextAtEx(atX, atY, false);
|
||||
end;
|
||||
{
|
||||
function TMOCR.GetUpTextAt(atX, atY: integer): string;
|
||||
|
|
|
|||
Loading…
Reference in New Issue