Browse files

Update OCR/main.ml

  • Loading branch information...
1 parent 946f2be commit fb869fb5274e421d82815aa37363679ee174c8f8 @dezyal dezyal committed Oct 20, 2012
Showing with 6 additions and 6 deletions.
  1. +6 −6 OCR/main.ml
View
12 OCR/main.ml
@@ -15,13 +15,13 @@ let main () =
(* [|0;1;0;1;-4;1;0;1;0|] (1.) in*)
let mtx3 = Pretreatment.new_binarisation
(Pretreatment.pre_bin mtx2 w h) w h in
- let (angle,acc,ww,hh) = Rotation.hough_skew_detection mtx3 w h in
- (* Rotation.display_matrix acc ww hh; *)
- let mtx_debug = Rotation.trace_line mtx3 w h angle in
- print_string " degree:";print_float (Tools.rad2deg angle);
+ let angle = Rotation.hough_skew_detection mtx3 w h in
+ (*let mtx3 = Rotation.rotate mtx3 w h (-.angle) in*)
+ (*let mtx_debug = Rotation.trace_line mtx3 w h (angle) in*)
+ print_string " degree:";print_float (Tools.rad2deg angle);
OSdl.display (Pretreatment.mtx2su mtx3 w h pfi) w h;
OSdl.wait ();
- OSdl.display (Pretreatment.mtx2su mtx_debug w h pfi) w h;
+ (*OSdl.display (Pretreatment.mtx2su mtx_debug w h pfi) w h;*)
exit 0
-let _ = main ();
+let _ = main ();

0 comments on commit fb869fb

Please sign in to comment.