moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

Changes + Fixes for OCRBench, I forgot to remove -WG. 

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@320 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-12-22 23:24:43 +00:00
parent 75aca7ff2b
commit be478d0ba1
3 changed files with 72 additions and 75 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

131
Projects/OCRBench/project1.lpi
View File

@ -36,7 +36,7 @@
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="project1"/>
<UsageCount Value="49"/>
<UsageCount Value="50"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
@ -44,10 +44,10 @@
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<CursorPos X="3" Y="94"/>
<TopLine Value="73"/>
<CursorPos X="33" Y="112"/>
<TopLine Value="85"/>
<EditorIndex Value="0"/>
<UsageCount Value="49"/>
<UsageCount Value="50"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
@ -76,16 +76,16 @@
<CursorPos X="25" Y="50"/>
<TopLine Value="31"/>
<EditorIndex Value="2"/>
<UsageCount Value="25"/>
<UsageCount Value="26"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<UnitName Value="ocr"/>
<CursorPos X="18" Y="467"/>
<TopLine Value="448"/>
<CursorPos X="78" Y="451"/>
<TopLine Value="423"/>
<EditorIndex Value="4"/>
<UsageCount Value="25"/>
<UsageCount Value="26"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
@ -94,7 +94,7 @@
<CursorPos X="18" Y="81"/>
<TopLine Value="47"/>
<EditorIndex Value="8"/>
<UsageCount Value="24"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
@ -103,7 +103,7 @@
<CursorPos X="54" Y="198"/>
<TopLine Value="115"/>
<EditorIndex Value="1"/>
<UsageCount Value="24"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
@ -118,7 +118,7 @@
<CursorPos X="5" Y="557"/>
<TopLine Value="535"/>
<EditorIndex Value="7"/>
<UsageCount Value="22"/>
<UsageCount Value="23"/>
<Loaded Value="True"/>
</Unit9>
<Unit10>
@ -127,7 +127,7 @@
<CursorPos X="23" Y="23"/>
<TopLine Value="1"/>
<EditorIndex Value="6"/>
<UsageCount Value="21"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
</Unit10>
<Unit11>
@ -136,7 +136,7 @@
<CursorPos X="78" Y="455"/>
<TopLine Value="432"/>
<EditorIndex Value="3"/>
<UsageCount Value="18"/>
<UsageCount Value="19"/>
<Loaded Value="True"/>
</Unit11>
<Unit12>
@ -157,131 +157,127 @@
<CursorPos X="7" Y="103"/>
<TopLine Value="73"/>
<EditorIndex Value="5"/>
<UsageCount Value="15"/>
<UsageCount Value="16"/>
<Loaded Value="True"/>
</Unit14>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<JumpHistory Count="29" HistoryIndex="28">
<Position1>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="571" Column="25" TopLine="551"/>
<Caret Line="588" Column="7" TopLine="575"/>
</Position1>
<Position2>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="581" Column="4" TopLine="550"/>
<Caret Line="585" Column="7" TopLine="563"/>
</Position2>
<Position3>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="575" Column="3" TopLine="555"/>
<Filename Value="../../Units/MMLCore/finder.pas"/>
<Caret Line="64" Column="27" TopLine="49"/>
</Position3>
<Position4>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="458" Column="25" TopLine="425"/>
<Filename Value="../../Units/MMLCore/finder.pas"/>
<Caret Line="65" Column="27" TopLine="49"/>
</Position4>
<Position5>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="459" Column="121" TopLine="440"/>
<Caret Line="583" Column="67" TopLine="551"/>
</Position5>
<Position6>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="588" Column="39" TopLine="560"/>
<Caret Line="597" Column="18" TopLine="576"/>
</Position6>
<Position7>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="593" Column="5" TopLine="563"/>
<Caret Line="601" Column="7" TopLine="576"/>
</Position7>
<Position8>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="588" Column="7" TopLine="575"/>
<Caret Line="581" Column="39" TopLine="564"/>
</Position8>
<Position9>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="585" Column="7" TopLine="563"/>
<Caret Line="594" Column="7" TopLine="574"/>
</Position9>
<Position10>
<Filename Value="../../Units/MMLCore/finder.pas"/>
<Caret Line="64" Column="27" TopLine="49"/>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="622" Column="79" TopLine="588"/>
</Position10>
<Position11>
<Filename Value="../../Units/MMLCore/finder.pas"/>
<Caret Line="65" Column="27" TopLine="49"/>
<Filename Value="unit1.pas"/>
<Caret Line="54" Column="20" TopLine="1"/>
</Position11>
<Position12>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="583" Column="67" TopLine="551"/>
<Filename Value="unit1.pas"/>
<Caret Line="53" Column="20" TopLine="15"/>
</Position12>
<Position13>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="597" Column="18" TopLine="576"/>
<Filename Value="unit1.pas"/>
<Caret Line="45" Column="65" TopLine="39"/>
</Position13>
<Position14>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="601" Column="7" TopLine="576"/>
<Filename Value="unit1.pas"/>
<Caret Line="119" Column="5" TopLine="93"/>
</Position14>
<Position15>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="581" Column="39" TopLine="564"/>
<Filename Value="unit1.pas"/>
<Caret Line="30" Column="68" TopLine="6"/>
</Position15>
<Position16>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="594" Column="7" TopLine="574"/>
<Filename Value="unit1.pas"/>
<Caret Line="105" Column="3" TopLine="73"/>
</Position16>
<Position17>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="622" Column="79" TopLine="588"/>
<Caret Line="12" Column="77" TopLine="1"/>
</Position17>
<Position18>
<Filename Value="unit1.pas"/>
<Caret Line="54" Column="20" TopLine="1"/>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="37" Column="77" TopLine="26"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
<Caret Line="53" Column="20" TopLine="15"/>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="619" Column="28" TopLine="592"/>
</Position19>
<Position20>
<Filename Value="unit1.pas"/>
<Caret Line="45" Column="65" TopLine="39"/>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="527" Column="41" TopLine="496"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
<Caret Line="119" Column="5" TopLine="93"/>
<Filename Value="../../Units/MMLCore/ocrutil.pas"/>
<Caret Line="57" Column="21" TopLine="37"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
<Caret Line="30" Column="68" TopLine="6"/>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="467" Column="18" TopLine="448"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
<Caret Line="105" Column="3" TopLine="73"/>
<Filename Value="../../Units/MMLAddon/tpa.pas"/>
<Caret Line="50" Column="33" TopLine="30"/>
</Position23>
<Position24>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="12" Column="77" TopLine="1"/>
<Filename Value="unit1.pas"/>
<Caret Line="111" Column="35" TopLine="97"/>
</Position24>
<Position25>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="37" Column="77" TopLine="26"/>
<Caret Line="384" Column="34" TopLine="445"/>
</Position25>
<Position26>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="619" Column="28" TopLine="592"/>
<Caret Line="468" Column="38" TopLine="445"/>
</Position26>
<Position27>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="527" Column="41" TopLine="496"/>
<Caret Line="469" Column="26" TopLine="445"/>
</Position27>
<Position28>
<Filename Value="../../Units/MMLCore/ocrutil.pas"/>
<Caret Line="57" Column="21" TopLine="37"/>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="486" Column="18" TopLine="467"/>
</Position28>
<Position29>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="467" Column="18" TopLine="448"/>
<Caret Line="634" Column="41" TopLine="293"/>
</Position29>
<Position30>
<Filename Value="../../Units/MMLAddon/tpa.pas"/>
<Caret Line="50" Column="33" TopLine="30"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
@ -303,11 +299,6 @@
<Debugging>
<GenerateDebugInfo Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CustomOptions Value="-dOCRDEBUG

4
Projects/OCRBench/unit1.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, Client, MufasaTypes, Bitmaps;
StdCtrls, ExtCtrls, Client, MufasaTypes, Bitmaps, ocr;
type
@ -108,7 +108,7 @@ begin
Form1.Image1.Canvas.TextOut(0, 0, s);
{$ENDIF}
{$IFDEF OCRDEBUG}
Form1.Image1.Picture.SaveToFile('/tmp/ocrbench.bmp');
Form1.Image1.Picture.SaveToFile(OCRDebugPath + 'ocrbench.bmp');
{$ENDIF}
bmp.Free;

12
Units/MMLCore/ocr.pas
View File

@ -64,7 +64,13 @@ uses
{$ENDIF}
end;
{$IFDEF OCRDEBUG}
{$IFDEF LINUX}
const OCRDebugPath = '/tmp/';
{$ELSE}
const OCRDebugPath = '';
{$ENDIF}
{$ENDIF}
implementation
uses
@ -365,7 +371,7 @@ begin
// Filter 1
FilterUpTextByColour(bmp,w,h);
{$IFDEF OCRSAVEBITMAP}
bmp.SaveToFile('/tmp/ocrcol.bmp');
bmp.SaveToFile(OCRDebugPath + 'ocrcol.bmp');
{$ENDIF}
{$IFDEF OCRDEBUG}
@ -375,7 +381,7 @@ begin
FilterUpTextByCharacteristics(bmp,w,h);
{$IFDEF OCRSAVEBITMAP}
bmp.SaveToFile('/tmp/ocrdebug.bmp');
bmp.SaveToFile(OCRDebugPath + 'ocrdebug.bmp');
{$ENDIF}
{$IFDEF OCRDEBUG}
DebugToBmp(bmp,2,h);