From f4c25beb0eb47a03a8bf30567e2aff483e07ec6e Mon Sep 17 00:00:00 2001 From: Wizzup? Date: Mon, 21 Dec 2009 16:38:20 +0000 Subject: [PATCH] Small OCR change. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@307 3f818213-9676-44b0-a9b4-5e4c4e03d09d --- Units/MMLCore/ocr.pas | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/Units/MMLCore/ocr.pas b/Units/MMLCore/ocr.pas index a0356a6..e4e34be 100644 --- a/Units/MMLCore/ocr.pas +++ b/Units/MMLCore/ocr.pas @@ -100,7 +100,9 @@ begin debugbmp.SetSize(w, (h + 2) * 4); {$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 @@ -176,7 +178,9 @@ begin { for y := 0 to bmp.Height -1 do bmp.fastsetpixel(0, y, 0); } + {$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 @@ -242,7 +246,9 @@ begin 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'); + {$ENDIF} for y := 0 to bmp.Height - 1 do for x := 0 to bmp.Width - 1 do @@ -284,7 +290,9 @@ begin end; 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