Permalink
Browse files

adaptation des appels de fonction pour que ca passe mieux avec les im…

…ages de tests
  • Loading branch information...
1 parent 9f5fcf8 commit 105ee0b2dc0be0de0e513b8d64777646a82598e3 dezyal committed Oct 17, 2012
Showing with 6 additions and 4 deletions.
  1. +6 −4 OCR/main.ml
View
10 OCR/main.ml
@@ -11,10 +11,12 @@ let main () =
let w = si.Sdlvideo.w and h = si.Sdlvideo.h in
let mtx = Pretreatment.su2grey su w h in
(*Pretreatment.dust_off mtx w h;*)
- let mtx2 = Pretreatment.new_binarisation
- (Pretreatment.pre_bin mtx w h) w h in
- let mtx3 = Rotation.rotate mtx2 w h ((3.14*.10.)/.180.) in
- OSdl.display (Pretreatment.mtx2su mtx2 w h pfi) w h;
+ let mtx2 = Pretreatment.conv_filter_3x3 mtx w h
+ [|2;5;2;5;20;5;2;5;2|] (1./.48.) in
+ let mtx3 = Pretreatment.new_binarisation
+ (Pretreatment.pre_bin mtx2 w h) w h in
+ (*let mtx3 = Rotation.rotate mtx2 w h ((3.14*.10.)/.180.) in *)
+ OSdl.display (Pretreatment.mtx2su mtx3 w h pfi) w h;
OSdl.wait ();
exit 0

0 comments on commit 105ee0b

Please sign in to comment.