diff options
| author | kramm <kramm> | 2009-01-13 21:46:33 +0000 |
|---|---|---|
| committer | kramm <kramm> | 2009-01-13 21:46:33 +0000 |
| commit | 57b37b6999c742d9749001df3e8694124f2715dc (patch) | |
| tree | a5bfb2ec55ba38e5a33d0b350bad31517a49f3eb /lib/gocr/ocr0.c | |
| parent | c672a4c1f3d6c588e4fc93355f9e89cca773c02d (diff) | |
*** empty log message ***
Diffstat (limited to 'lib/gocr/ocr0.c')
| -rw-r--r-- | lib/gocr/ocr0.c | 6591 |
1 files changed, 0 insertions, 6591 deletions
diff --git a/lib/gocr/ocr0.c b/lib/gocr/ocr0.c deleted file mode 100644 index 1066b7cb..00000000 --- a/lib/gocr/ocr0.c +++ /dev/null @@ -1,6591 +0,0 @@ -/* - rule based OCR engine, partly rewritten for edges (old=pixel) - */ -/* -This is a Optical-Character-Recognition program -Copyright (C) 2000-2007 Joerg Schulenburg - -This program is free software; you can redistribute it and/or -modify it under the terms of the GNU General Public License -as published by the Free Software Foundation; either version 2 -of the License, or (at your option) any later version. - -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software -Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - - see README for email address - - >>> DO NOT EDIT THIS FILE IF YOU NOT REALLY KNOW WHAT YOU ARE DOING! <<< - - I have invested lot of time, to write this part of the program. - This engine should recognize chars allways right or return UNKNOWN. - If you change something, test all other example files too, - to be sure that all things work better. (JoergS) - - This engine was pixelbased until 0.40 which was not successfull enough. - Also code changes always hade side effects. The vectorisation of the code - starts from version 0.41 with the chars XNz and seems to be much better - to handle. Vectorization means we frame each character by a chain of - vectors and dont care about pixels anymore. Unfortunatly I have to - replace all the pixel codes, which is a long process. Old code will be lost. - (JorgS) - - -ToDo: - - if box1->p and b differ, reduce probability - - probability makes life much easier here - - use only one box!?, may be bits have usefull infos - - divide this file, suggestion: classify chars: - high=ABCDEFGHIJKLMNOPQRSTUVWXYZbdfhklt, low=acegijmnopqrsuvwxyz - or - often_used=etianmsurwdkgo rarely_used=hvjcflpqxyz.,: - or - every char (large overhead) - - two-pass version (first pass without tolerance) - 2nd pass with tolerance (ex: one tiny more in sdata->holes) - - general feature extraction: - - white holes at middle, upper, lower position (cost much time) - - test lines and triangles insteat of rectangles - - char is removed, wchar_t is used (better code) - - making a static global variable-set x.x0,x.x1, and call test_a, - test_b ... (faster compilation, but not reentrant!) - - - adding slant-angle (if detected) to distinguish between l and / ? - - ac (alternate chars) as string add_ac(box1,"/") => box1->ac="Il/"; - for better context correction or output: "Ha[lI][lI]o!" - -*/ - -#include <stdlib.h> -#include <stdio.h> -// #include "pgm2asc.h" -#include "ocr0.h" -// #include "ocr1.h" -#include "pnm.h" -#include "gocr.h" - -#define IFV if(JOB->cfg.verbose&4) -#define MM {IFV fprintf(stderr,"\nDBG %c L%04d (%d,%d): ",(char)c_ask,__LINE__,box1->x0,box1->y0);} - -// the old debug mode (0.40) was only for a special char, for another char -// code must be recompiled with C_ASK='char' -// new debug mode (0.41) explains why char is declined or accepted as ABC... -// the output can be filtered by external scripts -// ToDo: we could reduce output to filter string -#ifndef DO_DEBUG /* can be defined outside */ -#define DO_DEBUG 0 /* 0 is the default */ -#endif - -/* this macro is for debugging output: "if char is declined, why?" */ -#if DO_DEBUG /* 0=Work mode, 1=debugging mode */ -// Setac: output, that char is choosen with a probability -// Break: output, why the char is not choosen -// MSG: debugging functions for char C_ASK, mostly messages -// DBG: definitions usefull only for debugging -#define Setac(box1,ac,ad) { MM;IFV fprintf(stderr,"setac %d",ad);setac(box1,ac,ad); } -#define Break { MM;IFV fprintf(stderr,"break"); break; } -#define MSG(x) { MM;IFV x } -#define DBG(x) x -#else -#define Setac(box1,ac,ad) setac(box1,ac,ad) -#define Break break -#define MSG(x) -#define DBG(x) -#endif - -/* extern "C"{ */ - -// static inline int sq(int x) { return x*x; } /* square */ - -/* - * go from vector j1 to vector j2 and measure maximum deviation of - * the steps from the line connecting j1 and j2 - * return the squared maximum distance - * in units of the box size times 1024 - * ToDo: 1) better give back max-dx and max-dy ??? - * errors if j1 and j2 are in different frames or belong to - * more then one frame? - * 2) Better get deviation from a complete vector graphic? - * The vectorgraphic is the ideal test char adapted to the - * extrem vertices of the real char. - */ -int line_deviation( struct box *box1, int j1, int j2 ) { - int r1x, r1y, r2x, r2y, r3x, r3y, i, x, y, d, dist, maxdist=0, frame, l2; - r1x=box1->frame_vector[j1][0]; - r1y=box1->frame_vector[j1][1]; - r2x=box1->frame_vector[j2][0]; - r2y=box1->frame_vector[j2][1]; - if (!box1->num_frames) return(-1); - if (j1<0 || j1>box1->num_frame_vectors[box1->num_frames-1] || - j2<0 || j2>box1->num_frame_vectors[box1->num_frames-1]) { - fprintf(stderr,"Error in "__FILE__" L%d: idx out of range",__LINE__); - return(-1); - } - /* get the frame the endvector belongs to */ - for (i=0;i<box1->num_frames;i++) - if (j2<box1->num_frame_vectors[i]) break; - frame=i; - /* frame(j1)<=frame(j2) possible */ - for (i=j1;;i++) { // do it for each vector between j1 and j2 - if (i >= box1->num_frame_vectors[frame]) - i=((frame)?box1->num_frame_vectors[frame-1]:0); /* go around */ - if (i==j2) break; - // for (i=j1;i!=j2;i=(i+1)%box1->num_frame_vectors[0]) {~} - r3x=box1->frame_vector[i][0]; - r3y=box1->frame_vector[i][1]; - // Language=german - // german: Abstand Punkt von Strecke, Laenge Lotrechte - // germ.Strecke : l1=(r1+r2)/2+d*(r2-r1)/2 for d=-1..1 - // germ.Lotrechte: l2=r3+b*[-(r2-r1).y,(r2-r1).x] - // Schnittpunkt : l1=l2, - // eq1x: (r1x+r2x)/2-r3x+d*(r2x-r1x)/2+b*(r2y-r1y)=0 - // eq1y: (r1y+r2y)/2-r3y+d*(r2y-r1y)/2-b*(r2x-r1x)=0 - // eq2x: b*(r2x-r1x)*(r2y-r1y)=-((r1x+r2x)/2-r3x+d*(r2x-r1x)/2)*(r2x-r1x) - // eq2y: b*(r2x-r1x)*(r2y-r1y)= ((r1y+r2y)/2-r3y+d*(r2y-r1y)/2)*(r2y-r1y) - // eq2y-eq2x: ... in units of 1024 (fast integer rounded correctly) - l2=sq(r2x-r1x)+sq(r2y-r1y); // square of distance r2-r1 - if (l2==0) { - // fprintf(stderr,"ocr0 L%d: r1==r2 r1= %d %d",__LINE__, r1x, r1y); // debugging - d=-1024; - } else - d=-( ((r1x+r2x)-2*r3x)*(r2x-r1x) - +((r1y+r2y)-2*r3y)*(r2y-r1y))*1024/l2; // ..-1024..+1024.. - if (d<=-1024) { x=r1x; y=r1y; } // starting point - else { - if (d>=1024) { x=r2x; y=r2y; } // end point - else { - x=((r1x+r2x)+1)/2+(d*(r2x-r1x))/2048; - y=((r1y+r2y)+1)/2+(d*(r2y-r1y))/2048; - /* we have the crossing point x,y now */ - } - } - dist=sq((x-r3x)*1024/(box1->x1-box1->x0+1)) - +sq((y-r3y)*1024/(box1->y1-box1->y0+1)); // 0..2*sq(1024) - if (dist>maxdist) maxdist=dist; - // for debugging: - // fprintf(stderr,"\nDBG dev: %d-%d-%d dist=%5d max=%5d d=%d %d,%d-%d,%d" - // " vector= %d %d crosspoint= %d %d ", - // j1,i,j2,dist,maxdist,d,r1x,r1y,r2x,r2y,r3x,r3y,x,y); - } - return maxdist; -} - -/* - * search vectors between j1 and j2 for nearest point a to point r - * example: - * - * r-> $$...$$ $ - mark vectors - * @@$..@@ @ - black pixels - * @@$..@@ . - white pixels - * @@@@.$@ - * a-> @@$@$@@ - * @$.@@@@ - * @@..$@@ - * @@..$@@ - * j1 --> $$...$$ <-- j2 - * - * ToDo: vector aa[5] = {rx,ry,x,y,d^2,idx} statt rx,ry? - * j1 and j2 must be in the same frame - * return aa? - */ -int nearest_frame_vector( struct box *box1, int j1, int j2, int rx, int ry) { - int x,y,d,i,aa[4]; /* x,y,normalized_distance^2,vector_index */ - int frame=0, x0=box1->x0, y0=box1->y0, - x1=box1->x1, y1=box1->y1, - dx=box1->x1-x0+1, dy=box1->y1-y0+1; - if (!box1->num_frames) return(-1); - if (j1<0 || j1>box1->num_frame_vectors[box1->num_frames-1] || - j2<0 || j2>box1->num_frame_vectors[box1->num_frames-1]) { - fprintf(stderr,"Error in "__FILE__" L%d: idx %d-%d out of range\n",__LINE__,j1,j2); - //out_x(box1); - return(-1); - } - aa[0]=x=box1->frame_vector[j2][0]; /* x */ - aa[1]=y=box1->frame_vector[j2][1]; /* y */ - /* maximum is (distance*128)^2 if r is inside the box */ - aa[2]=d=2*sq(128)+sq((rx-(x0+x1)/2)*128/dx)+sq((ry-(y0+y1)/2)*128/dy); - aa[3]=j2; /* vector index */ - /* get the frame the endvector belongs to */ - for (i=0;i<box1->num_frames;i++) - if (j2<box1->num_frame_vectors[i]) break; - frame=i; - /* frame(j1)<=frame(j2) possible */ - for (i=j1;;i++) { - if (i >= box1->num_frame_vectors[frame]) - i=((frame)?box1->num_frame_vectors[frame-1]:0); /* go around */ - x=box1->frame_vector[i][0]; /* take a vector */ - y=box1->frame_vector[i][1]; - /* distance to upper left end, normalized to 128 */ - d=sq((x-rx)*128/dx)+sq((y-ry)*128/dy); - if (d<aa[2]) { aa[0]=x; aa[1]=y; aa[2]=d; aa[3]=i; } - if (i==j2) break; - } - return aa[3]; -} - -// test for umlauts, if ret>0 and m==1 box1 is changed -// m>0 modify box1->dots -// m==2 modify box1->y0 -// called by pgm2asc + ocr0(?) -int testumlaut(struct box *box1, int cs, int m, wchar_t *modifier){ - // pix p=*(box1->p); - int r,y,x,x0,x1,y0,y1,dx,dy,m1,m2,m3, - xl,xr,yu,yl; // left, right, upper and lower border of dots - wchar_t mod='\0'; /* (TeX-) modifier ~"'` for compose() */ - DBG( wchar_t c_ask='"'; ) - r=0; - x0=box1->x0; x1=box1->x1; dx=x1-x0+1; - y0=box1->y0; y1=box1->y1; dy=y1-y0+1; - m1=box1->m1; m2=box1->m2; m3=box1->m3; - xl=x0; xr=x1; yu=yl=y0; - if( dy < 5 || 4*y0 > 3*m2+m3 ) return 0; // no low chars: .,-= - /* modifier in box included? */ - if( 2*y1 > m1+m2 ){ - /* modifier in box included? */ - for(y=y0;2*y<y0+y1;y++)if( get_bw(xl,xr,y,y,box1->p,cs,1)==0 ) break; - if( 2*y<y0+y1 ){ /* yes => extract */ - yl=y; - while( get_bw(xl,xr,y,y,box1->p,cs,1)==0 && 2*y<=y0+y1) y++; - if( m&2 ) box1->y0=y; /* set new upper bond */ - } - } - if( yu>=yl ) { if(m) box1->dots=0; return 0; } /* nothing found */ - if( get_bw(xl-1,xl-1,yu,yl-1,box1->p,cs,1)==1 ) // neighbour overlap? - while( get_bw(xl ,xl ,yu,yl-1,box1->p,cs,1)==1 && 2*xl<x0+x1) xl++; - for(;xl<x1;xl++)if( get_bw(xl,xl,yu,yl,box1->p,cs,1)==1 ) break; - for(;xr>xl;xr--)if( get_bw(xr,xr,yu,yl,box1->p,cs,1)==1 ) break; - - if ( yl-1>yu ) { // tall box ij"a"o"u -#if 0 - x=box1->y0; box1->y0=m1; out_x(box1); box1->y0=x; - fprintf(stderr,"\n#testumlaut x= %d %d m1=%d m2=%d",x0,y0,m1-y0,m2-y0); - fprintf(stderr," yu=%d yl=%d xl=%d xr=%d",yu-y0,yl-y0,xl-x0,xr-x0); -#define DEBUG 1 -#endif - { - - x=xl;y=yu; - if( get_bw(xl,x1+1,yu,yl-1,box1->p,cs,1)==0 ) r=0; // neighbour overlap? - else - if( get_bw(xl ,xl ,yu,yl-1,box1->p,cs,1)==0 - || get_bw(xl-1,xl-1,yu,yl-1,box1->p,cs,1)==0 ) // be sure there are gap to neighbours - if( get_bw(xr ,xr ,yu,yl-1,box1->p,cs,1)==0 - || get_bw(xr+1,xr+1,yu,yl-1,box1->p,cs,1)==0 ) - { int i,j,x; - r=1; - // ...@@@.... RING_ABOVE // ..@@@..@@. TILDE - // ..@...@... // @@.@@@@@.. - // ..@...@... // @......... - // ..@..@@... - // ...@@@.... - for (i=yu;i<yl;i++) if (get_bw(xl,xr,i,i,box1->p,cs,1)==1) break; - for ( ;i<yl;i++) if (get_bw(xl,xr,i,i,box1->p,cs,1)==0) break; - for (j=xl;j<xr;j++) if (get_bw(j,j,yu,i,box1->p,cs,1)==1) break; - for ( ;j<xr;j++) if (get_bw(j,j,yu,i,box1->p,cs,1)==0) break; - for ( x=j;x<xr;x++) if (get_bw(x,x,yu,i,box1->p,cs,1)==1) break; - // vert. gap detected - if( j<xr && x<xr && j<x && xr-xl>2 - && num_obj(xl,xr,yu,yl-1,box1->p,cs)>=2 // not best!!! - && num_cross(xl,xr,yu +(yl-yu)/4,yu+ (yl-yu)/4,box1->p,cs) == 2 - && num_cross(xl,xr,yl-1-(yl-yu)/2,yl-1-(yl-yu)/2,box1->p,cs) == 2 - ){ // may be the following lines are not quite ok - while( get_bw(xl,xr,yl,yl,box1->p,cs,1)==0 && 2*yl<y0+y1) yl++; - r=2; -// out_x(box1);printf(" x,y=%d,%d i=%d xl=%d xr=%d yu=%d yl=%d",x0,y0,i-x0,xl-x0,xr-x0,yu-y0,yl-y0); - mod = DIAERESIS; - } - if( m&2 ) box1->y0=yl; -/* if( m&2 ) box1->y0= ( (r==1) ? yu : yl ); */ - // out_x(box1); - } - if(r==0){ // divided fr != fi - while( get_bw(x0,x1,yu,yu,box1->p,cs,1)==0 && 2*yu<y0+y1) yu++; - if(m)box1->y0=yu; - } - if( r==1 ){ yl--; -// .@@@. ..@@. -// .@@.. .@@.. -// .@... .@@.. -// -// if( loop(box1->p,xl,yu,xr-xl,cs,0,RI) -// > loop(box1->p,xl,yl,xr-xl,cs,0,RI) // +dx/8 -// && loop(box1->p,xr,yu,xr-xl,cs,0,LE) -// < loop(box1->p,xr,yl,xr-xl,cs,0,LE)) // -dx/8 ) // é Nov03 - if( loop(box1->p,xl,yu,xr-xl,cs,0,RI) - - loop(box1->p,xr,yu,xr-xl,cs,0,LE) - > loop(box1->p,xl,yl,xr-xl,cs,0,RI) // +dx/8 - - loop(box1->p,xr,yl,xr-xl,cs,0,LE)+1) // -dx/8 ) // é Nov03 - mod = ACUTE_ACCENT; // ' - - if( xr-xl+1 > 3*(yl-yu+1) - && get_bw(xl,xr,yu,yl,box1->p,cs,2)==0 ) - mod = MACRON; // "-" above - -// .@@@. .@@.. -// ..@@. ..@@. -// ...@. ..@@. -// -// if( loop(box1->p,xl,yu,xr-xl,cs,0,RI) -// < loop(box1->p,xl,yl,xr-xl,cs,0,RI) // -dx/8 -// && loop(box1->p,xr,yu,xr-xl,cs,0,LE) -// > loop(box1->p,xr,yl,xr-xl,cs,0,LE) ) // +dx/8 ) à Nov03 - if( loop(box1->p,xl,yu,xr-xl,cs,0,RI) - - loop(box1->p,xr,yu,xr-xl,cs,0,LE) - < loop(box1->p,xl,yl,xr-xl,cs,0,RI) // -dx/8 - - loop(box1->p,xr,yl,xr-xl,cs,0,LE) -1 ) // +dx/8 ) à Nov03 - mod = GRAVE_ACCENT; // ` - -#ifdef DEBUG - fprintf(stderr,"\n#testumlaut x= %d %d m1=%d m2=%d",x0,y0,m1-y0,m2-y0); - fprintf(stderr," yu=%d yl=%d xl=%d xr=%d",yu-y0,yl-y0,xl-x0,xr-x0); -#endif - if( (xr-xl+1) < 2*(yl-yu+1)+2 - && 2*(xr-xl+1)+2 > (yl-yu+1) ) { - int i,i1,i2,i3,i4; - i1=loop(box1->p,xl ,(yu+yl)/2,xr-xl+1,cs,0,RI); - i1=loop(box1->p,xl+i1,(yu+yl)/2,xr-xl+1,cs,1,RI); - i2=loop(box1->p,(xl+xr)/2,yu ,yl-yu+1,cs,0,DO); - i2=loop(box1->p,(xl+xr)/2,yu+i2,yl-yu+1,cs,1,DO); - for (i=0;i<xr-xl+1 && i<yl-yu+1;i++) - if (getpixel(box1->p,xl+i,yu+i)< cs) break; i3=i; - for ( ;i<xr-xl+1 && i<yl-yu+1;i++) - if (getpixel(box1->p,xl+i,yu+i)>=cs) break; i3=i-i3; - for (i=0;i<xr-xl+1 && i<yl-yu+1;i++) - if (getpixel(box1->p,xr-i,yu+i)< cs) break; i4=i; - for ( ;i<xr-xl+1 && i<yl-yu+1;i++) - if (getpixel(box1->p,xr-i,yu+i)>=cs) break; i4=i-i4; -#ifdef DEBUG - fprintf(stderr,"\n#DEBUG DOT_ABOVE %d %d %d %d",i1,i2,i3,i4); -#endif - if ( (xr-xl<5 && yl-yu<8) /* to small */ - || (i1>=(xr-xl+1)/2+2 && i2>=(yl-yu+1)/2+2 /* symmetrical */ - && abs(i3-i4)<=i1/4+2 && abs(i1-i2)<=i1/4+2 - && abs(i3-i1)<=i1/4+4 && abs(i4-i2)<=i1/4+4) - ) - mod = DOT_ABOVE; // "." above, ToDo: improve it! - } - - if( ( loop(box1->p,xl,yu ,xr-xl,cs,0,RI) - > loop(box1->p,xl,yl ,xr-xl,cs,0,RI)-dx/8 - || loop(box1->p,xl,yu ,xr-xl,cs,0,RI) - > loop(box1->p,xl,yl-1,xr-xl,cs,0,RI)-dx/8 ) - && ( loop(box1->p,xr,yu ,xr-xl,cs,0,LE) - > loop(box1->p,xr,yl ,xr-xl,cs,0,LE)-dx/8 - || loop(box1->p,xr,yu ,xr-xl,cs,0,LE) - > loop(box1->p,xr,yl-1,xr-xl,cs,0,LE)-dx/8 ) - && num_cross(xl,xr,yu ,yu ,box1->p,cs) == 1 - && ( num_cross(xl,xr,yl ,yl ,box1->p,cs) == 2 - || num_cross(xl,xr,yl-1,yl-1,box1->p,cs) == 2 )) - mod = CIRCUMFLEX_ACCENT; // "^" - - if( ( loop(box1->p,xl,yu ,xr-xl,cs,0,RI) - < loop(box1->p,xl,yl ,xr-xl,cs,0,RI)-dx/10 - || loop(box1->p,xl,yu+1,xr-xl,cs,0,RI) - < loop(box1->p,xl,yl ,xr-xl,cs,0,RI)-dx/10 ) - && ( loop(box1->p,xr,yu ,xr-xl,cs,0,LE) - < loop(box1->p,xr,yl ,xr-xl,cs,0,LE)-dx/10 - || loop(box1->p,xr,yu+1,xr-xl,cs,0,LE) - < loop(box1->p,xr,yl ,xr-xl,cs,0,LE)-dx/10 ) - && ( num_cross(xl,xr,yu ,yu ,box1->p,cs) == 2 - || num_cross(xl,xr,yu+1,yu+1,box1->p,cs) == 2 ) - && num_cross(xl,xr,yl ,yl ,box1->p,cs) == 1 ) - mod = CARON; // "v" above - - if( /* test for bow (new0.3.6) */ - loop(box1->p,xl,yu ,xr-xl,cs,0,RI) - + loop(box1->p,xl,yl ,xr-xl,cs,0,RI) - - 2*loop(box1->p,xl,(yl+yu)/2,xr-xl,cs,0,RI) > dx/16+1 - && xr-xl>10) - if( ( loop(box1->p,xl,yu ,xr-xl,cs,0,RI) - < loop(box1->p,xl,yl ,xr-xl,cs,0,RI)-dx/10 - || loop(box1->p,xl,yu+1,xr-xl,cs,0,RI) - < loop(box1->p,xl,yl ,xr-xl,cs,0,RI)-dx/10 ) - && ( loop(box1->p,xr,yu ,xr-xl,cs,0,LE) - < loop(box1->p,xr,yl ,xr-xl,cs,0,LE)-dx/10 - || loop(box1->p,xr,yu+1,xr-xl,cs,0,LE) - < loop(box1->p,xr,yl ,xr-xl,cs,0,LE)-dx/10 ) - && ( num_cross(xl,xr,yu ,yu ,box1->p,cs) == 2 - || num_cross(xl,xr,yu+1,yu+1,box1->p,cs) == 2 ) - && num_cross(xl,xr,yl ,yl ,box1->p,cs) == 1 ) - mod = BREVE; // round "u" above - - if( xr-xl>3 && yl-yu>1 ) - if( loop(box1->p,xl,yu,xr-xl,cs,0,RI) - > loop(box1->p,xl,yl,xr-xl,cs,0,RI) - && loop(box1->p,xr,yu,xr-xl,cs,0,LE) - < loop(box1->p,xr,yl,xr-xl,cs,0,LE) - && num_cross(xl,xr,yu,yu,box1->p,cs) == 2 - && num_cross(xl,xr,yl,yl,box1->p,cs) == 2 ) - mod = TILDE; - - if( xr-xl>2 && yl-yu>2) - if( num_cross(xl,xr,(yu+yl)/2,(yu+yl)/2,box1->p,cs) >1 ) - if( num_cross((xl+xr)/2,(xl+xr)/2,yu,yl,box1->p,cs) >1 ) - if( num_hole(xl,xr,yu,yl,box1->p,cs,NULL) == 1 ) - mod = RING_ABOVE; - -#ifdef DEBUG - printf("\n#DEBUG umlaut mod=0x%04x x=%d..%d y=%d..%d r=%d %s", - (int)mod,yu-box1->y0,yl-box1->y0, - xl-box1->x0,xr-box1->x0,r,((mod==CARON)?"CARON": - ((mod==ACUTE_ACCENT)?"ACUTE": - ((mod==TILDE)?"TILDE":"?")))); - out_x(box1); -#endif - - } - } - if (m) box1->dots=r; // set to 0 also possible after division - if (m) box1->modifier=mod; /* should be resetted after compose ??? */ - MSG(fprintf(stderr,"umlaut mod=%s dots=%d y0o=%d",decode(mod,ASCII),r,y0);) - } -// printf(" modifier=%c",mod); - if (modifier) *modifier=mod; /* set modifier */ - return r; -} - - -static wchar_t ocr0_eE(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - int i,i1,i2,j,d,x,y,hchar=sdata->hchar,gchar=sdata->gchar,bad_e=0, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - int (*aa)[4]=sdata->aa; /* corner-points, (x,y,dist^2,vector_idx) */ - - // --- most frequent letter e first!!! - // --- test e --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 (smallest seen is 5x6) - DBG( wchar_t c_ask='e'; ) - if (sdata->holes.num > 2) Break; /* tolerant against a tiny hole */ - if (sdata->holes.num != 1) ad=97*ad/100; - /* ToDo: may be a two pass version intolerant/tolerant is better */ - if( loop(box1->p,x0,y0+dy/2,x1-x0,cs,0,RI)>dx/3 ) Break; // rough test - if( loop(box1->p,x0+dx/2,y0,y1-y0,cs,0,DO)>dy/3 ) Break; - if( loop(box1->p,x0+dx/2,y1,y1-y0,cs,0,UP)>dy/3 ) Break; - if( num_cross(x0,x1,y0+dy/4 ,y0+dy/4 ,box1->p,cs) > 2 - && num_cross(x0,x1,y0+dy/4+1,y0+dy/4+1,box1->p,cs) > 2 ) Break; // gt - x=(x0+x1)/2;i= num_cross(x,x,y0,y1,box1->p,cs); // v0.40 - if (i!=3) { x=(x0+2*x1)/3;i= num_cross(x,x,y0,y1,box1->p,cs); } - if (i!=3) { x=(x0+3*x1)/4;i= num_cross(x,x,y0,y1,box1->p,cs); } - if (i!=3) { i= num_cross((x0+2*x1)/3,(x0+x1)/2,y0,y1,box1->p,cs); } - i=loop(box1->p,x0,y0+dy/2,x1-x0,cs,0,RI); if( i>dx/2 ) Break; - j=loop(box1->p,x0,y0 ,x1-x0,cs,0,RI); if( j<i ) Break; - j=loop(box1->p,x0,y1 ,x1-x0,cs,0,RI); if( j<i ) Break; - i=loop(box1->p,x0+dx/2,y0,y1-y0,cs,0,DO); if( i>dx/2 ) Break; - j=loop(box1->p,x1-dx/3,y0,y1-y0,cs,0,DO); if( j<i ) i=j; - j=loop(box1->p,x0 ,y0,y1-y0,cs,0,DO); if( j<i ) Break; - j=loop(box1->p,x1 ,y0,y1-y0,cs,0,DO); if( j<i ) Break; - i=loop(box1->p,x0+dx/2,y1,y1-y0,cs,0,UP); if( i>dx/2 ) Break; - j=loop(box1->p,x0 ,y1,y1-y0,cs,0,UP); if( j<i ) Break; - j=loop(box1->p,x1 ,y1,y1-y0,cs,0,UP); if( j<i ) Break; - j=2*loop(box1->p,x0, (y0+y1)/2,x1-x0,cs,0,RI) - -loop(box1->p,x0,(3*y0+y1)/4,x1-x0,cs,0,RI) - -loop(box1->p,x0,(y0+3*y1)/4,x1-x0,cs,0,RI); - if (dx>3 && j>=dx/4) Break; // ~g 4x6font - for(y=1;y<dy/2;y++) if( num_cross(x0,x1,y0+y,y0+y,box1->p,cs) == 2 ) break; - if( y==dy/2 ) Break; // v0.2.5 ~ bad_t - for(i=0,j=x0+dx/4;j<=x1-dx/4 && i<=dx/4;j++) - if( num_cross(j,j,y0,y1,box1->p,cs) == 3 ) i++; - if( dx>4 && dy>5 && (i<dx/4-1 || i==0) ) Break; // ~g but 4x6-e - // look for horizontal white line (right gap) => set x,y - for(x=0,y=i=y0+dy/3;i<y1-dy/6;i++){ - j=loop(box1->p,x1,i,y1-y0,cs,0,LE); - if(j>=x) { x=j;y=i; } - } - if (x<dx/2){ // no gap found, fat font??? - // check smallest thickness left > 2* smallest thickness right - for(i1=dx,i=y0+dy/3;i<y1-dy/6;i++){ - j =loop(box1->p,x0 ,i,y1-y0,cs,0,RI); if (j>dx/2) break; - j =loop(box1->p,x0+j,i,y1-y0,cs,1,RI); - if (j<i1) i1=j; // smallest thickness on left bow - } - for(i2=dx,y=i=y0+dy/3;i<y1-dy/6;i++){ - j =loop(box1->p,x1 ,i,y1-y0,cs,0,LE); - j =loop(box1->p,x1-j,i,y1-y0,cs,1,LE); - if(j<i2) { i2=j;y=i; } - } if (3*i2>2*i1) Break; // not accepted, if right line is not very thinn - x =loop(box1->p,x1 ,y,y1-y0,cs,0,LE); - x+=loop(box1->p,x1-x,y,y1-y0,cs,1,LE); - x+=loop(box1->p,x1-x,y,y1-y0,cs,0,LE); - if (3*i2>i1) ad=99*ad/100; - if (2*i2>i1) ad=99*ad/100; - bad_e=60; // used later? - } - if (x<dx/2) Break; - for(i=1,j=x0+dx/6;j<x1-dx/6 && i;j++) - if( num_cross(j,j,y0,y,box1->p,cs) > 1 ) i=0; - if( i ) Break; -// ..@@@@...<- -// .@@@@@@;. -// @@,...@@. -// @@.....@, -// @@@@@@@@@ -// @@.,;.@,. <- problem (y) == bad_e>50 -// @@.....@. -// @@,...@@. -// .@@@,@@@. -// ..@@@@;..<- - if (dy>11 && bad_e<50) - if ( num_cross(x0,x1,y,y,box1->p,cs) != 1 ) Break; // except "geschwungenem e" - if ( num_cross(x0,x1-dx/3,y ,y ,box1->p,cs) != 1 - && num_cross(x0,x1-dx/3,y+1,y+1,box1->p,cs) != 1 ) Break; - // if( num_hole(x0, x1, y0 , y ,box1->p,cs,NULL) < 1 ){ - if( sdata->holes.num == 0 || sdata->holes.hole[0].y1 >= y-y0){ - if( sdata->hchar ) Break; // ~ \it t - // look if thinn font (may be h-line is broken) Mai00 - for(j=0,i=x0+dx/8;i<x1-1;i++) - if( get_bw(i,i,y0+dy/4,y,box1->p,cs,1) == 1 ) j++; - if(j<2*dx/4) Break; - } - if( sdata->holes.num>0 && sdata->holes.hole[0].y0 > y-y0) Break; - if( sdata->holes.num>1 && sdata->holes.hole[1].y0 > y-y0) Break; - if( sdata->holes.num==1 && sdata->holes.hole[0].x0 >= dx/2) { - ad=95*ad/100; } /* 8*10 @ (=at) is not an e */ - // look for horizontal gap - for(x=0,y=i=y0+dy/4;i<y1-dy/4;i++){ - j=loop(box1->p,x0,i,x1-x0,cs,0,RI); - if(j>=x) { x=j;y=i; } - } - if (y>y0+dy/4 && y<y1-dy/4 && x>dx/2) Break; // s - if (x>dx/4) ad=99*ad/100; - - if( num_cross(x0+dx/2,x1 ,y1-dy/4,y1 ,box1->p,cs) == 0 - && num_cross(x0+dx/2,x1-1,y1-dy/4,y1 ,box1->p,cs) == 0 - && num_cross(x0+dx/2,x1 ,y1-dy/4,y1-1,box1->p,cs) == 0 ) { - if (sdata->gchar) Break; // ~p - ad=99*ad/100; - } - /* upper case is for 5x6 box */ - if( sdata->hchar // broken B ? should also work when linedetection fails - && loop(box1->p,x1,y1-dy/3,dx,cs,0,LE)<=dx/8 ) { - x = loop(box1->p,x0,y0+dy/2,dx,cs,0,RI); - if( loop(box1->p,x0,y0+dy/4,dx,cs,0,RI)<=x - && loop(box1->p,x0,y0+dy/8,dx,cs,0,RI)<=x ) Break; - if( loop(box1->p,x0,y1-dy/4,dx,cs,0,RI)<=x - && loop(box1->p,x0,y1-dy/8,dx,cs,0,RI)<=x ) Break; - } - x = loop(sdata->bp,0,dy-2 ,dx,cs,0,RI); - if( loop(sdata->bp,0,dy-1-dy/8,dx,cs,0,RI)>x && dy>16) Break; // some Q - if (box1->m2) { - if (sdata->gchar) ad=99*ad/100; - if (sdata->hchar) ad=99*ad/100; - } else ad=99*ad/100; - - Setac(box1,(wchar_t)'e',ad); - if (ad>=100) return 'e'; - break; - } - // --- test E --------------------------------------------------- - for(ad=d=100;dx>2 && dy>4 ;){ // min 3x4 - // rewritten for vectors 0.43 - int i1, i2, i3, i4, i5; // line derivation + corners - DBG( wchar_t c_ask='E'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - /* half distance to the center */ - d=2*sq(128/4); - /* now we check for the upper right end of the h */ - if (aa[3][2]>d/2) Break; /* [2] = distance, ~dj... */ - if (aa[0][2]>d/2) Break; /* upper left end */ - if (aa[1][2]>d/2) Break; /* lower left end */ - if (aa[2][2]>d/2) Break; /* lowerright end */ -/* - E f near E - - OOOOOOOO OOOO - O5 O O - O4 O - OOOO3 OOOOOO - O2 O - O O - O1 O O - OOOOOOOO OOOOOO -*/ - // check the bow from below - for (i=aa[1][3];i!=aa[2][3];i=(i+1)%box1->num_frame_vectors[0]) { - if (y1-box1->frame_vector[ i][1]>dy/4) break; // fatal! - } if (i!=aa[2][3]) Break; // ~AHKMNRX - // search most left+down between bottom right and top right - i1=nearest_frame_vector(box1, aa[2][3],aa[3][3], x0, y1); - i5=nearest_frame_vector(box1, i1,aa[3][3], x0, y0); - i3=nearest_frame_vector(box1, i1, i5, x1, (y0+y1)/2); - i2=nearest_frame_vector(box1, i1, i3, x0, (2*y0+y1)/3); - i4=nearest_frame_vector(box1, i3, i5, x0, (y0+2*y1)/3); - i =nearest_frame_vector(box1, aa[0][3],aa[1][3], x0-dx/4, (y0+y1)/2); - if (2*box1->frame_vector[i][0] < aa[0][0]+aa[1][0]-1-dx/16) Break; - if (2*box1->frame_vector[i][0] < aa[0][0]+aa[1][0]) ad=99*ad/100; // f - - MSG(fprintf(stderr,"i1-5 %d %d %d %d %d",i1,i2,i3,i4,i5);) - // holes right open? - for( i=1,y=y0; y<y0+dy/4 && i; y++ ) // long black line - if( get_bw(x0+dx/3,x1-dx/6,y,y,box1->p,cs,2) == 0 ) i=0; - if( i ) Break; - for( i=1,y=y1; y>y1-dy/4 && i; y-- ) // long black line - if( get_bw(x0+dx/6,x1-dx/4,y,y,box1->p,cs,2) == 0 ) i=0; - if( i ) Break; - for( i=1,y=y0+dy/3; y<y1-dy/3 && i; y++ ){ // black line - j=loop(box1->p,x0 ,y,dx,cs,0,RI); - j=loop(box1->p,x0+j,y,dx,cs,1,RI); if( j>dx/3 ) i=0; - } if( i ) Break; - x=x1-dx/3; y=y0; // von oben durchbohren! - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,DO,ST); if( y>y0+dy/4 ) Break; - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,ST,DO); if( y>y0+dy/3 ) Break; - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,RI,DO); if( x<=x1 || y>y0+dy/2 ) Break; - x=x1-dx/3; y=y1; // von unten durchbohren! - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,UP,ST); if( y<y1-dy/4 ) Break; - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,ST,UP); if( y<y0-dy/3 ) Break; - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,RI,UP); if( x<=x1 || y<y0+dy/2 ) Break; - x=x1-dx/3; y=y0; // von oben durchbohren! - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,DO,ST); if( y>y0+dy/4 ) Break; - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,ST,DO); if( y>y0+dy/3 ) Break; - y+=dy/15; - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,LE,ST); if( x<x0 ) Break; - if (dx>15 && x==x0) ad=99*ad/100; // to thin - x+=dx/15+1; - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,DO,ST); if( y>y1-dy/3 ) Break; - // if( num_hole(x0, x1, y0 , y1 ,box1->p,cs,NULL) > 0 ) Break; - if (sdata->holes.num > 0) Break; - i=loop(box1->p,x0,y0+dy/4,dx,cs,0,RI); if(i>dx/2) Break; - j=loop(box1->p,x0,y0+dy/2,dx,cs,0,RI); if(j<i-dx/4 || j>i+dx/8) Break; i=j; - j=loop(box1->p,x0,y1-dy/4,dx,cs,0,RI); if(j<i-dx/4 || j>i+dx/8) Break; - j=loop(box1->p,x1,y1-dy/4,dx,cs,0,LE); - for( x=dx,y=y0+dy/6; y<y1-dy/9; y++ ) // left border straight - { i=loop(box1->p,x0,y,dx,cs,0,RI); - if (i>j/2 && ad>98) ad=99*ad/100; - if (i>dx/4) break; - if(i<x) x=i; - } if( y<y1-dy/9 ) Break; // t - if(dy>3*dx) // ~[ - if( get_bw(x0+dx/2,x0+dx/2,y0+dy/4,y1-dy/4,box1->p,cs,1) == 0 ) Break; - - if (box1->m2) { - if (!hchar) ad=ad*99/100; - if ( gchar) ad=ad*99/100; - } - Setac(box1,(wchar_t)'E',ad); - if (ad>=100) return 'E'; - break; - } - return box1->c; -} - -static wchar_t ocr0_n(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - int i,j,d,x,y,i1,i2,i3,handwritten=0, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // --- test n --------------------------------------------------- - // glued rm is very similar to glued nn -> thickness of h-line should grow - // may02: tested for 8x12 font - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='n'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - i= num_cross( 0,dx-1,dy/4,dy/4,sdata->bp,cs); - j= num_cross( 0,dx-1,dy/2,dy/2,sdata->bp,cs); - if( (i<2 || i>3) && j!=2 ) Break; - if( loop(sdata->bp,dx/2,0,dy,cs,0,DO) > dy/8 && sdata->hchar ) Break; /* tt */ - y=5*dy/8; /* also for handwritten n, where first bow goes not down enough */ - if( num_cross( 0,dx/2,y ,y ,sdata->bp,cs) != 1 - && num_cross( 0,dx/2,y-1,y-1,sdata->bp,cs) != 1 - && num_cross(dx/2,dx-1,y ,y ,sdata->bp,cs) < 1 ) Break; // n rr - // ~thick_w - y=loop(sdata->bp,dx-1-dx/4,0,dy,cs,0,DO); if(y>dy/2) Break; - if(y>1)if( get_bw(dx-1-dx/4,dx-1,0,y-2,sdata->bp,cs,1) == 1 ) Break; - - y=3*dy/4; - if( num_cross(0, dx/2,y ,y ,sdata->bp,cs) == 1 - && num_cross(dx/2,dx-1,y ,y ,sdata->bp,cs) == 0 ) Break; // ~p - y=dy/2; - if( num_cross(0,dx-1,dy/2-dy/8,dy/2-dy/8,sdata->bp,cs) == 2 - && num_cross(0,dx-1,dy/2, dy/2 ,sdata->bp,cs) == 2 ) { // n rr - /* printed n */ - x =loop(sdata->bp,0,y,dx ,cs,0,RI); if(x> dx/4) Break; // search 1st v-line - x+=loop(sdata->bp,x,y,dx-x,cs,1,RI); if(x> dx/2) Break; i1=x; // 1st gap - x+=loop(sdata->bp,x,y,dx-x,cs,0,RI); if(x< dx/2) Break; i2=x; // 2nd v-line - x+=loop(sdata->bp,x,y,dx-x,cs,1,RI); if(x<3*dx/4) Break; i3=x; // 2nd gap - i=dy/4; y=13*dy/16; - if( num_cross(dx/2,dx-1,y,y,sdata->bp,cs)==2 ) i=3*dy/8; // \it n - if (i<2 && i<dy/2) i++; // correct for small fonts like 8x12 - // the same game for the lower part =>l1 l2 l3 l4 ??? - for(x=i1;x<i2;x++) if( loop(sdata->bp,x, 0,dy,cs,0,DO)>=i ) break; - if(x <i2) Break; // gap detected - for(x=i1;x<i2;x++) if( loop(sdata->bp,x,dy-1,dy,cs,0,UP) >dy/4 ) break; - if(x==i2) Break; // no gap detected (glued serifs ??? ) - // glued rm as nn ??? - for(y=0,x=(i1+i2)/2;x<i2;x++){ - i=loop(sdata->bp,x,0,dy,cs,0,DO); - i=loop(sdata->bp,x,i,dy,cs,1,DO); // measure thickness - if( i>y ) y=i; if( i<y/2 ) break; - } - if(x <i2) Break; // unusual property for n - if( dy>7 ) - if( loop(sdata->bp,dx-1,dy-1-dy/8,dx,cs,0,LE) - +loop(sdata->bp, 0,dy-1-dy/8,dx,cs,0,RI)-dx/8-1 - > loop(sdata->bp,dx-1,dy-1-dy/2,dx,cs,0,LE) - +loop(sdata->bp, 0,dy-1-dy/2,dx,cs,0,RI) ) ad=90*ad/100; // broken o - if( dy>7 && dx>7 ) - if( loop(sdata->bp,dx-1, dy/2,dx,cs,0,LE)==0 - && loop(sdata->bp,dx-1,dy-1-dy/8,dx,cs,0,RI)>dx/8 ) ad=98*ad/100; // broken o - } else { /* check handwritten n */ - if( num_cross(0,dx-1,dy/2, dy/2 ,sdata->bp,cs) != 3 - && num_cross(0,dx-1,dy/2-dy/8,dy/2-dy/8,sdata->bp,cs) != 3 ) Break; - i =loop(sdata->bp,0,dy/2-dy/8,dx,cs,0,RI); if (i>dx/4) Break; - i+=loop(sdata->bp,i,dy/2-dy/8,dx,cs,1,RI); if (i>dx/2) Break; - i+=loop(sdata->bp,i,dy/2-dy/8,dx,cs,0,RI); - if( num_cross(i,i, 0,dy/2-2*dy/8,sdata->bp,cs) != 0 ) Break; - i+=loop(sdata->bp,i,dy/2-dy/8,dx,cs,1,RI); - if( num_cross(i,i,dy/2+1, dy-1,sdata->bp,cs) != 0 ) Break; - handwritten=80; - } - - i= loop(sdata->bp,dx-1 ,dy/2,dx,cs,0,LE); if(i>5) - if( get_bw(dx-1-i/2,dx-1-i/2,0,dy/2,sdata->bp,cs,1) == 1 ) Break; // ~rr - i+=loop(sdata->bp,dx-1-i,dy/2,dx,cs,1,LE); - if( get_bw(dx-1-i ,dx-1-i ,0,dy/2,sdata->bp,cs,1) == 0 ) Break; // ~rv - - if( get_bw(dx/2,dx/2,dy/4,dy/4,sdata->bp,cs,1) == 0 - && get_bw(dx/2,dx-1,dy-2,dy-2,sdata->bp,cs,1) == 0 - && get_bw(dx/2,dx/2,dy/4,dy-2,sdata->bp,cs,1) == 1 ) Break; // ~P - - // glued ri ??? - if( box1->dots>0 && box1->m1 ) - if( get_bw((x1+x0)/2,x1,box1->m1,y0-1,box1->p,cs,1) == 1 ) - if( num_cross( 0,dx-1,0 ,0 ,sdata->bp,cs) >2 - || num_cross( 0,dx-1,1 ,1 ,sdata->bp,cs) >2 ) Break; - - - i=loop(sdata->bp,dx-1, dy-1,dx,cs,0,LE); if (i>dx/2) - i=loop(sdata->bp,dx-1, dy-2,dx,cs,0,LE); - x=loop(sdata->bp,dx-1,dy-1-dy/4,dx,cs,0,LE); - if (sdata->hchar && i-x>1) Break; // ß - x=loop(sdata->bp, 0,dy-1,dx,cs,0,LE); // check for serifs - i=loop(sdata->bp, 0,dy-2,dx,cs,0,LE); if (i<x) x=i; - i=loop(sdata->bp, 0, 1,dx,cs,0,LE); if (i<x) x=i; - i=loop(sdata->bp, 0, 2,dx,cs,0,LE); if (i<x) x=i; - if (sdata->hchar && x>0) Break; // fl - - if (num_cross( 0,dx-1,dy/4,dy/4,sdata->bp,cs)>=3) ad=98*ad/100; // small M - if (sdata->hchar || 2*y0<box1->m1+box1->m2) ad=96*ad/100; - if (sdata->gchar) ad=96*ad/100; // ß fl - if (dx<5) { // for small fonts no middle line is possible for m - ad=99*ad/100; // 4x6 m - if (num_cross(0,dx-1,dy/8,dy/8,sdata->bp,cs)>=2) { - ad=97*ad/100; // ~m - if (dy<=4) Setac(box1,'m',97); // only for 4x6 font! - } - } - Setac(box1,'n',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_M(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int d,x,y,i0,i1,i2,i3,t1,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // ------------------ test M --------------------------- - for(ad=d=100;dx>3 && dy>3;){ // dy<=dx nicht perfekt! besser mittleres - // min-suchen fuer m - DBG( wchar_t c_ask='M'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if( num_cross(0,dx-1, dy/2, dy/2,bp,cs)<3 - && num_cross(0,dx-1, dy/4, dy/4,bp,cs)<3 - && num_cross(0,dx-1,5*dy/8,5*dy/8,bp,cs)<3 - && num_cross(0,dx-1,3*dy/4,3*dy/4,bp,cs)<3 - && dx>4 ) Break; - if( num_cross(0,dx-1, dy/4, dy/4,bp,cs)<2 - && num_cross(0,dx-1, dy/8, dy/8,bp,cs)<2 ) Break; /* fat M */ - if( num_cross(0,dx-1,3*dy/4,3*dy/4,bp,cs)<2 ) Break; - - x = loop(bp,dx-1 ,dy-1,dx,cs,0,LE); // ~ melted kl - x = loop(bp,dx-1-x,dy-1,dx,cs,1,LE); if( x>dx/2 ) Break; - - if( loop(bp, 0,7*dy/16,dx,cs,0,RI) - + loop(bp,dx-1,7*dy/16,dx,cs,0,LE) > dx/2 ) Break; // ~K - - if( dy>8 /* following lines should be extend to range check */ - && loop(bp, dx/4,dy-1, dy,cs,0,UP)<dy/4 - && loop(bp,3*dx/8,dy-1, dy,cs,0,UP)<dy/4 ) - if( loop(bp, 0,dy-1-dy/ 8,dx,cs,0,RI) - < loop(bp, 0,dy-1-dy/16,dx,cs,0,RI)-dx/32 ) Break; // ~it_u - if( num_cross(0,dx-1, dy/2, dy/2,bp,cs)==2 - && num_cross(0,dx-1, dy/4, dy/4,bp,cs)> 2 - && num_cross(0,dx-1,3*dy/4,3*dy/4,bp,cs)> 2 ) Break; // ~it_u - if( num_cross(0 ,dx-1,3*dy/4,3*dy/4,bp,cs)==2 - && num_cross(dx/2,dx/2,3*dy/4, dy-1,bp,cs)> 0 ) Break; // ~it_v - - if( loop(bp,3*dx/4, 0,dy,cs,0,DO) - > loop(bp,2*dx/4, 0,dy,cs,0,DO) - && loop(bp,3*dx/4,dy-1,dy,cs,0,UP) - < loop(bp,2*dx/4,dy-1,dy,cs,0,UP) ) Break; // ~N - if( loop(bp,3*dx/4, dy/8,dy,cs,0,DO) - > loop(bp,2*dx/4, dy/8,dy,cs,0,DO) - && loop(bp,3*dx/4,dy-1-dy/8,dy,cs,0,UP) - < loop(bp,2*dx/4,dy-1-dy/8,dy,cs,0,UP) ) Break; // ~serif_N - - // i0 is lower end of upper serifen (widest gap? ) - i0=0; - - if( num_cross(0,dx-1,dy/2,dy/2,bp,cs)!=4 ){ // Is it a N ? - if( num_cross(0,dx-1,dy/2,dy/2,bp,cs)==3 ){ - for(y=dy/2+1;y<dy;y++){ - if( num_cross(0,dx-1,y,y,bp,cs)<3 ) break; - } - if( num_cross(0,dx-1,y,y,bp,cs)==2 ){ - x =loop(bp,dx-1 ,y-1,dx,cs,0,LE); - x+=loop(bp,dx-1-x,y-1,dx,cs,1,LE); - x+=loop(bp,dx-1-x,y-1,dx,cs,0,LE); - if( loop(bp,dx-x,y-1,dy,cs,0,UP)>y-2 ) Break; // ~N - } - } - } - // MNWK - for(i2=0,i1=x=dx/2;x<dx-dx/4;x++){ // lowest pixel - y=loop(bp,x,0,dy,cs,0,DO); if(y>i2) {i2=y;i1=x;} else break; } - i3=i2+loop(bp,i1,i2,dy-i2,cs,1,DO); - if(i2<dy/4) { - if (!sdata->hchar) Break; // rm - ad=99*ad/100; - } - if (i2==0 && dx>8 && dy>12) Break; // glued and bad splitted serifen-MN - - // if( num_hole(x0, x1, y0 , y1 ,box1->p,cs,NULL) != 0 ) Break; // small A - if (sdata->holes.num != 0) Break; - t1=loop(bp,0 ,3*dy/4,dx,cs,0,RI); - t1=loop(bp,t1,3*dy/4,dx,cs,1,RI); // thickness of line? - if( 7*(t1+1)<dx ) - if( num_cross(i1,dx-1,i2-1,i2-1,bp,cs)!=2 - || num_cross(0 ,i1 ,i2-1,i2-1,bp,cs)!=2 ) Break; // too hard ??? - - // ~u_n-pair - if( num_cross(0,dx-1,0,0,bp,cs)!=2 - && num_cross(0,dx-1,1,1,bp,cs)!=2 - && num_cross(0,dx-1,2,2,bp,cs)!=2 ) Break; - - // ~nn v0.2.4a3 - if( num_cross(0,dx-1, dy/4, dy/4,bp,cs)==4 - && num_cross(0,dx-1,3*dy/4,3*dy/4,bp,cs)==4 ){ - i1 =loop(bp, 0, dy/4,dx,cs,0,RI); - i1+=loop(bp,i1, dy/4,dx,cs,1,RI); - i1+=loop(bp,i1, dy/4,dx,cs,0,RI); - i2 =loop(bp, 0,3*dy/4,dx,cs,0,RI); - i2+=loop(bp,i2,3*dy/4,dx,cs,1,RI); - i2+=loop(bp,i2,3*dy/4,dx,cs,0,RI); - if( i1>=i2 ) Break; // no good M - i1+=loop(bp,i1, dy/4,dx,cs,1,RI); - i2+=loop(bp,i2,3*dy/4,dx,cs,1,RI); - if( i1>=i2 ) Break; // no good M - i1+=loop(bp,i1, dy/4,dx,cs,0,RI); - i2+=loop(bp,i2,3*dy/4,dx,cs,0,RI); - if( i1<=i2 ) Break; // no good M - } - if( num_cross(0,dx-1,dy/2,dy/2,bp,cs)==2 - && num_cross(0,dx-1,dy/4,dy/4,bp,cs)==2 && !hchar ) Break; // ~ \it u - - if (dy<17) - if( num_cross(0,dx-1, 0, 0,bp,cs)<2 ) ad=99*ad/100; - if (dx>5) /* 4x6 font has only 1 cross at y=1 */ - if( num_cross(0,dx-1, 1, 1,bp,cs)<2 ) ad=96*ad/100; // kt - if( num_cross(dx/2,dx/2, 0, dy-1,bp,cs)!=1) ad=98*ad/100; // kt - if (dx<5 && loop(bp,dx/2,0,dy,cs,0,DO)>=3*dy/8) ad=96*ad/100; // 4x6 H - - if( num_cross(0,dx-1, dy/4, dy/4,bp,cs)<=2 - && num_cross(0,dx-1,3*dy/4,3*dy/4,bp,cs)<=2 - && dx>8 && dy>12 ){ - ad=98*ad/100; - for(y=5*dy/16;y<5*dy/8;y++) // look for H-line - if( num_cross(0,dx-1,y ,y ,bp,cs)==1 ) break; - if( y<5*dy/8 ) ad=95*ad/100; - if( y<5*dy/8 ) - if( num_cross(2+dx/6,dx-3-dx/6,y-2,y-2,bp,cs)==0 - || num_cross(2+dx/6,dx-3-dx/6,y-1,y-1,bp,cs)==0 ) Break; // ~H bad! - } - - if( loop(bp,3*dx/8, 0,dy,cs,0,DO) >dy/2 - && loop(bp,5*dx/8,dy-1,dy,cs,0,UP) >dy/2 ) ad=95*ad/100; - - if(!hchar){ - ad=98*ad/100; /* not sure */ - if( loop(bp,0, dy/4,dx,cs,0,RI) - < loop(bp,0,dy-1-dy/8,dx,cs,0,RI)-dx/16 ) Break; // ~wi glued - } - if( gchar ) ad=98*ad/100; - if (ad>99 && dx<8) ad=99*ad/100; /* give 5x8 N a chance */ - Setac(box1,'M',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_N(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - int d,x,y,i1,i2,i3,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - (*aa)[4]=sdata->aa, /* corner-points, (x,y,dist^2,vector_idx) */ - dbg[9], - ad; /* tmp-vars */ - - // --- test N ------- +hchar -gchar - for(ad=d=100;dx>3 && dy>3;){ // 4x6font - DBG( wchar_t c_ask='N'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if (sdata->holes.num > 0) ad=98*ad/100; /* # */ - if (dx<6) ad=99*ad/100; - if (dx<5) ad=99*ad/100; - /* half distance to the center */ - d=2*sq(128/4); - /* now we check for the 4 ends of the x */ - if (aa[0][2]>d) Break; - if (aa[1][2]>d) Break; - if (aa[2][2]>d) Break; - if (aa[3][2]>d) Break; - if (aa[3][0]-aa[0][0]<dx/2) Break; - if (aa[2][0]-aa[1][0]<dx/2) Break; - if (aa[1][1]-aa[0][1]<dy/2) Break; - if (aa[2][1]-aa[3][1]<dy/2) Break; - if (aa[3][0]-aa[0][0]<4-1) Break; /* to small to hold an N */ - if (aa[2][0]-aa[1][0]<4-1) Break; /* to small */ - if (abs(aa[3][1]-aa[0][1])>(dy+2)/5) Break; /* glued tu */ - if (abs(aa[3][1]-aa[0][1])>(dy+4)/8) ad=98*ad/100; /* glued tu */ - /* left and right vertical line */ - d=line_deviation(box1, aa[0][3], aa[1][3]); if (d>2*sq(1024/4)) Break; - ad=(100-(d-sq(1024)/2)/sq(1024)/4)*ad/100; - d=line_deviation(box1, aa[2][3], aa[3][3]); if (d>2*sq(1024/4)) Break; - - /* search uppermost left ^ (between near 0,0) */ - i1=nearest_frame_vector(box1,aa[1][3],aa[2][3], x0+dx/8, y0); - x=box1->frame_vector[i1][0]; - y=box1->frame_vector[i1][1]; - MSG( fprintf(stderr,"i1= %d (%d,%d) left ^", i1,x-x0,y-y0);) - if (y-y0 > 5*dy/8) Break; - if (x-x0 > 5*dx/8) Break; - /* search uppermost right ^ ~H */ - i3=nearest_frame_vector(box1,aa[1][3],aa[2][3], x1, y0); - MSG( fprintf(stderr,"i3= %d (%d,%d) right ^",\ - i3, box1->frame_vector[i3][0]-x0,box1->frame_vector[i3][1]-y0);) - - /* check if upper left and lower right point are joined directly */ - dbg[0]=d=line_deviation(box1,i1, aa[2][3]); - /* check if lower left and lower left point are joined directly */ - dbg[1]=d=line_deviation(box1, aa[1][3],i1); - MSG( fprintf(stderr," i1-a2 %d a1-i1 %d",dbg[0],dbg[1]); ) - if (dbg[0] > sq(1024/4)) Break; - if (dx>4 && dbg[1] > sq(1024/4)) ad=97*ad/100; // d=0..2*sq(1024) - if (dx>4 && dbg[1] > sq(1024/3)) Break; // d=0..2*sq(1024) - // serif N has d=sq(1024/3)=116508 - - /* serach lowest right v, same frame? N-tilde etc.? */ - i2=nearest_frame_vector(box1,aa[3][3],aa[0][3], x1, y1-dy/8); - x=box1->frame_vector[i2][0]; - y=box1->frame_vector[i2][1]; - MSG( fprintf(stderr,"i2= %d (%d,%d) right v",\ - i2, box1->frame_vector[i2][0]-x0,box1->frame_vector[i2][1]-y0);) - if (y-y0 < 3*dy/8) Break; - if (x-x0 < 3*dx/8) Break; - // test H - if ( box1->frame_vector[i3][0]-box1->frame_vector[i1][0]> dx/4 - && box1->frame_vector[i3][1]-box1->frame_vector[i1][1]<=dy/8 - && y<=box1->frame_vector[i1][1]) Break; - /* check if upper left and lower right point are joined directly */ - dbg[2]=d=line_deviation(box1,i2, aa[0][3]); - /* check if lower right and lower right point are joined directly */ - dbg[3]=d=line_deviation(box1, aa[3][3],i2); - MSG( fprintf(stderr," i2-a0 %d a3-i2 %d",dbg[2],dbg[3]); ) - if (dbg[2] > sq(1024/4)) Break; - if (dbg[3] > sq(1024/4)) ad=97*ad/100; // serif N, ToDo: do it better - if (dbg[3] > sq(1024/3)) Break; - - if (abs((box1->frame_vector[i1][1]-y0) - -(y1-box1->frame_vector[i2][1]))>dy/8) ad=99*ad/100; /* ~ tu */ - if (abs(((y0+y1)/2-box1->frame_vector[i1][1]) - -(box1->frame_vector[i2][1]-(y0+y1)/2))>dy/8) ad=99*ad/100; /* ~ tu */ - if (box1->frame_vector[i2][0] - -box1->frame_vector[i1][0]<=dx/8) Break; /* nonsignificant distance */ - if (box1->frame_vector[i2][1] - -box1->frame_vector[i1][1]<=dy/8) ad=97*ad/100; /* too flat (ff,H) */ - if (box1->frame_vector[i2][1] - -box1->frame_vector[i1][1]<=dy/2) ad=99*ad/100; - MSG( \ - fprintf(stderr,"^v %d %d %d %d line deviation %d %d %d %d max %d %d",\ - box1->frame_vector[i1][0]-x0,box1->frame_vector[i1][1]-y0,\ - box1->frame_vector[i2][0]-x0,box1->frame_vector[i2][1]-y0,\ - dbg[0],dbg[1],dbg[2],dbg[3],sq(1024/4),sq(1024));) - ad=(100-(dbg[0]-sq(1024)/2)/sq(1024)/4)*ad/100; - ad=(100-(dbg[1]-sq(1024)/2)/sq(1024)/4)*ad/100; - ad=(100-(dbg[2]-sq(1024)/2)/sq(1024)/4)*ad/100; - ad=(100-(dbg[3]-sq(1024)/2)/sq(1024)/4)*ad/100; - - if (!hchar) ad=99*ad/100; - if ( gchar) ad=98*ad/100; // \sc N - Setac(box1,'N',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_h(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,d,x,y,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - int (*aa)[4]=sdata->aa; /* corner-points, (x,y,dist^2,vector_idx) */ - - // --- test h --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - // rewritten for vectors 0.42 - int i1, i2, i3, i4, i5, i6, i7, i8; // line derivation + corners - DBG( wchar_t c_ask='h'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - /* half distance to the center */ - d=2*sq(128/4); - /* now we check for the upper right end of the h */ - if (aa[3][2]<d/4) Break; /* [2] = distance, ~BCDEF... */ - if (aa[0][2]>d/2) Break; /* upper left end */ - if (aa[1][2]>d/2) Break; /* lower left end */ - if (aa[2][2]>d/2) Break; /* lowerright end */ -/* - type A B=italic ??? - 18 OOO - O O O - O O - O7OOO OOOO - O4 O O O - O O O O - O O O O O - 2O3 5O6 O OOO -*/ - i1=i8=aa[0][3]; - i2=i3=aa[1][3]; - i5=i6=aa[2][3]; - // check the bow from below - for (i4=i=i2;i!=i5;i=(i+1)%box1->num_frame_vectors[0]) { - if (box1->frame_vector[ i][1] - <box1->frame_vector[i4][1]) i4=i; // get next maximum - if (box1->frame_vector[ i][1]<=y0) break; // fatal! - } - if (box1->frame_vector[i4][1]-y0<dy/4) Break; // ~MN - if (y1-box1->frame_vector[i4][1]<dy/4) Break; // ~BCDEGIJLOQSUYZ - // two steps for i7 to go around pitfalls on italic h - i7=nearest_frame_vector(box1, i6, i8, (x0+x1)/2, (y0+y1)/2); - i7=nearest_frame_vector(box1, i6, i7, x0, (y0+y1)/2); - i3=nearest_frame_vector(box1, i2, i4, (x0+x1)/2, y1); - i5=nearest_frame_vector(box1, i4, i6, (x0+x1)/2, y1); - - MSG(fprintf(stderr,"i1-7 %d %d %d %d %d %d %d",i1,i2,i3,i4,i5,i6,i7);) - /* ... new part /// old obsolete part ... */ - if( get_bw(0 ,dx/2,dy/8 ,dy/8 ,bp,cs,1) != 1 ) Break; - if( get_bw(0 ,dx/2,dy/2 ,dy/2 ,bp,cs,1) != 1 ) Break; - if( get_bw(dx/2 ,dx-1,dy-1-dy/3,dy-1-dy/3,bp,cs,1) != 1 ) Break; - if( get_bw(dx/2 ,dx/2,dy/5 ,dy-1-dy/3,bp,cs,1) != 1 ) Break; - if( get_bw(dx-1-dx/3,dx-1,0 ,1 ,bp,cs,1) == 1 ) Break; - if( get_bw(dx-1-dx/3,dx-1,1 ,dy/6 ,bp,cs,1) == 1 ) Break; - if( dy>18 ) - if( get_bw(dx-1-dx/3,dx-1,dy/6 ,dy/5 ,bp,cs,1) == 1 ) Break; - if( get_bw(dx-1-dx/3,dx-1,dy-1-dy/4,dy-1 ,bp,cs,1) == 0 ) Break; // s- - for( x=x0+dx/3;x<x1-dx/3;x++) - if( get_bw(x, x,y1-dy/4, y1, box1->p,cs,1) == 0 ) break; - if( x>=x1-dx/3 ) Break; - for(i=dy/4,y=y0+dy/3;y<=y1 && i;y++){ - if( num_cross(x0,x1 ,y,y, box1->p,cs) == 2 ) i--; - } if( i ) Break; - for(i=dy/4,y=y0;y<=y0+dy/2 && i;y++){ - if( num_cross(x0,x0+dx/2,y,y, box1->p,cs) == 1 ) i--; - } if( i ) Break; - // if( num_hole(x0, x1, y0 , y1 ,box1->p,cs,NULL) > 0 ) // could happen - if (sdata->holes.num > 0) - if (sdata->holes.hole[0].y0 > dy/3 - && sdata->holes.hole[0].y1 < dy-1-dy/3) Break; - // if( num_hole(x0, x1, y0+dy/3 , y1-dy/3 ,box1->p,cs,NULL) != 1 ) Break; // mini - if( loop(bp,dx-1,dy/3,dx,cs,0,LE)+dx/8 - < loop(bp,dx-1,dy/2,dx,cs,0,LE) - && loop(bp,dx-1,dy-1-dy/8,dx,cs,0,LE)+dx/8 - < loop(bp,dx-1,dy/2,dx,cs,0,LE)) Break; // ~k Okt00 - i=loop(bp,0,dy-1-dy/4,dx,cs,0,RI); - if (i>1 && num_cross(x0,x0,y0+dy/8+2,y0+dy/2, box1->p,cs) == 1 ){ // fi fu - ad=(99-(1<<i))*ad/100; - if (num_cross(x0,x0,y0,y0+dy/8+2, box1->p,cs) == 0 ) ad=97*ad/100; - if (num_cross(x0+dx/2,x0+dx/2,y0,y0+dy/8+2, box1->p,cs) == 1 ) ad=97*ad/100; - if (ad<1) break; - } - i =loop(bp,0,dy/4,dx,cs,0,RI); - i+=loop(bp,i,dy/4,dx,cs,1,RI)+1; - for ( ; i<dx-dx/3; i++ ) - if( loop(bp,i,0,dy,cs,0,DO)>5*dy/8 ) { - ad=98*ad/100; // melted hi, li, but handwritten h - MSG(fprintf(stderr,"ad=%d",ad);) } - if( num_cross(x0,x0,y0+(dy+3)/8,y1,box1->p,cs) > 1 ) { - ad=98*ad/100; // melted fr - MSG(fprintf(stderr,"ad=%d",ad);) } - - i=loop(bp,dx-1,3*dy/4,dx,cs,0,LE); // melted "fr" for vertikal letters - if (i>dx/4 && loop(bp,dx-1-i,dy-1,dy,cs,1,UP)>dy/2) { - ad=94*ad/100; MSG(fprintf(stderr,"ad=%d",ad);) } - - i=loop(bp,dx-1,1+dy/16,dx,cs,0,LE); if (i<dx/4) { - ad=98*ad/100; - MSG(fprintf(stderr,"ad=%d",ad);) } - if( num_cross(dx-i+1+dx/8,dx-i+1+dx/8,0,1+dy/16,bp,cs) > 0 ) { - ad=95*ad/100; // melted fi - MSG(fprintf(stderr,"ad=%d",ad);) } - if (loop(box1->p,x1,y0+1+dy/16,dx,cs,0,LE)<dx/4) { - ad=98*ad/100; // fi - MSG(fprintf(stderr,"ad=%d",ad);) } - if (loop(box1->p,x1,y0 ,dx,cs,0,LE)<dx/4 - || loop(box1->p,x1,y0+1,dx,cs,0,LE)<dx/4) { - ad=98*ad/100; // li - MSG(fprintf(stderr,"ad=%d",ad);) } - - - if (sdata->holes.num > 0) ad=97*ad/100; - if (box1->m2) { - if ( gchar) ad=98*ad/100; - if (!hchar) ad=97*ad/100; - } else ad=99*ad/100; - Setac(box1,'h',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_H(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,j1,d,x,y,ya,i1,i2,i3,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // --- test H --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='H'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if( num_cross(0,dx-1,dy/4 ,dy/4 ,bp,cs) != 2 - && num_cross(0,dx-1,dy/4-1,dy/4-1,bp,cs) != 2 ) Break; - if( num_cross(0,dx-1,3*dy/4 ,3*dy/4 ,bp,cs) != 2 - && num_cross(0,dx-1,3*dy/4+1,3*dy/4+1,bp,cs) != 2 ) Break; - if( loop(bp,0 ,dy/8,dx,cs,0,RI) - + loop(bp,dx-1,dy/8,dx,cs,0,LE)>dx/2 ) Break; // ~A - for( j1=0,i=1,y=y0+dy/10; y<y1-dy/10 && i; y++ ) // 2 vertikal lines - { j=loop(box1->p,x0 ,y,dx,cs,0,RI) - +loop(box1->p,x1 ,y,dx,cs,0,LE); if( j>dx/2 ) i=0; if(j>j1)j1=j; } - if( !i ) Break; - for( i=1,y=dy/4; y<dy-1-dy/4 && i; y++ ) // max - min width - { j=loop(bp,0 ,y,dx,cs,0,RI) - +loop(bp,dx-1,y,dx,cs,0,LE); if( j1-j>dx/5 ) i=0; } - if( !i ) Break; // ~K Jul00 - for( i=0,ya=y=y0+dy/3; y<y1-dy/3; y++ ) // horizontal line - { j=loop(box1->p,x0 ,y,dx,cs,0,RI); - j=loop(box1->p,x0+j,y,dx,cs,1,RI); if( j>i ) { i=j; ya=y; } } - if( i<=dx/2 ) Break; ya-=y0; - if( num_cross(0,dx-1,ya ,ya ,bp,cs) != 1 - && num_cross(0,dx-1,ya+1,ya+1,bp,cs) != 1 ) Break; /* Dec00 */ - for( y=ya; y<dy-dy/4; y++ ) // ~M Dec00 - if( num_cross(0,dx-1,y ,y ,bp,cs) > 2 - && num_cross(0,dx-1,y+1,y+1,bp,cs) > 2 ) break; - if ( y<dy-dy/4 ) Break; - for(i=1,x=x0+dx/4;x<=x1-dx/4 && i;x++){ - if( get_bw( x, x,y0 ,y0+dy/4,box1->p,cs,1) == 0 ) i=0; - } if( i ) Break; - for(i=1,x=x0+dx/4;x<=x1-dx/4 && i;x++){ - if( get_bw( x, x,y1-dy/4,y1 ,box1->p,cs,1) == 0 ) i=0; - } if( i ) Break; - for(i=1,x=x0+dx/4;x<=x1-dx/4 && i;x++){ - if( num_cross(x,x,y0+dy/8,y1-dy/8, box1->p,cs) == 1 ) i=0; - } if( i ) Break; - for(i=1,y=y0;y<=y0+dy/4 && i;y++){ - if( num_cross(x0,x1,y,y, box1->p,cs) == 2 ) i=0; - } if( i ) Break; - for(i=1,y=y1-dy/4;y<=y1 && i;y++){ - if( num_cross(x0,x1,y,y, box1->p,cs) == 2 ) i=0; - } if( i ) Break; - if( get_bw(x1-dx/8, x1 , y0, y0+dy/8,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0 , x0+dx/8, y1-dy/8, y1,box1->p,cs,1) != 1 ) Break; - i1=loop(bp,dx-1, dy/4,dx,cs,0,LE); if(i1>dx/2) Break; - i2=loop(bp,dx-1, dy/2,dx,cs,0,LE); if(i2<i1-dx/4 || i2>i1+dx/8) Break; - i3=loop(bp,dx-1,dy-1-dy/4,dx,cs,0,LE); if(i3<i2-dx/4 || i3>i2+dx/8) Break; - if(abs(i1+i3-2*i2)>dx/16+1) Break; - // test for thick tall N looking like a H - if( num_cross(x0,x1,y0,y1, box1->p,cs) < 2 ) Break; // sure N - i1=loop(bp, 0, dy/4,dx,cs,0,RI); - i1=loop(bp, i1, dy/4,dx,cs,1,RI); - i2=loop(bp, 0,dy-1-dy/4,dx,cs,0,RI); - i2=loop(bp, i2,dy-1-dy/4,dx,cs,1,RI); - i3=loop(bp,dx-1 ,dy-1-dy/4,dx,cs,0,LE); - i3=loop(bp,dx-1-i3,dy-1-dy/4,dx,cs,1,LE); - i =loop(bp, 0,dy/2+1+dy/8,dx,cs,0,RI); - i+=loop(bp, i,dy/2+1+dy/8,dx,cs,1,RI); - i =loop(bp, i,dy/2+1+dy/8,dx,cs,0,RI); - if (i<dx/2-1 && 5*i1>6*i2 && 5*i3>6*i2 && i1>i2 && i3>i2 ) Break; - if( dx>8 ) - if ( loop(bp,dx-1, 3*dy/8,dx,cs,0,LE) - -loop(bp,dx-1, dy/8,dx,cs,0,LE)>dx/4 - && loop(bp,dx-1, 3*dy/8,dx,cs,0,LE) - -loop(bp,dx-1,dy-1-dy/8,dx,cs,0,LE)>dx/4 ) Break; // ~K - // if( num_hole(x0,x1,y0,y1,box1->p,cs,NULL) != 0 ) Break; - if (sdata->holes.num != 0) Break; - if ( gchar) ad=99*ad/100; - if (!hchar) ad=98*ad/100; - Setac(box1,'H',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_k(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,x,y,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - int (*aa)[4]=sdata->aa; /* corner-points, (x,y,dist^2,vector_idx) */ - - // --- test k --------------------------------------------------- - for(ad=100;dx>2 && dy>3;){ // min 3x4 - // rewritten for vectors 0.43 - int d, i1, i2, i3, i4, i5, i6, i7, i8; // line derivation + corners - DBG( wchar_t c_ask='k'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - /* half distance to the center */ - d=2*sq(128/4); - /* now we check for the upper right end of the h */ - if (aa[3][2]<d/4) Break; /* [2] = distance, ~BCDEF... */ - if (aa[0][2]>d/2) Break; /* upper left end */ - if (aa[1][2]>d/2) Break; /* lower left end */ - if (aa[2][2]>d/2) Break; /* lowerright end */ -/* - type A B=italic ??? - 18 OOO - O O O - O O6 O - O7 OO O OO - O4OO OO OO - O OO O O - O OO O O O - 2O3 O5 O OOO -*/ - i1=i8=aa[0][3]; - i2=i3=aa[1][3]; - i5= aa[2][3]; - // check the bow from below - for (i4=i=i2;i!=i5;i=(i+1)%box1->num_frame_vectors[0]) { - if (box1->frame_vector[ i][1] - <box1->frame_vector[i4][1]) i4=i; // get next maximum - if (box1->frame_vector[ i][1]<=y0) break; // fatal! - } - if (box1->frame_vector[i4][1]-y0<dy/4) Break; // ~MN - if (y1-box1->frame_vector[i4][1]<dy/4) Break; // ~BCDEGIJLOQSUYZ - i6=nearest_frame_vector(box1, i5, i8, x1, (2*y0+y1)/3); - // two steps for i7 to go around pitfalls on italic h - i7=nearest_frame_vector(box1, i6, i8, x0, y1); - i3=nearest_frame_vector(box1, i2, i4, (x0+x1)/2, y1); - i =nearest_frame_vector(box1, i5, i6, x0, (y0+2*y1)/3); - if (x1-box1->frame_vector[i][0]<dy/4) Break; // h - if (x1-box1->frame_vector[i][0]<dy/2) ad=98*ad/100; - - MSG(fprintf(stderr,"i1-7 %d %d %d %d %d %d %d",i1,i2,i3,i4,i5,i6,i7);) - if( num_cross(0, dx-1,0,0,bp,cs) != 1 - && num_cross(0, dx-1,1,1,bp,cs) != 1 ) Break; - if( num_cross(0,3*dx/4, dy/8 , dy/8 ,bp,cs) != 1 - || num_cross(0,3*dx/4,3*dy/16,3*dy/16,bp,cs) != 1 ) Break; - if( num_cross(0,dx-1,dy-1,dy-1,bp,cs) != 2 - && num_cross(0,dx-1,dy-2,dy-2,bp,cs) != 2 ) Break; - if( dx<8 - && num_cross(dx-1,dx-1,dy/4,dy-1,bp,cs) != 2 - && num_cross(dx-2,dx-2,dy/4,dy-1,bp,cs) != 2 ) Break; - i1=loop(bp,0,dy/2-dy/4,dx,cs,0,RI); - i2=loop(bp,0,dy/2 ,dx,cs,0,RI);if(i2>dx/2) Break; - i3=loop(bp,0,dy/2+dy/4,dx,cs,0,RI); - if(abs(i1+i3-2*i2)>dx/16+1 || i1<i3-1) Break; // v-line on left side? - if( get_bw(x0 ,x0+dx/2,y0 ,y0+dy/4,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2,x1, y1-dy/3,y1 ,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1-dx/4,x1, y0 ,y0+3*dy/16,box1->p,cs,1) == 1 ) Break; - if( get_bw(x1-dx/4,x1, y0+dy/4,y1-dy/4,box1->p,cs,1) != 1 ) Break; //~1 - if( get_bw(x1-dx/4,x1, y1-dy/8,y1 ,box1->p,cs,1) != 1 ) Break; - if (sdata->holes.num > 0) - if (sdata->holes.hole[0].y0 > dy/4) Break; - // if( num_hole(x0,x1,y0+dy/4,y1,box1->p,cs,NULL) != 0 ) Break; - for(y=y0+1;y<y0+dy/2;y++) // luecke ??? - if( get_bw(x0,x1,y,y,box1->p,cs,1) == 0 ) break; - if( y<y0+dy/2 ) Break; - for(i=1,x=x0;x<=x0+dx/2 && i;x++) - if(get_line(x,y0 ,x ,y1,box1->p,cs,100)>50) i=0; - if( i ) Break; // no vertikal line! - - /* check for falling line in the lower left corner */ - for (j=x=0,y=5*dy/8;y<7*dy/8;y++) { - i= loop(bp,dx-1,y,dx,cs,0,LE); if(i>x) { x=i;j=y; } - } // x=dx/6 on fat k - if (x + loop(bp,dx-1-x,y,dx,cs,1,LE)/2 <dx/4) Break; - if (x + loop(bp,dx-1-x,y,dx,cs,1,LE)/2 <dx/2) ad=98*ad/100; - x=dx-1-x; y=j; - i =loop(bp,dx-1,dy-1,dx,cs,0,LE); if(i>dx/2) - i =loop(bp,dx-1,dy-2,dx,cs,0,LE); if(i>dx/2) Break; - i+=loop(bp,dx-1-i,dy-1,dx,cs,1,LE)/2; - if( get_line(x,y,dx-1-i,dy-1,bp,cs,100)<60 ) Break; - - for(y=y0+dy/3;y<y1;y++) if( num_cross(x0,x1,y,y,box1->p,cs)==2 ) break; - if( y==y1 ) Break; - if( - // num_hole(x0,x1 ,y0 ,y1 ,box1->p,cs,NULL)>0 // ~A happens! - sdata->holes.num > 0 ) - if (sdata->holes.hole[0].x1>dx-1-dx/4 - || sdata->holes.hole[0].y1>dy-1-dy/4 - || sdata->holes.hole[0].y0< dy/4) Break; - // if ( num_hole(x0,x1-dx/4,y0+dy/4,y1-dy/4,box1->p,cs,NULL)==0 ) Break; - i=loop(bp,0,dy-1,dx,cs,0,RI); - i=loop(bp,i,dy-1,dx,cs,1,RI); if (dx>8 && 4*i>3*dx) Break; // ~glued_tz - i =loop(bp,0,dy/4,dx,cs,0,RI); - if (i>dx/4 - && i+loop(bp,i,dy/4,dx,cs,1,RI)>dx/2 - && loop(bp, 0,0,dx,cs,0,RI)<=dx/4 - && loop(bp,dx-1,0,dx,cs,0,LE)>=dx/2 ) ad=90*ad/100; // divided Q - - if( 2*y0>(box1->m1+box1->m2) ) ad=99*ad/100; - - if ( gchar) ad=98*ad/100; - if (!hchar) ad=98*ad/100; - Setac(box1,'k',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_K(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,i1,i2,d,x,y,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad,ya,xa,yb,xb,yc,xc,yd,xd,ye,xe,yf,xf; /* tmp-vars */ - - // --- test K --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // updated 29 Mar 2000 perfect??? - DBG( wchar_t c_ask='K'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - for(y=dy/8;y<dy-dy/8;y++) - if( !get_bw(0,dx/2,y,y,bp,cs,1) ) break; - if( y<dy-dy/8 ) Break; - for(j=0,i=1,x=x0+dx/4;x<=x1-dx/4 && i;x++){ - y= loop(box1->p,x,y0,y1-y0,cs,0,DO); if (y>3*dy/4) { i=1;break; } - if (dy>15 && j>dy/8){ - j =loop(box1->p,x-1,y0+y-1,x1-x0,cs,0,LE)/2; - y+=loop(box1->p,x-j,y0+y-1,y1-y0,cs,0,DO)-1; - } - if(y>=dy/4) i=0; /* ok, found gap */ - } if( i ) Break; - for(y=0,x=x0+dx/4;x<=x1-dx/4;x++){ // lower h-gap - i=loop(box1->p,x,y1,dy,cs,0,UP); - /* on small chars bypass possible low left serifs */ - if (i>0) { i2=loop(box1->p,x-1,y1-i-1,dy,cs,0,UP); - if (i2>1) i+=i2-1; } - if (i>y) { y=i; i1=x; } - } if( y<=dy/8 ) Break; if (y<dy/4) ad=80*ad/100; - for(i=1,x=x0+dx/3;x<=x1-dx/8 && i;x++){ - if( num_cross(x,x,y0,y1, box1->p,cs) == 2 ) i=0; - } if( i ) Break; - for(i=1,y=y0;y<=y0+dy/4 && i;y++){ - if( num_cross(x0,x1,y,y, box1->p,cs) == 2 ) i=0; - } if( i ) Break; - if( dx<10 ){ - for(i=1,y=y0+dy/3;y<=y1-dy/3 && i;y++){ - if( num_cross(x0,x1,y,y, box1->p,cs) == 1 ) i=0; - } if( i ) Break; - } - for(i=1,y=y1-dy/4;y<=y1 && i;y++){ - if( num_cross(x0,x1,y,y, box1->p,cs) == 2 ) i=0; - } if( i ) Break; - if( get_bw(x1-dx/3,x1,y0,y0+dy/8,box1->p,cs,1) != 1 ) Break; // ~k - if( dy>16 - && loop(bp,0, dy/4,dx,cs,0,RI) - +loop(bp,0,3*dy/4,dx,cs,0,RI) - <2*loop(bp,0, dy/2,dx,cs,0,RI)-2-dx/32 ) Break; // ~X - - i=loop(box1->p,x1,y0+ dy/4,x1-x0+1,cs,0,LE); if(i>dx/2) Break; - j=loop(box1->p,x1,y0+ dy/2,x1-x0+1,cs,0,LE); - x=loop(box1->p,x1,y0+3*dy/8,x1-x0+1,cs,0,LE); if(x>j) j=x; - if(j<=i ) Break; i=j; - j=loop(box1->p,x1,y1-dy/4,x1-x0+1,cs,0,LE); if(j>=i ) Break; - // out_x(box1); // detailed analysis - // - // a d <= that are main points of K - // | / - // b/e - // | \ . - // c f - ya= dy/4;xa=loop(bp,0,ya,dx,cs,0,RI);xa+=loop(bp,xa,ya,dx,cs,1,RI)/2; - yc=dy-dy/4;xc=loop(bp,0,yc,dx,cs,0,RI);xc+=loop(bp,xc,yc,dx,cs,1,RI)/2; - yb=dy/2; xb=dx-1-loop(bp,dx-1,dy/2,dx,cs,0,LE); - for(yd=ye=yf=xe=y=i=0,xf=xd=dx;y<dy/4;y++){ // range 0..1/4 - x =loop(bp,dx-1, y,dx,cs,0,LE); if(x<xd){ xd=x;yd= y; } - x =loop(bp,dx-1,dy-1-y,dx,cs,0,LE); if(x<xf){ xf=x;yf=dy-1-y; } - x =loop(bp,dx-1,dy/2+y,dx,cs,0,LE); if(x>xe){ xe=x;ye=dy/2+y; } - x =loop(bp,dx-1,dy/2-y,dx,cs,0,LE); if(x>xe){ xe=x;ye=dy/2-y; } -#if 0 // removed v0.2.4a2 - x =loop(bp,0 ,dy/2+y,dx,cs,0,RI); // middle left border - x+=loop(bp,x ,dy/2+y,dx,cs,1,RI); // test 2nd cross - x+=loop(bp,x ,dy/2+y,dx,cs,0,RI); if(x<xb){ xb=x;yb=dy/2+y; } -#endif - x =loop(bp,0 ,dy/2-y,dx,cs,0,RI); - x+=loop(bp,x ,dy/2-y,dx,cs,1,RI); // test 2nd cross - x+=loop(bp,x ,dy/2-y,dx,cs,0,RI); if(x<xb){ xb=x;yb=dy/2-y; } - x =dx-1-loop(bp,dx-1,dy/2-y,dx,cs,0,LE); if(x<xb){ xb=x;yb=dy/2-y; } - } - xd=dx-1-xd;xe=dx-1-xe;xf=dx-1-xf; - xb+=loop(bp,xb,yb,dx,cs,1,RI)/4; // detect center of line - xe-=loop(bp,xe,ye,dx,cs,1,LE)/4; - xd-=loop(bp,xd,yd,dx,cs,1,LE)/4; - xf-=loop(bp,xf,yf,dx,cs,1,LE)/4; -#if 0 - MSG( \ - printf("a=%d %d b=%d %d c=%d %d d=%d %d e=%d %d f=%d %d dxdy %d %d",\ - xa,ya,xb,yb,xc,yc,xd,yd,xe,ye,xf,yf,dx,dy);\ - ) -#endif - if( get_line2(xa,ya,xc,yc,bp,cs,100)<95 ) Break; - if( dx>8 ){ // example szaka0103 - if( xe>5*dx/8 || xb>5*dx/8 ) Break; // ~{\it n} - i=loop(bp,xb,yb,xb,cs,1,LE); // thick center? see font22 - if( get_line2(xb,yb,xd,yd,bp,cs,100)<95 ) // right up - if( get_line2(xb-i/2,yb,xd,yd,bp,cs,100)<95 ) Break; - if( get_line2(xe,ye,xf,yf,bp,cs,100)<95 ) Break; // right down - xe+=loop(bp,xe,ye,dx,cs,1,RI); if( xe>=xf ) Break; // ~{\it n} - } else { - if( dy<16 && !hchar ) Break; - if( loop(bp,0,1,dy,cs,1,DO)<=3*dx/4 - && loop(bp,1,1,dy,cs,1,DO)<=3*dx/4 - && loop(bp,2,1,dy,cs,1,DO)<=3*dx/4 ) Break; // ~x - } - if (loop(bp,dx-1,dy-1-dy/4,dx,cs,0,LE)<=dx/8){ - ad=99*ad/100; /* broken B ? */ - if (sdata->holes.num > 0) - if (sdata->holes.hole[0].y1 < dy-1-dy/3) Break; - // if( num_hole(x0,x1,y0,(y0+2*y1)/3,box1->p,cs,NULL)>0) Break; // broken B - } - if(box1->m3 && !hchar) ad=99*ad/100; - if(box1->m3 && gchar) ad=99*ad/100; - // printf(" ok xe=%d",xe); - Setac(box1,'K',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_f(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - (*aa)[4]=sdata->aa, /* the for line ends, (x,y,dist^2,vector_idx) */ - ab[8][4], /* special points (x,y,dist^2,vector_idx) */ - ad; /* tmp-vars */ - /* x=mindist_to_a y=0 "t" - 0>..$$. 0>..$$ 0>..$$ end right bow a--..$$ a--.$7. y>0 "f" - 1>.$..$ 1>.$.. 1>.$$$ start right bow .$7. .$.. - .@... .@.. 2>.@@. start upper end .@.. .@.. - 2>.$... 2>.$.. 3>$$$$ crossing bar .$.. $$$. - 3>$@$$. 3>$@$. $@@$ $@$. .@.. - 4>.$... 4>.$.. 4>.$$. lower end .$.. .$.. - .@... .@.. .@@. .@.. .@.. - .@... .@.. .@@. .@.. .@.. - 5>.$... 5>.$.. 5>.$$. lower start .$.. .$.. - 6>..... 6>$... 6>.... optional left bow - */ - // --- test f like t --------------------------------------------------- - for(ad=d=100;dx>2 && dy>5;){ // sometimes no hchar! - // rewritten for vectors 0.43 - int d, i1, i2, i3, i4, i5, i6, i7, i8, i9; // line derivation + corners - DBG( wchar_t c_ask='f'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - /* half distance to the center */ - d=2*sq(128/4); - /* now we check for the upper right end of the h */ - if (aa[3][2]>d/2) Break; /* [2] = distance, ~BCDEF... */ - if (aa[0][2]>d ) Break; /* upper left end */ -/* - 9 - OOO - O 7 O8 - O6 - 1OOOO5 - O4 - O - 2O3 - OOOOO -*/ - i1=nearest_frame_vector(box1,aa[0][3],aa[1][3],x0-dx/2,(5*y0+3*y1)/8); - /* we need i for 4x6 font, where left side of h-bar is near (x0,y1) */ - i =aa[1][3]; if (box1->frame_vector[i][1]<y1-dy/8) - i =nearest_frame_vector(box1,aa[1][3],aa[2][3], x0, y1+dy/4); - i2=nearest_frame_vector(box1, i1, i, x1, y1); - i =nearest_frame_vector(box1,aa[1][3],aa[2][3], x1, y1+dy/4); - i3=nearest_frame_vector(box1, i,aa[3][3], x0, y1); - i7=nearest_frame_vector(box1, i3,aa[3][3],(x0+x1)/2, y0); - i8=nearest_frame_vector(box1, i7,aa[0][3], x1, (3*y0+y1)/4); - i9=nearest_frame_vector(box1,aa[3][3],aa[0][3],(x0+2*x1)/3,y0-dy/4); - i5=nearest_frame_vector(box1, i3, i7, x1+dx/4, (5*y0+3*y1)/8); - i4=nearest_frame_vector(box1, i3, i5, x0, (3*y0+y1)/4); - i6=nearest_frame_vector(box1, i5, i7, x0, (y0+3*y1)/4); - - MSG(fprintf(stderr,"i1-9 %d %d %d %d %d %d %d %d %d",i1,i2,i3,i4,i5,i6,i7,i8,i9);) - - // check if vertical line is near to the left side - if (box1->frame_vector[i2][0]-x0>dx/2) Break; // ~3 - i =nearest_frame_vector(box1, aa[0][3], i2, x1+2*dx, (y0+y1)/2); - // MSG(fprintf(stderr,"i %d",i);) - if (box1->frame_vector[i ][0] - -box1->frame_vector[i9][0]>dx/8) Break; // ~3 - - if( (box1->dots) ) Break; // Bold-face is gchar - if (dy<=box1->m3-box1->m2+1) Break; - for(x=0,j=y=2+(3*dy+4)/32;y<=5*dy/8;y++){ // upper cross line min=2 - i=loop(bp,0,y,dx,cs,0,RI); if( y>dy/4 && i>5*dx/8 ) break; - i=loop(bp,i,y,dx,cs,1,RI); if( i>x ) { x=i;j=y; } - if( y<3*dy/4 && y>dy/4 - && num_cross(0,dx-1,y ,y ,bp,cs) != 1 - && num_cross(0,dx-1,y+1,y+1,bp,cs) != 1 // against noise - ) break; - } if( y<=5*dy/8 ) Break; y=j;// if( y>dy/2 || y<dy/8 ) Break; - // x is thickest width of vertical line here - i=loop(bp,(dx+1)/2,0,dy,cs,0,DO)/2; - if( i>dy/8 - && num_cross( 0, (dx+1)/2,i,i,bp,cs) > 0 - && num_cross((dx+1)/2,dx-1,i,i,bp,cs) > 0 ) Break; // ~Y - - if (loop(bp,3*dx/4, 0,dy,cs,0,DO)>dy/8 - && loop(bp,3*dx/4-1,0,dy,cs,0,DO)>dy/8) Break; // upper bow - i=3*dy/4; if (box1->m3 && i>=box1->m3) i=box1->m3-1; - if (num_cross(0,dx-1,i,i,bp,cs)!=1) Break; - - // the middle bar appear in a wide vertical range, get part below - for (i1=dx,i2=y,j=y+1;j<dy-dy/4;j++){ - i=loop(bp,0,j,dx,cs,0,RI); - i=loop(bp,i,j,dx,cs,1,RI); // thickness vert. line - if (i<i1) { i1=i; i2=j; if (2*i<=x) break; } - } i=i1; j=i2; /* i=dx, j=y below horiz-bar */ - MSG(fprintf(stderr,"j=%d i=%d y=%d x=%d",j,i,y,x);) - // bar should have twice of the thickness of v-line - if (x<2*i && x<dx) Break; - if (x<i+2+dx/8) ad=97*ad/100; // fat f - - // check for the upper bow to the right top side - i3=nearest_frame_vector(box1,aa[2][3],aa[3][3], x0, y0); - MSG(fprintf(stderr,"xy= %d %d %d %d",x0,y0,\ - box1->frame_vector[i3][0]-x0,box1->frame_vector[i3][1]-y0);) - ab[7][0]=box1->frame_vector[i3][0]; - ab[7][1]=box1->frame_vector[i3][1]; - ab[7][3]=i3; - if (ab[7][1]-y0<=dy/16) ad=95*ad/100; // ~t - // because of the dx,dy scaling the horiz. bar could be nearer to (x1,y0) - // as the upper right end of the "t" - if (aa[3][0]-x0>3*dx/4 && aa[3][1]-y0>3*dy/16) ad=99*ad/100; // ~t - - - j=loop(bp,0,dy/8,dx,cs,0,RI); // if j>dx/2 we have italic f - if ((2*x<dx && j<=dx/2) || 3*x<dx) Break; // bar should be not to small - for(i=dy/8;i<dy;i++) - if (loop(bp,0,i,dx,cs,0,RI)>(j+dx/4)) break; - if (i<dy) Break; // check for v-line - - if( loop(bp,dx-1,dy/2,dx,cs,0,LE)<dx/2 ) - if( loop(bp,dx-1,dy/2,dx,cs,0,LE)-1 - <=loop(bp,dx-1, y ,dx,cs,0,LE) ) - if( loop(bp,dx-1, y-1,dx,cs,0,LE) - <=loop(bp,dx-1, y ,dx,cs,0,LE) ) Break; // ~1 - - if( loop(bp,0,dy/2,dx,cs,0,RI)-1 - >loop(bp,0, 1,dx,cs,0,RI) ) Break; // ~X - - i=y;j=1; // j used as flag - if( num_cross(0,dx-1,0,0,bp,cs)==1 && hchar) //~r - if( num_cross(0,dx-1,dy-1,dy-1,bp,cs)!=1 - && num_cross(0,dx-1,dy-2,dy-2,bp,cs)!=1 ) Break; // ~* etc. - // check for upper bow to right - for(y=1;j && y<i; y++) // no @@ pattern - if( num_cross(0,dx-1,y ,y ,bp,cs) ==2 ) j=0; - if (j==0) { ad=(ad+101)/2; } - for(y=1;j && y<i; y++) // no @@ pattern, try to detect it - for(x=0;j && x<dx ;x++){ // .. - if( (getpixel(bp,x ,y )>=cs || dx<7) && getpixel(bp,x+1,y )>=cs - && getpixel(bp,x ,y-1)< cs && getpixel(bp,x+1,y-1)< cs ) - { j=0;break; } - } if(j) ad=98*ad/100; // not detected - - // if( num_hole (x0 , x1 , y0, y1,box1->p,cs,NULL) != 0 ) Break; // ~e - if (sdata->holes.num != 0) Break; // ~e - for(i1=i2=dx,y=7*dy/8;y<dy;y++){ - x=loop(bp,0 ,y,dx,cs,0,RI);if(x<i1)i1=x; - x=loop(bp,dx-1,y,dx,cs,0,LE);if(x<i2)i2=x; - } - if(i1>i2+dx/4) Break; // ~t ~e - if(i1>i2+1) ad=96*ad/100; // ~t ~e - if( loop(bp,0,3*dy/4,dx,cs,0,RI)<i1-dx/4 ) Break; - if( dx>5 && !hchar) - if( loop(bp,dx-1,dy/2,dx,cs,0,LE)>3*dx/4 ) - if( loop(bp,dx-1,dy-1,dy,cs,0,UP)<dx/2 ) Break; // ~c - if( dx>8 ) - if( loop(bp, 0,2*dy/3 ,dx,cs,0,RI)>2*dx/3 - || loop(bp, 0,2*dy/3-1,dx,cs,0,RI)>2*dx/3 ) - if( loop(bp,dx-1, dy/4 ,dx,cs,0,LE)>2*dx/3 ) Break; // ~5 ~S - - if (!hchar) - if ( get_bw(x0+dx/8,x0+dx/8,y0+dy/4,y1-dy/16,box1->p,cs,2) == 0 - && num_cross(x1-dx/4,x1-dx/4,y0,y1,box1->p,cs)!=2 - && num_cross(x1-dx/8,x1-dx/8,y0,y1,box1->p,cs)!=2 ) Break; // ~r - - if (dy>15) - if( num_cross(x0,x1,y1-dy/4,y1-dy/4,box1->p,cs)>1 - && num_cross(x0,x1,y0+dy/4,y0+dy/4,box1->p,cs)>1 ) Break; // ~H - - if( dx>4 ) - if( loop(bp,dx-1 ,3*dy/4,dx,cs,0,LE)- - loop(bp,0 ,3*dy/4,dx,cs,0,RI)>dx/5+1 - && loop(bp,dx-1-dx/8,dy-1 ,dy,cs,0,UP)<dy/4 ) { - if( loop(bp,dx-1 ,5*dy/16,dx,cs,0,LE)- - loop(bp,0 ,5*dy/16,dx,cs,0,RI)>=dx/5+1) ad=98*ad/100; // ~E - i=loop(bp,dx/8,0,dy,cs,0,DO); - if (i<dy/8 || i>dy/2) { - ad=98*ad/100; // ~E, could also be a "f" with big serifs - MSG(fprintf(stderr,"ad=%d",ad);) } - if (!gchar) { ad=98*ad/100; - MSG(fprintf(stderr,"ad=%d",ad);) } - } - i = loop(bp,dx-1 ,3*dy/4,dx ,cs,0,LE)/2; - if (loop(bp,dx-1-i , dy-1,dy/2,cs,0,UP)<dy/4) - if (loop(bp,0 ,3*dy/4,dx ,cs,0,RI)<dx/4) { - ad=98*ad/100; // ~E but serif-f - MSG(fprintf(stderr,"ad=%d",ad);) } - - if( loop(bp,0,dy/4,dx ,cs,0,RI)>1 - && loop(bp,0, 0,dy/4,cs,0,DO)<dy/4 ) { - ad=95*ad/100; // ~I - MSG(fprintf(stderr,"ad=%d",ad);) } - - if (get_bw(x0+dx/16,x1-dx/16,y0,y0,box1->p,cs,2) == 0) { // white pixels? - ad=98*ad/100; // F - MSG(fprintf(stderr,"ad=%d",ad);) } - - if (!hchar) ad=ad*98/100; // d*=100;d/=128 // not 100% ! - if (box1->m4>0 && gchar && ad<99 && - 8*box1->y1 >= box1->m4*7+box1->m3) ad++; - Setac(box1,'f',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_bB(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,i1,i2,i3,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // --- test B --------------------------------------------------- - for(ad=d=100;dx>2 && dy>4;){ // min 3x4 - DBG( wchar_t c_ask='B'; ) - if (sdata->holes.num < 2) Break; /* tolerant against a tiny hole */ - for(i=1,y=y0;y<y1-dy/2 && i;y++) - if( get_bw(x0,x0+dx/2, y , y ,box1->p,cs,1) != 1 ) i=0; - if( !i ) Break; - for(i=1,y=y1-dy/2;y<y1 && i;y++) - if( get_bw(x0,x0+dx/3, y , y ,box1->p,cs,1) != 1 ) i=0; - if( !i ) Break; - if( get_bw(x1,x1 , y0 , y0 ,box1->p,cs,1) == 1 ) Break; - if( num_cross(x0+dx/2, x0+dx/2,y0,y1 ,box1->p,cs) != 3 ) - if( num_cross(x1-dx/3, x1-dx/3,y0,y1 ,box1->p,cs) != 3 ) Break; - /* --- detect center of lower hole --- */ - y = loop(box1->p,x0+dx/2,y1 ,dy,cs,0,UP); if (y>1+dy/8) Break; - y+= loop(box1->p,x0+dx/2,y1-y,dy,cs,1,UP); if (y>dy/3) Break; - y=y1-y-loop(box1->p,x0+dx/2,y1-y,dy,cs,0,UP)/2; if (y<y0+3*dy/8) Break; - if (y<y0+dy/2) ad=96*ad/100; - if( num_cross(0,dx-1,y-y0 ,y-y0 ,bp,cs) != 2 ) - if( num_cross(0,dx-1,y-y0+1,y-y0+1,bp,cs) != 2 ) Break; - if( num_cross(0,dx-1, dy/4 , dy/4 ,bp,cs) != 2 ) - if( num_cross(0,dx-1, dy/4+1, dy/4+1,bp,cs) != 2 ) - if( num_cross(0,dx-1, dy/4-1, dy/4-1,bp,cs) != 2 ) Break; - for( y=dy/4;y<3*dy/4;y++ ) if( num_cross(0,dx-1,y,y,bp,cs)==1 ) break; - if( y==3*dy/4 ) Break; - - if( loop(box1->p,x0,y0+ y ,dx,cs,0,RI) - > loop(box1->p,x0,y0+dy/4,dx,cs,0,RI)+dx/32 ) - if( get_bw(x0,x0,y0,y0,box1->p,cs,1) == 0 ) - if( get_bw(x0,x0,y1,y1,box1->p,cs,1) == 0 ) Break; // ~8 - i1=loop(box1->p,x0,y0+dy/4,dx,cs,0,RI); - i2=loop(box1->p,x0,y0+dy/2,dx,cs,0,RI); - i =loop(box1->p,x0,y0+dy/2-dy/ 8,dx,cs,0,RI); if(i>i2) i2=i; - i =loop(box1->p,x0,y0+dy/2-dy/16,dx,cs,0,RI); if(i>i2) i2=i; - i3=loop(box1->p,x0,y1-dy/4,dx,cs,0,RI); - if(dy>16 && i3<i2 && i1+i3<2*i2){ - if (i3+i1<2*i2-dx/16) ad=98*ad/100; // ~8 - if (i3+i1<2*i2-dx/8 ) ad=96*ad/100; - if( loop(box1->p,x0,y0+ 1 ,dx,cs,0,RI) - >= loop(box1->p,x0,y0+ 3 ,dx,cs,0,RI)+dx/32 ) - if( loop(box1->p,x0,y0+ 0 ,dx,cs,0,RI) - > loop(box1->p,x0,y0+ 3 ,dx,cs,0,RI)+dx/32 ) - if( loop(box1->p,x0,y1- 0 ,dx,cs,0,RI) - > loop(box1->p,x0,y1- 3 ,dx,cs,0,RI)+dx/32 ) - if( loop(box1->p,x0,y1- 1 ,dx,cs,0,RI) - > loop(box1->p,x0,y1- 3 ,dx,cs,0,RI)+dx/32 ) Break; // ~8 Aug00 - } - - if (sdata->holes.num != 2) Break; - if (sdata->holes.hole[0].y0 < y-1 - && sdata->holes.hole[1].y0 < y-1 ) Break; - if (sdata->holes.hole[0].y1 > y+1 - && sdata->holes.hole[1].y1 > y+1 ) Break; - // if( num_hole(0,dx-1,0 ,y+1 ,bp,cs,NULL) != 1 ) Break; - // if( num_hole(0,dx-1,y-1,dy-1,bp,cs,NULL) != 1 ) Break; - // out_x(box1); - - for( x=dx,y=dy/6; y<dy-dy/8; y++ ) // left border straight - { i=loop(box1->p,x0,y0+y,dx,cs,0,RI); if( i>x+dx/9 ) break; - if(i<x) x=i; - } if( y<dy-dy/8 ) Break; // ~8 bad_a - - for( x=dx,y=1;y<dy/4;y++ ) // right border straight - { i=loop(bp,dx-1,dy-y,dx,cs,0,LE); - if( i<x ) x=i; else if( i>x )break; - } if( y<dy/4 ) Break; // ~ff (serifen?) - - x=loop(bp,0,dy/2 ,dx,cs,0,RI); - i=loop(bp,0,dy/2-1,dx,cs,0,RI); if (i>x) x=i; // allow dust - i=loop(bp,0,dy/2+1,dx,cs,0,RI); if (i>x) x=i; - if ( loop(bp,0, dy/8,dx,cs,0,RI) - +loop(bp,0,7*dy/8,dx,cs,0,RI) > 2*x+1 ) Break; // not konvex! - - if(!hchar){ // ~ fat_a - ad=99*ad/100; - x =loop(bp,0,dy/4,dx,cs,0,RI); - if(loop(bp,0,dy/2,dx,cs,0,RI)>x+dx/8) ad=97*ad/100; - } - - if ( (!hchar) && (dx<=10 || dy<=10) ) ad=97*ad/100; // hchar or good_quality - if (gchar) ad=99*ad/100; - Setac(box1,'B',ad); - break; - } - // --- test b --------------------------------------------------- - for(ad=d=100;dx>3 && dy>4;){ // min 3x4 - DBG( wchar_t c_ask='b'; ) - if (sdata->holes.num < 1) Break; /* tolerant against a tiny hole */ - for(y=y0;y<y1;y++) - if( get_bw(x0 , x0+dx/2, y , y ,box1->p,cs,1) != 1 ) Break; - if(y<y1-dy/32-1) Break; - if( get_bw(x0+ dx/2, x0+dx/2, y1-dy/3, y1 ,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1- dx/2, x1 , y1-dy/3, y1-dy/3,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1- dx/3, x1 , y0 , y0+dy/5,box1->p,cs,1) == 1 ) Break; - if( get_bw(x1-4*dx/9, x1 , y0+dy/5, y0+dy/5,box1->p,cs,1) == 1 ) Break; - if( num_cross(x0,x1,y0+dy/4 ,y0+dy/4 ,box1->p,cs) > 1 ) // & - if( num_cross(x0,x1,y0+dy/4-1,y0+dy/4-1,box1->p,cs) > 1 ) - if( dy<16 || - num_cross(x0,x1,y0+dy/5 ,y0+dy/5 ,box1->p,cs) > 1 ) Break; // fat b - for(i=j=0,y=dy/2;y<dy-dy/8;y++) - if( num_cross(0,dx-1,y,y,bp,cs) == 2 ) i++; else j++; - if( i<2*j ) Break; // v024a4 - if (sdata->holes.num != 1) Break; - if (sdata->holes.hole[0].y0 < dy/4) Break; - if ((sdata->holes.hole[0].y1-sdata->holes.hole[0].y0+1) - *(sdata->holes.hole[0].x1-sdata->holes.hole[0].x0+1)*16 - < dx*dy) ad=90*ad/100; // hole to small - if( num_hole( x0, x1 , y0+dy/4, y1,box1->p,cs,NULL) != 1 ) Break; - i=loop(bp,dx-1,dy-1 ,dx,cs,0,LE); - j=loop(bp,dx-1,dy-1-dy/8,dx,cs,0,LE); if(j>i) Break; - if (!hchar) ad=99*ad/100; - if ( gchar) ad=99*ad/100; - Setac(box1,'b',ad); - if (ad>=100) return 'b'; - break; - } - return box1->c; -} - -static wchar_t ocr0_dD(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,d,x,y,ya,yb,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // --- test D --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='D'; ) - if (sdata->holes.num < 1) Break; /* tolerant against a tiny hole */ - if( get_bw(x0 ,x0+dx/3,y0+dy/2,y0+dy/2,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1-dx/3,x1 ,y0+dy/2,y0+dy/2,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1 ,x1 ,y0 ,y0+dy/16,box1->p,cs,1) == 1 ) Break; - if( get_bw(x1-dx/2,x1 ,y0+dy/4,y0+dy/4 ,box1->p,cs,1) != 1 ) Break; - if( num_cross(x0+dx/2,x0+dx/2,y0 ,y1 ,box1->p,cs) != 2 ) - if( num_cross(x1-dx/3,x1-dx/3,y0 ,y1 ,box1->p,cs) != 2 ) Break; - if( num_cross(x0 ,x1 ,y0+dy/3,y0+dy/3,box1->p,cs) != 2 ) Break; - if( num_cross(x0 ,x1 ,y1-dy/3,y1-dy/3,box1->p,cs) != 2 ) Break; - if (sdata->holes.num != 1) Break; - if (sdata->holes.hole[0].y0 > dy/3) Break; - if (sdata->holes.hole[0].y1 < dy-1-dy/3) Break; - // if( num_hole (x0 ,x1 ,y0 ,y1 ,box1->p,cs,NULL) != 1 ) Break; - // test if left edge is straight - for(x=0,y=bp->y-1-dy/8;y>=dy/5;y--){ - i=loop(bp,0,y,x1-x0,cs,0,RI); - if( i+2+dx/16<=x ) break; - if( i>x ) x=i; - } - if (y>=dy/5 ) Break; - /* test if right edge is falling */ - for(x=dx,y=0;y<dy/3;y++){ - i=loop(bp,bp->x-1,y,x1-x0,cs,0,LE); - if( i>x+dx/16 ) break; - if( i<x ) x=i; - } - if (y<dy/3 ) Break; - /* test if right edge is raising */ - for(x=dx,y=bp->y-1;y>2*dy/3;y--){ - i=loop(bp,bp->x-1,y,x1-x0,cs,0,LE); - if( i>x+dx/16 ) break; - if( i<x ) x=i; - } - if (y>2*dy/3 ) Break; - if( loop(bp,dx-1,dy-1 ,dx,cs,0,LE) <= - loop(bp,dx-1,dy-2-dy/16,dx,cs,0,LE) ) Break; // P - - y=loop(bp,dx/2,dy-1,dy,cs,0,UP)-1; if (dy>16) y/=2; - if ( y>=dy/16 ) { y-=dy/16; - if (get_bw(dx/2,dx-1,dy-1-y,dy-1-y,bp,cs,1)==1) Break; // ~A - } - - ya=loop(bp, 0,dy-1,dy,cs,0,UP); - yb=loop(bp,dx/16+1,dy-1,dy,cs,0,UP); - if( ya<dy/2 && ya>dy/16 && ya>yb ) Break; // ~O - - if ( loop(bp, dx/2, 0,dy,cs,0,DO) - -loop(bp, dx/2,dy-1,dy,cs,0,UP) > dy/8 ) ad=97*ad/100; // ~b - - - - if (loop(bp, 0, 0,dx,cs,0,RI)>=dx/2 - && loop(bp,dx-1,dy-1,dx,cs,0,LE)>=dx/2 - && loop(bp, 0,dy/2,dx,cs,0,RI)< 2 ) ad=96*ad/100; // thin O - - if(box1->dots) ad=ad*94/100; - if ( gchar) ad=99*ad/100; - if (!hchar) ad=99*ad/100; - Setac(box1,'D',ad); - break; - } - // --- test d --------------------------------------------------- - for(d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='d'; ) - ad=100; - if (sdata->holes.num < 1) Break; /* tolerant against a tiny hole */ - if( get_bw(x0 , x0+dx/2, y1-dy/6, y1-dy/9,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0 , x0+dx/2, y1-dy/3, y1-dy/3,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2, x1 , y1-dy/3, y1-dy/3,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1-dx/4, x1 , y0+dy/8, y0+dy/8,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2, x0+dx/2, y1-dy/4, y1 ,box1->p,cs,1) != 1 ) Break; - if(dy>19) - if( get_bw(x0 , x0+dx/3, y0 , y0+dy/5,box1->p,cs,1) == 1 ) Break; - if( get_bw(x0 , x0+dx/3, y0 , y0+dy/6,box1->p,cs,1) == 1 ) Break; - if( get_bw(x0 , x0+dx/4, y1-dy/8, y1 ,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2-1,x0+dx/2,y1-dy/8, y1 ,box1->p,cs,1) != 1 ) Break; // ~"A - if( loop(bp,bp->x-1, bp->y/4,x1-x0,cs,0,LE) > - loop(bp,bp->x-1,3*bp->y/4,x1-x0,cs,0,LE)+1 ) Break; - for(i=dx/8+1,x=0;x<dx && i;x++){ - if( num_cross(x ,x ,0 ,dy-1, bp,cs) == 2 ) i--; - } if( i ) Break; - for(i=dy/6+1,y=dy/4;y<dy && i;y++){ - if( num_cross(0 ,dx-1,y ,y , bp,cs) == 2 ) i--; - if( num_cross(0 ,dx-1,y ,y , bp,cs) > 3 ) i++; // ~al - } if( i ) ad=98*ad/100; - for(i=dy/8+1,y=0;y<dy/2 && i;y++){ - if( num_cross(0 ,dx-1,y ,y , bp,cs) == 1 ) - if( num_cross(dx/2,dx-1,y ,y , bp,cs) == 1 ) i--; - } if( i ) Break; - if (sdata->holes.num<1) Break; - if (sdata->holes.num>1) { - if (dx<6) Break; ad=95*ad/100; } // glued j above 8 (4x6 sample) - MSG(fprintf(stderr,"hole[0].y0,y1= %d %d",sdata->holes.hole[0].y0,sdata->holes.hole[0].y1);); - if ( sdata->holes.hole[0].y0 < dy/4 ) Break; - if (dy-sdata->holes.hole[0].y1 > dy/4+1) Break; // glued et - // if( num_hole(x0 , x1 , y0+dy/4 , y1 ,box1->p,cs,NULL) !=1 ) Break; - if( num_cross(0 ,dx-1,dy-1-dy/4,dy-1-dy/4,bp,cs) != 2 ) { // glued al - if (dy>15) { Break; } else ad=96*ad/100; - } - if (!hchar) ad=98*ad/100; - if ( gchar) ad=99*ad/100; - Setac(box1,'d',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_F(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // --- test F --------------------------------------------------- - for(ad=d=100;dx>2 && dy>4;){ // dx>1 dy>2*dx - DBG( wchar_t c_ask='F'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if( get_bw(x0+dx/2,x0+dx/2,y0,y0+dy/8,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0,x0+dx/4,y1-dy/4,y1-dy/4,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0,x0+dx/2,y0+dy/4,y0+dy/4,box1->p,cs,1) != 1 ) Break; - - for (x=0,y=0;y<dy/4;y++) { - j=loop(bp,dx-1,dy-1-y,dx,cs,0,LE); if(j<3 || 3*j<dx) break; // ~f Jun00 - if (j>x) x=j; - } if (y<dy/4 || x<dx/2) Break; - - for( i=1,y=0; y<dy/4 && i; y++ ){ // long black line - j=loop(bp,0,y,dx,cs,0,RI); - j=loop(bp,j,y,dx,cs,1,RI); if( j>dx/2 ) i=0; } - if( i ) Break; - - x=loop(bp,0,dy-1-dy/4,dx,cs,0,RI); - x=loop(bp,x,dy-1-dy/4,dx,cs,1,RI); // strichdicke - for( i=1,y=dy/3; y<dy-1-dy/3 && i; y++ ) // black line - { j=loop(bp,0,y,dx,cs,0,RI); - j=loop(bp,j,y,dx,cs,1,RI); if( j>dx/3 && ((j>2*x && dx>8) || j>x+1)) i=0; } - if( i ) Break; - - y=dy/8; if (y<1) y=1; - for( i=1; y<dy-1-dy/2; y++ ){ // search horizontal white gap - x =loop(bp,dx-1,y,dx,cs,0,LE); if(x<2) continue; // skip serifs - j =loop(bp,dx-x,y,dy/4,cs,0,UP); - x+=loop(bp,dx-x,y-j+1,dx,cs,0,LE); if (x>=dx/3) { i=0; break; } - } - if( i ) Break; - - // check for vertical line on left side - for(i=1,y=1;y<=dy/2 && i;y++) - if( get_bw(0,dx/2,y,y,bp,cs,1) != 1 ) i=0; - if( !i ) Break; - - for(i=1,y=dy/2;y<dy && i;y++) - if( get_bw(0,dx/3,y,y,bp,cs,1) != 1 ) i=0; - if( !i ) Break; - - i=loop(bp,dx-1,dy-1,dx,cs,0,LE); // serif or E ? - if (i<=dx/3) { - if (loop(bp,dx-1,(dy+4)/8,dx,cs,0,LE)>dx/8 // no serif - || loop(bp, 0, dy-3,dx,cs,0,RI)<1) break; - ad=99*ad/100; - } - if( get_bw(dx-1-dx/4,dx-1,dy-1-dy/4,dy-1,bp,cs,1) == 1 ) Break; // ~E - if( get_bw(dx-1 ,dx-1,0 ,dy/3,bp,cs,1) != 1 ) Break; - - if( loop(bp,0, bp->y/4,dx,cs,0,RI) < - loop(bp,0,3*bp->y/4,dx,cs,0,RI)-1 ) Break; - // if( num_hole(x0 , x1 , y0 , y1 ,box1->p,cs,NULL) >0 ) Break; - if (sdata->holes.num > 0) Break; - for(i=0,x=dx/4;x<dx-1;x++) - if( num_cross(x,x,0,dy-2,bp,cs) == 2 ) i++; - if ( i<1 ) Break; // 0.2.4a4 - - if(dy<20) /* special case of small fi, not very elegant */ - if( get_bw( 1, 1,1,1,bp,cs,1) == 1 - && get_bw( 0, 0,2,2,bp,cs,1) == 1 - && get_bw(dx-2,dx-1,0,0,bp,cs,1) == 0 - && get_bw( 0, 1,0,0,bp,cs,1) == 0 - && get_bw( 0, 0,0,1,bp,cs,1) == 0 ) Break; - - // check for screen font f - i= loop(bp,0,3*bp->y/4,dx,cs,0,RI)-1; - if (i>=0 && loop(bp,dy-1,i,dy,cs,0,UP)<=3*dy/4 ) ad=ad*98/100; - - // check for screen font P - i= loop(bp,bp->x-1,bp->y/4,dx,cs,0,LE); - if (i<1) { - j=i+loop(bp,bp->x-1-i,bp->y/4, dx ,cs,1,LE); - j= loop(bp,bp->x-1-j,bp->y/4,3*dy/4,cs,0,DO); - if (j<=dy/2) { - i=loop(bp,bp->x-1,0,dx,cs,0,LE); - ad=ad*98/100; - if (i>dx/8) Break; - if (i) ad=98*ad/100; - } - } - - if (!hchar) if ((box1->m2-box1->y0)*8>=dy) { // ignore bad m1..4 - if ( num_cross(2*dx/3,2*dx/3,0,dy-1,bp,cs) < 2 ) ad=90*ad/100; // ~r - } - if (gchar) ad=99*ad/100; - Setac(box1,'F',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_uU(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - wchar_t bc=UNKNOWN; - - // --- test uU --------------------------------------------------- - // in Mitte so breit wie oben (bei V kontinuierlich schmaler) - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='u'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - for(y=y0+dy/4;y<y1-dy/4;y++) /* also handwritten u */ - if( num_cross(x0,x1,y,y,box1->p,cs) < 2 ) break; - if( y<y1-dy/4 ) Break; - if( get_bw(dx/2,dx/2,dy/2,dy-1,bp,cs,1)==0 ) Break; - if( get_bw(dx/2,dx-1,dy/2,dy/2,bp,cs,1)==0 ) Break; - for(i=0,x=3*dx/8;x<dx-dx/4;x++){ - y=loop(bp,x,0,dy,cs,0,DO); if(y>i)i=y; if(y<i && i>1) break; - } if( i<dy/4 ) Break; x--; - if( get_bw(0,x ,i-1,i-1,bp,cs,1)==0 ) Break; - if( get_bw(x,dx-1,i-1,i-1,bp,cs,1)==0 ) Break; - - for(i=dy/8+2,y=dy/8;y<dy-(dy+2)/4 && i;y++){ // 12%+1 Fehler - j=num_cross(0,dx/2-((y>dy/2)?dx/8:0),y,y,bp,cs); - if( y<dy/2 && num_cross(dx/2,dx-1,y,y,bp,cs)>1 ) i--; // ~{\it v} - if( y<dy/2 && (j<1 && j>2) ) { i--; ad=90*ad/100; } - if( y>dy/2 && j!=1 ) { i--; ad=95*ad/100; } - } if( !i ) Break; - for(i=dy/16+1,y=dy/8;y<dy-dy/4 && i;y++){ // 12%+1 Fehler - j=num_cross(dx-dx/2,dx-1,y,y,bp,cs); - if( y>dy/2 && (j<1 && j>2) ) i--; - if( y<dy/2 && j!=1 ) i--; - } if( !i ) Break; - for(i=1,x=x0+dx/3;x<=x1-dx/3 && i;x++){ - if( get_bw( x, x, y0, y0+dy/3,box1->p,cs,1) != 1 ) i=0; - } if( i ) Break; - for(i=dx/4+1,x=x0+dx/3;x<=x1-dx/3 && i;x++){ - if( get_bw( x, x,y0+dy/3,y1-dy/3,box1->p,cs,3) != 2 ) i--; - } if( !i ) Break; - for(i=1,x=x0+dx/3;x<=x1-dx/3 && i;x++){ - if( get_bw( x, x,y1-dy/2,y1,box1->p,cs,3) == 2 ) i=0; - if( get_bw( x, x,y1-dy/3,y1,box1->p,cs,3) == 2 ) ad=98*ad/100; - } if( !i ) Break; - if( num_cross(0 ,dx/2, dy/4, dy/4,bp,cs)==2 - && num_cross(dx-dx/2,dx-1,dy-dy/4,dy-dy/4,bp,cs)==1 ) Break; // ~{\it v} - - i=loop(bp,0,dy-1-dy/16,dx,cs,0,RI); - j=loop(bp,0,dy-1-dy/8 ,dx,cs,0,RI); - if( i<j ) Break; // ~ll v0.2.4a3 - if(dy>15) - if( loop(bp,dx-1,dy/16,dx,cs,0,LE) - > loop(bp,dx-1,dy/8 ,dx,cs,0,LE)+1+dx/32 ) Break; // ~bad 0 (thinn) - if( hchar && dy>7) - if( loop(bp, 0, dy-1,dx,cs,1,RI)==dx - && loop(bp,dx-1,3*dy/4,dx,cs,0,LE)>dx/16 - && loop(bp, 0,3*dy/4,dx,cs,0,RI)>dx/16 - && loop(bp,dx-1, dy/2,dx,cs,0,LE)>dx/16 - && loop(bp, 0, dy/2,dx,cs,0,RI)>dx/16 - ) Break; // melted ll - - i=loop(bp, 0,dy-2-dy/8,dx,cs,0,RI); - j=loop(bp,dx-1,dy-2-dy/8,dx,cs,0,LE); - if ( i>dx/4 && j>dx/4 && i+j>=dx/2) Break; // v - if (i+j>=dx/2) ad=97*ad/100; - - if ( num_cross(0,dx-1,dy/2,dy/2,bp,cs)!=2 ) ad=96*ad/100; // w - if ( loop(bp,dx/2,dy-1,dy,cs,0,UP)>0 ) ad=98*ad/100; // w - - if (ad==100) ad=99; // ToDo: only if lines.wt<100 - bc='u'; - if (gchar) ad=98*ad/100; - if (hchar) bc='U'; - if (box1->dots>0) ad=99*ad/100; - Setac(box1,bc,ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_micro(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,i2,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // --- test \mu µ MICRO_SIGN -------------------------------------- - // in Mitte so breit wie oben (bei V kontinuierlich schmaler) - if( gchar && !hchar ) - for(ad=d=100;dx>2 && dy>4;){ // min 3x4 - DBG( wchar_t c_ask='u'; ) - if (sdata->holes.num > 1) break; /* tolerant against a tiny hole */ - for(y=y0+dy/8;y<box1->m3-dy/4;y++) - if( num_cross(x0,x1,y,y,box1->p,cs) < 2 ) break; - if( y<box1->m3-dy/4 ) break; - if( get_bw(dx/2,dx/2,3*dy/8,7*dy/8,bp,cs,1)==0 ) break; - if( get_bw(dx/2,dx-1,3*dy/8,7*dy/8,bp,cs,1)==0 ) break; - for(y=dy/2;y<dy;y++){ - x=loop(bp,dx-1,y,dx,cs,0,LE); if(8*x>5*dx) break; - } if( y>=dy || 2*y>box1->m3+box1->m4) break; i2=y; - for(i=0,x=2*dx/8;x<dx-1-dx/4;x++){ - y=loop(bp,x,0,dy,cs,0,DO); if(y>i)i=y; if(y<i && i>1) break; - } if( i<dy/4 ) break; x--; - if( get_bw(0,x ,i-1,i-1,bp,cs,1)==0 ) break; - if( get_bw(x,dx-1,i-1,i-1,bp,cs,1)==0 ) break; - for(i=dy/16+1,y=dy/8;y<dy-(box1->m4-box1->m3)-dy/4 && i;y++){ // 12%+1 Fehler - j=num_cross(0,dx/2,y,y,bp,cs); - if( y<dy/2 && num_cross(dx/2,dx-1,y,y,bp,cs)>1 ) i--; // ~{\it v} - if( y<dy/2 && (j<1 && j>2) ) i--; - if( y>dy/2 && j!=1 ) i--; - } if( !i ) break; - for(i=dy/16+1,y=dy/8;y<dy-(box1->m4-box1->m3)-dy/4 && i;y++){ // 12%+1 Fehler - j=num_cross(dx-dx/2,dx-1,y,y,bp,cs); - if( y>dy/2 && (j<1 && j>2) ) i--; - if( y<dy/2 && j!=1 ) i--; - } if( !i ) break; - for(i=1,x=x0+dx/3;x<=x1-dx/3 && i;x++){ - if( get_bw( x, x, y0, y0+dy/4,box1->p,cs,1) != 1 ) i=0; - } if( i ) break; - for(i=dx/4+1,x=x0+dx/3;x<=x1-dx/3 && i;x++){ - if( get_bw( x, x,y0+dy/4,y1-dy/2,box1->p,cs,3) != 2 ) i--; - } if( !i ) break; - if( num_cross(0 ,dx/2, dy/4, dy/4,bp,cs)!=1 ) break; - if( num_cross(dx-dx/2,dx-1,dy-dy/2,dy-dy/2,bp,cs)!=1 ) break; - if( get_bw( (dx+2)/4,dx-1,dy-2-3*dy/16,dy-1,bp,cs,1) == 1 ) break; - if( num_cross(0,dx/4,dy-1,dy-1,bp,cs)!=1 ) break; - - Setac(box1,MICRO_SIGN,ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_vV(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,i1,i2,i3,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - wchar_t bc=UNKNOWN; - - // --- test v ------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='v'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - x=loop(bp,dx/2,0,dx,cs,1,RI)+dx/2; // be sure in the upper gap - y=loop(bp, x,0,(dy+1)/2,cs,0,DO)-1; // (x,y) should be in the gap - if (x>3*dx/4 || y<dy/4) Break; - if( get_bw(x0,x0+x,y0+y,y0+y,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+x,x1,y0+y,y0+y,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+x,x0+x,y1-dy/2,y1, box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+x, x0+x ,y0, y0+dy/3,box1->p,cs,1) == 1 ) // it v? - if( get_bw(x0+x+1,x0+x+1,y0, y0+dy/3,box1->p,cs,1) == 1 ) Break; - - // UVW - if(((num_cross( 0,dx/2+1,dy/ 8,dy/ 8,bp,cs)!=1) - && (num_cross( 0,dx/2+1,dy/16,dy/16,bp,cs)!=1) // it v - && (num_cross(dx/2+1,dx -1,dy/ 8,dy/ 8,bp,cs)!=1)) /* () added on Sep00 */ - || ((num_cross( 0,dx-1,dy-1-dy/8,dy-1-dy/8,bp,cs)> 1) - && (num_cross( 0,dx-1,dy-1 ,dy-1 ,bp,cs)> 1)) ) Break; - // UV - if( get_bw(0 ,dx/8,dy-1-dy/6,dy-1,bp,cs,1)==1 ) Break; - if( get_bw(dx-1-dx/8,dx-1,dy-1-dy/6,dy-1,bp,cs,1)==1 ) Break; - if( loop(bp,0 ,dy/6 ,dx,cs,0,RI) - >=loop(bp,0 ,dy-1-dy/3,dx,cs,0,RI) && dy>6 ) Break; - if( loop(bp,0 ,dy-1-dy/3,dx,cs,0,RI) - >loop(bp,0 ,dy-1-dy/8,dx,cs,0,RI) - && loop(bp,dx-1,dy-1-dy/3,dx,cs,0,LE) - >loop(bp,dx-1,dy-1-dy/8,dx,cs,0,LE) ) Break; // better OR ? - if( loop(bp,0 ,dy-1-dy/3,dx,cs,0,RI) - >=loop(bp,0 ,dy-1-dy/8,dx,cs,0,RI) - && loop(bp,dx-1,dy-1-dy/3,dx,cs,0,LE) - >=loop(bp,dx-1,dy-1-dy/8,dx,cs,0,LE) ) ad=99*ad/100; // font21 - if( loop(bp,dx-1,dy/6 ,dx,cs,0,LE) - >=loop(bp,dx-1,dy-1-dy/3,dx,cs,0,LE) && dy>6 ) Break; - x=loop(bp,0,dy-1,dx,cs,0,RI); // 3*x>dx changed to 2*x>dx May2001 JS - x=loop(bp,x,dy-1,dx,cs,1,RI); if ( dx>14 && 2*x>dx ) Break; // U - if( num_cross(0 ,dx/2, dy/4, dy/4,bp,cs)==2 - && num_cross(dx-dx/2,dx-1,dy-dy/4,dy-dy/4,bp,cs)==2 ) Break; // ~{\it u} - -#if 0 - // measure thickness of lower v - i=loop(bp, 0,dy-1-dy/16,dx,cs,0,RI) - +loop(bp,dx-1,dy-1-dy/16,dx,cs,0,LE); - j=loop(bp, 0,dy-1-dy/4 ,dx,cs,0,RI) - +loop(bp,dx-1,dy-1-dy/4 ,dx,cs,0,LE); - if( box1->m1 && hchar && dy>15 && j>=i-dx/32 ) Break; // ~Y -#endif - /* V has serifs only on upper site! Y also on bottom, check it. Okt00 */ - i=loop(bp, 0, 0,dx,cs,0,RI); - i=loop(bp, i, 0,dx,cs,1,RI); i1=i; // thickness - i=loop(bp, 0, 1,dx,cs,0,RI); - i=loop(bp, i, 1,dx,cs,1,RI); if(i>i1) i1=i; // thiggest - i=loop(bp, 0,dy/4,dx,cs,0,RI); - i=loop(bp, i,dy/4,dx,cs,1,RI); i2=i; - i=loop(bp, 0,dy ,dx,cs,0,RI); - i=loop(bp, i,dy ,dx,cs,1,RI); i3=i; // thickness - i=loop(bp, 0,dy-1,dx,cs,0,RI); - i=loop(bp, i,dy-1,dx,cs,1,RI); if(i>i3) i3=i; // thiggest - if( y0 < box1->m2 ) - if( i1-i2 > dx/32+2 - && i3-i2 > dx/32+2 ) Break; // ~serif_Y - - if( y0 < box1->m2 ) // uppercase V ? - if( i1-i2 < dx/32+2 ) /* no serif detected */ - if( num_cross(0,dx-1,dy-1-dy/4,dy-1-dy/4,bp,cs)==1 ){ - j=loop(bp, 0,dy-1-dy/4 ,dx,cs,0,RI); - j=loop(bp, j,dy-1-dy/4 ,dx,cs,1,RI); - if (j<i2+1) Break; // ~Y - if (j<=i2+1) ad=99*ad/100; // ~Y - } - - ad=99*ad/100; // be carefull (remove later) - - if( loop(bp,0 ,dy-1-dy/4,dx,cs,0,RI) - >loop(bp,0 ,dy-1 ,dx,cs,0,RI) ) ad=96*ad/100; - - if (gchar) ad=99*ad/100; - bc='v'; - if( hchar ) bc='V'; - Setac(box1, bc, ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_rR(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,i1,i2,i3,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // --- test r ------- - for(ad=d=100;dy>3 && dx>1;){ // dy>dx, 4x6 font, dx=2 smallest prop-font - DBG( wchar_t c_ask='r'; ) - if (sdata->holes.num > 0 - && ( sdata->holes.hole[0].y1 > dy/2 // tiny hole in upper left - || sdata->holes.hole[0].x1 > dx/2 ) // is tolerated, ~Pp - ) Break; /* tolerant against a tiny hole */ - if( 2*dy<box1->m3-box1->m1) Break; - - if( loop(bp,dx-1,dy/2,dx,cs,0,LE)<=dx/8 ) Break; - x= loop(bp,dx-1,dy/2,dx,cs,0,LE); if (x<=dx/2) ad=99*ad/100; // ~t - if (loop(bp,dx-1-x/2,0,dy,cs,0,DO)>dy/8) ad=99*ad/100; // ~t - if( dx>4 ) - if( loop(bp,dx-1,dy/2,dx,cs,0,LE)<=dx/8+2 ) Break; // ~v Jun00 - - i=dy-(dy+20)/32; // ignore dust on the ground - - for( y=4*dy/8; y<i; y++ ){ // center down v-line - if( y<dy-2*dy/8 && num_cross(0,dx-1,y,y,bp,cs) !=1 ) break; - i1= loop(bp,0 ,y,dx,cs,0,RI); if(i1>3*dx/8) break; - i2= loop(bp,dx-1,y,dx,cs,0,LE); if(i1>i2) break; - if( (i1+(dx-i2 - -1))/2 >= 4*dx/8 ) break; // mass middle should be left - } - if (y<i) Break; - - for( x=4*dx/8; x<dx-dx/8; x++ ){ // right upper h-line - if( get_bw(x,x,0,(dy+2)/4,bp,cs,1) !=1 ) break; } - if (x<dx-dx/8) Break; - - if( loop(bp,dx-1,dy-1-dy/4,dx,cs,0,LE)>5*dx/8 // not a C - && get_bw(dx-1-dx/8,dx-1,dy-1-dy/4,dy-1,bp,cs,1) ==1 ) Break; - - if( loop(bp, 0,5*dy/8,dx,cs,0,RI)<=dx/8 - && loop(bp,dx-1,5*dy/8,dx,cs,0,LE)>=5*dy/8 - && loop(bp,dx/2, dy-1,dy,cs,0,UP)<=dy/8 ) Break; // ~c - - if( loop(bp, 0,3*dy/8,dx,cs,0,RI) - > loop(bp,dx-1,3*dy/8,dx,cs,0,LE)+dx/8 ) { - if( loop(bp, 0, dy/8,dx,cs,0,RI)<dx/8 ) Break; // ~z (broken) - ad=98*ad/100; - } - - if( loop(bp,0,dy/3,dx,cs,0,RI)>3*dx/4 ) Break; // ~i - if( loop(bp,0,dy/4,dx,cs,0,RI)>3*dx/8 // ~I - && get_bw(0,dx/8,0,dy/4,bp,cs,1) ==1 ) Break; - if( num_cross(0,dx-1,dy/2, dy/2 ,bp,cs)!=1 - && num_cross(0,dx-1,dy/2+1,dy/2+1,bp,cs)!=1 ) Break; // ~n 024a3 - - // itallic t is sometimes not high enough, look for v-like shape - for(y=3*dy/4;y<dy-1;y++) - if( num_cross(0,dx-1,y, y ,bp,cs)==2 - && num_cross(0,dx-1,y+1+dy/32,y+1+dy/32,bp,cs)==2 ) break; // ~t - if(y<dy-1) Break; - if (loop(bp,dx-1-dx/4,dy-1,dx,cs,0,UP)<dy/4) ad=98*ad/100; // ~f (serif) - if( num_cross(dx-1,dx-1,0,3*dy/4,bp,cs)>1 ) ad=95*ad/100; // ~f - if( num_cross(dx/2 ,dx/2 ,0,dy-1,bp,cs)>2 - && num_cross(dx/2+1,dx/2+1,0,dy-1,bp,cs)>2 ) Break; // ~f - - if (box1->dots) ad=98*ad/100; /* could be modified latin2-r */ - if (hchar) ad=96*ad/100; - if (gchar) ad=97*ad/100; - Setac(box1,'r',ad); - break; // not 100% sure! - } - // --- test R --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='R'; ) - if (sdata->holes.num > 2) Break; /* tolerant against a tiny hole */ - if( num_cross(x0,x1,y1-dy/8,y1-dy/8, box1->p,cs) < 2 ) Break; // ~P - if (loop(bp, dx/2, dy/4,dy,cs,0,DO)>dy/2) Break; // ~C - if (loop(bp, dx/2, 0,dy,cs,0,DO)>dy/8 - && loop(bp, dx/2,dy/16,dx,cs,0,RI)<dx/2 - && dy>=16 ) Break; - for(i=1,y=y0+dy/8;y<=y1-dy/8 && i;y++){ // left v-line - if( get_bw(x0 , x0+dx/2,y, y,box1->p,cs,1) != 1 ) i=0; - } if( !i ) Break; - for(i=1,x=x0+3*dx/8;x<=x1-dx/4 && i;x++){ // upper h-line - if( get_bw( x, x, y0, y0+dy/4,box1->p,cs,1) != 1 ) i=0; - } if( !i ) Break; - for(y=0,x=x0+dx/4;x<=x1-dx/4;x++){ // lower h-gap - i=loop(box1->p,x,y1,dy,cs,0,UP); - /* on small chars bypass possible low left serifs */ - if (i>0) { i2=loop(box1->p,x-1,y1-i-1,dy,cs,0,UP); - if (i2>1) i+=i2-1; } - if (i>y) { y=i; i1=x; } - } if( y<=dy/8 ) Break; if (y<dy/4) ad=80*ad/100; - for(i=1,x=x0+dx/3;x<=x1-dx/8 && i;x++){ // vert crossed 2 ??? - if( num_cross(x,x,y0,y1, box1->p,cs) == 2 ) i=0; - } if( i ) Break; - for(i=1,y=y0;y<=y0+3*dy/8 && i;y++){ // upper 2 vert lines - if( num_cross(x0,x1,y,y, box1->p,cs) == 2 ) i=0; - } if( i ) Break; - for(i=1,y=y0+dy/3;y<=y1-dy/3 && i;y++){ // midle h line - if( num_cross(x0,x1,y,y, box1->p,cs) == 1 ) i=0; - } if( i ) ad=95*ad/100; /* sometimes there is a small gap */ - for(i=1,y=y1-dy/4;y<=y1 && i;y++){ // lower 2 vert lies - if( num_cross(x0,x1,y,y, box1->p,cs) == 2 ) i=0; - } if( i ) Break; - if( get_bw(x1-dx/3,x1,y0,y0+dy/4,box1->p,cs,1) != 1 ) Break; // pixel ru - x=loop(bp,dx-1, dy/4,dx,cs,0,LE); if(x>dx/2) Break; i=x; // ru - x=loop(bp,dx-1, dy/2,dx,cs,0,LE); if(x<=i ) Break; i=x; // rc - x=loop(bp,dx-1, 5*dy/8,dx,cs,0,LE); if(x>i ) i=x; - x=loop(bp,dx-1, 6*dy/8,dx,cs,0,LE); if(x>i ) i=x; - x=loop(bp,dx-1,dy-1-dy/8,dx,cs,0,LE); if(x>=i ) Break; // rd - - i1=loop(bp,0, dy/4,dx,cs,0,RI); // straight - i2=loop(bp,0, dy/2,dx,cs,0,RI); - i3=loop(bp,0,dy-1-dy/4,dx,cs,0,RI); if( abs(i1+i3-2*i2)>1+dx/16 ) Break; - if (dy>15) - if (loop(bp,dx-1, dy/2,dx,cs,0,LE)>=loop(bp,dx-1, dy-1,dx,cs,0,LE) - && loop(bp,dx-1,3*dy/16,dx,cs,0,LE)>=loop(bp,dx-1,dy/16,dx,cs,0,LE)+dx/8 ) Break; // ~ff - if (dy>7) - if (loop(bp,dx-1,dy-2 ,dx,cs,0,LE) - >loop(bp,dx-1,dy-2-dy/8,dx,cs,0,LE)) { - ad=98*ad/100; - if (loop(bp,dx-1,dy-1-dy/4,dx,cs,0,LE)==0 - && loop(bp,dx-1,dy-2-dy/8,dx,cs,0,LE)>0 ) Break; // broken B ?? - } - j=sdata->holes.num; - if (j != 1) { - i=num_hole (x0,x1,y0,y1-dy/3,box1->p,cs,NULL); - // j=num_hole (x0,x1,y0,y1 ,box1->p,cs,NULL); - if (i==0) ad=90*ad/100; /* some times there is a small gap */ - if (j>1 || j>i) Break; - } - if (sdata->holes.num < 1) ad=90*ad/100; - if (sdata->holes.num==1) - if (sdata->holes.hole[0].y1 > 3*dy/4) ad=95*ad/100; // alpha - - if (!hchar) ad=98*ad/100; - if ( gchar) ad=98*ad/100; - Setac(box1,'R',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_m(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,d,x,y,i1,i2,i3,i4,i5,hchar=sdata->hchar,gchar=sdata->gchar, - handwritten=0, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // --- test m ------- - for(ad=d=100;dx>4 && dy>3;){ - DBG( wchar_t c_ask='m'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if (sdata->holes.num > 0) ad=96*ad/100; - x =loop(bp,dx-1,dy/2,dx,cs,0,LE); if(3*x>dx) Break; // ~K - y=dy/2; - i=num_cross(0,dx-1,y ,y ,bp,cs); if (i!=3) - i=num_cross(0,dx-1,y+1,y+1,bp,cs); - if (i<3 && i>5) Break; // m ru rn, handwritten m - // im or glued.mm cut to nm - if (i>3) { ad=99*ad/100; MSG(fprintf(stderr,"ad=%d",ad);) } - for (i=0,y=dy-1-dy/8;y>dy/2;y--) { - i=num_cross(0,dx-1,y,y,bp,cs); if (i>2) break; - } if (i>3) Break; - for ( ;y>dy/2;y--) { - i=num_cross(0,dx-1,y,y,bp,cs); if (i!=3) break; - } if (i>5) Break; y++; i5=y; - if (y> dy/2) handwritten=10; - if (y>3*dy/4) handwritten=60; - /* @@............... - @@......,........ - @@,...@@@....@@@. - @@,,.@@@@..@@@@@, - @@@.@@@@@.@@@@@@, - @@;@@@@@@@@@;,@@, - @@@@@,.@@@@,,,@@@ <- i5 - ,@@@...;@@....@@@ - .@;...........,@@ - ...............@@ - i1 i2 i3 i4 - */ - x =loop(bp,0,y,dx ,cs,0,RI); if(x> dx/4) Break; // search 1st v-line - x+=loop(bp,x,y,dx-x,cs,1,RI); if(x> dx/2) Break; i1=x; // first gap - x+=loop(bp,x,y,dx-x,cs,0,RI); if(x>3*dx/4) Break; i2=x; // 2nd v-line - x+=loop(bp,x,y,dx-x,cs,1,RI); if(x>6*dx/8) Break; i3=x; // 2nd gap - x+=loop(bp,x,y,dx-x,cs,0,RI); if(x<5*dx/8) Break; i4=x; // 3th v-line - if (x>=dx) Break; // missing 3th v-line, ~W - MSG(fprintf(stderr,"y=%d x=%d %d %d %d",y,i1,i2,i3,i4);) - if( abs((i2-i1)-(i4-i3)) > 2+((i2-i1)+(i4-i3))/4 ) Break; // same gap width? rn - if( abs((i2-i1)-(i4-i3)) > 2+((i2-i1)+(i4-i3))/8 ) ad=98*ad/100; // same gap width? rn - // the same game for the lower part =>l1 l2 l3 l4 ??? - i =loop(bp,0,5*dy/8,dx,cs,0,RI); - i =loop(bp,i,5*dy/8,dx,cs,1,RI); - x =loop(bp,0,dy-dy/32-1,dx,cs,0,RI); - x =loop(bp,x,dy-dy/32-1,dx,cs,1,RI); - if( x > i+1 ) i=1; else i=0; /* looks like serif m, Okt00 */ - for(y=0,x=i1;x<i2;x++) { - i=loop(bp,x,dy-1,dy,cs,0,UP); if (i>y) y=i; - } - if(y<dy/4 || y<y1-y0-i5-1-dy/16) Break; // no gap detected - for(y=0,x=i3;x<i4;x++) { - i=loop(bp,x,dy-1,dy,cs,0,UP); if (i>y) y=i; - } - if(y<dy/4) Break; // no gap detected - for(x=i1;x<i4;x++) if( loop(bp,x,0,dy,cs,0,DO)>=dy/2 ) break; - if(x<i4 && handwritten<10) Break; // gap detected - // glued rn as m ??? hmm seems a ballance act - if(i2-i1>i4-i3+dx/16){ - for(y=0,x=(i1+i2)/2;x<i2;x++){ - i=loop(bp,x,0,dy,cs,0,DO); - i=loop(bp,x,i,dy,cs,1,DO); // measure thickness - if( i>y ) y=i; if( 2*i<y ) Break; - } - if(x <i2) Break; // unusual property for m (see n) - } - if(gchar) ad=99*ad/100; - if(hchar) ad=99*ad/100; - - if( loop(bp,dx-1,dy/16,dx,cs,0,LE)<2 - && loop(bp,dx-1,dy/4 ,dx,cs,0,LE)>3 ) Break; // melted WT - - x=loop(bp,dx-1,dy/2,dx,cs,0,LE); - if (x>2 && loop(bp,dx-1-x/2,0,dy,cs,0,DO)<dy/2) Break; // melt toc - if (loop(bp,(i3+i4)/2,0,dy,cs,0,DO)>dy/2) Break; // N - - // {\it m} - if( loop(bp,1, dy/4,dx,cs,0,RI) - >loop(bp,0,7*dy/8,dx,cs,0,RI) ) - Setac(box1,'m',98*ad/100); - - if (handwritten<10){ - x =loop(bp,0,dy/4,dx,cs,0,RI); - x+=loop(bp,x,dy/4,dx,cs,1,RI); - for( ;x<i4;x++){ // x=i1 ? - i=loop(bp,x,0,dy,cs,0,DO); - if (i>=dy/4) ad=99*ad/100; - if (i>(dy+2)/4) ad=95*ad/100; - if (3*i>dy) Break; - } - if(x<i4) Break; // gap detected - } - - if (box1->dots) ad=99*ad/100; - Setac(box1,'m',ad); - if (ad>=100) return 'm'; - break; - - } - return box1->c; -} - -static wchar_t ocr0_tT(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,i1,i2,i3,i4,j,d,x,y,yb,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // --- test T --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // dx>1 dy>2*dx - DBG( wchar_t c_ask='T'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - // upper horizontal line - i1= loop (bp, dx/8,0,dy,cs,0,DO); // left side - i2= loop (bp,dx-1-dx/8,0,dy,cs,0,DO); // right side - i3= loop (bp, dx/8,i1,dy,cs,1,DO); // left side - i4= loop (bp,dx-1-dx/8,i2,dy,cs,1,DO); // right side - if (i1>dy/4 || i2>dy/4) Break; - for (x=dx/8;x<dx-1-dx/8;x++) { - i= loop (bp,x,0,dy,cs,0,DO); - if (i>i1+dy/8 && i>i2+dy/8) break; - if (i<i1-dy/8 && i<i2-dy/8) break; - } if (x<dx-1-dx/8) Break; - if( get_bw( 0,dx-1, dy/2, dy/2,bp,cs,1) != 1 ) Break; - if( get_bw( 0,(dx-1)/8, dy/2,dy-1-dy/8,bp,cs,1) == 1 ) Break; - if( get_bw( 0,3*dx/16, dy/2,dy-1-dy/4,bp,cs,1) == 1 ) Break; - if( get_bw(dx-1-dx/4,dx-1, dy/2,dy-1-dy/4,bp,cs,1) == 1 ) Break; - // center width - for( y=dy/4;y<3*dy/4;y++){ // oberer Balken? - i=dx/4+loop(bp,dx/4,y,dx,cs,0,RI); // left side of vertical line - j= loop(bp, i,y,dx,cs,1,RI); // width of vertical line - if (3*j>dx+1 || i+j>=dx || i+j/2<dx/2-1) break; // ~r?7 - } if (y<3*dy/4) Break; // Jan07 - // down width - for( y=3*dy/4;y<dy;y++){ - i= loop(bp,dx/4,y,dx,cs,0,RI); - i= loop(bp, i,y,dx,cs,1,RI);if(4*i>3*x) break; //~I - } if( y<dy ) Break; - - i =dx/4+loop(bp,dx/4,dy/4,dx,cs,0,RI);if(i>3*dx/4) Break; // ~7 - i+= loop(bp,i ,dy/4,dx,cs,1,RI);if(i>3*dx/4) Break; - - if( num_cross(0,dx-1, dy-1, dy-1,bp,cs) != 1 - && num_cross(0,dx-1, dy-2, dy-2,bp,cs) != 1 ) Break; - if( num_cross(0,dx-1,2*dy/3,2*dy/3,bp,cs) != 1 - && num_cross(0,dx-1,2*dy/3,2*dy/3,bp,cs) != 1 ) Break; - if (box1->m3 && 2*y1>box1->m3+box1->m4 - && loop(bp,0, 0,dy/2,cs,0,DO)>=dy/4 - && loop(bp,0,dy-1,dy ,cs,0,UP)<=dy/2) ad=96*ad/100; // ~J - if (gchar) ad=98*ad/100; - if( loop(bp,0,dy-1,dx,cs,0,RI)<=dx/8) ad=99*ad/100; // ~J - i = loop(bp,0,dy/2,dx,cs,0,RI); - j = loop(bp,i,dy/2,dx,cs,1,RI); - if( 2*i>=dx || 2*(dx-j-i)<i) ad=95*ad/100; // ~J - - Setac(box1,'T',ad); - if (ad>=100) return 'T'; - break; - } - // --- test t --------------------------------------------------- - // written t can look like a + or even with missing right side - // smallest t found in win-screenshot (prop-font) dx=2 - for(ad=d=100;dx>1 && dy>=box1->m3-box1->m2-1;){ // sometimes no hchar! - DBG( wchar_t c_ask='t'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if (dy<=box1->m3-box1->m2+1) ad=96*ad/100; // bad line detection? - for(x=0,yb=j=y=dy/32+3*dy/16;y<5*dy/8;y++)if(y>0){ // upper cross line - i=loop(bp,0,y,dx,cs,0,RI); - i=loop(bp,i,y,dx,cs,1,RI); if( i>x ) { x=i;yb=j=y; } // hor. line - i=num_cross(0,dx-1,y ,y ,bp,cs); - j=num_cross(0,dx-1,y+1,y+1,bp,cs); if (i>2 && j>2) break; - if( y<11*dy/16 - && num_cross(0,dx-1,y ,y ,bp,cs) != 1 - && ( num_cross(0,dx-1,y+dy/8,y+dy/8,bp,cs) != 1 || dy<13) // against noise - ) break; - } if( y<4*dy/8 ) Break; - if (dy>12 && x>4 && x>dx/2 && yb<=(dy+4)/8) - if ( loop(bp,dx-1-3*x/4,yb,dy,cs,1,UP) - <=loop(bp,dx-1-1*x/4,yb,dy,cs,1,UP)+1 ) - if ( loop(bp,0 ,dy/2,dy,cs,1,UP)>dx/8 ) Break; // ~C - - if (x<dx/2) ad=95*ad/100; // unusual small ? - if (x>=dx && 9*dx>=8*dy) { ad=99*ad/100; } // + - - i=loop(bp,dx-1,0,dx,cs,0,LE); - for(y=0;y<dy/4;y++){ - if( num_cross(0,dx-1,y ,y ,bp,cs) == 2 - && num_cross(0,dx-1,y+1,y+1,bp,cs) == 2 ) break; - j=loop(bp,dx-1,y,dx,cs,0,LE); if(j-i>1) break; i=j; - } - if( y<dy/4 ) Break; // ~f - - i=loop(bp,dx-1,yb,dx,cs,0,LE); - for(y=dy/8;y<yb;y++) - if( loop(bp,dx-1,y,dx,cs,0,LE)>i ) break; - if( y==yb ) break; - - j=loop(bp,0, dy/2,dx,cs,0,RI); - j=loop(bp,j, dy/2,dx,cs,1,RI); i=j; // thickness - j=loop(bp,0, dy/4,dx,cs,0,RI); - j=loop(bp,j, dy/4,dx,cs,1,RI); if (j<i) i=j; // thickness - j=loop(bp,0,3*dy/4,dx,cs,0,RI); - j=loop(bp,j,3*dy/4,dx,cs,1,RI); if (j<i) i=j; // thickness - if( 2*x<3*i ) Break; - - if( loop(bp,dx-1,dy/2,dx,cs,0,LE)-dx/8 - <=loop(bp,dx-1, yb ,dx,cs,0,LE) ) - if( loop(bp,dx-1, yb ,dx,cs,0,LE)-dx/8 - >=loop(bp,dx-1,yb/2,dx,cs,0,LE) ) Break; // ~1 ??? - - j=1; - for(y=1;j && y<yb; y++) // no @@ pattern - for(x=0;j && x<dx-2;x++){ // .. - if( getpixel(bp,x ,y )>=cs && getpixel(bp,x+1,y )>=cs - && getpixel(bp,x ,y-1)< cs && getpixel(bp,x+1,y-1)< cs ) { j=0;break; } - } if(!j) Break; - - if( num_cross(0,dx-1,dy-2,dy-2,bp,cs) == 2 - && num_cross(0,dx-1,dy-1,dy-1,bp,cs) == 2 ) Break; // ~* (5er) - - if( dy>= 16 - && loop(bp, 0, 3*dy/4,dx,cs,0,RI) - >=loop(bp, 0, dy-2,dx,cs,0,RI) - && loop(bp,dx-1, 3*dy/4,dx,cs,0,LE) - <=loop(bp,dx-1, dy-2,dx,cs,0,LE) - && loop(bp,dx-1, 1,dx,cs,0,LE)+dx/16 - <loop(bp,dx-1,3*dy/16,dx,cs,0,LE) - && ( loop(bp, 0, 1,dx,cs,0,RI) - >loop(bp, 0,3*dy/16,dx,cs,0,RI)+dx/16 - || loop(bp,dx-1, 0,dx,cs,0,LE)==0 - || loop(bp,dx-1, 1,dx,cs,0,LE)==0) ) ad=96*ad/100; // ~f Jan02 - if(dx<8 && dy>12){ // thin f's could easily confound with t - x=loop(bp,dx-1,3*dy/16,dx,cs,0,LE); - if (x) - if (loop(bp,dx-x,0,dy,cs,0,DO)<3*dy/16 - && loop(bp, 0, 3*dy/4,dx,cs,0,RI)+1 - >=loop(bp, 0, dy-2,dx,cs,0,RI) - && loop(bp,dx-1, 3*dy/4,dx,cs,0,LE) - <=loop(bp,dx-1, dy-2,dx,cs,0,LE) ) Break; - } - if (dx>7) - if( num_cross( 0,dx-1,2*dy/3,2*dy/3,bp,cs) > 1 - && num_cross( 0,dx/2,2*dy/3,2*dy/3,bp,cs) > 0 - && num_cross(dx/2,dx-1,2*dy/3,2*dy/3,bp,cs) > 0 ) - if (sdata->holes.num > 0) - if (sdata->holes.hole[0].y0 > dy/4) Break; // ~6 - // if ( num_hole( x0, x1, y0+dy/4, y1, box1->p,cs,NULL) > 0 ) Break; // ~6 - - if( num_cross(0,dx-1,3*dy/4, 3*dy/4, bp,cs) >= 2 - && num_cross(0,dx-1,3*dy/4-1,3*dy/4-1,bp,cs) >= 2 ){ - ad=99*ad/100; /* italic t ? */ - if (loop(bp,dx/2 ,dy-1,dy,cs,0,UP)>dy/4) Break; // ~h - if (loop(bp,dx/2+1,dy-1,dy,cs,0,UP)>dy/4) Break; // ~h - } - - x= loop(bp,dx-1,dy/2,dx,cs,0,LE); - i= loop(bp,dx-1,dy/8,dx,cs,0,LE); - if (i>x && loop(bp,dx-x,0,dy,cs,0,DO)>=dy/2) ad=90*ad/100; /* ~\ */ - - x= loop(bp,0, 0,dx,cs,0,RI); - i= loop(bp,0, 1,dx,cs,0,RI); if (i<x) x=i; - i= loop(bp,0,dy/4,dx,cs,0,RI); - if (i-x>1) Break; // l - - // this happens quite often, do not be to strong - if (!box1->m2) ad=99*ad/100; - if (box1->m2) { - if (!hchar) ad=99*ad/100; /* some times t is not long enough */ - if( y0>=box1->m2-(box1->m2-box1->m1)/4 ) ad=99*ad/100; /* to short */ - if( y0>=box1->m2 ) ad=99*ad/100; /* to short */ - } - - if (sdata->holes.num > 0) ad=95*ad/100; - if (gchar) ad=99*ad/100; - if (box1->dots) ad=90*ad/100; - Setac(box1,'t',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_sS(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int d,x,y,i1,i2,i3,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - wchar_t ac; - - // --- test sS near 5 --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 (4x6 font) - DBG( wchar_t c_ask='s'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if( num_cross( dx/2, dx/2,0,dy-1,bp,cs)!=3 - && num_cross(5*dx/8,3*dx/8,0,dy-1,bp,cs)!=3 - && dy>4 ) Break; - if( num_cross(0,dx-1,dy/2 ,dy/2 ,bp,cs)!=1 - && num_cross(0,dx-1,dy/2-1,dy/2-1,bp,cs)!=1 ) Break; - // get the upper and lower hole koords - y=dy/4; - x =loop(bp,0,y,dx,cs,0,RI); if(x>3*dx/8) Break; /* slanted too */ - x +=loop(bp,x,y,dx,cs,1,RI); if(x>5*dx/8) Break; /* fat too */ - i1 =loop(bp,x,y,dx,cs,0,RI); i1=(i1+2*x)/2; // upper center x - y=11*dy/16; - x =loop(bp,dx-1 ,y,dx,cs,0,LE); if(x>dx/4) Break; - x +=loop(bp,dx-1-x,y,dx,cs,1,LE); if(dx>5 && dy>7 && x>dx/2) Break; - if (x>3*dx/4) Break; if(x>dx/2) { ad=98*ad/100; MSG({})} - i2 =loop(bp,dx-1-x,y,dx,cs,0,LE); i2=dx-1-(i2+2*x)/2; // upper center x - for( y=dy/4;y<dy/2;y++ ) // Mai00 ~3 - if( get_bw(0,i1,y,y,bp,cs,1) != 1 ) break; - if( y<dy/2 ) Break; - y=dy/2-loop(bp,dx-1,dy/2,dy/2,cs,1,UP); -// if( !joined(bp,i1,dy/4,dx-1,y,cs) ){ - // break; // sometimes thick small fonts have no gap -// } - for(y=dy/4;y<dy/2;y++){ - x=loop(bp,dx-1,y,dx,cs,0,LE);if(x>dx/8) break; - } - if(y==dy/2) Break; // Mai00 - - y=dy/2+loop(bp,0,dy/2,dy/2,cs,1,DO); - if( !joined(bp,0,y,i2,11*dy/16,cs) ) Break; - - if (sdata->holes.num > 0) - if (sdata->holes.hole[0].y0 > dy/4) Break; // ??? - // if( num_hole( x0, x1, y0+dy/4, y1, box1->p,cs,NULL) > 0 ) Break; - - i1=loop(bp,dx-1,dy-1,dx,cs,0,LE); - i2=loop(bp,dx-1,dy-2,dx,cs,0,LE); - if (i2-i1 >= dx/4) Break; // ~{ 5x7font - - i1=loop(bp, 0, 0,dx,cs,0,RI); - i2=loop(bp, 0, 1,dx,cs,0,RI); - if (i2-i1 >= dx/4) Break; // ~} 5x7font - - // sS5 \sl z left upper v-bow ? - - i1=loop(bp, 0,dy/2,dx,cs,0,RI); - i1=loop(bp, i1,dy/2,dx,cs,1,RI); - if (4*i1>=3*dx) ad=97*ad/100; // ~5 7-segment - - i1=loop(bp,0, dy/16,dx,cs,0,RI); - i2=loop(bp,0,4*dy/16,dx,cs,0,RI); - i3=loop(bp,0,7*dy/16,dx,cs,0,RI); - if( 2*i2+dx/32 >= i1+i3 ){ - if( 2*i2+dx/32 > i1+i3 || dx>9 ) Break; - // very small s? - i1+=loop(bp,i1, dy/16,dx,cs,1,RI); - i2+=loop(bp,i2,4*dy/16,dx,cs,1,RI); - i3+=loop(bp,i3,7*dy/16,dx,cs,1,RI); - if( 2*i2+dx/32 >= i1+i3 ) Break; - } - - for(y=7*dy/16;y<5*dy/8;y++){ - if( num_cross( 0,dx-1,y ,y ,bp,cs)==2 ) - if( num_cross( 0,dx-1,y+1,y+1,bp,cs)==1 ) - if( num_cross( 0,dx/4,y,y,bp,cs)==1 ) break; // ~5 - } if(y<5*dy/8) Break; // v0.2.4a5 - if ( loop(bp, dx-1,dy-2-dy/32,dx,cs,0,LE) - > loop(bp, 0, 1+dy/32,dx,cs,0,RI) + dx/4 ) Break; // ~5 Dec00 - ac='s'; - if (gchar) { ad=98*ad/100; MSG({}) } - if( hchar ){ // S but 5 is very similar! check it - ac='S'; - if ( loop(bp, dx-1,dy-1-dy/32,dx,cs,0,LE) - > loop(bp, 0, 0+dy/32,dx,cs,0,RI) ) ad=99*ad/100; // ~5 - if ( loop(bp, 0,dy-1-dy/32,dx,cs,0,RI) - > loop(bp, dx-1, 0+dy/32,dx,cs,0,LE) ) ad=99*ad/100; // ~5 - } - Setac(box1,ac,ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_gG(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,i1,i2,i3,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // --- test g --------------------------------------------------- - /* some g's have crotchet at upper right end, so hchar can be set */ - // ~italic g - for(ad=d=100;dx>2 && dy>4;){ // min 3x5 - DBG( wchar_t c_ask='g'; ) - if (sdata->holes.num > 3) Break; /* tolerant against a tiny hole */ - if( get_bw(x0+dx/2, x0+dx/2, y1-dy/2, y1,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1-dx/4, x1 , y1-dy/4, y1,box1->p,cs,1) != 1 ) Break; // ~p - if( get_bw(x0+dx/2, x0+dx/2, y0, y0+dy/2,box1->p,cs,1) != 1 ) Break; - - if( num_cross(x0+dx/2, x0+dx/2, y0, y1, box1->p,cs) < 3 ) - if( num_cross(x1-dx/2, x1-dx/2, y0, y1, box1->p,cs) < 3 ) Break; - if (sdata->holes.num < 1) Break; - for (i=0;i<sdata->holes.num;i++){ - if (sdata->holes.hole[i].y1 < 5*dy/8+1) break; - } if (i==sdata->holes.num) Break; // no upper hole found - // if( num_hole ( x0, x1, y0, y0+5*dy/8, box1->p,cs,NULL) != 1 ) Break; - for(y=dy/4;y<dy;y++) if( num_cross(0,dx-1,y,y,bp,cs)==2 ) break; - if( y==dy ) Break; // ~q - if( get_bw(0,dx/2,7*dy/8,7*dy/8,bp,cs,1) != 1 ) Break; // ~q - y =loop(bp,dx/16,0,dy,cs,0,DO); if(y<=dy/8) - y+=loop(bp,dx/16,y,dy,cs,1,DO); if(16*y>=15*dy) Break; // ~B - - if (num_cross(x1, x1, (y0+y1)/2, y1, box1->p,cs)>1) { - ad=98*ad/100; // ~& - if (num_cross(x1 , x1 , y0, (y0+y1)/2, box1->p,cs)<1 ) ad=96*ad/100; - if (num_cross(x1-1, x1-1, y0, (y0+y1)/2, box1->p,cs)<1 ) ad=95*ad/100; - } - // looking for a gap - for (x=0,y=dy/4;y<dy-dy/4;y++){ - i=loop(bp,dx-1,y,dy,cs,0,LE); if (i>x) x=i; - } // in a good font x is greater dx/2 - - if (x<dx/2) { // bad font? or % - if( num_cross(x0,x1 ,y0+dy/4,y0+dy/4,box1->p,cs) > 2 - || num_cross(x0,x1 ,y0+dy/8,y0+dy/8,box1->p,cs) > 2) ad=90*ad/100; - if( num_cross(x0,x1+dx/4,y1-dy/4,y1-dy/4,box1->p,cs) > 2 - || num_cross(x0,x1+dx/4,y1-dy/8,y1-dy/8,box1->p,cs) > 2) ad=90*ad/100; - } - if( num_cross(0,dx-1,dy/2,dy/2,bp,cs) >2 ) ad=99*ad/100; // ~/o - - /* test for horizontal symmetry ~8 */ - for (y=0;y<dy;y++) for (x=0;x<dx/2;x++) - if ((getpixel(bp,x,y)<cs)!=(getpixel(bp,dx-1-x,y)<cs)) { y=dy+1; break; } - if (y==dy) Break; /* ~8 */ - - if (box1->m4==0) ad=98*ad/100; - if ( hchar) ad=96*ad/100; - if (!gchar) ad=96*ad/100; - ad=98*ad/100; - Setac(box1,'g',ad); - break; - } - // --- test rundes G --------------------------------------------- - for(ad=d=100;dx>3 && dy>4;){ // min 3x4 - DBG( wchar_t c_ask='G'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if( get_bw(x0 ,x0+dx/2,y0+dy/3,y0+dy/3,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2,x1-dx/4,y0 ,y0+dy/4,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2,x0+dx/2,y1-dy/4,y1 ,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0 ,x0+dx/2,y1-dy/3,y1-dy/3,box1->p,cs,1) != 1 ) Break; // ~S - for( y=y0+dy/4;y<y1-dy/3;y++ ) - if( get_bw(x1-dx/2,x1,y,y,box1->p,cs,1) == 0 ) break; - if( y==y1-dy/3 ) Break; // no gap - - if( num_cross(x0+dx/2 , x0+dx/2 , y0, y, box1->p,cs) != 1 - || num_cross(x0+dx/2+1, x0+dx/2+1, y0, y, box1->p,cs) != 1 ) Break; // ~e - - x=x0; y=y1; - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,UP,ST); // left bow? - if( y<y0+dy/4 ) Break; // filter W - - x=x1; y=y1-dy/3; // upper right offen bow - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,LE,ST); - if( x<x1-3*dx/8 ) Break; - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,ST,LE); - if( x<x0+dx/2 ){ // not sure, try again (not best) - x=x1; y=y1-dy/4; - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,LE,ST); - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,ST,LE); - if( x<x0+dx/2 ) Break; - } - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,RI,UP); // upper end right midle - if( x<=x1 ) Break; - if( y<y0+3*dy/8 ) Break; - if( y>y1-dy/4 ) Break; - - x=x1-dx/3;y=y1; // follow left C-bow, filter S - turmite(box1->p,&x,&y,x0,x1,y0+dy/4,y1,cs,LE,UP); // w=LE b=UP - if( y>y0+dy/4+1 ) Break; /* leave box below for S or on top for CG */ - MSG(fprintf(stderr,"xy= %d %d",x-x0,y-y0);) - /* if (y<y0) y++; else x++; */ /* enter the box again */ - turmite(box1->p,&x,&y,x0,x1,y0 ,y1,cs,RI,UP); - MSG(fprintf(stderr,"xy= %d %d",x-x0,y-y0);) - if( y>y0 ) Break; - if (sdata->holes.num > 0) Break; - // if( num_hole(x0,x1,y0,y1,box1->p,cs,NULL) > 0 ) Break; - if( dx>4 && dy>6){ // no (<[ - for(i=1,y=0;i && y<dy/3;y++) - if( num_cross(0,dx-1,y,y,bp,cs) == 2 ) i=0; - if( i ) ad=98*ad/100; - for(i=1,y=0;i && y<dy/3;y++) - if( num_cross(0,dx-1,dy-1-y,dy-1-y,bp,cs) == 2 ) i=0; - if( i ) Break; - } - for(i=1,y=dy/2;i && y<dy;y++) - if( num_cross(0,dx-1,y,y,bp,cs) == 2 ) i=0; - if( i ) Break; - for(i=0,y=3*dy/4;y<dy;y++){ - x=loop(bp,0,y,dx,cs,0,RI); // Kante abfallend <=> Z - if( x<i-dx/20 ) break; - if( x>i ) i=x; - } if( y<dy ) Break; - - // only check the middle! - for(i=0,i1=y=dy/4;y<dy-dy/4;y++){ // look for horizontal line - x=loop(bp,dx-1 ,y,dx/4,cs,0,LE); - x=loop(bp,dx-1-x,y,dx/2,cs,1,LE); if(x>i){ i=x;i1=y; } - } if( i1<=dy/4 || i1>=dy-dy/4 ) Break; // around the middle ? - // check from above for gap and left vertical line (~S) - x =loop(bp,0,i1,dx ,cs,0,RI); - x+=loop(bp,x,i1,dx-x,cs,1,RI); // left vertical bow - x+=loop(bp,x,i1,dx-x,cs,0,RI); if (x>=dx) ad=90*ad/100; - MSG(fprintf(stderr,"h-bar y dx %d %d ad= %d",i1,i,ad);) - - i=1; // Mar06: adapted to 4x6 font - for(x=dx/2;x<dx-1 && i;x++) // look for @@ (instead +1 use +delta?) - for(y=dy/2;y<dy-1 && i;y++){ // .@ - if( getpixel(bp,x ,y )>=cs - && getpixel(bp,x+1,y )< cs - && getpixel(bp,x+1,y-1)< cs - && getpixel(bp,x ,y-1)< cs ) { i=0;break; } - } - if(i) ad=95*ad/100; // ~C - if(!hchar) ad=98*ad/100; - if( gchar) ad=98*ad/100; - - Setac(box1,'G',ad); - break; - } - // --- test \it g like 9 ---------------------------------------------- - for(ad=d=100;dx>2 && dy>4;){ // dx>1 dy>2*dx - DBG( wchar_t c_ask='g'; ) - if (sdata->holes.num > 2) Break; /* tolerant against a tiny hole */ - if( num_cross(x0+dx/2,x0+dx/2,y0,y1,box1->p,cs) != 3 // pre select - && num_cross(x0+dx/4,x1-dx/4,y0,y1,box1->p,cs) != 3 ) Break; - for( x=0,i=y=y0+dy/2;y<=y1-3*dy/16;y++){ // suche kerbe - j=loop(box1->p,x0,y,dx,cs,0,RI); - if( j>2 && j>dx/4 && y<y1-3 && j<dx/2 ) // long bow - j+=loop(box1->p,x0+j-2,y+1,dx,cs,0,RI)-2; - if( j>x ) { x=j; i=y; } - } - if( x<4*dx/8 ) Break; - if( num_cross(x0+dx/2,x1,i ,y1,box1->p,cs) != 1 - && num_cross(x0+dx/2,x1,i+1,y1,box1->p,cs) != 1 ) Break; - if( num_hole(x0,x1,y0,i+1,box1->p,cs,NULL)!=1 ) Break; - if( num_hole(x0,x1,i-1,y1,box1->p,cs,NULL)!=0 ) Break; - if( loop(box1->p,x0,y1 ,dy,cs,0,RI)>dx/3 && - loop(box1->p,x0,y1-1,dy,cs,0,RI)>dx/3) Break; // no q - for( x=0,i=y=y0+dy/3;y<=y1-dy/3;y++){ // suche kerbe - j=loop(box1->p,x1,y,dx,cs,0,LE); - if( j>x ) { x=j; i=y; } - } if( x>dx/2 ) Break; // no g - i1=loop(bp,dx-1,dy/8 ,dx,cs,0,LE); if(i1>dx/2) Break; - i3=loop(bp,dx-1,dy-1-dy/8,dx,cs,0,LE); - i2=loop(bp,dx-1,dy/2 ,dx,cs,0,LE); if(i1+i3<2*i2-dx/8) Break; // konvex - i1=loop(bp,dx-1,dy/4 ,dx,cs,0,LE); if(i1>dx/2) Break; - i3=loop(bp,dx-1,dy-1-dy/8,dx,cs,0,LE); - for(y=dy/4;y<dy-1-dy/4;y++){ - i2=loop(bp,dx-1,y,dx,cs,0,LE); - if(i1+i3-2*i2<-1-dx/16) break; // konvex from right ~g ~3 - } if(y<dy-1-dy/4) Break; - x=loop(bp,dx -1,6*dy/8,dx,cs,0,LE); if(x>0){ x--; // robust - y=loop(bp,dx-x-1, dy-1,dy,cs,0,UP); - if(y<dy/8) Break; // ~q (serif!) - } - // % - if( num_cross(x0,x1 ,y0+dy/4,y0+dy/4,box1->p,cs) > 2) ad=90*ad/100; - if( num_cross(x0,x1+dx/4,y1-dy/4,y1-dy/4,box1->p,cs) > 2 - || num_cross(x0,x1+dx/4,y1-dy/8,y1-dy/8,box1->p,cs) > 2) ad=90*ad/100; - - if (box1->m4==0) ad=98*ad/100; - if ( hchar) ad=96*ad/100; - if (!gchar) ad=96*ad/100; - if (ad>99) ad=99; // never be sure to have a 9 - Setac(box1,'g',ad); - break; - } - return box1->c; -} - -// rewritten for vector usage v0.41 -static wchar_t ocr0_xX(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - // pix *bp=sdata->bp; // obsolete - int i,j,d,x,y,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0, x1=box1->x1, y0=box1->y0, y1=box1->y1; // ,cs=sdata->cs; - int dx=x1-x0+1, dy=y1-y0+1, /* size */ - (*aa)[4]=sdata->aa, /* the for line ends, (x,y,dist^2,vector_idx) */ - ad; /* tmp-vars */ - wchar_t bc=UNKNOWN; - - // --- test xX --------------------------------------------------- - // rewritten for vectors 0.41 - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - int ld, i1, i2, i3, i4; // lien derivation, 4 inner edges - DBG( wchar_t c_ask='x'; ) - if (sdata->holes.num > 0) Break; /* # */ - /* half distance to the center */ - d=2*sq(128/4); - /* now we check for the 4 ends of the x */ - if (aa[0][2]>d) Break; - if (aa[1][2]>d) Break; - if (aa[2][2]>d) Break; - if (aa[3][2]>d) Break; - if (aa[3][0]-aa[0][0]<dx/2) Break; - if (aa[2][0]-aa[1][0]<dx/2) Break; - if (aa[1][1]-aa[0][1]<dy/2) Break; - if (aa[2][1]-aa[3][1]<dy/2) Break; - /* searching for 4 notches between neighbouring ends */ - - /* only left side */ - for (j=i=aa[0][3];i!=aa[1][3];i=(i+1)%box1->num_frame_vectors[0]) { - if (box1->frame_vector[i][0] - >=box1->frame_vector[j][0]) j=i; /* notice most right vector */ - } if (j==i) Break; - /* calculate the distance to the center */ - x=box1->frame_vector[j][0]; - y=box1->frame_vector[j][1]; i1=j; - if (abs(aa[0][0]+aa[1][0]+aa[2][0]+aa[3][0]-4*x)>(dx+2)) Break; - if (abs(aa[0][1]+aa[1][1]+aa[2][1]+aa[3][1]-4*y)>(dy+2)) Break; - if ( aa[0][0]+aa[1][0]-2*x>=0) Break; - if ( aa[1][0] >= x ) Break; - if ( aa[0][0] > x ) Break; - if ( aa[0][0] >= x ) ad=99*ad/100; - if (x-x0<dx/8) Break; - if (x-x0<dx/4) ad=99*ad/100; - /* check if upper left and center point are joined directly */ - ld=line_deviation(box1, aa[0][3], j); - MSG(fprintf(stderr," 0-X %d %d dist= %d/%d",x-x0,y-y0,ld,2*sq(1024/4));) - if (ld >2*sq(1024/4)) Break; - /* check if lower left and center point are joined directly */ - ld=line_deviation(box1, j, aa[1][3]); - MSG(fprintf(stderr," X-1 %d %d dist= %d/%d",x-x0,y-y0,ld,2*sq(1024/4));) - if (ld >2*sq(1024/4)) Break; - - /* only lower side */ - for (j=i=aa[1][3];i!=aa[2][3];i=(i+1)%box1->num_frame_vectors[0]) { - if (box1->frame_vector[i][1] - <=box1->frame_vector[j][1]) j=i; /* notice most upper vector */ - } if (j==i) Break; - /* calculate the distance to the center */ - x=box1->frame_vector[j][0]; - y=box1->frame_vector[j][1]; i2=j; - if (abs(aa[0][0]+aa[1][0]+aa[2][0]+aa[3][0]-4*x)>(dx+2)) Break; - if (abs(aa[0][1]+aa[1][1]+aa[2][1]+aa[3][1]-4*y)>(dy+2)) Break; - if ( aa[1][1]+aa[2][1]-2*y<=0) Break; - /* check if lower left and center point are joined directly */ - ld=line_deviation(box1, aa[1][3], j); - MSG(fprintf(stderr," 1-X %d %d dist= %d/%d",x-x0,y-y0,ld,2*sq(1024/4));) - if (ld >2*sq(1024/4)) Break; - /* check if lower right and center point are joined directly */ - ld=line_deviation(box1, j, aa[2][3]); - MSG(fprintf(stderr," X-2 %d %d dist= %d/%d",x-x0,y-y0,ld,2*sq(1024/4));) - if (ld >2*sq(1024/4)) Break; - - /* only right side */ - for (j=i=aa[2][3];i!=aa[3][3];i=(i+1)%box1->num_frame_vectors[0]) { - if (box1->frame_vector[i][0] - <=box1->frame_vector[j][0]) j=i; /* notice most left vector */ - } if (j==i) Break; - /* calculate the distance to the center */ - x=box1->frame_vector[j][0]; - y=box1->frame_vector[j][1]; i3=j; - if (abs(aa[0][0]+aa[1][0]+aa[2][0]+aa[3][0]-4*x)>(dx+2)) Break; - if (abs(aa[0][1]+aa[1][1]+aa[2][1]+aa[3][1]-4*y)>(dy+2)) Break; - if ( aa[2][0]+aa[3][0]-2*x<=0) Break; - if ( aa[3][0] <= x ) Break; - if ( aa[2][0] < x ) Break; - if ( aa[2][0] <= x ) ad=99*ad/100; - if (dx-(x-x0)<dx/8) Break; - if (dx-(x-x0)<dx/4) ad=99*ad/100; - /* check if lower right and center point are joined directly */ - ld=line_deviation(box1, aa[2][3], j); - MSG(fprintf(stderr," 2-X %d %d dist= %d/%d",x-x0,y-y0,ld,2*sq(1024/4));) - if (ld >2*sq(1024/4)) Break; - /* check if upper right and center point are joined directly */ - ld=line_deviation(box1, j, aa[3][3]); - MSG(fprintf(stderr," X-3 %d %d dist= %d/%d",x-x0,y-y0,ld,2*sq(1024/4));) - if (ld >2*sq(1024/4)) Break; - - /* only upper side */ - for (j=i=aa[3][3];i!=aa[0][3];i=(i+1)%box1->num_frame_vectors[0]) { - if (box1->frame_vector[i][1] - >=box1->frame_vector[j][1]) j=i; /* notice lowest vector */ - } if (j==i) Break; - /* calculate the distance to the center */ - x=box1->frame_vector[j][0]; - y=box1->frame_vector[j][1]; i4=j; - if (abs(aa[0][0]+aa[1][0]+aa[2][0]+aa[3][0]-4*x)>(dx+2)) Break; - if (abs(aa[0][1]+aa[1][1]+aa[2][1]+aa[3][1]-4*y)>(dy+2)) Break; - if ( aa[3][1]+aa[0][1]-2*y>=0) Break; - /* check if upper left and center point are joined directly */ - ld=line_deviation(box1, aa[3][3], j); - MSG(fprintf(stderr," 3-X %d %d dist= %d/%d",x-x0,y-y0,ld,2*sq(1024/4));) - if (ld >2*sq(1024/4)) Break; - /* check if lower left and center point are joined directly */ - ld=line_deviation(box1, j, aa[0][3]); - MSG(fprintf(stderr," X-0 %d %d dist= %d/%d",x-x0,y-y0,ld,2*sq(1024/4));) - if (ld >2*sq(1024/4)) Break; - - // center crossing of diagonal lines is small? - if (box1->frame_vector[i3][0] - box1->frame_vector[i1][0] > dx/2) Break; - - if (gchar) ad=99*ad/100; - bc='x'; if(hchar) bc='X'; - Setac(box1,bc,ad); - break; - } - // --- test \it x --------------------------------------------------- -#if 0 - for(ad=d=99;dx>4 && dy>4;){ // min 3x4 - DBG( wchar_t c_ask='x'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if( get_bw(x0,x0+dx/4,y0+dy/2,y0+dy/2,box1->p,cs,1) != 0 ) Break; - if( get_bw(x1-dx/4,x1,y0+dy/2,y0+dy/2,box1->p,cs,1) != 0 ) Break; - if( num_cross(x0+dx/4,x1-dx/4,y0+dy/2,y0+dy/2, box1->p,cs) != 1 ) Break; - if( num_cross(x0,x1,y0+dy/4,y0+dy/4, box1->p,cs) != 3 - && num_cross(x0,x1,y0+dy/8,y0+dy/8, box1->p,cs) < 3 ) Break; - if( num_cross(x0,x1,y1-dy/4,y1-dy/4, box1->p,cs) != 3 - && num_cross(x0,x1,y1-dy/8,y1-dy/8, box1->p,cs) < 3 ) Break; - if( gchar ) ad=97*ad/100; - if( hchar ) ad=96*ad/100; - bc='x'; - Setac(box1,bc,ad); - break; - } -#endif - return box1->c; -} - -static wchar_t ocr0_yY(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad,xa,ya,xb,yb,xc,yc,xd,yd; /* tmp-vars */ - wchar_t bc=UNKNOWN; - - // --- test italic yY -------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='y'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if (sdata->holes.num > 0) ad=97*ad/100; - if( num_cross(0,dx-1,dy/8,dy/8,bp,cs) < 2 - && num_cross(0,dx-1, 1, 1,bp,cs) < 2 ) Break; - if( num_cross(0,dx-1,dy-1,dy-1,bp,cs) != 1 - && num_cross(0,dx-1,dy-2,dy-2,bp,cs) != 1 ) Break; - if( num_cross(dx-1,dx-1,0,dy-1,bp,cs) != 1 - && num_cross(dx-2,dx-2,0,dy-1,bp,cs) != 1 ) Break; - if( num_cross(dx/3,dx/3,dy/4,dy-1,bp,cs) != 2 - && num_cross(dx/2,dx/2,dy/4,dy-1,bp,cs) != 2 ) Break; - for(yc=y=0,xc=x=dx/4;x<dx-dx/4;x++){ // search deepest point - i=loop(bp,x,0,dy,cs,0,DO); if(i>y){ yc=y=i;xc=x; } - } if( y>12*dy/16 || y<3*dy/8 ) Break; - ya=dy/8; xa=xc-loop(bp,xc,ya,dx,cs,0,LE); if(xa< 0) Break; - yb=dy/8; xb=xc+loop(bp,xc,yb,dx,cs,0,RI); if(xb>=dx) Break; - for(y=dy/8;y<yc-dy/8;y++){ - if( num_cross(xc,dx-1,y,y,bp,cs) != 1 ) break; - if( num_cross(0 ,xc ,y,y,bp,cs) < 1 ) break; - } if(y<yc-dy/8) Break; - yd=dy-1-dy/8;xd=dx-1-loop(bp,dx-1,yd,dx,cs,0,LE); - g_debug(fprintf(stderr," debug_yY: \n" - " /a b \n" - " | | \n" - " -c/ \n" - " \e-d \n");) - g_debug(fprintf(stderr,"a-e: %d %d %d %d %d %d %d %d", - xa,ya,xb,yb,xc,yc,xd,yd);) - if(xd>6*dx/8) ad=99*ad/100; // why this??? - if (loop(bp,dx-1,dy-1,dx,cs,0,LE)<1) Break; - // printf(" abcd=%d %d %d %d %d %d %d %d -",xa,ya,xb,yb,xc,yc,xd,yd); - if( get_line2(xb,yb,xd,yd,bp,cs,100)<95 ) Break; - // if( get_line2(xc,yc,xd,yd,bp,cs,100)<95 ) Break; - // printf("ok"); - bc='y'; - if(gchar && !hchar) bc='y'; else - if(hchar && (!gchar || dy<14)) bc='Y'; else ad=98*ad/100; // SMALL-CAPS ??? - Setac(box1,bc,ad); - break; - } - // --- test yY --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='y'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if( get_bw(x0,x0,y1-dy/8,y1,box1->p,cs,1) == 1 ) { - if( get_bw(x0,x0+4*dx/8,y0+dy/8,y0+dy/8,box1->p,cs,1) != 1 ) Break; - } else { - if( get_bw(x0,x0+3*dx/8,y0+dy/8,y0+dy/8,box1->p,cs,1) != 1 ) Break; - } - if( num_cross(0,dx-1,dy/8,dy/8,bp,cs) != 2 - && num_cross(0,dx-1, 1, 1,bp,cs) != 2 ) Break; - if( num_cross(dx/2,dx/2,0, 1,bp,cs) != 0 ) Break; - if( num_cross(0,dx-1,dy-1,dy-1,bp,cs) != 1 - && num_cross(0,dx-1,dy-2,dy-2,bp,cs) != 1 ) Break; - if( num_cross(dx-1,dx-1,0,dy-1,bp,cs) != 1 - && num_cross(dx-2,dx-2,0,dy-1,bp,cs) != 1 - && num_cross(dx-dx/8-1,dx-dx/8-1,0,dy-1,bp,cs) != 1 ) Break; - if( loop(bp,dx-1,dy-1-dy/8,dx,cs,0,LE)+dx/8+1 // Jul00 - < loop(bp, 0,dy-1-dy/8,dx,cs,0,RI) ) Break; - for(y=0,x=dx/4;x<dx-dx/4;x++){ // search lowest point - i=loop(bp,x,0,dy,cs,0,DO); if(i>y) y=i; - } if( y>10*dy/16 || y<2*dy/8 ) Break; - for(xc=xb=xa=dx,yc=yb=ya=y=0;y<dy/4;y++){ - x =loop(bp, 0 , y,dx,cs,0,RI); if(x<xa){ xa=x;ya=y; } - x =loop(bp,dx-1 , y,dx,cs,0,LE); if(x<xb){ xb=x;yb=y; } - } - if(yb>dy/8) Break; - for(i=dx,yc=y=dy/4;y<3*dy/4;y++){ - if( num_cross(0,dx-1,y,y,bp,cs) < 2 ) break; - x =loop(bp,dx-1 ,y,dx,cs,0,LE); - x+=loop(bp,dx-1-x,y,dx,cs,1,LE); - j =loop(bp,dx-1-x,y,dx,cs,0,LE); if(j<=i){ i=j;yc=y;xc=dx-1-x-j/2; } - } yc+=dy/16+1; - yc+=loop(bp,xc,yc,i,cs,1,DO)/2; - xa+= loop(bp,xa ,ya,dx,cs,1,RI)/2; - xb=dx-1-loop(bp,dx-1,yb,dx,cs,1,LE)/2; - yd=dy-1-dy/8;xd=dx-1-loop(bp,dx-1,yd,dx,cs,0,LE); if(xd>6*dx/8) Break; - /* check for serife at lower end */ - for (i=0,x=dx-1;i<dy/4;i++) { - j=loop(bp,dx-1,dy-1-i,dx,cs,0,LE); - if (j>x+dx/16+1) break; /* detect serif */ - if (j<x) x=j; - } if (i<dy/4) xd-=loop(bp,xd,yd,dx,cs,1,LE)/2; - MSG( fprintf(stderr," debug_yY: \n" - " a b \n" - " \\ / \n" - " c \n" - " ed ");) - MSG(fprintf(stderr,"a-e: %d %d %d %d %d %d %d %d", - xa,ya,xb,yb,xc,yc,xd,yd);) - // check upper left line - if( get_line2(xa,ya,xc ,yc,bp,cs,100)<95 - && get_line2(xa,ya,xc-1,yc,bp,cs,100)<95 ) Break; - // check upper right line - if( get_line2(xb,yb,xc ,yc,bp,cs,100)<95 - && get_line2(xb,yb,xc-1,yc,bp,cs,100)<95 ) { - // Times-Italic y ??? - xb+=loop(bp,xb,yb,dx/4,cs,1,RI)-1; - yb+=loop(bp,xb,yb,dy/8,cs,1,DO)-1; - if( get_line2(xb,yb,xc ,yc,bp,cs,100)<95 ) Break; - } - if( get_line2(xc,yc,xd,yd,bp,cs,100)<95 ) Break; - - // decission between V and Y is sometimes very difficult - // hope that the following code is the ultimate solution - if( yc>=5*dy/8 && !gchar) - if( get_line2(xa,ya,xd ,yd,bp,cs,100)>95 ) - if( get_line2(xb,yb,xd ,yd,bp,cs,100)>95 ) - { if (dx>4) { Break; } else ad=ad*98/100; } // ~V - xa=loop(bp,0,dy/8,dx,cs,0,RI); - xb=loop(bp,0,dy/2,dx,cs,0,RI); - xc=loop(bp,0,dy-1,dx,cs,0,RI); - if( 2*xb< xa+xc ) ad=98*ad/100; // ~V - if( 2*xb<=xa+xc ) ad=98*ad/100; - if( 2*xb<=xa+xc+1 ) ad=98*ad/100; - - bc='y'; - if ((!gchar) && (!hchar)) ad=98*ad/100; - if(y0<box1->m2-(box1->m2-box1->m1)/4) - { bc='Y'; if(gchar) ad=98*ad/100; } - // SMALL-CAPS ??? - Setac(box1,bc,ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_zZ(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - int i1,i2,i3,i4,i5,dbg[9], - d,x,y,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - (*aa)[4]=sdata->aa, /* the for line ends, (x,y,dist^2,vector_idx) */ - ad; /* tmp-vars */ - wchar_t bc=UNKNOWN; - - // --- test zZ ------- - for(ad=d=100;dx>3 && dy>3;){ // dy>dx - DBG( wchar_t c_ask='z'; ) /* for debugging purpose */ - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if (sdata->holes.num > 0) ad=98*ad/100; /* # */ - /* half distance to the center */ - d=2*sq(128/4); - /* now we check for the 4 edges of the z */ - if (aa[0][2]>d) Break; - if (aa[1][2]>d) Break; - if (aa[2][2]>d) Break; - if (aa[3][2]>d) Break; - if (aa[3][0]-aa[0][0]<dx/2) Break; - if (aa[2][0]-aa[1][0]<dx/2) Break; - if (aa[1][1]-aa[0][1]<dy/2) Break; - if (aa[2][1]-aa[3][1]<dy/2) Break; - if (aa[3][0]-aa[0][0]<4-1) Break; /* to small to hold a z */ - if (aa[2][0]-aa[1][0]<4-1) Break; /* to small */ - if (aa[3][1]-y0>dy/8) ad=99*ad/100; - if (aa[0][1]-y0>dy/8) ad=99*ad/100; - if (2*dx<dy) ad=99*ad/100; - MSG( \ - fprintf(stderr,"xy= %d %d aa %d %d %d %d %d %d %d %d", \ - x0,y0,aa[0][0]-x0,aa[0][1]-y0,aa[1][0]-x0,aa[1][1]-y0,\ - aa[2][0]-x0,aa[2][1]-y0,aa[3][0]-x0,aa[3][1]-y0);) - /* upper and lower horizontal line */ - d=line_deviation(box1, aa[3][3], aa[0][3]); if (d>2*sq(1024/4)) Break; - ad=(100-(d-sq(1024)/2)/sq(1024)/4)*ad/100; - d=line_deviation(box1, aa[1][3], aa[2][3]); if (d>2*sq(1024/4)) Break; - - /* search uppermost right > */ - i1=nearest_frame_vector(box1,aa[0][3],aa[1][3], x1, y0); - x=box1->frame_vector[i1][0]; - y=box1->frame_vector[i1][1]; - if (y-y0 > 5*dy/8) Break; - if (x-x0 < 3*dx/8) Break; - if (x-aa[0][0]<=dx/4) Break; // ~lI - if (x-aa[0][0]<=dx/3) ad=98*ad/100; // ~lI - if (x-aa[0][0]<=dx/2) ad=99*ad/100; // ~lI - /* search most right > ~2 */ - i3=nearest_frame_vector(box1,aa[0][3],aa[1][3], x1+2*dx, (y0+y1)/2); - MSG(fprintf(stderr,"xy= %d %d %d %d %d %d",x0,y0,x-x0,y-y0,box1->frame_vector[i3][0]-x0,box1->frame_vector[i3][1]-y0);) - if ( box1->frame_vector[i3][1]-y0> dy/4 - && box1->frame_vector[i3][0]-x>=0) Break; - if ( box1->frame_vector[i3][1]-y> dy/8 - && box1->frame_vector[i3][0]-x>=-dx/8) ad=98*ad/100; - if ( box1->frame_vector[i3][1]-y> dy/8 - && box1->frame_vector[i3][0]-x>= 0) ad=97*ad/100; - if (box1->frame_vector[i3][0]-aa[0][0] - < aa[3][0]-box1->frame_vector[i3][0]) break; // ~lI - if (box1->frame_vector[i3][0]-aa[0][0] - <(aa[3][0]-box1->frame_vector[i3][0])*2) ad=98*ad/100; // ~lI - /* better test for a bow or peaked angle */ - /* upper part of a 2, on a Z a and b should be at c - .....$@@@@@@a...c. o1 (o1-a)=(dx+5)^2 =dx^2+10*dx+25 - ...$$@@@@@@@@@.... (o1-b)=(dx+1)^2+4^2=dx^2+ 2*dx+18 - ..$@@$@@@$@@@@@... - ..@@@.....$$@@@@.. - ..@@.......@$@@@b. - ..$.........$@@@@. - .$$..........$@@@. - .$...........@@@@. - .............@@@@.< - .............$@@$. - ............$@@@.. - ............@@$... - ............$@$... - --- snip ---- - */ - i4=nearest_frame_vector(box1,aa[2][3],aa[0][3], x1+dx, y0); - i5=nearest_frame_vector(box1,aa[2][3],aa[0][3], x1, y0-dx); - d=sq(box1->frame_vector[i5][0]-box1->frame_vector[i4][0]) - +sq(box1->frame_vector[i5][1]-box1->frame_vector[i4][1]); - if (d>2*sq(dx/8+1)) break; - - /* check if upper left and upper right point are joined directly */ - dbg[0]=d=line_deviation(box1, aa[0][3], i1); if (d >2*sq(1024/4)) Break; - /* check if lower right and upper left point are joined directly */ - dbg[1]=d=line_deviation(box1, i1, aa[1][3]); if (d >2*sq(1024/4)) Break; - - /* search lowest left < */ - i2=nearest_frame_vector(box1,aa[2][3],aa[3][3], x0, y1); - x=box1->frame_vector[i2][0]; - y=box1->frame_vector[i2][1]; - if (y-y0 < 3*dy/8) Break; - if (x-x0 > 5*dx/8) Break; - if (aa[2][0]-x<=dx/4) Break; // ~lI - if (aa[2][0]-x<=dx/3) ad=98*ad/100; // ~lI - if (aa[2][0]-x<=dx/2) ad=99*ad/100; // ~lI - /* check if upper right and lower left point are joined directly */ - dbg[2]=d=line_deviation(box1,i2, aa[3][3]); if (d >2*sq(1024/4)) Break; - /* check if lower left and lower right point are joined directly */ - dbg[3]=d=line_deviation(box1, aa[2][3],i2); if (d >2*sq(1024/4)) Break; - - if (box1->frame_vector[i1][0] - -box1->frame_vector[i2][0]<=dx/8) Break; /* nonsignificant distance */ - MSG( \ - fprintf(stderr,"^v %d %d %d %d line deviation %d %d %d %d max %d %d",\ - box1->frame_vector[i1][0]-x0,box1->frame_vector[i1][1]-y0,\ - box1->frame_vector[i2][0]-x0,box1->frame_vector[i2][1]-y0,\ - dbg[0],dbg[1],dbg[2],dbg[3],2*sq(1024/4),2*sq(1024));) - ad=(100-(dbg[0]-sq(1024)/2)/sq(1024)/4)*ad/100; - ad=(100-(dbg[1]-sq(1024)/2)/sq(1024)/4)*ad/100; - ad=(100-(dbg[2]-sq(1024)/2)/sq(1024)/4)*ad/100; - ad=(100-(dbg[3]-sq(1024)/2)/sq(1024)/4)*ad/100; - - if ( gchar) ad=98*ad/100; - bc='z'; - if( hchar ) bc='Z'; - Setac(box1,bc,ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_wW(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,hchar=sdata->hchar,gchar=sdata->gchar,handwritten=0, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad,ya,yb,xa,xb,xc,xd,xe,t1; /* tmp-vars */ - wchar_t ac; - - // ------- test w ~{\it w} --------------- - for(ad=d=100;dx>3 && dy>3;){ // dy<=dx - DBG( wchar_t c_ask='w'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - // xa xe - // \ xc / <=ya connected xa-xb-xc-xd-xe - // xb xd <=yb - // get two lowest points i3,i4,ya - // out_x(box1); - // ~ul ~uf - // out_x(box1); - for(y=dy/8;y< dy/2;y++) if( num_cross(0,dx-1,y,y,bp,cs)< 2 ) break; - if(y<dy/2) Break; - yb=dy-1; - if (dx>4) { /* 4x6 is to small */ - for(y=dy-1-dy/16;y>3*dy/4;y--) - if( num_cross(0,dx-1,y,y,bp,cs)==2 ) break; - if(y==3*dy/4) Break; - } - yb=y; - t1=loop(bp,0 ,dy/4,dx,cs,0,RI); - t1=loop(bp,t1,dy/4,dx,cs,1,RI); // thickness of line? - for(i=j=0 ;y> dy/4;y--) if( num_cross(0,dx-1,y,y,bp,cs)==4 ) i++; - else if( num_cross(0,dx-1,y,y,bp,cs)>=3 ) j++; - if(i+5<dy/4 && 7*t1<dy) Break; // only for large letters - if(i+j==0 && (dy>6 || dx>4)) Break; - if(i+j==0 && dx<=4){ - if (abs(loop(bp, 1,dy-1,dy,cs,0,UP) - -loop(bp,dx-2,dy-1,dy,cs,0,UP))>dy/8+1) Break; // 4x6 N - if ( ( loop(bp, 1, 0,dy,cs,0,DO)>=dy-2 - && loop(bp, 0,dy-1,dy,cs,0,UP)>0) - || ( loop(bp,dx-2, 0,dy,cs,0,DO)>=dy-2 - && loop(bp,dx-1,dy-1,dy,cs,0,UP)>0)) Break; // 4x6 UV - ad=ad*99/100; // 4x6 font - MSG(fprintf(stderr,"ad=%d",ad);) - } - if( num_cross(0,dx-1, 1, 1,bp,cs)< 2 - && num_cross(0,dx-1,dy/16,dy/16,bp,cs)< 2 ) Break; - x =loop(bp,0 ,yb,dx,cs,0,RI); - xb=loop(bp,x ,yb,dx,cs,1,RI);xb=x+xb/2; if(xb>dx/2) Break; - x =loop(bp,dx-1 ,yb,dx,cs,0,LE); - xd=loop(bp,dx-1-x,yb,dx,cs,1,LE);xd=dx-1-x-xd/2;if(xd<3*dx/8) Break; - for(y=0,xc=x=xb+1;x<xd;x++) - if((i=loop(bp,x,dy-1,dy,cs,0,UP))>y){xc=x;y=i;} - if(dx>4 && !y) Break; - ya=dy-1-y; // flat - y=loop(bp,xc,ya,dy,cs,1,UP);if(y)y--; - if (dy>6 || dx>4) { // ~4x6 font - if( num_cross(0 ,xc ,ya-y ,ya-y ,bp,cs)!= 2 - && num_cross(0 ,xc ,ya-y/2,ya-y/2,bp,cs)!= 2 ) Break; - if( num_cross(xc,dx-1,ya-y ,ya-y ,bp,cs)!= 2 - && num_cross(xc,dx-1,ya-y/2,ya-y/2,bp,cs)!= 2 ) Break; - } - ya-=y/2; - x =loop(bp,0 ,1 ,dx,cs,0,RI); - xa=loop(bp,x ,1 ,dx,cs,1,RI); - if( x+xa>xb ){ // may be, here is a small but thick letter - // later add some proofs - xa=x+xa/4; - } else { - xa=x+xa/2; - } - x =loop(bp,dx-1 ,1 ,dx,cs,0,LE); - xe=loop(bp,dx-1-x,1 ,dx,cs,1,LE);xe=dx-1-x-xe/2; - MSG( fprintf(stderr,"a-e: %d %d %d %d %d %d %d %d %d %d", - xa,1,xb,yb,xc,ya,xd,yb,xe,1);) - if (ya<dy/2 && xc<dx/2) ad=95*ad/100; /* ~N */ - i= loop(bp,xa ,1 ,dx,cs,1,RI); - for (x=xa;x<xa+i;x++) - if( get_line2(x,1,xb,yb,bp,cs,100)>94 ) break; - if (x==xa+i) Break; // no vert. line found - if( get_line2(xb,yb-1,xc,ya ,bp,cs,100)<95 - && get_line2(xb,yb-1,xc,ya+dy/32,bp,cs,100)<95 - && get_line2(xb,yb-1,xc,ya+dy/16,bp,cs,100)<95 ) Break; - if( get_line2(xc, ya,xd, yb,bp,cs,100)<95 - && get_line2(xc+1,ya,xd, yb,bp,cs,100)<95 ) Break; - if( get_line2(xd,yb,xe ,1+dy/16,bp,cs,100)<95 - && get_line2(xd,yb,dx-1 ,1+dy/8 ,bp,cs,100)<95 // round w - && get_line2(xd,yb,xe+dx/20,1+dy/16,bp,cs,100)<95 ) Break; - // if( num_hole(0,dx-1,0,dy-1,bp,cs,NULL) != 0 ) Break; - // ~ur - MSG(fprintf(stderr,"ad=%d",ad);) - for(i=0,y=5*dy/8;y<dy;y++){ - x=loop(bp,dx-1,y,dx,cs,0,LE); if( x>i ) i=x; if( x<i-2 ) break; - if (x<i) ad=98*ad/100; - } if( y<dy ) Break; - MSG(fprintf(stderr,"ad=%d",ad);) - ac=((hchar)?'W':'w'); - if (gchar) ad=98*ad/100; - Setac(box1,ac,ad); - break; - } - // --- test ~w {\it w} ohmega? also handwritten ------- - // italic - for(ad=d=100;dx>3 && dy>3;){ // dy<=dx 4x6font (like a H with fat bar) - DBG( wchar_t c_ask='w'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - // ~ul ~uf - if( num_cross(0,dx-1,dy/2,dy/2,bp,cs)<2 ) Break; - if( num_cross(0,dx-1,dy/8,dy/8,bp,cs)<2 ) handwritten=40; - if( num_cross(0,dx-1,dy/4,dy/4,bp,cs)<2 ) handwritten=80; - for(i=0,y=0;y<dy-1;y++) - if( num_cross(0,dx-1,y,y,bp,cs)==3 ) i++; - if(i<=dy/8) Break; // three legs - // xa xe - // \ xc / <=yb connected xa-xb-xc-xd-xe - // xb xd - for(y=dy/2;y<dy-1-dy/8;y++) - if( num_cross(0,dx-1,y,y,bp,cs)==3 ) break; - yb=y; - x =loop(bp,0 ,yb,dx,cs,0,RI); - x+=loop(bp,x ,yb,dx,cs,1,RI); if(x>dx/2) Break; - xb=loop(bp,x ,yb,dx,cs,0,RI);xb=x+xb/2; if(xb>dx/2) Break; - x =loop(bp,dx-1 ,yb,dx,cs,0,LE); - x+=loop(bp,dx-1-x,yb,dx,cs,1,LE); - xd=loop(bp,dx-1-x,yb,dx,cs,0,LE);xd=dx-1-x-xd/2;if(xd<3*dx/8) Break; - if( num_cross(xb,xd,yb,yb ,bp,cs)!= 1 ) Break; - if( num_cross(xb,xb,yb,dy-1,bp,cs)!= 1 ) Break; - if( num_cross(xd,xd,yb,dy-1,bp,cs)!= 1 ) Break; - if( num_cross(xb,xb, 0,yb ,bp,cs)!= 0 ) Break; - if( num_cross(xd,xd, 0,yb ,bp,cs)!= 0 ) Break; - // if( num_hole(0,dx-1,0,dy-1,bp,cs,NULL) != 0 ) Break; - if (sdata->holes.num != 0) Break; - // ~ur - for(i=0,y=3*dy/4;y<dy;y++){ - x=loop(bp,dx-1,y,dx,cs,0,LE); if( x>i ) i=x; if( x<i-2 ) break; - } if( y<dy ) Break; // fail for overlapping neighbouring slanted chars? - ac=((hchar)?'W':'w'); - if (gchar) ad=98*ad/100; - Setac(box1,ac,ad); - Break; - } - return box1->c; -} - -static wchar_t ocr0_aA(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,d,x,y,i1,i2,i3,i4,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad,ya; /* tmp-vars */ - - // --- test A --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='A'; ) - if (sdata->holes.num > 2) Break; /* tolerant against a tiny hole */ - // first selection (rough sieve) - if( get_bw(dx/2 ,dx/2 ,dy-1-dy/8,dy-1,bp,cs,1) == 1 - && get_bw(dx/2-1,dx/2-1,dy-1-dy/8,dy-1,bp,cs,1) == 1 ) Break; // ~B - ya=0; /* upper end, not 0 for modified A etc. */ - if (box1->modifier) - for (ya=0;ya<dy/2;ya++) - if (num_cross(0,dx-1,ya,ya,bp,cs)==0) break; - if (ya>=dy/2) ya=0; // already subtracted? - if( num_cross(0,dx-1,ya+ 1 ,ya+ 1 ,bp,cs)!=1 // 600dpi - && num_cross(0,dx-1,ya+ dy/8 ,ya+ dy/8 ,bp,cs)!=1 - && num_cross(0,dx-1,ya+ dy/16 ,ya+ dy/16 ,bp,cs)!=1 - && num_cross(0,dx-1,ya+ dy/8+1,ya+ dy/8+1,bp,cs)!=1 ) Break; - if( num_cross(0,dx-1, 7*dy/8 , 7*dy/8 ,bp,cs)!=2 - && num_cross(0,dx-1, 7*dy/8-1, 7*dy/8-1,bp,cs)!=2 ) Break; - if ( num_cross( 0,dx/8,ya+dy/8,ya+0,bp,cs)>0 ) Break; // ~R - for(y=ya+dy/8;y<ya+dy/2;y++) if( num_cross(0,dx-1,y,y,bp,cs) > 1 ) break; - if( y==ya+dy/2 ) Break; i1=y; - if (dy>20) i1++; /* get arround some noise fat font */ - - x =loop(bp,0,i1,dx,cs,0,RI); if(x>3*dx/4) Break; - x+=loop(bp,x,i1,dx,cs,1,RI); if(x>3*dx/4) Break; i2=x; - x+=loop(bp,x,i1,dx,cs,0,RI); if(x<3*dx/8) Break; i2=(x+i2)/2; - // hole (i2,i1) - y+=loop(bp,i2,y,dy,cs,1,DO); - y+=loop(bp,i2,y,dy,cs,0,DO); if(y>3*dy/4) ad=ad*99/100; - if (y>5*dy/6) { MSG(fprintf(stderr,"x,y,i1,i2= %d %d %d %d",x,y,i1,i2);) } - if (y>5*dy/6) Break; - - if( sdata->holes.num != ((box1->modifier==RING_ABOVE)?2:1) - || sdata->holes.hole[0].y1-ya >= dy-1-dy/4) Break; - // if( num_hole ( x0, x1, y0, y1-dy/4 ,box1->p,cs,NULL) != 1 ) Break; - // out_x(box1); - i3=0;i4=0; - for(x=dx/3;x<2*dx/3;x++){ - i4=num_cross(i2,x,y ,dy-1,bp,cs);if(i4<1 || i4>2) - i4=num_cross(i2,x,y+dy/16,dy-1,bp,cs);if(i4<1 || i4>2) break; - if(i4==1) i3=x; - } if(i4<1 || i4>2 || i3==0){ -// ToDo: MSG(fprintf(stderr,"x,y,i4,i3= %d %d %d %d",x,y,i4,i3);) - Break; - } - if( get_bw(dx-1-dx/4, dx-1, dy-1-dy/4, dy-1, bp,cs,1) != 1 ) Break; - - i1=loop(bp,dx-1,ya+ (dy-ya)/4,dx,cs,0,LE); - i2=loop(bp,dx-1,ya+ (dy-ya)/2,dx,cs,0,LE); - i3=loop(bp,dx-1,dy-1-(dy-ya)/4,dx,cs,0,LE); - if( 2*i2-dx/8>i1+i3 ) ad=99*ad/100; /* 6*8 font */ - if( 2*i2+dx/4<i1+i3 || 2*i2-dx/4>i1+i3 ) Break; - - i1=loop(bp,0 ,ya+ (dy-ya)/4,dx,cs,0,RI); // linke senkr. linie - i2=loop(bp,0 ,ya+ (dy-ya)/2,dx,cs,0,RI); - i3=loop(bp,0 ,dy-1-(dy-ya)/4,dx,cs,0,RI); - if( 2*i2-dx/8>i1+i3 ) ad=98*ad/100; /* 6*8 font */ - if( 2*i2+dx/4<i1+i3 || 2*i2-dx/4>i1+i3 || i1<i3) Break; - - // lower ends could be round on thick fonts - for(i3=dx,y=ya+(dy-ya)/4;y<7*dy/8;y++){ // increasing width - i1=loop(bp, 0, y,dx,cs,0,RI); - i2=loop(bp,dx-1, y,dx,cs,0,LE); - if(i1+i2>i3+dx/16) break; if( i1+12<i3 ) i3=i1+i2; - } if(y<7*dy/8) Break; - if ( loop(bp, 0,dy-1-dy/8,dx,cs,0,RI) - -loop(bp, 0,dy/2 ,dx,cs,0,RI)>0) ad=97*ad/100; // italic-a - - if (!hchar) ad=99*ad/100; // italic-a - Setac(box1,'A',ad); - break; - } - // --- test a ------------------------------------------- - // with a open bow above the circle starting - // on the right side of the circle - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='a'; ) - if (sdata->holes.num > 2) Break; /* tolerant against a tiny hole */ - if( get_bw(x0 , x0+dx/2, y1-dy/3, y1-dy/3,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1-dx/3, x1 , y0+dy/3, y0+dy/3,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1-dx/3, x1 , y0+dy/4, y0+dy/4,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2, x0+dx/2, y1-dy/3, y1, box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2, x0+dx/2, y0 , y0+dy/3,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/3, x1-dx/3, y0 , y0 ,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/4, x1-dx/2, y1 , y1 ,box1->p,cs,1) != 1 ) - if( get_bw(x0+dx/4, x1-dx/3, y1-1 , y1-1 ,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0 , x0 , y0+dy/2, y1 ,box1->p,cs,1) != 1 ) - if( get_bw(x0+dx/8, x0+dx/8, y0+dy/2, y1 ,box1->p,cs,1) != 1 ) Break; - if( loop(bp,3*dx/8,0,dy,cs,0,DO) > 3*dy/16 ) Break; // ~d - if( num_cross(0,dx-1,dy/4 ,dy/4 , bp,cs) >2 // ~glued am != an - && num_cross(0,dx-1,dy/4+1,dy/4+1, bp,cs) >2 ) Break; - - for( x=dx/4;x<dx-dx/4;x++ ){ // ar - i=loop(bp,x, 0,y1-y0,cs,0,DO); if (i>dy/2) break; - i=loop(bp,x,dy-1,y1-y0,cs,0,UP); if (i>dy/2) break; - } if( x<dx-dx/4 ) Break; - - for(i=dx/8+1,x=dx/4;x<=dx-1-dx/4 && i;x++){ - if( num_cross(x,x,0,bp->y-1, bp,cs) == 3 ) i--; - } if( i ) Break; - - i1=loop(bp,0, dy/8,dx,cs,0,RI); - i3=loop(bp,0,3*dy/4,dx,cs,0,RI); - for(y=dy/8+1;y<3*dy/4;y++){ - i2=loop(bp,0,y,dx,cs,0,RI);if(2*i2>i1+i3+1) break; - } if(y==3*dy/4) Break; // ~6 - // ~ s (small thick s), look for vertikal line piece - for(x=3*dx/4;x<dx;x++) - if( loop(bp,x,dy/4,dy/2,cs,1,DO)>dy/4 ) break; - if( x==dx ) Break; - - if (sdata->holes.num != 1) ad=96*ad/100; else - if (sdata->holes.num == 1) - if( num_hole ( x0, x1, y0+dy/3, y1 ,box1->p,cs,NULL) != 1 ) Break; - // if( num_hole ( x0, x1, y0, y1, box1->p,cs,NULL) != 1 ) Break; - if( num_hole ( x0, x1, y0, y1-dy/3 ,box1->p,cs,NULL) != 0 ){ - i =loop(bp,0,dy/4,dx,cs,0,RI); - i =loop(bp,i,dy/4,dx,cs,1,RI); - if(i<dx/4+1) Break; // fat a - i =loop(bp,0,dy/4,dx,cs,0,RI); - i+=loop(bp,i,dy/4,dx,cs,1,RI); - for(y=dy/4;y<dy/2;y++) - if( num_cross(0,dx-1,y,y, bp,cs) !=2 ) break; - x =loop(bp,0,y-1,dx,cs,0,RI); - x+=loop(bp,x,y-1,dx,cs,1,RI); - if(x>i) Break; // ~ 8 - } - /* test for horizontal symmetry ~8 */ - for (y=0;y<dy;y++) for (x=0;x<dx/2;x++) - if ((getpixel(bp,x,y)<cs)!=(getpixel(bp,dx-1-x,y)<cs)) { y=dy+1; break; } - if (y==dy) Break; /* ~8 */ - - if (hchar) ad=96*ad/100; - if (gchar) ad=96*ad/100; - Setac(box1,'a',ad); - break; - } - // --- test hand written a --------------------------------------------------- - // rarely char, without bow above the circle - for(ad=d=100;dx>3 && dy>3;){ // min 4x4 - DBG( wchar_t c_ask='a'; ) - if (sdata->holes.num > 2) Break; /* tolerant against a tiny hole */ - if( get_bw(x0 , x0+dx/2,y0+dy/2 , y0+dy/2,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1-dx/2 , x1 ,y0+dy/2 , y0+dy/2,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2 , x0+dx/2,y1-dy/2 , y1, box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2 , x0+dx/2,y0 , y0+dy/2,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/3 , x0+dx/3,y0 , y0+dy/2,box1->p,cs,1) != 1 ) Break; - i = loop(bp,dx/2, 0 ,dy,cs,0,DO); if (i>dy/4) Break; - i+= loop(bp,dx/2, i ,dy,cs,1,DO); if (i>dy/2) Break; - i = loop(bp,dx/2, i ,dy,cs,0,DO); if (i<dy/4) Break; - if( get_bw(x0 , x0 ,y1 , y1 ,box1->p,cs,1) == 1 ) Break; - - if( num_cross(x0+dx/2,x0+dx/2,y0 , y1 ,box1->p,cs) != 2 ) Break; - if( num_cross(x0+dx/3,x1-dx/3,y0 , y0 ,box1->p,cs) != 1 ) // AND - if( num_cross(x0+dx/3,x1-dx/3,y0+1 , y0+1 ,box1->p,cs) != 1 ) Break; - i = loop(bp,dx/2,dy-1 ,dy,cs,0,UP); if (i>dy/3) Break; - y = i+loop(bp,dx/2,dy-1-i,dy,cs,1,UP); if (i>dy/2) Break; - // normal 'a' has a well separated vertical line right from the circle - // but fat 'a' is like a 'o', only bigger on the right side - if( num_cross(x0+dx/2-1,x1,y1 ,y1 ,box1->p,cs) < 2 /* 4x6font */ - && num_cross(x0+dx/2-1,x1,y1-i,y1-i ,box1->p,cs) < 2 /* 2 or 3 */ - && num_cross(x0+dx/2-1,x1,y1-y,y1-y ,box1->p,cs) < 2 ) - { if (loop(bp, 0,dy-1-dy/16,dx,cs,0,RI) - <4*loop(bp,dx-1,dy-1-dy/16,dx,cs,0,LE)) { Break;} - else ad=98*ad/100; - } - if( num_cross(x0,x1,y0+dy/2 , y0+dy/2,box1->p,cs) < 2 - || num_cross(x0,x1,y0+dy/3 , y0+dy/3,box1->p,cs) < 2 ) Break; // Jun00 - - if( num_cross(x0 ,x0 ,y0+dy/3 , y1-dy/4,box1->p,cs) != 1 ) - if( num_cross(x0+1 ,x0+1 ,y0+dy/3 , y1-dy/4,box1->p,cs) != 1 ) Break; - if (sdata->holes.num != 1) - if( num_hole(x0,x1-2,y0 ,y1 ,box1->p,cs,NULL) != 1 ) - // if( num_hole(x0,x1 ,y0 ,y1 ,box1->p,cs,NULL) != 1 ) - Break; - if( num_hole(x0,x1 ,y0+dy/3,y1-1 ,box1->p,cs,NULL) != 0 ) Break; - - if( loop(bp,0 ,0 ,x1-x0,cs,0,RI)<= - loop(bp,0 ,2 ,x1-x0,cs,0,RI) ) Break; - - if( loop(bp,dx-1,dy-1,x1-x0,cs,0,LE)> dx/4 - && loop(bp,dx-1,dy-2,x1-x0,cs,0,LE)> (dx+4)/8 ) ad=97*ad/100; - - x=loop(bp,dx-1,dy-1-dy/4,dx,cs,0,LE); - i=loop(bp,dx-1, dy/4,dx,cs,0,LE); if (abs(x-i)>dx/4) Break; - - for( x=dx/4;x<dx-dx/4;x++ ){ // ar - i=loop(bp,x, 0,y1-y0,cs,0,DO); if (i>dy/2) break; - i=loop(bp,x,dy-1,y1-y0,cs,0,UP); if (i>dy/2) break; - } if( x<dx-dx/4 ) Break; - - if( num_cross(x0 , x1, y1, y1,box1->p,cs) == 1 ) - if( num_cross(x0 , x1, y0, y0,box1->p,cs) == 1 ) - if( loop(bp,dx-1, 0,y1-y0,cs,0,DO)> dy/4 - && loop(bp,dx-1,dy-1,y1-y0,cs,0,UP)> dy/4 ) Break; // ~o - if( loop(bp,dx/2,dy-1,y1-y0,cs,0,UP)> dy/4 ) Break; // ~q - - if (hchar) ad=98*ad/100; - if (gchar) ad=98*ad/100; - // handwritten-a (alpha) - Setac(box1,'a',ad); - break; - } - // --- test A_A_WITH_OGONEK 0x0104 Centr.Eur.Font ------------------------- - /* not sure if we should move this to a get_CentralEuropean-function */ - for(ad=d=100;dx>2 && dy>4;){ // min 3x4 - DBG( wchar_t c_ask='A'; ) - if (sdata->holes.num > 2) break; /* tolerant against a tiny hole */ - // first selection (grobes Sieb) - if( get_bw(dx/2,dx/2,dy-1-dy/8,dy-1,bp,cs,1) == 1 ) break; // ~B - if( num_cross(0,dx-1, 1 , 1 ,bp,cs)!=1 // 600dpi - && num_cross(0,dx-1, dy/8 , dy/8 ,bp,cs)!=1 - && num_cross(0,dx-1, dy/16 , dy/16 ,bp,cs)!=1 - && num_cross(0,dx-1, dy/8+1, dy/8+1,bp,cs)!=1 ) break; - if( num_cross(0,dx-1, dy-1 , dy-1 ,bp,cs)!=1 ) break; - if( num_cross(0,dx-1, dy/4 , dy/4 ,bp,cs)!=2 - && num_cross(0,dx-1, dy/3 , dy/3 ,bp,cs)!=2 ) break; - if ( num_cross( 0,dx/8,dy/8, 0,bp,cs)>0 ) break; // ~R - for(y=dy/8;y<dy/2;y++) if( num_cross(0,dx-1,y,y,bp,cs) > 1 ) break; - if( y==dy/2 ) break; i1=y; - if (dy>20) i1++; /* get arround some noise fat font */ - - x =loop(bp,0,i1,dx,cs,0,RI); if(x>3*dx/4) break; - x+=loop(bp,x,i1,dx,cs,1,RI); if(x>3*dx/4) break; i2=x; - x+=loop(bp,x,i1,dx,cs,0,RI); if(x<3*dx/8) break; i2=(x+i2)/2; - // hole (i2,i1) - y+=loop(bp,i2,y,dy,cs,1,DO); - y+=loop(bp,i2,y,dy,cs,0,DO); if(y>3*dy/4) ad=ad*99/100; - if (y>5*dy/6) break; - - if( sdata->holes.num != 1 || sdata->holes.hole[0].y1 >= dy-1-dy/4) break; - // if( num_hole ( x0, x1, y0, y1-dy/4 ,box1->p,cs,NULL) != 1 ) break; - // out_x(box1); - i3=0;i4=0; - for(x=dx/3;x<2*dx/3;x++){ - i4=num_cross(i2,x,y ,dy-1,bp,cs);if(i4<1 || i4>2) - i4=num_cross(i2,x,y+dy/16,dy-1,bp,cs);if(i4<1 || i4>2) break; - if(i4==1) i3=x; - } if(i4<1 || i4>2 || i3==0){ -// ToDo: g_debug_A(printf(" A: x,y,i4,i3= %d %d %d %d\n",x,y,i4,i3);) - break; - } - if( get_bw(dx-1-dx/4, dx-1, dy-1-dy/4, dy-1, bp,cs,1) != 1 ) break; - /* dy/4 changed to dy/6 because of screenfonts */ - /* there are strange fonts, one has a serif on the upper end of A */ - if ( num_cross( 0,dx/8,dy/6, 0,bp,cs)>0 ) break; - if ( num_cross(dx-1-dx/4,dx-1, 0,dy/6,bp,cs)>0 ) break; - - i1=loop(bp,dx-1, dy/4,dx,cs,0,LE); - i2=loop(bp,dx-1, dy/2,dx,cs,0,LE); - i3=loop(bp,dx-1,dy-1-dy/4,dx,cs,0,LE); - if( 2*i2+dx/4<i1+i3 || 2*i2-dx/8>i1+i3 ) break; - - i1=loop(bp,0 , dy/4,dx,cs,0,RI); // linke senkr. linie - i2=loop(bp,0 , dy/2,dx,cs,0,RI); - i3=loop(bp,0 ,dy-1-dy/4,dx,cs,0,RI); - if( 2*i2+dx/4<i1+i3 || 2*i2-dx/8>i1+i3 || i1<i3) break; - - // lower ends could be round on thick fonts - for(i3=dx,y=dy/4;y<6*dy/8;y++){ // increasing width - i1=loop(bp, 0, y,dx,cs,0,RI); - i2=loop(bp,dx-1, y,dx,cs,0,LE); - if(i1+i2>i3+dx/16) break; if( i1+12<i3 ) i3=i1+i2; - } if(y<6*dy/8) break; - - if (!hchar) ad=96*ad/100; - if (!gchar) ad=98*ad/100; - Setac(box1,(wchar_t)LATIN_CAPITAL_LETTER_A_WITH_OGONEK,ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_cC(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,i1,i2,i3,i4,i5,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad,t1; /* tmp-vars */ - wchar_t bc=UNKNOWN; - - // --- test c,C --------------------------------------------------- - for(ad=d=100;dx>2 && dy>2;){ // min 3x4 - DBG( wchar_t c_ask='c'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if( get_bw(x0 , x0+dx/3,y0+dy/2, y0+dy/2,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2, x0+dx/2,y1-dy/3, y1, box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2, x0+dx/2,y0 , y0+dy/3,box1->p,cs,1) != 1 ) Break; - if( num_cross(x0,(x0+x1)/2,(y0+y1)/2,(y0+y1)/2,box1->p,cs) > 1 ) Break; // ~ocr-a-[ - - for(y=y0+dy/4;y<y0+3*dy/4;y++) - if( get_bw(x0+dx/2,x1,y,y,box1->p,cs,1) == 0 ) break; - if( y==y0+3*dy/4 ) Break; i1=y; // i1: upper end of right gap - - // measure thickness of line! - t1=loop(bp, 0,dy/2,dx,cs,0,RI); - t1=loop(bp,t1,dy/2,dx,cs,1,RI); - if (t1>dx/2) Break; - - for(y=i1,i2=0,x=x0+dx/2;x<x0+6*dx/8;x++){ - i=y-1+loop(box1->p,x0+dx/2,i1,dy,cs,0,DO); - if( i>i2 ) { i2=i; } - } if(i2<y0+5*dy/8-t1/2) Break; // i2: lowest white point above lower bow - - i3=y+1-loop(box1->p,x0+5*dx/8,i1,dy,cs,0,UP); - i =y+1-loop(box1->p,x0+4*dx/8,i1,dy,cs,0,UP); if(i<i3) i3=i; - if(i3>y0+ dy/4+t1/2) Break; // highest - - for(y=i1;y<y1-dy/8;y++) - if( get_bw(x0+dx/2,x1,y,y,box1->p,cs,1) == 1 ) break; - if( y-i1<dy/6 ) Break; i2=y-1; // lower end of right gap - // pixelbased num_cross for streight lines could fail on small fonts - if( num_cross(x1-dx/4,x1-dx/4,i2,y0,box1->p,cs) < 1 ) Break; // ~L - if (loop(box1->p,x0,y0+3*dy/4,dx,cs,0,RI)>dx/16) - if( num_cross(x0+dx/2,x1,i3 ,y1,box1->p,cs) < 1 - && num_cross(x0+dx/2,x1,y1-dy/4,y1,box1->p,cs) < 1 ) Break; // ~r - - i=1; - for(x=dx/2;x<dx-1 && i;x++) // look for @@ (instead +1 use +delta?) - for(y=dy/2;y<dy-1-dy/8 && i;y++){ // .@ - if( getpixel(bp,x ,y )>=cs - && getpixel(bp,x+1,y )< cs - && getpixel(bp,x+1,y-1)< cs - && getpixel(bp,x ,y-1)< cs ) { i=0;break; } - } - if(!i) ad=95*ad/100; // ~G - - i=loop(bp,0,dy/2,dx,cs,0,RI); - for(y=0;y<dy;y++)if( loop(bp,0,y,dx,cs,0,RI)<i-1-dx/32 ) break; - if( y<dy ) Break; // ~r - // out_x(box1); - for(i5=0,i4=dx,y=dy/2;y>=dy/4;y--){ - x =loop(bp,0,y,dx,cs,0,RI); - x+=loop(bp,x,y,dx,cs,1,RI); if(x>i5) i5=x; - i =loop(bp,x,y,dx,cs,0,RI); if(i<i4) i4=i; - if( i5<x-dx/32 && i>i4+dx/32 ) break; // unusual for c, more a bad e? - } if( y>=dy/4 ) Break; - - if( !hchar ){ // test for e where the middle line is partly removed - x= loop(bp,0,dy/2,dx,cs,0,RI); - x=x +loop(bp,x,dy/2,dx,cs,1,RI); - y=dy/2-loop(bp,x,dy/2,dy,cs,0,UP)-1; - i=x +loop(bp,x,y,dx,cs,1,RI); - i=i +loop(bp,i,y,dx,cs,0,RI); - if( num_cross(x ,x ,1,dy/2,bp,cs) > 1 - || num_cross(x+1,x+1,1,dy/2,bp,cs) > 1 ) - if( num_cross(i-1,i-1,1,dy/2,bp,cs) > 1 - || num_cross(i ,i ,1,dy/2,bp,cs) > 1 ) Break; // ~bad e - } - if( dy>16 && dy>3*dx && hchar ){ // ~[ - x= loop(bp,0, dy/16,dx,cs,0,RI); - x=+loop(bp,0,dy-1-dy/16,dx,cs,0,RI); - i= loop(bp,0, dy/2 ,dx,cs,0,RI)*2; - if( i>=x ) - if( num_cross(0,dx-1,dy/4,dy/4,bp,cs) < 2 ) Break; - - } - if( get_bw(x0,x0,y0 ,y1 ,box1->p,cs,2) != 2 - && get_bw(x0,x1,y0 ,y0 ,box1->p,cs,2) != 2 - && get_bw(x0,x1,y1 ,y1 ,box1->p,cs,2) != 2 - && get_bw(x1,x1,y0+1,y1-1,box1->p,cs,1) != 1 ) Break; /* ~[ */ - - x =loop(bp, 0,dy/2,dx,cs,0,RI); - i =loop(bp,dx-1,dy/2,dx,cs,0,LE); - if( (i<dx/2 || i<3) && hchar && dy>7 ) - if( loop(bp, 0,7*dy/8,dx,cs,0,RI) > x+dx/8 - && loop(bp, 0, dy/8,dx,cs,0,RI) > x+dx/8 - && loop(bp,dx-1,dy-1-dy/ 8,dx,cs,0,LE) - > loop(bp,dx-1,dy-1-dy/16,dx,cs,0,LE) - && loop(bp,dx-1, dy/ 8,dx,cs,0,LE) - > loop(bp,dx-1, dy/16,dx,cs,0,LE) ) Break; // ~( - -// printf(" hchar=%d i1=%d i2=%d %d\n",hchar,i1-y0,i2-y0,9*dy/16); - // ~G without characteristic crotchet - if (hchar && dy>15 && dx>7 && i2-y0<9*dy/16 && i1-y0<=dy/4) - if ( loop(bp,5*dx/8,i2-y0,dy,cs,0,DO) > 2*dy/8 ){ - Setac(box1,'G',90); - Break; - } - - if (hchar){ - i=1; - for(x=dx/2;x<dx-1 && i;x++) // look for @@ (instead +1 use +delta?) - for(y= 1;y<dy/4 && i;y++){ // .@ - if( getpixel(bp,x ,y )>=cs - && getpixel(bp,x+1,y )< cs - && getpixel(bp,x+1,y-1)< cs - && getpixel(bp,x ,y-1)< cs ) { i=0;break; } - } - if (i) ad=98*ad/100; // ~( - if (dy>2*dx) ad=99*ad/100; - } - if( loop(bp,dx-1,dy/2,dx,cs,0,LE) < 6*dx/8 ) ad=98*ad/100; - - i= loop(bp,dx-1,dy/16,dx,cs,0,LE); - j= loop(bp,dx/2,0 ,dy,cs,0,DO); - if (i>=dx/2 && j>dy/8 && j>2 && j<dy/2) Break; // t - - if (dy>=3*dx && dy>12) ad=99*ad/100; // ( - i= loop(bp,dx-1,dy-1,dy,cs,0,UP); - j= loop(bp,dx/2,dy-1,dy,cs,0,UP); - if (i==0 && j>dy/8) ad=95*ad/100; // < - i= loop(bp,dx-1, 0,dy,cs,0,DO); - j= loop(bp,dx/2, 0,dy,cs,0,DO); - if (i==0 && j>dy/8) ad=95*ad/100; // < - if (loop(bp,0,dy-1-dy/8,dx,cs,0,RI)>= 3*dx/4) ad=98*ad/100; // < - if (loop(bp,0,dy-1-dy/8,dx,cs,0,RI)>=(dx+1)/2) ad=98*ad/100; // < - if (loop(bp,0, dy/8,dx,cs,0,RI)>=dx/2) ad=98*ad/100; // < - - if (gchar) ad=98*ad/100; // could happen for 5x7 font - bc=((hchar)?'C':'c'); - Setac(box1,bc,ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_lL(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,i0,i1,i2,i3,i4,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // --- test L --------------------------------------------------- - for(ad=d=100;dx>2 && dy>4;){ // min 3x4 - DBG( wchar_t c_ask='L'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - i=loop(bp,dx-1,dy/2,dx,cs,0,LE); - if (i<3 && dy>8) {Break;} - if (i<dx/2) ad=98*ad/100; // ~G - - if (dx<8 && 3*loop(bp,dx-1,0,dy,cs,0,DO)<=dy) break; // ~G - for( i=i1=0,y=y1-dy/4;y<=y1;y++){ // check bottom line (i1) - j=loop(box1->p,x0 ,y,dx,cs,0,RI); - j=loop(box1->p,x0+j,y,dx,cs,1,RI); if( j>i ){ i=j;i1=y; } - } if( i<3*dx/4 ) Break; i1=i; // length of horizontal line - // line thickness (i2) - i=loop(box1->p,x0 ,y0+dy/2,dx,cs,0,RI); if( i>dx/2 ) Break; - j=loop(box1->p,x0+i,y0+dy/2,dx,cs,1,RI); if( i+j>dx/2 ) Break; i2=j; - if (loop(bp,dx-1, 0,dx,cs,0,LE)<dx/8 - && loop(bp,dx-1, dy/4,dx,cs,0,LE)>dx/2 - && loop(bp, 0,5*dy/8,dx,cs,0,RI)<dx/4 - && loop(bp,dx-1,3*dy/4,dx,cs,0,LE)<dx/4) Break; // ~G - for( i=1,y=y0;y<=y1-dy/4 && i;y++){ // check vertical line - j=loop(box1->p,x0 ,y,dx,cs,0,RI); - if ( j>(dx+2)/4+(y1-dy/4-y)*dx/2/dy ) { i=0; break; } - x=loop(box1->p,x0+j,y,dx,cs,1,RI); - if( ((x>i2+1 || 4*x<3*i2) && y>y0+dy/8) || 4*x>3*i1 ) i=0; - } if( !i ) Break; - if( num_cross(0, dx-1-dx/8, dy-1-dy/2, dy-1-dy/2,bp,cs) != 1 ) Break; - if( num_cross(0, dx-1 , dy/3 , dy/3,bp,cs) != 1 ) Break; - if( num_cross(0, dx-1 , dy/8 , dy/8,bp,cs) != 1 ) Break; - if (loop(bp,0,dy-1,dx,cs,0,RI) - -loop(bp,0,dy-3,dx,cs,0,RI)>1+dx/16) ad=96*ad/100; // ~c - if (loop(box1->p,x0+dx/4,y1,dy,cs,0,UP)>1+dy/16) ad=99*ad/100; // ~4 - - if ( gchar) ad=98*ad/100; - if (!hchar) ad=99*ad/100; - if (5*dx<2*dy && loop(box1->p,x0,y1,dx,cs,0,RI)>dx/4) ad=99*ad/100; // ~l - Setac(box1,'L',ad); - break; - } - // --- test l --------------------------------------------------- - // recognize a "l" is a never ending problem, because there are lots of - // variants and the char is not very unique (under construction) - // --- test italic l --------------------------------------------------- - // --- test l ~italic (set flag-italic) -------------------------------- - // if unsure d should be multiplied by 80..90% - for(ad=d=100; dy>dx && dy>5;){ // min 3x4 - DBG( wchar_t c_ask='l'; ) - if( box1->dots>0 ) Break; - if( num_cross(0, dx-1,dy/2,dy/2,bp,cs) != 1 - || num_cross(0, dx-1,dy/4,dy/4,bp,cs) != 1 ) Break; - // mesure thickness - for(i1=0,i2=dx,y=dy/4;y<dy-dy/4;y++){ - j = loop(bp,0,y,dx,cs,0,RI); - j = loop(bp,j,y,dx,cs,1,RI); - if( j>i1 ) { i1=j; } // thickest - if( j<i2 ) { i2=j; } // thinnest - } - if ( i1>2*i2 ) Break; - if(box1->m3 && dy<=box1->m3-box1->m2) ad=94*ad/100; - if( box1->m2-box1->m1>1 && y0>=box1->m2 ) ad=94*ad/100; - for(i0=0,i3=0,y=0;y<dy/4;y++){ - j = loop(bp,0,y,dx,cs,0,RI); - if( j>i3 ) { i3=j; } // widest space - j = loop(bp,j,y,dx,cs,1,RI); - if( j>i0 ) { i0=j;i3=0; } // thickest - } - if ( i0>4*i2 || 3*i3>2*dx) - if ( loop(bp,dx-1,dy-1,dx,cs,0,LE)>3*dx/8 - || loop(bp, 0,dy-1,dx,cs,0,RI)>3*dx/8) Break; // ~7 - - // detect serifs - x =loop(bp,0, 0,dx,cs,0,RI); - i3=loop(bp,x, 0,dx,cs,0,RI); - x =loop(bp,0, 1,dx,cs,0,RI); - x =loop(bp,x, 1,dx,cs,0,RI); if(x>i3) i3=x; - x =loop(bp,0,dy-1,dx,cs,0,RI); - i4=loop(bp,x,dy-1,dx,cs,0,RI); - x =loop(bp,0,dy-2,dx,cs,0,RI); - x =loop(bp,x,dy-2,dx,cs,0,RI); if(x>i4) i4=x; - if( i3>i1+dx/8+1 && i4>i1+dx/8+1 ) Break; // ~I - - for(i=dx,j=0,y=1;y<dy/4;y++){ - x=loop(bp,dx-1,y,dx,cs,0,LE); if(x>i+1) break; i=x; - if( num_cross(0,dx-1,y ,y ,bp,cs)==2 - && num_cross(0,dx-1,y+1+dy/32,y+1+dy/32,bp,cs)==2 ) j=1; - } if ( y<dy/4 ) Break; - if(j){ // if loop at the upper end, look also on bottom - for(y=3*dy/4;y<dy;y++){ - if( num_cross(0,dx-1,y ,y ,bp,cs)==2 - && num_cross(0,dx-1,y-1-dy/32,y-1-dy/32,bp,cs)==2 ) break; - } if ( y==dy ) Break; - } - - // if( get_bw(x0,x1,y0,y1,p,cs,2) == 0 ) Break; // unsure !I| - - if(dx>3) - if( get_bw(dx-1-dx/8,dx-1,0,dy/6,bp,cs,1) != 1 ) - if( get_bw(dx-1-dx/8,dx-1,0,dy/2,bp,cs,1) == 1 ) Break; - - if( get_bw(dx-1-dx/8,dx-1,dy/4,dy/3,bp,cs,1) != 1 ) // large I ??? - if( get_bw(0 ,dx/8,dy/4,dy/3,bp,cs,1) != 1 ) - if( get_bw(dx-1-dx/8,dx-1,0 ,dy/8,bp,cs,1) == 1 ) - if( get_bw(0 ,dx/8,0 ,dy/8,bp,cs,1) == 1 ) ad=ad*97/100; - if( get_bw(dx-1-dx/8,dx-1,dy/2,dy-1,bp,cs,1) != 1 ) // r ??? - if( get_bw(0 ,dx/8,dy/2,dy-1,bp,cs,1) == 1 ) - if( get_bw(dx-1-dx/8,dx-1,0 ,dy/3,bp,cs,1) == 1 ) - if( get_bw(0 ,dx/8,0 ,dy/3,bp,cs,1) == 1 ) Break; - - for( y=1;y<12*dy/16;y++ ) - if( num_cross(0, dx-1, y , y ,bp,cs) != 1 // sure ? - && num_cross(0, dx-1, y-1, y-1,bp,cs) != 1 ) break; - if( y<12*dy/16 ) Break; - - if(dx>3){ - for( y=dy/2;y<dy-1;y++ ) - if( get_bw(dx/4,dx-1-dx/4,y,y,bp,cs,1) != 1 ) break; - if( y<dy-1 ) Break; - } - // test ob rechte Kante gerade - for(x=dx,y=bp->y-1-5*dy/16;y>=dy/5;y--){ // rechts abfallende Kante/Knick? - i=loop(bp,bp->x-1,y,x1-x0,cs,0,LE); - if( i-2-dx/16>=x ) break; - if( i<x ) x=i; - } - if (y>=dy/5 ) Break; - - // test ob linke Kante gerade - for(x=0,y=bp->y-1-dy/5;y>=dy/5;y--){ // rechts abfallende Kante/Knick? - i=loop(bp,0,y,x1-x0,cs,0,RI); - if( i+2+dx/16<x ) break; - if( i>x ) x=i; - } - if (y>=dy/5 ) Break; - if (box1->m4 && y1<box1->m4) - if ( get_bw(x0,x1,y1+1,box1->m4+dy/8,box1->p,cs,1) == 1 ) - ad=ad*97/100; // unsure !l| - i=loop(bp,dx-1,dy/16,dx,cs,0,LE); - j=loop(bp,dx-1,dy/2 ,dx,cs,0,LE); - if( i>3 && j>3 ) - if( get_bw(dx-1-i/2,dx-1-i/2,0,dy/2,bp,cs,1) == 1 ) Break; // ~t - - for(y=5*dy/8;y<dy;y++) - if( num_cross(0,dx-1,y,y,bp,cs) == 2 ) break; - if( y<dy ){ - i =loop(bp,0,y,dx,cs,0,RI); - i+=loop(bp,i,y,dx,cs,1,RI); - i+=loop(bp,i,y,dx,cs,0,RI)/2; // middle of v-gap - if( num_cross(0,i,5*dy/8,5*dy/8,bp,cs)==0 - && num_cross(i,i,5*dy/8, y,bp,cs)==0 ) Break; // ~J - } - if ( dx>8 - && loop(bp, 0,3*dy/4,dx,cs,0,RI)>=dx/4 - && loop(bp, 0,7*dy/8,dx,cs,0,RI)<=dx/8 - && loop(bp,dx-1,3*dy/4,dx,cs,0,LE)<=dx/8 - && loop(bp,dx-1,7*dy/8,dx,cs,0,LE)<=dx/8 ) Break; // ~J - - if ( 2*i3>5*i1 ) // hmm \tt l can look very similar to 7 - if ( loop(bp,0,dy/4,dx,cs,0,RI)>dx/2 - && get_bw(0,dx/8,0,dy/4,bp,cs,1) == 1 ) Break; // ~7 - - if ( loop(bp,dx-1,dy/2,dx,cs,0,LE)>dx/2 - && get_bw(3*dx/4,dx-1,3*dy/4,dy-1,bp,cs,1) == 1) { - if (loop(bp,0,dy-1,dx,cs,0,RI)<dx/8) ad=99*ad/100; // ~L - if(5*dx>2*dy) ad=99*ad/100; // ~L - if(5*dx>3*dy) ad=99*ad/100; // ~L - } - if(!hchar){ // right part (bow) of h is never a l - if( get_bw(dx/4,dx/4, 0,dy/4,bp,cs,1) == 1 - && get_bw(dx/4,dx/4,dy/2,dy-1,bp,cs,1) == 0 ) Break; - } - if( dx>3 && dy>3*dx ) - if( loop(bp,dx/4,dy-1 ,dy,cs,0,UP)< dy/4 - && loop(bp, 0,dy-1-dy/8,dx,cs,0,RI)>=dx/2 - && loop(bp,dx-1,dy-1-dy/8,dx,cs,0,LE)<=dx/4 ){ - ad=98*ad/100; // ~] - if ( loop(bp,dx-1,dy/2,dx,cs,0,LE)==0 ) Break; - } - - for(x=0;x<dx/2;x++) - if( get_bw( x, x, 0,dy/4 ,bp,cs,1) == 1 ) break; - // works only for perpenticular char - if( get_bw( x,x+dx/16, 0,dy/16,bp,cs,1) == 0 - && get_bw( x,x+dx/16,dy/4 ,dy/2 ,bp,cs,1) == 0 - && get_bw( x,x+dx/16,dy/16,dy/4 ,bp,cs,1) == 1 ){ - for(i=dx,y=0;y<dy/4;y++){ - x=loop(bp,0,y,dx,cs,0,RI); - if( x>i ) break; - } - if( x>=loop(bp,0,y+1,dx,cs,0,RI) ) - if( loop(bp,0 ,0,dy,cs,0,DO)>1 ) - if( loop(bp,0 ,0,dy,cs,0,DO) - - loop(bp,dx/16+1,0,dy,cs,0,DO) < dx/16+1 ) Break; // ~1 Jul00,Nov00 - if( num_cross(0,dx/2,y-1,y-1,bp,cs)==2 ) Break; // ~1 - } - if(dx<8 && dy<12){ // screen font - i= loop(bp,0,0,dy,cs,0,DO); - if( loop(bp,dx/2,1,dy,cs,1,DO)>=dy-2 - && loop(bp,0,dy/2,dx,cs,0,RI)>=2 - && i>1 && i<dy/2 ) Break; // ~1 - } - if( get_bw(x1,x1,y0 ,y1 ,box1->p,cs,2) != 2 - && get_bw(x0,x1,y0 ,y0 ,box1->p,cs,2) != 2 - && get_bw(x0,x1,y1 ,y1 ,box1->p,cs,2) != 2 - && get_bw(x0,x0+dx/4,y0+1+dy/16,y1-1-dy/16,box1->p,cs,1) != 1 ) Break; /* ~] */ - i=loop(bp,dx-1,dy/2,dx,cs,0,LE); - if( loop(bp, 0,dy/2,dx,cs,0,RI)>=dx/2 - && (i<dx/2 || i==0) ) ad=98*ad/100; // ~] - if( get_bw(x0,x0,y0 ,y1 ,box1->p,cs,2) != 2 - && get_bw(x0,x1,y0 ,y0 ,box1->p,cs,2) != 2 - && get_bw(x0,x1,y1 ,y1 ,box1->p,cs,2) != 2 - && get_bw(x1-dx/4,x1,y0+1+dy/16,y1-1-dy/16,box1->p,cs,1) != 1 ) Break; /* ~[ */ - - x =loop(bp, 0,dy/2,dx,cs,0,RI); // konvex/konkav? ~() - i =loop(bp,dx-1,dy/2,dx,cs,0,LE); - if( loop(bp, 0,7*dy/8,dx,cs,0,RI) > x+dx/8 - && loop(bp, 0, dy/8,dx,cs,0,RI) > x+dx/8 - && loop(bp,dx-1,7*dy/8,dx,cs,0,LE) < i-dx/8 - && loop(bp,dx-1, dy/8,dx,cs,0,LE) < i-dx/8 ) Break; // ~( - if( loop(bp, 0,7*dy/8,dx,cs,0,RI) < x-dx/8 - && loop(bp, 0, dy/8,dx,cs,0,RI) < x-dx/8 - && loop(bp,dx-1,7*dy/8,dx,cs,0,LE) > i+dx/8 - && loop(bp,dx-1, dy/8,dx,cs,0,LE) > i+dx/8 ) Break; // ~) - - i= loop(bp, 0, 0,dy,cs,0,DO); // horizontal line? - if(dy>=12 && i>dy/8 && i<dy/2){ - if( loop(bp,dx-1,3*dy/16,dx,cs,0,LE)-dx/8 - >loop(bp,dx-1, i,dx,cs,0,LE) - || loop(bp,dx-1,3*dy/16,dx,cs,0,LE)-dx/8 - >loop(bp,dx-1, i+1,dx,cs,0,LE) ) - if( loop(bp,dx-1,8*dy/16,dx,cs,0,LE)-dx/8 - >loop(bp,dx-1, i,dx,cs,0,LE) - || loop(bp,dx-1,8*dy/16,dx,cs,0,LE)-dx/8 - >loop(bp,dx-1, i+1,dx,cs,0,LE) ) - if( loop(bp, 0,3*dy/16,dx,cs,0,RI)-dx/8 - >loop(bp, 0, i,dx,cs,0,RI) - || loop(bp, 0,3*dy/16,dx,cs,0,RI)-dx/8 - >loop(bp, 0, i+1,dx,cs,0,RI) ) - if( loop(bp, 0,8*dy/16,dx,cs,0,RI)-dx/8 - >loop(bp, 0, i,dx,cs,0,RI) - || loop(bp, 0,8*dy/16,dx,cs,0,RI)-dx/8 - >loop(bp, 0, i+1,dx,cs,0,RI) ) Break; // ~t - if( loop(bp, 0,i-1,dx,cs,0,RI)>1 && dx<6 ) Break; // ~t - if( loop(bp, 0,8*dy/16,dx,cs,0,RI)>dx/8 - && loop(bp, 0, i,dx,cs,1,RI)>=dx-1 - && loop(bp,dx-1,8*dy/16,dx,cs,0,LE)>dx/8 - && loop(bp,dx-1, i-1,dx,cs,0,LE)>dx/8 ) Break; // ~t - } -// if( vertical_detected && dx>5 ) - if( loop(bp,0, 1,dx,cs,0,RI)>=dx/2 - && ( loop(bp,0,dy-2,dx,cs,0,RI)<=dx/8 - || loop(bp,0,dy-1,dx,cs,0,RI)<=dx/8 ) ) - if( ( loop(bp,dx-1, 0,dx,cs,0,LE)<=dx/8 - || loop(bp,dx-1, 1,dx,cs,0,LE)<=dx/8 ) - && loop(bp,dx-1,dy-2,dx,cs,0,LE)>=dx/2 ) ad=98*ad/100; // ~/ - - if( get_bw(x0,x1,y0,y1,box1->p,cs,2) == 0 ) ad=99*ad/100; - - if (!hchar || loop(bp,0,dy/4,dx,cs,0,RI)>dx/2){ // ~z - i=loop(bp,0,dy/16 ,dx,cs,0,RI); - i=loop(bp,i,dy/16 ,dx,cs,1,RI); j=i; - i=loop(bp,0,dy/16+1,dx,cs,0,RI); - i=loop(bp,i,dy/16+1,dx,cs,1,RI); if (i>j) j=i; - i=loop(bp,0,dy/16+2,dx,cs,0,RI); - i=loop(bp,i,dy/16+2,dx,cs,1,RI); if (i>j) j=i; - if (j*4>=dx*3) ad=98*ad/100; // ~z - if (j*8>=dx*7) ad=96*ad/100; // ~z - } - - if( get_bw(x0,x0,y1,y1,box1->p,cs,2) == 0 ) ad=99*ad/100; - if( get_bw(x1,x1,y1,y1,box1->p,cs,2) == 0 ) ad=99*ad/100; - if (ad==100) ad--; /* I have to fix that: - .@@@@.<- - @@..@@ - ....@@ - ....@@< - ...@@. - ..@@@. - ..@@.. - .@@... - @@.... - @@@@@@<- - */ - if(!hchar) ad=ad*99/100; - if( gchar) ad=ad*99/100; - Setac(box1,'l',ad); -// if( i<100 ) Break; ???? -// if( loop(bp,0, 1,dx,cs,0,RI)<=dx/8 -// && loop(bp,0,dy/2,dx,cs,0,RI)<=dx/8 -// && loop(bp,0,dy-2,dx,cs,0,RI)<=dx/8 ) vertical_detected=1; - break; - } - return box1->c; -} - -static wchar_t ocr0_oO(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - wchar_t bc=UNKNOWN; - - // --- test o,O --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='o'; ) - if (sdata->holes.num !=1 ) Break; - if( get_bw(x0 , x0+dx/2,y0+dy/2 , y0+dy/2,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1-dx/2 , x1 ,y0+dy/2 , y0+dy/2,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2 , x0+dx/2,y1-dy/2 , y1, box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2 , x0+dx/2,y0 , y0+dy/2,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2 , x0+dx/2,y0+dy/2 , y1-dy/3,box1->p,cs,1) != 0 ) Break; - if (sdata->holes.hole[0].y0 > dy/3 - || sdata->holes.hole[0].y1 < dy-1-dy/3) Break; - - if( num_cross(x0+dx/2 ,x0+dx/2 ,y0, y1 ,box1->p,cs) != 2 - && num_cross(x0+dx/2+1,x0+dx/2+1,y0, y1 ,box1->p,cs) != 2 ) Break; - if( num_cross(x0+dx/3,x1-dx/4,y0 , y0 ,box1->p,cs) != 1 ) // AND - if( num_cross(x0+dx/3,x1-dx/4,y0+1 , y0+1,box1->p,cs) != 1 ) Break; - if( num_cross(x0+dx/4,x1-dx/3,y1 , y1 ,box1->p,cs) != 1 ) // against "rauschen" - if( num_cross(x0+dx/4,x1-dx/3,y1-1 , y1-1,box1->p,cs) != 1 ) Break; - if( num_cross(x0 ,x0 ,y0+dy/3 , y1-dy/3,box1->p,cs) != 1 ) - if( num_cross(x0+1 ,x0+1 ,y0+dy/3 , y1-dy/3,box1->p,cs) != 1 ) Break; - if( num_cross(x1 ,x1 ,y0+dy/3 , y1-dy/3,box1->p,cs) != 1 ) - if( num_cross(x1-1 ,x1-1 ,y0+dy/3 , y1-dy/3,box1->p,cs) != 1 ) Break; - - if( loop(bp,0 ,0 ,x1-x0,cs,0,RI)<= - loop(bp,0 ,2 ,x1-x0,cs,0,RI) ) Break; - - x=loop(bp,dx-1,dy-1-dy/3,x1-x0,cs,0,LE); // should be minimum - for( y=dy-1-dy/3;y<dy;y++ ){ - i=loop(bp,dx-1,y,x1-x0,cs,0,LE); - if( i<x ) break; x=i; - } - if( y<dy ) Break; - - // ~D - if( loop(bp,0, dy/16,dx,cs,0,RI) - + loop(bp,0,dy-1-dy/16,dx,cs,0,RI) - <= 2*loop(bp,0, dy/2 ,dx,cs,0,RI)+dx/8 ) Break; // not konvex - if( loop(bp,0 , 1+dy/16,dx,cs,0,RI) + dx/4 - <= loop(bp,dx-1, 1+dy/16,dx,cs,0,LE) ) Break; // Dec00 - - if( loop(bp,dx-1, dy/16,dx,cs,0,LE)>dx/8 ) - if( loop(bp,0 , dy/16,dx,cs,0,RI)<dx/16 ) Break; - if( loop(bp,dx-1,dy-1-dy/16,dx,cs,0,LE)>dx/8 ) - if( loop(bp,0 ,dy-1-dy/16,dx,cs,0,RI)<dx/16 ) Break; - if( get_bw(x1-dx/32,x1,y0,y0+dy/32,box1->p,cs,1) == 0 - && get_bw(x1-dx/32,x1,y1-dy/32,y1,box1->p,cs,1) == 0 -// && ( get_bw(x0,x0+dx/32,y0,y0+dy/32,box1->p,cs,1) == 1 - && ( get_bw(0,dx/32,0,dy/32,bp,cs,1) == 1 - || get_bw(x0,x0+dx/32,y1-dy/32,y1,box1->p,cs,1) == 1 ) ) Break; // ~D - - // search lowest inner white point - for(y=dy,j=x=0;x<dx;x++) { - i =loop(bp,x,dy-1 ,y1-y0,cs,0,UP); - i+=loop(bp,x,dy-1-i,y1-y0,cs,1,UP); - if (i<=y) { y=i; j=x; } - } i=y; - // italic a - for(y=dy-1-i;y<dy-1;y++) - if( num_cross(j,dx-1,y,y,bp,cs) > 1 ) ad=99*ad/100; // ~a \it a - for(y=0;y<dy-1-i;y++) - if( num_cross(0,dx-1,y,y,bp,cs) > 2 ) ad=98*ad/100; // ~a \it a - if (loop(bp,dx-1,dy-1,x1-x0,cs,0,LE)<dx/8) ad=98*ad/100; // \it a - if (loop(bp,dx-1, 0,x1-x0,cs,0,LE)<dx/8) ad=98*ad/100; // \it a - if (loop(bp,dx-1,dy-1-dy/8,x1-x0,cs,0,LE)+1+dx/16 - <loop(bp, 0,dy-1-dy/8,x1-x0,cs,0,RI)) - { ad=99*ad/100; MSG(fprintf(stderr,"ad=%d",ad);) } // \it a - if (loop(bp,dx-1,dy-1,y1-y0,cs,0,UP)+1+(dy+3)/8 - <loop(bp, 0,dy-1,y1-y0,cs,0,UP)) - { ad=98*ad/100; MSG(fprintf(stderr,"ad=%d",ad);) } // \it a - - if (abs(loop(bp,dx/2, 0,dy,cs,0,DO) - -loop(bp,dx/2,dy-1,dy,cs,0,UP))>dy/8 - || num_cross(0,dx-1, 0, 0,bp,cs) > 1 - || num_cross(0,dx-1,dy-1,dy-1,bp,cs) > 1 - ) ad=98*ad/100; // ~bq - - if( hchar && 2*y0<box1->m1+box1->m2 ) i=1; else i=0; - if (gchar) ad=99*ad/100; - bc='o'; - if( i ){ bc='O'; } - if ( bc=='O' && ad>99) ad=99; /* we can never 100% sure, 0O */ - Setac(box1,bc,ad); - if (bc=='O') Setac(box1,'0',ad); - if (bc=='o') Setac(box1,'0',98*ad/100); - break; - } - return box1->c; -} - -static wchar_t ocr0_pP(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,i1,i2,i3,i4,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - wchar_t bc=UNKNOWN; - - // --- test pP --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='p'; ) - if (sdata->holes.num > 2) Break; /* tolerant against a tiny hole */ - if( get_bw(0 , dx/2,3*dy/4,3*dy/4,bp,cs,1) != 1 ) Break; - if( get_bw(0 , dx/2, dy/2, dy/2,bp,cs,1) < 1 ) Break; - if( get_bw(dx/4, dx-1, dy/4, dy/4,bp,cs,1) != 1 ) Break; - i= loop(bp,dx-1,3*dy/4,dx,cs,0,LE); if (i<dx/4) Break; - if( num_cross(x1-3*i/4,x1-3*i/4, y0, y1-3*dy/16,box1->p,cs) != 2 ) - if( num_cross(x0+dx/2 ,x0+dx/2 , y0, y1-3*dy/16,box1->p,cs) != 2 ) - if( num_cross(x0+dx/2+1,x0+dx/2+1, y0, y1-3*dy/16,box1->p,cs) != 2 ) Break; - if( num_cross(0,dx-1,7*dy/8 ,7*dy/8 ,bp,cs) != 1 ) - if( num_cross(0,dx-1,7*dy/8-1,7*dy/8-1,bp,cs) != 1 ) Break; - if( num_cross(0,dx-1, dy/4 , dy/4 ,bp,cs) != 2 ) - if( num_cross(0,dx-1, dy/4-1, dy/4-1,bp,cs) != 3 ) // \it p with nice kurve - if( num_cross(0,dx-1, dy/4 , dy/4 ,bp,cs) != 2 ) - if( num_cross(0,dx-1, dy/4+1, dy/4+1,bp,cs) != 2 ) Break; - - i= loop(bp,0,dy/2,dx,cs,0,RI); if(i<1) i++; - if( num_cross(i-1,dx-1, dy/4 , dy/4 ,bp,cs) != 2 ) - if( num_cross(i-1,dx-1, dy/4+1, dy/4+1,bp,cs) != 2 ) Break; - - i1= loop(bp, 0,3*dy/8,dx,cs,0,RI); if (i1>=dx/2) ad=90*ad/100; - i2=i1+loop(bp,i1,3*dy/8,dx,cs,1,RI); // upper x-position of v line - i3= loop(bp, 0,7*dy/8,dx,cs,0,RI); - i4=i3+loop(bp,i3,7*dy/8,dx,cs,1,RI); // lower x-position of v line - // out_x(box1);printf(" p:"); - for ( y=dy/8; y<7*dy/8; y++ ){ - x=i2+ (8*y-3*dy)*(i4-i2)/(4*dy); // right limit of line - i= loop(bp,0,y,dx,cs,0,RI); if(i>x+dx/16) break; - } if ( y<7*dy/8 ) Break; - for ( x=0,j=y=dy/3; y<dy-dy/8; y++ ){ // suche unterkante (also 4x6) - i=loop(bp,dx-1,y,dx,cs,0,LE); - if ( i>x ) { x=i; j=y; } if(x>dx/2) break; - } if ( x<dx/2 || x>=dx) Break; - if( get_bw(3*dx/4,dx-1, y , dy-1,bp,cs,1) == 1 ) Break; - - i=num_hole (x0,x1,y0,y1-dy/5,box1->p,cs,NULL); - // j=num_hole (x0,x1,y0,y1 ,box1->p,cs,NULL); - j=sdata->holes.num; - - if (j!=1 && dx< 8) ad=96*ad/100; - if (j!=1 && dx>=8) ad=98*ad/100; - if (i==0 && j==0) ad=90*ad/100; /* some times there is a small gap */ - if (i>1 || j>1 || j>i) Break; - - // check for serif F - i= loop(bp,bp->x-1, bp->y/4, dx ,cs,0,LE); - i=i+loop(bp,bp->x-1-i,bp->y/4, dx ,cs,1,LE); - j= loop(bp,bp->x-1-i,bp->y/4,3*dy/4,cs,0,DO); - if (j>dy/2) ad=80*ad/100; // its an serif-F - - if( ((!hchar) && (!gchar)) || (hchar && gchar)) ad=95*ad/100; - bc='p'; - if( hchar && ((!gchar) || dy<14)) bc='P'; - if ( hchar && gchar) ad=98*ad/100; // \ss sz - if ((!hchar) && !gchar) ad=98*ad/100; - - Setac(box1,bc,ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_qQ(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad; /* tmp-vars */ - - // --- test Q --------------------------------------------------- - for(ad=d=100;dx>2 && dy>4;){ // min 3x4 - DBG( wchar_t c_ask='Q'; ) - if (sdata->holes.num > 2) Break; /* tolerant against a tiny hole */ - if( get_bw(x0 ,x0+dx/3,y0+dy/3,y0+dy/3,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1-dx/3,x1 ,y0+dy/3,y0+dy/3,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2,x0+dx/2,y1-dy/3,y1, box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2,x0+dx/2,y0 ,y0+dy/4,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2,x0+dx/2,y0+dy/3,y1-dy/2,box1->p,cs,1) == 1 ) Break; - if( get_bw(x1 ,x1 ,y0 ,y0 ,box1->p,cs,1) == 1 ) Break; //alpha - if( num_cross(x0+dx/2,x0+dx/2,y0 , y1 ,box1->p,cs) < 2 ) Break; - if( num_cross(x0+dx/5,x1-dx/5,y0 , y0 ,box1->p,cs) != 1 ) // AND - if( num_cross(x0+dx/5,x1-dx/5,y0+1 , y0+1 ,box1->p,cs) != 1 ) Break; - if( num_cross(x0 ,x0 ,y0+dy/3 , y1-dy/3,box1->p,cs) != 1 ) - if( num_cross(x0+1 ,x0+1 ,y0+dy/3 , y1-dy/3,box1->p,cs) != 1 ) Break; - if( get_bw(x1 ,x1 ,y1-dy/8 , y1 ,box1->p,cs,1) == 0 ) - if( num_cross(x1 ,x1 ,y0+dy/3 , y1-dy/3,box1->p,cs) != 1 ) - if( num_cross(x1-1 ,x1-1 ,y0+dy/3 , y1-dy/3,box1->p,cs) != 1 ) Break; - // i=num_hole(x0,x1,y0,y1,box1->p,cs,NULL); - i=sdata->holes.num; - if(!i) Break; - if( i!=1 && (i!=2 || num_hole(x0,x1,y0+dy/2,y1,box1->p,cs,NULL)!=1) ) Break; - x=x1;y=y1; - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,LE,ST); if( x<x1-dx/2 ) Break; - turmite(box1->p,&x,&y,x0,x1,y0,y1,cs,ST,LE); - if( x<x1-dx/2 ) { if (gchar) ad=98*ad/100; else ad=90*ad/100; } - if( loop(bp,0 ,0 ,dx,cs,0,RI) - < loop(bp,0 ,2 ,dx,cs,0,RI) ) Break; - if( loop(bp,0 ,dy/8+2,dx,cs,0,RI) - +loop(bp,dx-1,dy/8+2,dx,cs,0,LE) > 5*dx/8 ) Break; // ~4 Okt00 - - x= loop(bp,dx-1,3*dy/8,dy,cs,0,LE); if( x>dx/4 ) Break; - if( loop(bp,dx-1-x,0 ,dy,cs,0,DO) - <= loop(bp,dx-2-x,0 ,dy,cs,0,DO) ) Break; // 4 - - if( loop(bp,dx-1,dy-2,dx,cs,0,LE) - <= loop(bp,dx-1,dy/2,dx,cs,0,LE) ) - if( loop(bp, 1,dy-1,dy,cs,0,UP) - <= loop(bp,dx/2,dy-1,dy,cs,0,UP) ) - if( loop(bp, 0,dy-2,dx,cs,0,RI)>dx/2 ) - if( loop(bp, 0, 0,dx,cs,0,RI)>dx/2 ) Break; // 4 - - if( loop(bp,dx-1,3*dy/4,dx,cs,0,LE) - + loop(bp, 0,3*dy/4,dx,cs,0,RI) - < loop(bp,dx-1,2*dy/4,dx,cs,0,LE) - + loop(bp, 0,2*dy/4,dx,cs,0,RI) ) ad=94*ad/100; // 4 - if( loop(bp,0 ,3*dy/4,dx,cs,1,RI) >= dx ) ad=94*ad/100; // 4 - - - if( loop(bp,dx-1,dy/3,dx,cs,0,LE)> dx/4 ) Break; - j=loop(bp,dx/2,dy-1,dy,cs,0,UP); - if (j>1 && j>dy/8) { - if( get_bw(0,dx/2,dy-1-j/2,dy-1-j/2,bp,cs,1) == 1 ) { // ~RA - if (j<5) ad=95*ad/100; - else Break; - } - } - - // italic a - for(i=0,y=0;y<dy/2;y++) - if( num_cross(0,dx-1,y,y,bp,cs) > 2 ) i++; if(i>dy/8) Break; // ~a \it a - if (i>0) ad=99*ad/100; - - // ~o look at the lower right side for falling line - for(j=x=0,y=dy/2;y<dy;y++){ - i=loop(bp,dx-1,y,dx,cs,0,LE);if(i>x){ x=i; } - if (x-i>j) j=x-i; - if( j>dx/16 ) Break; // falling line detected - } - if (j==0) Break; // no falling line => no Q - if (j<=dx/16) ad=98*ad/100; - if(y1<=box1->m3) ad=98*ad/100; // ~q no underlength! rare - if(!hchar) ad=96*ad/100; - Setac(box1,'Q',ad); - break; - } - // --- test q --------------------------------------------------- - for(ad=d=100;dx>2 && dy>3;){ // min 3x4 - DBG( wchar_t c_ask='q'; ) - if (sdata->holes.num > 2) Break; /* tolerant against a tiny hole */ - for ( y=y0; 2*y<=y0+y1; y++ ){ // detect ring - if( num_cross(x0,x1, y, y,box1->p,cs) == 2 ) Break; - } if (2*y>y0+y1) Break; /* < */ - for ( y=(y0+y1)/2; y<=y1; y++ ){ // detect vert line - if( num_cross(x0, x1, y, y,box1->p,cs) == 1 - && num_cross(x0,x0+dx/2, y, y,box1->p,cs) == 0 ) Break; - } if (y>y1) Break; /* O (y==y1 for 4x6font-q) */ - for ( x=0,j=y=y0+dy/3; y<=y1-dy/8; y++ ){ // detect baseline - i=loop(box1->p,x0,y,dx,cs,0,RI); - if ( i>x ) { x=i; j=y; } - if ( x>dx/2 ) break; - } if ( x<dx/2 || x>=dx) Break; - if (y1-j+1<dy/4) ad=96*ad/100; // ~\it{a} - if( num_cross(x0+x/2,x0+x/2, j, y1,box1->p,cs) != 0 ) ad=96*ad/100; // ~g - if( loop(box1->p,x0+dx/16,j,dy,cs,0,UP)<1+dy/16 ){ - ad=97*ad/100; - if (hchar || !gchar) Break; // 4 - } - if( loop(box1->p,x0+dx/16,j-dy/32-1,dy,cs,1,RI)>=dx-dx/8 - || loop(box1->p,x0+dx/16,j-dy/16-1,dy,cs,1,RI)>=dx-dx/8 ){ - ad=96*ad/100; // 4 - } - if( get_bw(x1-dx/3, x1, y0+dy/3, y0+dy/3,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0, x0+dx/3, y0+dy/3, y0+dy/3,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0, x0+dx/4, y1-dy/8, y1-dy/9,box1->p,cs,1) == 1 ) Break; - if( get_bw(x0, x0+dx/4, y1-dy/5, y1-dy/9,box1->p,cs,1) == 1 ) ad=99*ad/100; - if( num_cross(x0+dx/2,x0+dx/2, y0, j ,box1->p,cs) != 2 ) Break; - // if( num_hole (x0 ,x1 , y0, y1 ,box1->p,cs,NULL) != 1 ) - if (sdata->holes.num != 1) - { if (dx<16) ad=98*ad/100; else Break; } - if( num_hole (x0 ,x1 , y0, j ,box1->p,cs,NULL) != 1 ) - { if (dx<16) ad=98*ad/100; else Break; } - // ~\it g - if( loop(bp,0,dy-1-dy/4,dx,cs,0,RI)>5*dx/8 - && get_bw(dx/4,dx/4,dy-1-dy/4,dy-1,bp,cs,1)==1 ) Break; // ~\it g - // what about unsure m1-m4? - if(!gchar){ ad=ad*99/100; } // ~4 - if( hchar){ ad=ad*99/100; } // ~49 - Setac(box1,'q',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_iIjJ(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,i1,i2,i3,i4,i5,hchar=sdata->hchar,gchar=sdata->gchar, - ax,ay,bx,by,cx,cy,ex,ey, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ad,ya,yb,yc,yd,ye,yf,xa,xb, /* tmp-vars */ - (*aa)[4]=sdata->aa; /* the for line ends, (x,y,dist^2,vector_idx) */ - - // --- test i --------------------------------------------------- - // if(box1->dots==1) // what about \it neighbouring ij - for(ad=d=100;dy>3 && dx>0;){ // min 3x4 without dot - DBG( wchar_t c_ask='i'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - // ToDo: ':' check that high of dot is smaller than the vert. line! - /* - * o <== ya - * o - * - * ooo <== yb - * o - * o - * o - * ooo - */ - ya=y0; - if (box1->dots!=1) ad=98*ad/100; - while(dy>3*dx && box1->m2){ // test for vertical i without detected dot - i= loop(bp,dx/2,dy-1 ,dy,cs,0,UP); - if (dy-1-i<box1->m3-2) break; - i+=loop(bp,dx/2,dy-1-i,dy,cs,1,UP); - // distance upper end to m2 > (m2-m1)/3 - if (3*abs(dy-1-i-box1->m2)>box1->m2-box1->m1) break; - if( get_bw(x0,x1,y0,(box1->m1+box1->m2)/2,box1->p,cs,1) == 1 ) - if( get_bw(x0,x1,y1-i ,y1-i ,box1->p,cs,1) == 0 - || get_bw(x0,x1,y1-i-1,y1-i-1,box1->p,cs,1) == 0 - || get_bw(x0,x1,y1-i-2,y1-i-2,box1->p,cs,1) == 0 ) - { - Setac(box1,'i',ad); - return 'i'; /* beleave me, thats an "i"! */ - } break; - } -// if( box1->dots!=1 ) Break; - if( box1->m2 && 2*y0>=box1->m2+box1->m1 ) ya=box1->m1; - -// out_x(box1); - for (y=ya;2*y<ya+y1;y++) if( get_bw(x0,x1,y,y,box1->p,cs,1) == 1 ) break; - if (2*y>=ya+y1) Break; // hmm, gap only, no dot? - ya=y; - if (box1->m2 && ya>box1->m2+2) Break; - for ( ;2*y<y1+ya;y++) if( get_bw(x0,x1,y,y,box1->p,cs,1) != 1 ) break; - if (2*y>=ya+y1) Break; // hmm no gap - for ( ;2*y<y1+ya;y++) if( get_bw(x0,x1,y,y,box1->p,cs,1) == 1 ) break; - yb=y; - if (5*yb>=3*ya+2*y1) ad=99*ad/100; // large gap - if (2*yb>= ya+ y1) ad=97*ad/100; // very large gap, ~: - if (5*yb>=2*ya+3*y1) Break; // huge gap, ~: - if (loop(bp,dx-1,y+(y1-ya+1)/32,dx,cs,0,LE)>dx/2) // unusual (right part of ouml) - ad=95*ad/100; - - // printf(" num_cross dy/2=%d %d\n",dy/2, num_cross(0,dx-1,dy/2,dy/2,bp,cs)); - // printf(" dots=%d\n",box1->dots); out_x(box1); - // \sl ~f. ! - for (y=y1;y>ya;y--) if( get_bw(x0,x1,y,y,box1->p,cs,1) != 1 ) break; - if (y>(ya+3*y1)/4) Break; - if (y>(ya+2*y1)/3) ad=96*ad/100; - - y=(y1-yb+1)/2+yb-y0; /* only one vertical line, italic i is more an tall S */ - if( num_cross(0,dx-1,y,y,bp,cs) != 1 ) Break; - for(;y<=y1-y0;y++){ if( num_cross(0,dx-1,y,y,bp,cs) != 1 ) break; } yc=y; - for(;y<=y1-y0;y++){ if( num_cross(0,dx-1,y,y,bp,cs) != 2 ) break; } yd=y; - if( yd<3*(y1-yb+1)/4+yb-y0 ) Break; - y=(y1-yb+1)/2+yb-y0; - for(;y>0;y--){ if( num_cross(0,dx-1,y,y,bp,cs) != 1 ) break; } ye=y; - for(;y>0;y--){ if( num_cross(0,dx-1,y,y,bp,cs) != 2 ) break; } yf=y; - if( yf>(y1-yb+1)/4+yb-y0 ) Break; - if(yd>yc+2){ - xa=loop(bp, 0,yc-1,dx,cs,0,RI); - xb=loop(bp,dx-1,yc-1,dx,cs,0,LE); - if( - xb-loop(bp,dx-1,yc,dx,cs,0,LE) /* Dec00 */ - > xa-loop(bp, 0,yc,dx,cs,0,RI) ){ - y= loop(bp,dx-xb,yc-1,dy,cs,0,DO); - if(y>0){ - i=loop(bp,dx-xb-1,yc-1+y-1,dy,cs,0,DO); - if( i>0 ) y+=i-1; - } - if( yc-1+y < yd-1 ) Break; - } else { - y= loop(bp,11*xa/16,yc-1,dy,cs,0,DO); - if( yc-1+y < yd-2 ) Break; - } - } - if(yf<ye-2){ - x=loop(bp,0 ,ye+1,dx,cs,0,RI); - y=loop(bp,x-1,ye+1,dy,cs,0,UP); - i=loop(bp,x ,ye+2-y,dy,cs,0,UP); - if( i>0 ) y+=i-1; - if( ye+1-y > yf+1 ) Break; - } - if( 2*y0 <= box1->m1+box1->m2 - && loop(bp,0, 0,dx,cs,0,RI)+1 - < loop(bp,0,dx/2,dx,cs,0,RI) ) ad=97*ad/100; - - if( gchar ) // i is more often than j, be sure that realy correct Mai00 - if( loop(bp, 0,2*dy/4,dx,cs,0,RI) - -loop(bp,dx-1,2*dy/4,dx,cs,0,LE)>dx/8 ) Break; - - // could be a broken + or similar thing? - if( 3 * ya > box1->m1 + 2*box1->m2 ) ad=90*ad/100; - - if( loop(bp,dx-1,3*dy/4,dx,cs,0,LE)>dx/2 - && loop(bp,dx-1, dy-1,dx,cs,0,LE)<dx/4 ) Break; // ~d=cl - - // test for é - if( dx>5 && num_cross(x0+dx/2,x0+dx/2, ya, y1 ,box1->p,cs) >= 3 ) - ad=95*ad/100; - - Setac(box1,'i',ad); - break; - } - // --- test j --------------------------------------------------- - // if(box1->dots==1) // what about \it neighbouring ij - for(ad=d=100;dy>4 && dx>0;){ // min 3x4 - DBG( wchar_t c_ask='j'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - ya=y0; - if( box1->m2 && 2*y0>=box1->m2+box1->m1 ) ya=box1->m1; - - for(y=ya;2*y<ya+y1;y++) if( get_bw(x0,x1,y,y,box1->p,cs,1) == 1 ) break; - if(2*y>=ya+y1) Break; // hmm only gap - ya=y; - if( box1->m2 && ya>box1->m2+2 ) Break; - for( ;2*y<y1+ya;y++) if( get_bw(x0,x1,y,y,box1->p,cs,1) != 1 ) break; - if(2*y>=ya+y1) Break; // hmm no gap - for( ;2*y<y1+ya;y++) if( get_bw(x0,x1,y,y,box1->p,cs,1) == 1 ) break; - if(2*y>=ya+y1) Break; // hmm very large gap - yb=y; - if( loop(bp,dx-1,y+(y1-ya+1)/32,dx,cs,0,LE)>dx/2 ) Break; // unusual (right part of ouml) - - // printf(" num_cross dy/2=%d %d\n",dy/2, num_cross(0,dx-1,dy/2,dy/2,bp,cs)); - // printf(" dots=%d\n",box1->dots); out_x(box1); - // \sl ~f. ! - for(y=(ya+y1)/2;y<=y1;y++) if( get_bw(x0,x1,y,y,box1->p,cs,1) != 1 ) break; - if(y<=y1) Break; - - y=(y1-yb+1)/2+yb-y0; /* only one vertical line, italic i is more an tall S */ - if( num_cross(0,dx-1,y,y,bp,cs) >2 ) Break; - for(;y<=y1-y0;y++){ if( num_cross(0,dx-1,y,y,bp,cs) != 1 ) break; } yc=y; - for(;y<=y1-y0;y++){ if( num_cross(0,dx-1,y,y,bp,cs) != 2 ) break; } yd=y; - if( yd<3*(y1-yb+1)/4+yb-y0 ) Break; - y=(y1-yb+1)/2+yb-y0; - for(;y>0;y--){ if( num_cross(0,dx-1,y,y,bp,cs) != 1 ) break; } ye=y; - for(;y>0;y--){ if( num_cross(0,dx-1,y,y,bp,cs) != 2 ) break; } yf=y; - if( yf>(y1-yb+1)/4+yb-y0 ) Break; - if(yd>yc+2){ - xa=loop(bp, 0,yc-1,dx,cs,0,RI); - xb=loop(bp,dx-1,yc-1,dx,cs,0,LE); - if( - xb-loop(bp,dx-1,yc,dx,cs,0,LE) /* Dec00 */ - > xa-loop(bp, 0,yc,dx,cs,0,RI) ){ - y= loop(bp,dx-xb,yc-1,dy,cs,0,DO); - if(y>0){ - i=loop(bp,dx-xb-1,yc-1+y-1,dy,cs,0,DO); - if( i>0 ) y+=i-1; - } - if( yc-1+y < yd-1 ) Break; - } else { - y= loop(bp,11*xa/16,yc-1,dy,cs,0,DO); - if( yc-1+y < yd-2 ) Break; - } - } - if(yf<ye-2){ - x=loop(bp,0 ,ye+1,dx,cs,0,RI); - y=loop(bp,x-1,ye+1,dy,cs,0,UP); - i=loop(bp,x ,ye+2-y,dy,cs,0,UP); - if( i>0 ) y+=i-1; - if( ye+1-y > yf+1 ) Break; - } - if( 2*y0 <= box1->m1+box1->m2 - && loop(bp,0, 0,dx,cs,0,RI)+1 - < loop(bp,0,dx/2,dx,cs,0,RI) ) ad=97*ad/100; - if (loop(bp,0,dy-1,dx,cs,0,RI) - -loop(bp,0,dy-3,dx,cs,0,RI)>1+dx/16) ad=96*ad/100; // ~c - - if( gchar ) // i is more often than j, be sure that realy correct Mai00 - if( loop(bp, 0,2*dy/4,dx,cs,0,RI) - -loop(bp,dx-1,2*dy/4,dx,cs,0,LE)<=dx/8 ) Break; - // could be a broken + or similar thing? - if( 3 * ya > box1->m1 + 2*box1->m2 ) ad=80*ad/100; - if (!gchar) ad=96*ad/100; - if( box1->dots!=1 ) ad=98*ad/100; - - Setac(box1,'j',ad); - - break; - } - // --- test I --------------------------------------------------- - for(ad=d=100;dy>4 && dy>dx && 5*dy>4*(box1->m3-box1->m2);){ // min 3x4 - DBG( wchar_t c_ask='I'; ) - if( box1->dots==1 ) Break; - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - - x =loop(bp,0, dy/2,dx,cs,0,RI); // konvex? divided Q - if(loop(bp,0,7*dy/8,dx,cs,0,RI) > x+dx/8) Break; - for( y=dy/16;y<dy-1-dy/16;y++ ) - if( num_cross(0, dx-1, y , y ,bp,cs) != 1 ) - if( num_cross(0, dx-1, y+dy/16 , y+dy/16 ,bp,cs) != 1 ) break; - if( y<dy-1-dy/16 ) Break; - x =loop(bp,0, dy/2,dx,cs,0,RI); - i5=loop(bp,x, dy/2,dx,cs,1,RI); // center width - for(y=dy/4;y<3*dy/4;y++ ){ // same width ? - x =loop(bp,0, y,dx,cs,0,RI); - x =loop(bp,x, y,dx,cs,1,RI); // width - if( abs(x-i5)>1+dx/8 ) break; - } if( y<3*dy/4 ) Break; - // out_x(box1); - - // upper max width - for(i2=i1=0,y=0;y<dy/4;y++ ){ - x =loop(bp,0, y,dx,cs,0,RI); - x =loop(bp,x, y,dx,cs,1,RI); if(x>i1){ i1=x;i2=y; } - } - for(i4=i3=0,y=3*dy/4;y<dy;y++ ){ - x =loop(bp,0, y,dx,cs,0,RI); - x =loop(bp,x, y,dx,cs,1,RI); if(x>i3){ i3=x;i4=y; } - } - if( abs(i3-i1)>1+dx/8 ) Break; // if i3>>i5 more sure! - if( i1>i5 ){ // look for edges else *80% - } - if(i1+1<i5 && !hchar) Break; // Jun00 - - // calculate upper and lower mass center - x =loop(bp,0, dy/8,dx,cs,0,RI); i1=x; - x+=loop(bp,x, dy/8,dx,cs,1,RI); i1=(i1+x-1)/2; - - x =loop(bp,0,dy-1-dy/8,dx,cs,0,RI); i2=x; - x+=loop(bp,x,dy-1-dy/8,dx,cs,1,RI); i2=(i2+x-1)/2; - x =loop(bp,0,dy-2-dy/8,dx,cs,0,RI); i=x; - x+=loop(bp,x,dy-2-dy/8,dx,cs,1,RI); i=(i+x-1)/2; if( i>i2 ) i2=i; - - // printf(" get_line(%d,%d) %d\n",i1,i2, - // get_line2(i1,dy/8,i2,dy-1-dy/8,bp,cs,100)); - if( get_line2(i1,dy/8,i2,dy-1-dy/8,bp,cs,100)<95 ) Break; - x =(i1-i2+4)/8; i1+=x; i2-=x; - - // upper and lower width (what about serifs?) - y=dy/8; - x =loop(bp,i1, y+0,dx,cs,1,LE); i=x; - x =loop(bp,i1, y+1,dx,cs,1,LE); if(x>i)i=x; - x =loop(bp,i1, y+0,dx,cs,1,RI); j=x; - x =loop(bp,i1, y+1,dx,cs,1,RI); if(x>j)j=x; if(abs(i-j)>1+dx/8)Break; - x =loop(bp,i2,dy-y-1,dx,cs,1,LE); j=x; - x =loop(bp,i2,dy-y-2,dx,cs,1,LE); if(x>j)j=x; if(abs(i-j)>1+dx/8)Break; - x =loop(bp,i2,dy-y-1,dx,cs,1,RI); j=x; - x =loop(bp,i2,dy-y-2,dx,cs,1,RI); if(x>j)j=x; if(abs(i-j)>1+dx/8)Break; - - if(dy>15) // v024a4 - if( loop(bp,dx-1,dy/16 ,dx,cs,0,LE) - > loop(bp,dx-1,dy/4 ,dx,cs,0,LE)+1+dx/32 ) Break; // ~bad ) (thinn) - - for(i=0,y=dy/16;y<15*dy/16 && i<2;y++) - if( num_cross(0,dx-1,y,y,bp,cs) != 1 ) i++; - if( i>1 ) Break; - - if(!hchar){ // right part (bow) of h is never a l - if( get_bw(dx/4,dx/4, 0,dy/4,bp,cs,1) == 1 - && get_bw(dx/4,dx/4,dy/2,dy-1,bp,cs,1) == 0 ) Break; - if( loop(bp, 0,dy/4,dx,cs,0,RI)> dx/4 - && loop(bp,dx-1,dy/4,dx,cs,0,LE)<=dx/4 - && loop(bp, 1, 0,dy,cs,0,DO)<=dy/4 ) Break; // ~z - } - - if( get_bw(x1,x1,y0 ,y1 ,box1->p,cs,2) != 2 - && get_bw(x0,x1,y0 ,y0 ,box1->p,cs,2) != 2 - && get_bw(x0,x1,y1 ,y1 ,box1->p,cs,2) != 2 - && get_bw(x0,x0,y0+1,y1-1,box1->p,cs,1) != 1 ) Break; /* ~] */ - - if ( loop(bp,dx-1, dy/4,dx,cs,0,LE) > dx/2 - && loop(bp,dx-1,3*dy/4,dx,cs,0,LE) > dx/2 - && loop(bp, 0, dy/2,dx,cs,0,RI) < dx/4 ) Break; /* ~[ */ - - x =loop(bp, 0,dy/2,dx,cs,0,RI); // konvex/konkav? ~() - i =loop(bp,dx-1,dy/2,dx,cs,0,LE); - if( loop(bp, 0,7*dy/8,dx,cs,0,RI) > x+dx/8 - && loop(bp, 0, dy/8,dx,cs,0,RI) > x+dx/8 - && loop(bp,dx-1,7*dy/8,dx,cs,0,LE) < i-dx/8 - && loop(bp,dx-1, dy/8,dx,cs,0,LE) < i-dx/8 ) Break; // ~( - if( loop(bp, 0,7*dy/8,dx,cs,0,RI) < x-dx/8 - && loop(bp, 0, dy/8,dx,cs,0,RI) < x-dx/8 - && loop(bp,dx-1,7*dy/8,dx,cs,0,LE) > i+dx/8 - && loop(bp,dx-1, dy/8,dx,cs,0,LE) > i+dx/8 ) Break; // ~) - if( loop(bp, 0, dy/8,dx,cs,0,RI) - -(dx-loop(bp,dx-1,7*dy/8,dx,cs,0,LE)) > dx/4 ) Break; // ~/ - if( loop(bp, 0, 0,dx,cs,0,RI) > dx/2 // ToDo: check for serifs - && loop(bp, 0, dy/8,dx,cs,0,RI) > dx/2 - && loop(bp,dx-1,dy-1 ,dx,cs,0,LE) > dx/2 - && loop(bp,dx-1,dy-1-dy/8,dx,cs,0,LE) > dx/2 ) ad=99*ad/100; // ~/ - - if (box1->m2 && 3*y0>box1->m1+2*box1->m2) - if( get_bw(x0+dx/8,x1-dx/8,box1->m1,(box1->m1+box1->m2)/2,box1->p,cs,1) == 1 ) - Break; // ~i - - if(i1+1<i5 && !hchar){ ad=65*ad/100; MSG({}) } // ~ slanted I - - // be sure only for serif - i3=loop(bp,dx-1, dy/4,dx,cs,0,LE); - i4=loop(bp, 0,dy-1-dy/4,dx,cs,0,RI); - if (i3<2 || i4<2 - || get_bw(x1-i3/4,x1-i3/4,y0,y0+dy/4,box1->p,cs,1) != 1 - || get_bw(x0+i4/4,x0+i4/4,y1-dy/4,y1,box1->p,cs,1) != 1 ) - { ad=99*ad/100; MSG(fprintf(stderr,"ad=%d",ad);) } // ToDo: improve it - if(!hchar){ ad=96*ad/100; MSG({}) } // ~bad_small_r - if (box1->m4 && y1<box1->m4) { // probably lower dot? - if ((dx>2 && get_bw(x0+1,x1-1,y1+1,box1->m4,box1->p,cs,1) == 1) - || (dx<3 && get_bw(x0 ,x1 ,y1+1,box1->m4,box1->p,cs,1) == 1)) { - ad=96*ad/100; - } - } // ~! - // a---b - // I - // I - // c---e - // check against Z - for(bx=0,ax=dx,ay=by=y=0;y<dy/4;y++){ - i =loop(bp,dx-1 ,y,dx,cs,0,LE); if (dx-i-1>bx) { bx=dx-1-i; by=y; } - i+=loop(bp,dx-1-i,y,dx,cs,1,LE); if (dx-i-1<ax) { ax=dx-i; ay=y; } - } - for(cx=dx,ex=0,ey=cy=y=dy-1;y>dy-1-dy/4;y--){ - i =loop(bp,0,y,dx,cs,0,RI); if (i<cx) { cx=i; cy=y; } - i+=loop(bp,i,y,dx,cs,1,RI); if (i>ex) { ex=i; ey=y; } - } - x=(3*ax+cx)/4; y=(3*ay+cy)/4; i= loop(bp,x,y,dx,cs,0,RI); - x=(3*bx+ex)/4; y=(3*by+ey)/4; j= loop(bp,x,y,dx,cs,0,LE); - if (j>0 && (2*i>3*j || 3*i<2*j )) ad=99*ad/100; - if (j>0 && ( i>2*j || 2*i< j )) ad=97*ad/100; - i=loop(bp,0,0,dy,cs,0,DO); - if (i>dy/8 && i<dy/2) ad=99*ad/100; // ~1 - if (loop(bp,dx-1,0,dx,cs,0,LE) - -loop(bp, 0,0,dx,cs,0,RI)>dx/4) ad=96*ad/100; // ~l 5x7 - - if( get_bw(x0,x1,y0,y1,box1->p,cs,2) == 0 ) ad=99*ad/100; - if (gchar) ad=98*ad/100; // J - if (box1->m3 && 2*y1<=box1->m2+box1->m3) ad=96*ad/100; // ' - - Setac(box1,'I',ad); - break; - } - // --- test J --------------------------------------------------- 22Nov06 - for(ad=d=100;dy>4 && dy>=dx && dx>2;){ // min 3x4 ~Y)]d', - // rewritten for vectors 0.42 - int ld, i1, i2, i3, i4, i5, i6, i7; // line derivation + corners - DBG( wchar_t c_ask='J'; ) - if (sdata->holes.num > 0) Break; /* no hole */ - /* half distance to the center */ - d=2*sq(128/4); - /* now we check for the upper right end of the J */ - if (aa[3][2]>d) Break; /* [2] = distance */ - /* searching for 4 notches between neighbouring ends */ - -/* - type A B - - 6OOOO 6O5 - 7O5 7O - O O - O O - 2O 1O4 1O4 - OO 2OO - 3 3 -*/ - - /* Warning: aa0 can be left upper or left lower point for type B */ - /* get a point on the inner low left side of the J */ - i =nearest_frame_vector(box1,aa[3][3],aa[1][3],(x0+x1)/2,y0); - i1=nearest_frame_vector(box1,i ,aa[1][3], x1+dx,(y0+3*y1)/4); - /* get the most left point on the lower part of the J */ - i2=nearest_frame_vector(box1,i1,aa[3][3], x0-2*dx, y1-dy/8); - /* get a point on the middle of the bottom of the J */ - i3=nearest_frame_vector(box1,aa[1][3],aa[2][3], (x0+x1)/2, y1); - /* get a point on the outer low right side of the J */ - i4=nearest_frame_vector(box1,aa[1][3],aa[3][3], x1, (y0+2*y1)/3); - /* get a point on the outer right side below top serif */ - i5=nearest_frame_vector(box1,aa[2][3],aa[3][3], (x0+2*x1)/3,y0); - /* get a point on the left side of upper serif */ - i6=nearest_frame_vector(box1,aa[3][3],i1, x0, y0); - /* get a point on the most right left side of upper serif */ - i7=nearest_frame_vector(box1,i6,i1, x1, y0); - MSG(fprintf(stderr," i1-i7 %d %d %d %d %d %d %d",i1,i2,i3,i4,i5,i6,i7);) - - /* check the highest point on lower left area */ - i =nearest_frame_vector(box1,i1,i3,x0,y0); - if (box1->frame_vector[i ][1]-y0<dy/4) Break; // U - if (box1->frame_vector[i ][1]-y0<=dy/2) ad=97*ad/100; // imperfect a - /* check the lowest point on upper left area, serife? */ - j =nearest_frame_vector(box1,i6,i7,x0,y1); - if (box1->frame_vector[i ][1] - -box1->frame_vector[j ][1]<=dy/4) Break; // imperfect a - if (box1->frame_vector[i7][1]>y0+dy/4) Break; // not to low - if (box1->frame_vector[i1][1] - -box1->frame_vector[i7][1]<dy/2) Break; - if (box1->frame_vector[i4][1] - -box1->frame_vector[i5][1]<dy/2) Break; - if (box1->frame_vector[i7][0]<x0+dx/2) Break; - if (box1->frame_vector[i1][0] - -box1->frame_vector[i2][0]<=dx/8) Break; // ~1 - if (box1->frame_vector[i1][0] - -box1->frame_vector[i2][0]<=dx/4) ad=ad*99/100; // ~1 - if (box1->frame_vector[i6][1]>y0+dy/8) ad=99*ad/100; // ~1 - if (aa[0][2]==0) { // ]? - ad=99*ad/100; - if (aa[1][2]==0) ad=98*ad/100; - if (aa[2][2]<=aa[3][2]) ad=97*ad/100; - } - - /* check for left bow */ - for (j=i=i2;i!=i4;i=(i+1)%box1->num_frame_vectors[0]) { - if (box1->frame_vector[ i][0] /* [0]=x */ - <box1->frame_vector[i1][0]) break; /* curve? */ - } if (i==i4) Break; // ~I - /* check for no right bow */ - for (j=i=i2;i!=i4;i=(i+1)%box1->num_frame_vectors[0]) { - if (box1->frame_vector[ i][0] /* [0]=x */ - >box1->frame_vector[i4][0]) break; - } if (i!=i4) Break; // ~I - /* check for no right bow */ - for (j=i=i5;i!=i6;i=(i+1)%box1->num_frame_vectors[0]) { - if (box1->frame_vector[ i][1] > y0+dy/4) break; - } if (i!=i6) Break; // ~Y - /* check if upper left and lower left points are joined directly */ - ld=line_deviation(box1, i7, i1); - MSG(fprintf(stderr," i7,i1 %d %d linedist= %d/%d",i7,i1,ld,2*sq(1024/4));) - if (ld >2*sq(1024/4)) Break; - if (5*ld >4*2*sq(1024/4)) ad=99*ad/100; // ~3 - if (6*ld >4*2*sq(1024/4)) ad=99*ad/100; // ~3 - if (7*ld >4*2*sq(1024/4)) ad=99*ad/100; // ~3 - if (8*ld >4*2*sq(1024/4)) ad=99*ad/100; // ~3 - /* check if lower right and upper right points are joined directly */ - ld=line_deviation(box1, i4, i5); - MSG(fprintf(stderr," i4,i5 %d %d linedist= %d/%d",i4,i5,ld,2*sq(1024/4));) - if (ld >2*sq(1024/4)) Break; - if (5*ld >4*2*sq(1024/4)) ad=99*ad/100; - - // J exists as gchar and ~gchar - if(!hchar){ ad=99*ad/100; } - Setac(box1,'J',ad); - break; - } - return box1->c; -} - -static wchar_t ocr0_brackets(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,i1,i2,i3,i4,i5,i6,hchar=sdata->hchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - (*aa)[4]=sdata->aa, /* corner-points, (x,y,dist^2,vector_idx) */ - ad,r1,r2; /* tmp-vars */ - wchar_t bc=UNKNOWN; - - // --- test > derived from xX --------------------------------------------------- - // rewritten for vectors v0.41 - for(ad=d=100;dx>1 && dy>2;){ // min 3x2 - // 0 - indizes 0,1,i1,i2 pointing to edges of the char - // \ . - // \ . - // i1,i2 - // / - // / - // 1 - DBG( wchar_t c_ask='>'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if (sdata->holes.num > 0 && (dx<6 || dy<6)) Break; /* # */ - /* calculate the half distance to the center */ - d=2*sq(128/4); - /* now we check for the 2 left ends of the > */ - if (aa[0][2]>d) Break; /* upper left end */ - if (aa[1][2]>d) Break; /* lower left end */ - if (aa[1][1]-aa[0][1]<dy/2) Break; - /* searching for 4 notches between neighbouring ends */ - - /* run along left side from top to bottom */ - for (j=i=aa[0][3];i!=aa[1][3];i=(i+1)%box1->num_frame_vectors[0]) { - if (box1->frame_vector[i][0] - >=box1->frame_vector[j][0]) j=i; /* notice most right vector */ - } if (j==i || j==aa[0][3]) Break; - /* calculate the distance to the center */ - x=box1->frame_vector[j][0]; - y=box1->frame_vector[j][1]; - if (2*x-aa[0][0]-aa[1][0]<dx) ad=99*ad/100; - if (abs(aa[0][1]+aa[1][1]-2*y)>(dy+2)) Break; - if ( aa[0][0]+aa[1][0]-2*x>=0) Break; - i1=j; - d=line_deviation(box1, aa[0][3], j) >sq(1024/4); - /* check if upper left and center point are joined directly */ - MSG(fprintf(stderr,"x %d %d dist= %d/%d",x-x0,y-y0,d,sq(1024/4));) - if (d >sq(1024/4)) Break; ad=ad-d*100/sq(1024); - MSG(fprintf(stderr,"ad=%d", ad);) - d=line_deviation(box1, j, aa[1][3]); - /* check if lower left and center point are joined directly */ - MSG(fprintf(stderr,"x %d %d dist= %d/%d",x-x0,y-y0,d,sq(1024/4));) - if (d >sq(1024/4)) Break; ad=ad-d*100/sq(1024); - MSG(fprintf(stderr,"ad=%d", ad);) - - /* run along right side from bottom to top */ - for (j=i=aa[1][3];i!=aa[0][3];i=(i+1)%box1->num_frame_vectors[0]) { - if (box1->frame_vector[i][0] - >=box1->frame_vector[j][0]) j=i; /* notice most right vector */ - // MSG(fprintf(stderr,"search right: %d %d %d %d",i,j,aa[1][3],aa[0][3]);) - } if (j==i || j==aa[1][3]) Break; - /* calculate the distance to the center */ - x=box1->frame_vector[j][0]; - y=box1->frame_vector[j][1]; - if ( (aa[0][0]+aa[1][0]-2*x)>= 0 ) Break; - if (abs(aa[0][1]+aa[1][1]-2*y)>(dy+2)/4) Break; - if (aa[0][0]>=x || aa[1][0]>=x) Break; - i2=j; - d=line_deviation(box1, j, aa[0][3]); - /* check if upper left and center point are directly joined directly */ - MSG(fprintf(stderr,"x %d %d dist= %d/%d",x-x0,y-y0,d,sq(1024/4));) - if (d >sq(1024/4)) Break; ad=ad-d*100/sq(1024); - MSG(fprintf(stderr,"ad=%d", ad);) - d=line_deviation(box1, aa[1][3], j); - /* check if lower left and center point are directly joined */ - MSG(fprintf(stderr,"x %d %d dist= %d/%d",x-x0,y-y0,d,sq(1024/4));) - if (d >sq(1024/4)) Break; ad=ad-d*100/sq(1024); - MSG(fprintf(stderr,"ad=%d", ad);) - - /* - ToDo: calculate momentums or max derivations - along lines to distinguish )]}> - i1,i2 - */ - - if (sdata->gchar) ad=98*ad/100; - if (sdata->hchar) ad=99*ad/100; - bc='>'; - Setac(box1,bc,ad); - break; - } - // --- test /\\ ------------------------------------------------ -// if(bc==UNKNOWN) -// if(!box1->dots) - for(ad=d=100;dx>3 && dy>3;){ // min 4x4 for 4x6 font - DBG( wchar_t c_ask='/'; ) - if (sdata->holes.num > 0) Break; /* tolerant against a tiny hole */ -#if 1 - for(i=y=0;y<dy;y++){ - if( num_cross(0,dx-1,y,y,bp,cs) != 1 ) i++; - if( loop(bp, 0,y,dx,cs,0,RI) - + loop(bp,dx-1,y,dx,cs,0,LE)<3*dx/8 ) break; - } - if( y<dy ) Break; - if ( i>2 || (i>0 && dy<16)) Break; -#endif - /* get the center as exact as possible */ - i2=dx-1-loop(bp,dx-1,dy/2 ,dx,cs,0,LE) // be exact for small fonts - +dx-1-loop(bp,dx-1,dy/2+dy%2-1,dx,cs,0,LE) - + loop(bp, 0,dy/2 ,dx,cs,0,RI) - + loop(bp, 0,dy/2+dy%2-1,dx,cs,0,RI); - if (abs(i2-2*dx)>1+dx/2) Break; - if (abs(i2-2*dx)> dx/2) ad=99*ad/100; - - i1=loop(bp,dx-1,dy/16,dx,cs,0,LE); // right side - i3=loop(bp,dx-1,dy-1 ,dx,cs,0,LE); - i4=loop(bp, 0,0 ,dx,cs,0,RI); // left side - i6=loop(bp, 0,dy-1 ,dx,cs,0,RI); - i=(box1->m4+box1->m3)/2-box1->m2; - // - // out_x(box1);printf("() %d %d %d %d %d %d %d\n",i,i1,i2,i3,i4,i5,i6); - - // ~lI - for(i=i4,y=0;y<dy;y++){ - x=loop(bp,0 ,y,dx,cs,0,RI);if(abs(x-i)>dx/6+1 ) break; i=x; - } if( y<dy ) Break; - for(i=i1,y=0;y<dy;y++){ - x=loop(bp,dx-1,y,dx,cs,0,LE);if(abs(x-i)>dx/6+1 ) break; i=x; - } if( y<dy ) Break; - if(i1<=dx/8 && i6<=dx/8 && i4-(dx-i3)>dx/4 ) { Setac(box1,(bc='/'),ad);break; } - if(i4<=dx/8 && i3<=dx/8 && i6-(dx-i1)>dx/4 ) { Setac(box1,(bc='\\'),ad);break; } - Break; - } - // --- test ()<> ------------------------------------------------ -// if(bc==UNKNOWN) -// if(!box1->dots) - for(ad=d=100;dx>1 && dy>4;){ // min 3x4 - DBG( wchar_t c_ask='('; ) - if (sdata->holes.num > 1) {Break;}; /* tolerant against a tiny hole */ -#if 1 - for(i=y=0;y<dy;y++){ - if( num_cross(0,dx-1,y,y,bp,cs) != 1 ) i++; - if( loop(bp, 0,y,dx,cs,0,RI) - + loop(bp,dx-1,y,dx,cs,0,LE)<3*dx/8 ) break; - } - if( y<dy ) {Break;}; - if ( i>2 || (i>0 && dy<16)) {Break;}; -#endif - /* look for the extrema => r1..r2 */ - for(i=dx,r1=r2=y=dy/2-dy/8;y<=dy/2+dy/8;y++){ - j=loop(bp, 0,y,dx,cs,0,RI); if(j==i) r2=y; if(j<i){ r2=r1=y; i=j; } - j=loop(bp,dx-1,y,dx,cs,0,LE); if(j==i) r2=y; if(j<i){ r2=r1=y; i=j; } - } y=(r1+r2)/2; - i1=loop(bp,dx-1, dy/16,dx,cs,0,LE); - i2=loop(bp,dx-1,y ,dx,cs,0,LE); - i3=loop(bp,dx-1,dy-1-dy/16,dx,cs,0,LE); - i4=loop(bp, 0,dy/16 ,dx,cs,0,RI); - i5=loop(bp, 0,y ,dx,cs,0,RI); - i6=loop(bp, 0,dy-1-dy/16,dx,cs,0,RI); - if(dx>dy){ -// from Aug06 vector-version of greater is used -// if(i2==0 && 3*i5>dx && i4<=dx/8 && i6<=dx/8) { Setac(box1,(bc='>'),98);{Break;}; } - if(i5==0 && 3*i2>dx && i1<=dx/8 && i3<=dx/8) { Setac(box1,(bc='<'),98);{Break;}; } - } - if( dx > 2 && 9*dx>=5*dy ){ // 4x6 screen-font (3*5) - ad=98; - if (dx<8) ad=99*ad/100; - if (dx<6) ad=96*ad/100; - if( 2*dx > JOB->res.avX && 4*dx>dy ) ad=98; -// printf(" %d %d %d %d %d %d\n",i5,i1,i3,i2,i4,i6); - if( i5==0 && i1<=dx/8+1 && i3<=dx/8+1 && i1+i3<=dx/8+1 - && i2>=dx/2 && i4>=3*dx/4 && i6>=3*dx/4 ) { - if (2*loop(bp, 0, y/2,dx,cs,0,RI)+1+dx/16<i4+i5) ad=95*ad/100; - if (2*loop(bp, 0,dy-1-y/2,dx,cs,0,RI)+1+dx/16<i6+i5) ad=95*ad/100; - Setac(box1,(bc='<'),ad);{Break;}; - } -/* obsolete code Aug06, will be removed if new code is stable - if( i2==0 && i4<=dx/8 && i6<=dx/8 - && i5>=dx/2 && i1>=3*dx/4 && i3>=3*dx/4 ) { - if (2*loop(bp,dx-1, y/2,dx,cs,0,LE)+1+dx/16<i1+i2) ad=95*ad/100; - if (2*loop(bp,dx-1,dy-1-y/2,dx,cs,0,LE)+1+dx/16<i3+i2) ad=95*ad/100; - Setac(box1,(bc='>'),ad);{Break;}; - } -*/ - } - - i1=loop(bp,dx-1,dy/16,dx,cs,0,LE); - i2=loop(bp,dx-1,dy/2 ,dx,cs,0,LE); - i3=loop(bp,dx-1,dy-1 ,dx,cs,0,LE); - i4=loop(bp, 0,0 ,dx,cs,0,RI); - i5=loop(bp, 0,dy/2,dx,cs,0,RI); - i6=loop(bp, 0,dy-1,dx,cs,0,RI); - i=(box1->m4+box1->m3)/2-box1->m2; - // - // out_x(box1);printf("() %d %d %d %d %d %d %d\n",i,i1,i2,i3,i4,i5,i6); - if(2*i2<i1+i3 && 2*i5>i4+i6 && 2*dx<dy && dy>=i){ - Setac(box1,(bc=')'),98);break; } - if(2*i2>i1+i3 && 2*i5<i4+i6 && 2*dx<dy && dy>=i){ - if(2*i2<=i1+i3+1 || 2*i5>=i4+i6-1) ad=98*ad/100; - if(2*i2<=i1+i3+2 || 2*i5>=i4+i6-2) ad=98*ad/100; - for(x=y=0;y<dy/4;y++){ - i=loop(bp,0,y,dx,cs,0,RI);if( i>x ) x=i; - } - for(y=0;y<(dy+2)/4;y++){ - i=loop(bp,0,y+dy/8,dx,cs,0,RI);if( i<x ) break; - } - if( y==(dy+2)/4 ) {Break;}; // ~l (left upper side must be convex) Jul00 - Setac(box1,(bc='('),ad); break; - } - Break; - } - // --------- test [] -------------------------------- - for(ad=d=98;dx>2 && dy>4 && dy>=2*dx;){ // (3,6) on 4x6 font - DBG( wchar_t c_ask=']'; ) - if (sdata->holes.num > 1) { Break;} /* tolerant against a tiny hole */ - if (!hchar) ad=97*ad/100; - for(y=0;y<dy;y++){ - if( num_cross(0,dx-1,y,y,bp,cs) != 1 ) break; - } if (y<dy) {Break;}; - if( get_bw(x0,x1,y0 ,y0 ,box1->p,cs,2) == 2 - && get_bw(x0,x1,y0+1,y0+1,box1->p,cs,2) == 2 ) {Break;}; - if( get_bw(x0,x1,y1 ,y1 ,box1->p,cs,2) == 2 - && get_bw(x0,x1,y1-1,y1-1,box1->p,cs,2) == 2 ) {Break;}; - if( get_bw(x0 ,x0,y0 ,y1 ,box1->p,cs,2) == 0 - || get_bw(x0+1 ,x0+1,y0 ,y1 ,box1->p,cs,2) == 0 ) - if( get_bw(x0+dx/2,x1,y0+dy/4,y1-dy/4,box1->p,cs,1) == 0 ) - { Setac(box1,(bc='['),ad);break; } - if( get_bw(x1 ,x1,y0 ,y1 ,box1->p,cs,2) == 0 - || get_bw(x1-1 ,x1-1,y0 ,y1 ,box1->p,cs,2) == 0 ) - if( get_bw(x0,x1-dx/2,y0+dy/4,y1-dy/4,box1->p,cs,1) == 0 ) - { Setac(box1,(bc=']'),ad);break; } - break; - } - -#if CODE_NOT_COMPLETED - // --- test ] ------- - for(ad=d=100;dx>2 && dy>3;){ - DBG( wchar_t c_ask=']'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if (sdata->holes.num > 0) ad=98*ad/100; /* # */ - /* 1/8 distance to the center */ - d=2*sq(128/16); - /* now we check for the 4 ends of the x */ - if (aa[0][2]>d) Break; - if (aa[1][2]>d) Break; - if (aa[2][2]>d) Break; - if (aa[3][2]>d) Break; - if (aa[3][0]-aa[0][0]<7*dx/8) Break; - if (aa[2][0]-aa[1][0]<7*dx/8) Break; - if (aa[1][1]-aa[0][1]<7*dy/8) Break; - if (aa[2][1]-aa[3][1]<7*dy/8) Break; - if (aa[3][0]-aa[0][0]<2) Break; /* to small */ - if (aa[2][0]-aa[1][0]<2) Break; /* to small */ - MSG( fprintf(stderr," aa %d %d %d %d %d %d %d %d d %d %d %d %d",\ - aa[0][0]-x0,aa[0][1]-y0,aa[1][0]-x0,aa[1][1]-y0,\ - aa[2][0]-x0,aa[2][1]-y0,aa[3][0]-x0,aa[3][1]-y0,\ - aa[0][2],aa[1][2],aa[2][2],aa[3][2]);) - /* left and right vertical line */ - d=line_deviation(box1, aa[0][3], aa[1][3]); if (d>2*sq(1024/4)) Break; - ad=(100-(d-sq(1024)/2)/sq(1024)/4)*ad/100; - d=line_deviation(box1, aa[2][3], aa[3][3]); if (d>2*sq(1024/4)) Break; - - /* search uppermost left ^ */ - i1=nearest_frame_vector(box1,aa[1][3],aa[2][3], x0, y0); - x=box1->frame_vector[i1][0]; - y=box1->frame_vector[i1][1]; - if (y-y0 > 5*dy/8) Break; - if (x-x0 > 5*dx/8) Break; - /* search uppermost right ^ ~H */ - i3=nearest_frame_vector(box1,aa[1][3],aa[2][3], x1, y0); - if ( box1->frame_vector[i3][0]-x> dx/4 - && box1->frame_vector[i3][1]-y<=dy/8) Break; - - /* check if upper left and lower right point are joined directly */ - dbg[0]=d=line_deviation(box1,i1, aa[2][3]); if (d >2*sq(1024/4)) Break; - /* check if lower left and lower left point are joined directly */ - dbg[1]=d=line_deviation(box1, aa[1][3],i1); if (d >2*sq(1024/4)) Break; - - if (!hchar) ad=99*ad/100; - if ( gchar) ad=98*ad/100; // \sc N - ac=(wchar_t) ']'; - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - } -#endif - // --------- test ocr-a-[] -------------------------------- - if(bc==UNKNOWN) - for(ad=d=98;dx>5 && dy>7 && 2*dy>3*dx;){ // only for accurate font at the moment - DBG( wchar_t c_ask='['; ) - if (sdata->holes.num > 2) break; /* tolerant against a tiny hole */ - if (!hchar) ad=97*ad/100; - if( num_cross(0,dx-1, 0, 0,bp,cs) != 1 ) break; - if( num_cross(0,dx-1,dy-1,dy-1,bp,cs) != 1 ) break; - if ( loop(bp,dx-1,dy/2,dx,cs,0,LE) - +loop(bp, 0,dy/2,dx,cs,0,RI) <= dx/4 ) break; // O - for(y=dy/8;y<dy-dy/8;y++){ - if( num_cross(0,dx,y,y,bp,cs) != 2 ) break; - } if (y<dy-dy/8) break; - if( get_bw((3*x0+5*x1)/8,x1,y0+3*dy/16,y1-3*dy/16,box1->p,cs,1) == 0) - { Setac(box1,(bc='['),ad);break; } - if( get_bw(x0,(5*x0+3*x1)/8,y0+3*dy/16,y1-3*dy/16,box1->p,cs,1) == 0) - { Setac(box1,(bc=']'),ad);break; } - break; - } - // --------- test {} -------------------------------- - for(ad=d=99;dx>2 && dy>5 && 2*dy>3*dx;){ - DBG( wchar_t c_ask='{'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if (!hchar) ad=97*ad/100; - for(y=0;y<dy;y++){ - if( num_cross(0,dx-1,y,y,bp,cs) != 1 ) break; - } if (y<dy) Break; - for(x=0;x<dx/2;x++){ - if( num_cross(dx-1-x,dx-1-x,0,dy-1,bp,cs) != 2 ) break; - } if (y<dx/2) Break; - if ( num_cross(dx-1,dx-1,dy/4,dy-1-dy/4,bp,cs) != 0 ) Break; - if ( num_cross( 0, 0,dy/4,dy-1-dy/4,bp,cs) != 1 ) Break; - if ( loop(bp,0,dy-1,dx,cs,0,RI)>3*dx/4 ) ad=99*ad/100; - if ( loop(bp,0, 0,dx,cs,0,RI)>3*dx/4 ) ad=99*ad/100; // < - if ( loop(bp,0, 0,dy,cs,0,DO)<dy/2-1 ) ad=98*ad/100; - if ( loop(bp,0,dy-1,dy,cs,0,UP)<dy/2-2 ) ad=98*ad/100; // ( - if ( loop(bp,dx-1,0,dx,cs,0,LE) - + loop(bp,dx-1,2,dx,cs,0,LE) - - 2*loop(bp,dx-1,1,dx,cs,0,LE) >=dx/8 ) ad=98*ad/100; // < - if ( loop(bp,dx-2,dy-1,dy,cs,0,UP)>dy/4 ) Break; // f - if ( get_bw(x0,x0,y0,y0+dy/4,box1->p,cs,1) == 1 - || get_bw(x0,x0,y1-dy/4,y1,box1->p,cs,1) == 1 ) Break; - Setac(box1,(bc='{'),ad);Break; - } - for(ad=d=99;dx>2 && dy>5 && 2*dy>3*dx;){ - DBG( wchar_t c_ask='}'; ) - if (!hchar) ad=97*ad/100; - for(y=0;y<dy;y++){ - if( num_cross(0,dx-1,y,y,bp,cs) != 1 ) break; - } if (y<dy) Break; - for(x=0;x<dx/2;x++){ - if( num_cross(x,x,0,dy-1,bp,cs) != 2 ) break; - } if (y<dx/2) Break; - if ( num_cross( 0, 0,dy/4,dy-1-dy/4,bp,cs) != 0 ) Break; - if ( num_cross(dx-1,dx-1,dy/4,dy-1-dy/4,bp,cs) != 1 ) Break; - if ( loop(bp,dx-1,dy-1,dx,cs,0,LE)>3*dx/4 ) {ad=99*ad/100;} - if ( loop(bp,dx-1, 0,dx,cs,0,LE)>3*dx/4 ) {ad=99*ad/100;} // > - if ( loop(bp,dx-1, 0,dy,cs,0,DO)<dy/2-1 ) {ad=98*ad/100;} - if ( loop(bp,dx-1,dy-1,dy,cs,0,UP)<dy/2-2 ) {ad=98*ad/100;} // ) - if ( loop(bp,0,0,dx,cs,0,RI) - + loop(bp,0,2,dx,cs,0,RI) - - 2*loop(bp,0,1,dx,cs,0,RI) >=dx/8 ) ad=98*ad/100; // < - if ( loop(bp,1,dy-1,dy,cs,0,UP)>dy/4 ) Break; // ??? - if ( get_bw(x1,x1,y0,y0+dy/4,box1->p,cs,1) == 1 - || get_bw(x1,x1,y1-dy/4,y1,box1->p,cs,1) == 1 ) Break; - Setac(box1,(bc='}'),ad);Break; - } - return box1->c; -} - -#if 0 -/* ---------- empty prototype function for copy and expand ---------- */ -static wchar_t ocr0_XXX(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,i0,i1,i2,i3,hchar=sdata->hchar,gchar=sdata->gchar, - x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1,cs=sdata->cs; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - ac,ad; /* tmp-vars */ - - // --- test XXX --------------------------------------------------- - return box1->c; -} -#endif - - -/* ----------------------- part9 -------------------------------- */ -static wchar_t ocr0p9(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - i1,i2,i3,i4; /* tmp-vars */ - int xa,xb, /* used for store significant points of char */ - dbg[9]={0,0,0,0,0,0,0,0,0}, /* debugging space */ - ya,ad,cs=sdata->cs; - wchar_t ac,bc=UNKNOWN; // bestletter - int hchar; // char is higher than e - int gchar; // char has ink lower than m3 - // --- hchar --- gchar ------------------------- - hchar=0;if( 2*y0<=2*box1->m2-(box1->m2-box1->m1) ) hchar=1; - gchar=0;if( 2*y1>=2*box1->m3+(box1->m4-box1->m3) ) gchar=1; - // if the char is slightly moved down correction can be done - if ( y0<box1->m2 && y1>box1->m3 && 2*y1<box1->m3+box1->m4) // moved - if( 2*(y0-(y1-box1->m3))<=2*box1->m2-(box1->m2-box1->m1) ) hchar=1; - - /* reserved for the future */ - // --- test beta,\3,sz,"s --------------------------------------------- - if(bc==UNKNOWN && hchar) - for(ad=d=100;dx>3 && dy>6;){ // min 4x7 - DBG( wchar_t c_ask='S'; ) - if (sdata->holes.num > 2) break; /* tolerant against a tiny hole */ - /* this part is provisorium, should be changed! - a-\ - | d - b| / - | \ - -c / - */ - if( num_cross(x0 ,x1 ,y0+dy/4 ,y0+dy/4 ,box1->p,cs) != 2 - && num_cross(x0 ,x1 ,y0+dy/4+1,y0+dy/4+1,box1->p,cs) != 2 ) break; - for(i=1+dy/16,y=y0+dy/8;y<y1-dy/4 && i>0;y++){ - if( y<y1-6*dy/16 ){ if( num_cross(x0 ,x1 ,y,y,box1->p,cs) != 2 ) i--;} - else { if( num_cross(x0 ,x1 ,y,y,box1->p,cs) < 2 ) i--;} - if( get_bw(x0,x0+dx/2,y,y,box1->p,cs,1) == 0 ) i--; - if( y<y1-5*dy/16 ) - if( get_bw(x1-dx/2,x1,y,y,box1->p,cs,1) == 0 ) i--; - } if( i<=0 ) break; - // out_x(box1); - - for(y=y0+dy/3;y<y1-dy/3;y++){ - i =loop(box1->p,x1,y,dx,cs,0,LE); - if( i>=dx/8 ) break; - i+=loop(box1->p,x1-i,y,dx,cs,1,LE); - if( i>=dx/2 ) break; - } if( y>=y1-dy/3 ) break; - - for(y=y0+dy/5;y<y0+dy/3;y++) - if( get_bw(x1-dx/6,x1,y,y,box1->p,cs,1) == 1 ) break; - if( y>=y0+dy/3 ) break; - - for(y=y0+dy/2;y<y1;y++) - if( get_bw(x1-dx/6,x1,y,y,box1->p,cs,1) == 1 ) break; - if( y>=y1 ) break; - - for(y=y1-dy/3;y<y1-dy/8;y++){ - i=loop(box1->p,x1,y,dx,cs,0,LE); - if( i>dx/4 - && get_bw(x1-dx/8,x1-dx/8,y,y1,box1->p,cs,1) == 1 ) break; - } if( y<y1-dy/8 ) break; // ~Q - - if( box1->m3==0 || 2*y1<box1->m3+box1->m4 ) - if( loop(box1->p,x1,y1, dx,cs,0,LE)==0 - && loop(box1->p,x1,y1-dy/4,dx,cs,0,LE)>dx/8 ) break; // ~R - - - for(x=x0+dx/4;x<x1-dx/4;x++) - if( num_cross(x,x,y0,y1,box1->p,cs) == 3 ) break; - if( x>=x1-dx/4 ) break; - - i=loop(bp,dx/2,dy-1,dy,cs,0,UP)+dy/64; // Jul00 - for(x=dx/5;x<dx/2;x++) - if( loop(bp,x,dy-1,dy,cs,0,UP) > i ) break; - if( x==dx/2 ) break; - - x=x0+loop(bp,0,dy/4,dx,cs,0,RI); - for(;x<x1-dx/3;x++) - if( get_bw(x,x,y0,y0+dy/4,box1->p,cs,1) == 0 ) break; - if( x<x1-dx/3 ) break; - - if( !gchar ) - // if( num_hole( x0, x1, y0, y1,box1->p,cs,NULL) != 0 ) break; - if (sdata->holes.num != 0) break; - - bc=LATIN_SMALL_LETTER_SHARP_S; - Setac(box1,(wchar_t)bc,98); - break; - } - // --- test + ------------------------------------------------ - for(ad=d=100;dx>2 && dy>2;){ // min 3x3 - DBG( wchar_t c_ask='+'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - xa=(dx+1)/3-1; ya=(dy+1)/3-1; - xb=(dx+1)/4; - if( get_bw(x0,x0+xa,y0,y0+ya,box1->p,cs,1) == 1 ) Break; - if( get_bw(x0,x0+xa,y1-ya,y1,box1->p,cs,1) == 1 ) Break; - if( get_bw(x1-xb,x1,y0,y0+ya,box1->p,cs,1) == 1 ) Break; - if( get_bw(x1-xa,x1,y1-ya,y1,box1->p,cs,1) == 1 ) Break; - for(i=0,y=y0+ya;y<=y1-ya;y++){ // horizontal line - if( get_bw(x0+dx/9,x1-dx/9,y,y,box1->p,cs,2) == 0 ) { i=y; break; } - } - if (3*dx<2*dy) ad=99*ad/100; // ~t - if( !i ) Break; - ac=(wchar_t) '+'; - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - } - // --- test $ ------------------------------------------------ - for(ad=d=99;dx>3 && dy>5;){ // min 3x4 - DBG( wchar_t c_ask='$'; ) - if (sdata->holes.num != 2) Break; - - if( get_bw(x0,x0+dx/5,y0 ,y0+dy/18,box1->p,cs,1) == 1 ) Break; - if( get_bw(x0,x0+dx/9,y1-dy/23,y1 ,box1->p,cs,1) == 1 ) Break; - if( get_bw(x1-dx/9,x1,y0 ,y0+dy/18,box1->p,cs,1) == 1 ) Break; - if( get_bw(x1-dx/5,x1,y1-dy/23,y1 ,box1->p,cs,1) == 1 ) Break; - if( get_bw(x0,x0+dx/3,y0+dy/3 ,y0+dy/2 ,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1-dx/3,x1,y1-dy/2 ,y1-dy/3 ,box1->p,cs,1) != 1 ) Break; - i1=x0+loop(box1->p,x0,y0,dx,cs,0,RI); if( i1<x0+dx/3 || i1>x1-dx/5 ) Break; - i2=x0+loop(box1->p,x0,y1,dx,cs,0,RI); if( i2<x0+dx/5 || i2>i1 ) Break; - ad= get_line2(i1,y0,i2,y1,box1->p,cs,100)*ad/100; - // check upper left and lower right half circle, $ - for (x=0,i3=y=0;y<dy/3;y++) - if( num_cross(x0,x1,y0+dy/2-y,y0+dy/2-y,box1->p,cs) == 2 ) { - i = loop(box1->p,x0,y0+dy/2-y,dx,cs,0,RI); - if (i>x) { x=i; i3=y0+dy/2-y; } - } if (x<=dx/4) Break; - for (x=0,i4=y=0;y<dy/3;y++) - if( num_cross(x0,x1,y0+dy/2+y,y0+dy/2+y,box1->p,cs) == 2 ) { - i = loop(box1->p,x0,y0+dy/2+y,dx,cs,0,RI); - if (i>x) { x=i; i4=y0+dy/2+y; } - } if (x<=dx/4) Break; - if (ad<95) Break; - ac=(wchar_t) '$'; - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - } - // --- test & ------------------------------------------------ - for(ad=d=99;dx>3 && dy>4;){ /* 4x6 font */ - DBG( wchar_t c_ask='&'; ) - if (sdata->holes.num != 2) Break; - if( get_bw(x1-dx/9,x1,y0,y0+dy/4,box1->p,cs,1) == 1 ) Break; // g - if( loop(bp,dx/2,0,dy,cs,0,DO)>dy/2) Break; - i1=loop(bp,0,dy/8 ,dx,cs,0,RI); if (i1>dx/2) Break; - i =loop(bp,0,dy/4 ,dx,cs,0,RI); if (i1>dx/2) Break; if (i<i1) i1=i; - i3=loop(bp,0,dy-dy/4 ,dx,cs,0,RI); if (i3>dx/2) Break; - i =loop(bp,0,dy-dy/4-1,dx,cs,0,RI); if (i3>dx/2) Break; if (i<i3) i3=i; - if (i3>i1) Break; - for( i2=0, y=dy/4; y<=dy/2+1; y++ ){ - i =loop(bp,0,y,dx,cs,0,RI); if( i>i2 ) i2=i; - } - if(2*i2-i1-i3<1) Break; - // if( num_hole(x0,x1 ,y0,y1,box1->p,cs,NULL)!=2 ) Break; - if( num_hole(x0,x1-dx/4,y0,y1,box1->p,cs,NULL)!=2 ) Break; - if( num_cross(dx-1,dx-1,dy/4,dy-1,bp,cs) < 1 ) Break; - for( x=dx-1; x>=dx/2; x-- ){ - if( num_cross(x,x,dy/4,dy-1,bp,cs) > 1 ) break; - } if( x<=3*dx/4 && x<dx-2) Break; - if( num_cross(0,dx-1,dy-1-dy/4,dy-1-dy/4,bp,cs) > 3 ) { // glued ah - if (dy>15) { Break; } else ad=96*ad/100; - } - if (!hchar) ad=98*ad/100; - bc=(wchar_t) '&'; - Setac(box1,bc,ad); - if (ad>=100) return bc; - break; - } - // --- test \it & like \epsilon\tau ------------------------------ - if(bc==UNKNOWN) - for(ad=d=100;dx>7 && dy>7;){ - DBG( wchar_t c_ask='&'; ) - if (sdata->holes.num > 2) break; /* tolerant against a tiny hole */ - if( num_cross(0,dx-1, dy/4, dy/4,bp,cs) != 3 ) break; - if( num_cross(0,dx-1, dy/2, dy/2,bp,cs) != 4 ) break; - if( num_cross(dx/2,dx-1,dy/2, dy/2,bp,cs) != 2 ) break; - if( num_cross(0,dx-1,3*dy/4,3*dy/4,bp,cs) != 2 ) break; - if( num_cross(0,dx-1, dy-1, dy-1,bp,cs) != 1 ) break; - if( num_cross( 0, 0,0,dy-1,bp,cs) != 1 ) break; - if( num_cross( dx/3, dx/3,0,dy-1,bp,cs) != 4 ) break; - if( num_cross(13*dx/16,13*dx/16,0,dy/8,bp,cs) != 0 ) break; - if( num_cross(4*dx/8,4*dx/8,dy-dy/4,dy-1,bp,cs) != 1 ) break; - if( num_cross(3*dx/8,3*dx/8,dy-dy/4,dy-1,bp,cs) != 1 ) break; - if( num_cross(5*dx/8,5*dx/8,dy-dy/4,dy-1,bp,cs) != 1 ) break; - if( num_hole(x0 ,(x0+x1)/2,y0, y1,box1->p,cs,NULL) != 1 ) break; - if( num_hole(x0+dx/8,x1-dx/4,y0,y1-dy/4,box1->p,cs,NULL) != 1 ) break; - ac=(wchar_t) '&'; - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - } - // --- test ? --------------------------------------------------- - for(ad=d=98;dx>2 && dy>5;){ // min 3x(4+2) - DBG( wchar_t c_ask='?'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - if ( num_cross(x0, x1, y0, y0, box1->p, cs) !=1 ) Break; // ~? - if ( num_cross(x0, x1, y1, y1, box1->p, cs) > 1 ) Break; // ~? - for(y=y0;y<y1;y++) // new y1 - if( get_bw(x0, x1, y, y,box1->p,cs,1) != 1 ) break; // lower end - if (2*y<y0+y1) Break; - i1=y1; - if (y==y1 && box1->m4) { // probably lower dot not catched in box? - if (get_bw(x0+1,x1-1,y1+1,box1->m4,box1->p,cs,1) != 1 ) Break; - i1=box1->m4; - for(;i1>y1;i1--) // new y1 - if( get_bw(x0, x1,i1,i1,box1->p,cs,1) == 1 ) break; // lower dot - } - y--; i=y-y0+1; // new dy - for (y=0;y<dy/2;y++) - if( num_cross(x0, x1, y0+y, y0+y, box1->p, cs) == 2 ) break; - if (y==dy/2) Break; - // if( num_hole( x0, x1, y0, y1, box1->p,cs,NULL) > 0 ) Break; - if (sdata->holes.num > 0) Break; - for(y=y0+dy/2;y<=i1;y++) - if( get_bw(x0,x1,y,y,box1->p,cs,1) == 0 ) break; - if( y==i1 ) Break; - for( ;y<=i1;y++) - if( get_bw(x0,x1,y,y,box1->p,cs,1) == 1 ) break; - if( get_bw(x0,x1,y,y,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+7*dx/8,x1,y,i1,box1->p,cs,1) == 1 ) Break; // broken thin 2 - bc='?'; - Setac(box1,(wchar_t)bc,98); - return bc; - } - // --- test !| --------------------------------------------------- - for(ad=d=99; dy>4 && dy>2*dx;){ // min 3x4 - DBG( wchar_t c_ask='!'; ) - if (sdata->holes.num > 1) Break; /* tolerant against a tiny hole */ - // measure thickness - if (num_cross(x0,x1,y0 ,y0 ,box1->p,cs)!=1) Break; - if (num_cross(x0,x1,y0+dy/2,y0+dy/2,box1->p,cs)!=1) Break; - for(y=y0;y<y1;y++) // new y1 - if( get_bw(x0, x1, y, y,box1->p,cs,1) != 1 ) break; // lower end - if (2*y<y0+y1) Break; - if (y==y1 && y>box1->m3-dy/8) ad=ad*97/100; /* missing dot? */ - i1=y1; - if (y==y1 && box1->m4) { // probably lower dot not catched in box? - if ((dx>2 && get_bw(x0+1,x1-1,y1+1,box1->m4,box1->p,cs,1) == 1) - || (dx<3 && get_bw(x0 ,x1 ,y1+1,box1->m4,box1->p,cs,1) == 1 )) { - i1=box1->m4; - for(;i1>y1;i1--) // new y1 - if( get_bw(x0, x1,i1,i1,box1->p,cs,1) == 1 ) break; // lower dot - } - } i2=i1; - for( i1=0,y=y0;y<=i2;y++){ - i=num_cross(x0,x1,y,y,box1->p,cs); if(i>1) break; - if(i==0 && i1==0) i1=y; - } if(y<=i2 || i1==0 || i1<y0+dy/2) Break; - - if( loop(bp,dx-1,dy/8,dx,cs,0,LE) - -loop(bp,dx-1, 0,dx,cs,0,LE)>dx/4+1 ) Break; // f - - if (!hchar) ad=96*ad/100; - Setac(box1,(wchar_t)'!',ad); - break; - } - // --- test * five egdes (jagges? beames?) what is the right english word? ---- - for(ad=d=99;dx>2 && dy>4;){ - DBG( wchar_t c_ask='*'; ) - if (sdata->holes.num > 0) Break; /* tolerant against a tiny hole */ - if( num_cross(0,dx-1, 0,dy-1,bp,cs) != 1 - && num_cross(0,dx-1, 1,dy-2,bp,cs) != 1 ) Break; - if( num_cross(0,dx-1,dy-1,dy-1,bp,cs) != 2 - && num_cross(0,dx-1,dy-2,dy-2,bp,cs) != 2 ) Break; - x=dx/2;y=(6*dy+8)/16; // center point 6/8=6/2^3 rounded - /* upwarts from center */ - dbg[0]=i=get_line2(x,y,x ,0,bp,cs,100); if(i<95) Break; - if (dx<8) /* be exact on small fonts, where get_line2 returns 100 (ToDo change) */ - if (get_bw(x,x,0,y,bp,cs,2)==2) Break; - /* horizontal */ - dbg[1]=i=get_line2(0,y,dx-1,y,bp,cs,100); if(i<95) Break; - if (dy<8) - if (get_bw(0,dx-1,y ,y ,bp,cs,2)==2 - && get_bw(0,dx-1,y+1,y+1,bp,cs,2)==2) Break; - /* down (right) */ - i=get_line2(x,y,(5*dx+4)/8,dy-1,bp,cs,100); - j=get_line2(x,y,(6*dx+4)/8,dy-1,bp,cs,100); if(j>i) dbg[2]=i=j; - if(i<95) Break; - /* down (left) */ - dbg[3]=i=get_line2(x, y,(2*dx+4)/8,dy-1,bp,cs,100); if(i<95) Break; // straight up - /* check for lower gap at bottom */ - dbg[4]=i=get_bw( x, x,dy-1-dy/8,dy-1,bp,cs,1); if(i==1) Break; - dbg[5]=i=get_line2( dx/4,dy/4, 0,0,bp,cs,101); if(i<95) Break; // upper left gap - dbg[6]=i=get_line2(dx-1-dx/4,dy/4,dx-1,0,bp,cs,101); if(i<95) Break; // upper right gap - MSG(fprintf(stderr,"%d %d %d %d %d %d %d",dbg[0],dbg[1],dbg[2],dbg[3],dbg[4],dbg[5],dbg[6]);) - Setac(box1,(wchar_t)'*',ad); - break; - } - // --- test * six egdes (jagges? beames?) what is the right english word? ---- - for(ad=d=100;dx>4 && dy>4;){ - DBG( wchar_t c_ask='*'; ) - if (sdata->holes.num > 0) Break; /* tolerant against a tiny hole */ - if( num_cross(0,dx-1, dy/8, dy/8,bp,cs) != 3 - && num_cross(0,dx-1, 1+dy/8, 1+dy/8,bp,cs) != 3) Break; - if( num_cross(0,dx-1,dy-2-dy/8,dy-2-dy/8,bp,cs) != 3) Break; - if( num_cross(0 , 0, 0,dy-1,bp,cs) != 2) Break; - if( num_cross(dx-1,dx-1, 0,dy-1,bp,cs) != 2) Break; - if( num_cross(0,dx-1,dy/2,dy/2,bp,cs) != 1) Break; - if( num_cross( 0 ,dx/8,dy/2,dy/2,bp,cs) != 0) Break; - if( num_cross(dx-1-dx/8,dx-1,dy/2,dy/2,bp,cs) != 0) Break; - if (dx>5) { - dbg[0]=i=get_line2(0,dy-2-dy/8,dx-1,dy/8,bp,cs,100); if(i<95) Break; // black upwarts beam - dbg[1]=i=get_line2(0,dy/8,dx-1,dy-2-dy/8,bp,cs,100); if(i<95) Break; // black downwards beam - /* check vertical line */ - dbg[2]=i=get_line2(dx/2,0,dx/2, dy-1,bp,cs,100); if(i<95) Break; - } - MSG(fprintf(stderr,"%d %d %d %d %d %d",dbg[0],dbg[1],dbg[2],dbg[3],dbg[4],dbg[5]);) - Setac(box1,(wchar_t)'*',98); - break; - } - // --- test @ - a popular char should be detectable! added in version v0.2.4a5 - if(bc==UNKNOWN) - for(ad=d=99;dx>5 && dy>7;){ - DBG( wchar_t c_ask='@'; ) - if (sdata->holes.num > 3) Break; /* tolerant against a tiny hole */ - if (loop(bp, 0,dy/2,dx,cs,0,RI)>dx/4) Break; - if (loop(bp,dx-1,dy/2,dx,cs,0,LE)>dx/4) Break; - if (loop(bp,dx/2,dy-1,dy,cs,0,UP)>dx/8) Break; - if (loop(bp,dx/2, 0,dy,cs,0,DO)>dx/8) Break; - /* ..@@@@..<- 8*10 example - .@@..@@. - @@....@@ - @@..@@@@< - @@.@@.@@ - @@.@@.@@ - @@..@@@. - @@...... - .@@...@@ - ..@@@@@.<- */ - x=6*dx/16; - y=dy/2; - i=num_cross(0,dx-1,y,y,bp,cs); - if (i<3 || i>4) Break; - if( i != 4 && dx>8 ) ad=98*ad/100; - - i=num_cross(x,x,0,dy-1,bp,cs); if (i<2) Break; - if (i!=4) { j=num_cross(x+1,x+1,0,dy-1,bp,cs); - if (abs(4-j)<abs(i-4)) i=j; } - if (i!=4) { j=num_cross(x+2,x+2,0,dy-1,bp,cs); - if (abs(4-j)<abs(i-4)) i=j; } - if (i<3 || i>4) Break; - if (i!=4) ad=97*ad/100; - if( num_cross(0, x,y,y,bp,cs) != 2 ) Break; - if( num_cross(x,dx-1,y,y,bp,cs) != 2 ) Break; - if( num_cross(x,x,0, y,bp,cs) != 2 ) Break; - if( num_cross(x,x,y,dy-1,bp,cs) != 2 ) Break; - if (dx>7) { - // if( num_hole(x0,x1,y0,y1,box1->p,cs,NULL) != 1 ) Break; - if (sdata->holes.num != 1) Break; - if( num_hole(x0+dx/8,x1-3*dx/16,y0+dy/8,y1-dy/8,box1->p,cs,NULL) != 1 ) Break; - } - Setac(box1,(wchar_t)'@',ad); - break; - } - // --- test paragraph v0.2.6 - if(bc==UNKNOWN && hchar) - for(ad=d=100;dx>4 && dy>15;){ - DBG( wchar_t c_ask='$'; ) - if (sdata->holes.num > 3) break; /* tolerant against a tiny hole */ - if( get_bw( 0,dx/2,3*dy/4,3*dy/4,bp,cs,1) == 1 ) break; - if( get_bw(3*dx/4,dx-1,3*dy/4,3*dy/4,bp,cs,1) == 0 ) break; - if( get_bw( 0,dx/4, dy/4, dy/4,bp,cs,1) == 0 ) break; - if( get_bw( dx/2,dx-1, dy/4, dy/4,bp,cs,1) == 1 ) break; - if( get_bw(dx/2,dx/2, 0, dy/4,bp,cs,1) == 0 ) break; - if( get_bw(dx/2,dx/2,dy-1-dy/4, dy-1,bp,cs,1) == 0 ) break; - if( num_cross(dx/2,dx/2,0,dy-1,bp,cs) != 4 ) break; - if( num_cross(x0,x1,y0+dy/2,y0+dy/2,box1->p,cs) != 2 ) break; - if( num_hole( x0,x1,y0+dy/4,y1-dy/4,box1->p,cs,NULL) != 1 ) break; - Setac(box1,SECTION_SIGN,96); - break; // paragraph=0xA7=167 - } - - return bc; -} - -/* ----------------------- partx -------------------------------- */ -static wchar_t ocr0px(ocr0_shared_t *sdata){ - struct box *box1=sdata->box1; - pix *bp=sdata->bp; - int i,j,d,x,y,x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - i1,i2,i3,i4,j1,cs=sdata->cs; /* tmp-vars */ - int ya,ad; /* used for store significant points of char */ - wchar_t ac,bc=UNKNOWN; // bestletter - int hchar; // char is higher than e - int gchar; // char has ink lower than m3 - // --- hchar --- gchar ------------------------- - hchar=0;if( 2*y0<=2*box1->m2-(box1->m2-box1->m1) ) hchar=1; - gchar=0;if( 2*y1>=2*box1->m3+(box1->m4-box1->m3) ) gchar=1; - // if the char is slightly moved down correction can be done - if ( y0<box1->m2 && y1>box1->m3 && 2*y1<box1->m3+box1->m4) // moved - if( 2*(y0-(y1-box1->m3))<=2*box1->m2-(box1->m2-box1->m1) ) hchar=1; - - /* reserved for special chars, to test at the end */ - // --- test 'ff' --------------------------------------------------- - // ToDo: better check and call test 'f' and 'f' with subboxes - if( bc==UNKNOWN ) - for(ad=98;dx>4 && dy>6;){ // Dec00 body copied from H - DBG( wchar_t c_ask='f'; ) - if (sdata->holes.num > 2) break; /* tolerant against a tiny hole */ - if( num_cross(0,dx-1, dy/4 , dy/4 ,bp,cs) != 2 - && num_cross(0,dx-1,3*dy/16,3*dy/16,bp,cs) != 2 ) break; - if( num_cross(0,dx-1,3*dy/4 ,3*dy/4 ,bp,cs) != 2 - && num_cross(0,dx-1,3*dy/4+1,3*dy/4+1,bp,cs) != 2 ) break; - if( loop(bp,0 ,dy/8,dx,cs,0,RI) - + loop(bp,dx-1,dy/8,dx,cs,0,LE)>dx/2 ) break; // ~A - for( j1=0,i=1,y=y0+dy/10; y<y1-dy/10 && i; y++ ) // 2 vertikal lines - { j=loop(box1->p,x0 ,y,dx,cs,0,RI) - +loop(box1->p,x1 ,y,dx,cs,0,LE); - if( j>10*dx/16 ) i=0; if ( j>j1 ) j1=j; } - if( !i ) break; - for( x=dx/4; x<dx/2; x++ ){ // lower gap - y=loop(bp,x ,dy-1,dy,cs,0,UP); - if ( y > 3*dy/8 ) break; - if ( 10*y > dy ){ /* italic */ - i=loop(bp,x ,dy-y,dx,cs,0,RI); - if( i>1 && y+loop(bp,x+i-1,dy-y,dy,cs,0,UP)>3*dy/8 ) break; - } - } if( x>=dx/2 ) break; - x=loop(box1->p,x0 ,y1-dy/8,dx,cs,0,RI) - +loop(box1->p,x1 ,y1-dy/8,dx,cs,0,LE); - for( i=1,y=dy/4; y<dy-1-dy/4 && i; y++ ) // max - min width - { j=loop(bp,0 ,y,dx,cs,0,RI) - +loop(bp,dx-1,y,dx,cs,0,LE); if( j-x>dx/5 ) i=0; } - if( !i ) break; // ~K Jul00 - for( i=0,ya=y=y0+dy/4; y<y1-dy/3; y++ ) // horizontal line - { j=loop(box1->p,x0 ,y,dx,cs,0,RI); - j=loop(box1->p,x0+j,y,dx,cs,1,RI); if( j>i ) { i=j; ya=y; } } - if( i<=dx/2 ) break; ya-=y0; - if( num_cross(0,dx-1,ya ,ya ,bp,cs) != 1 - && num_cross(0,dx-1,ya+1,ya+1,bp,cs) != 1 ) break; /* Dec00 */ - for( y=ya; y<dy-dy/4; y++ ) // ~M Dec00 - if( num_cross(0,dx-1,y ,y ,bp,cs) > 2 - && num_cross(0,dx-1,y+1,y+1,bp,cs) > 2 ) break; - if ( y<dy-dy/4 ) break; - for(i=1,x=x0+dx/2;x<=x1-dx/4 && i;x++){ - if( get_bw( x, x,y0 ,y0+dy/4,box1->p,cs,1) == 0 ) i=0; - } if( !i ) break; - for(i=1,x=x0+dx/4;x<=x1-dx/4 && i;x++){ - if( get_bw( x, x,y1-dy/4,y1 ,box1->p,cs,1) == 0 ) i=0; - } if( i ) break; - for(i=1,x=x0+dx/4;x<=x1-dx/4 && i;x++){ - if( num_cross(x,x,y0+dy/8,y1-dy/8, box1->p,cs) == 1 ) i=0; - } if( i ) break; - for(i=1,y=y0;y<=y0+dy/4 && i;y++){ - if( num_cross(x0,x1,y,y, box1->p,cs) == 2 ) i=0; - } if( i ) break; - for(i=1,y=y1-dy/4;y<=y1 && i;y++){ - if( num_cross(x0,x1,y,y, box1->p,cs) == 2 ) i=0; - } if( i ) break; - if( num_cross(x0 ,x0+dx/8 ,y0+dy/8 ,y0 ,box1->p,cs) != 0 ) ad=96*ad/100; - if( get_bw(x1-dx/8, x1 , y0, y0+dy/8,box1->p,cs,1) != 1 ) break; - if( get_bw(x0 , x0+dx/8, y1-dy/8, y1,box1->p,cs,1) != 1 ) break; - i1=loop(bp,dx-1, dy/4,dx,cs,0,LE); if(i1>dx/2) break; - i2=loop(bp,dx-1, dy/2,dx,cs,0,LE); if(i2<i1-dx/4 || i2>i1+dx/8) break; - i3=loop(bp,dx-1,dy-1-dy/4,dx,cs,0,LE); if(i3<i2-dx/4 || i3>i2+dx/8) break; - if(abs(i1+i3-2*i2)>dx/16+1) break; - if( num_hole(x0,x1,y0+dy/4,y1,box1->p,cs,NULL) != 0 ) break; - if (!hchar) ad=96*ad/100; - if (!gchar) ad=99*ad/100; - ac=LATIN_SMALL_LIGATURE_FF; - Setac(box1,ac,ad); - break; - } - // --- test ae --------------------------------------------------- - if( bc==UNKNOWN ) - for(ad=98;dx>4 && dy>6;){ // provisorium - DBG( wchar_t c_ask=LATIN_SMALL_LETTER_AE; ) - if (sdata->holes.num > 4) Break; /* tolerant against a tiny hole */ - if( num_cross( dx/4,dx-1,3*dy/16,3*dy/16,bp,cs) != 2 - && num_cross(dx-1-dx/4,dx-1,3*dy/16,3*dy/16,bp,cs) != 1 ) Break; - if( num_cross(0,dx-1,3*dy/ 4,3*dy/ 4,bp,cs) < 2 ) Break; - if( num_cross(0,dx-1, 0, dy-1,bp,cs) < 3 ) Break; - if( num_cross(dx-1,0, 0, dy-1,bp,cs) < 3 ) Break; - if( num_cross(0,dx-1, dy/16, dy/16,bp,cs) < 2 ) - if( num_cross(0,dx-1,1+dy/16,1+dy/16,bp,cs) < 2 ) Break; - if( num_cross(0,dx-1,dy-1-dy/16,dy-1-dy/16,bp,cs) < 2 ) Break; - for( x=0,i2=y=dy/4; y<3*dy/4; y++ ){ - j=loop(bp,0,y,dx,cs,0,RI); if(j>x) { i2=y; x=j; } - } if( x<dx/4 || x>3*dx/4 ) Break; - for( x=0,i4=y=dy/4; y<3*dy/4; y++ ){ - j=loop(bp,dx-1,y,dx,cs,0,LE); if(j>x) { i4=y; x=j; } - } if( x<dx/4 || x>3*dx/4 ) Break; - for( x=0,i4=y=dy/8; y<3*dy/4; y++ ){ - j=loop(bp,dx-1 ,y,dx,cs,0,LE); - j=loop(bp,dx-1-j,y,dx,cs,1,LE); - if(j>x) { i4=y; x=j; } - } if( x<dx/4 ) Break; - if( num_hole(x0,x0+3*dx/4,y0+dy/4,y1,box1->p,cs,NULL) != 1 ) Break; - if( num_hole(x0+dx/2-1,x1,y0,y1-dy/4,box1->p,cs,NULL) != 1 ) Break; - ac=LATIN_SMALL_LETTER_AE; - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - - } - // --- test AE --------------------------------------------------- - if( bc==UNKNOWN ) - for(ad=98;dx>5 && dy>6;){ // provisorium - DBG( wchar_t c_ask=LATIN_CAPITAL_LETTER_AE; ) - if (sdata->holes.num > 2) Break; /* tolerant against a tiny hole */ - if( num_cross(0,dx-1,3*dy/16,3*dy/16,bp,cs) < 2 ) Break; - if( num_cross(0,dx-1,3*dy/ 4,3*dy/ 4,bp,cs) < 2 ) Break; - if( num_cross(0,dx-1, 0, dy-1,bp,cs) < 3 ) Break; - if( num_cross(0,dx-1, dy/16, dy/16,bp,cs) != 1 - && num_cross(0,dx-1, dy/32, dy/32,bp,cs) != 1 - && num_cross(0,dx-1, 0, 0,bp,cs) != 1 ) Break; - // check for upper horizontal line - j=loop(bp,dx-1 ,0,dx,cs,0,LE); x=j; - j=loop(bp,dx-1-j,0,dx,cs,1,LE); - i=loop(bp,dx-1 ,1,dx,cs,0,LE); if (i<x) x=i; - i=loop(bp,dx-1-i,1,dx,cs,1,LE); - if (i>j) j=i; - if (x>dx/8) Break; - if (j<dx/4) Break; - for( x=dx,i1=i3=0,i2=y=dy/4; y<3*dy/4; y++ ){ - j=loop(bp, 0,y,dx,cs,0,RI); if(j>x) break; x=j; - j=loop(bp, j,y,dx,cs,1,RI); if(j>i1) { i1=j; i2=y; } - j=loop(bp,dx-1 ,y,dx,cs,0,LE); - j=loop(bp,dx-1-j,y,dx,cs,1,LE); if(j>i3) { i3=j; i4=y; } - } if( y<3*dy/4 || i1<dx/4-1 || i3<dx/4-1) Break; - for( i1=i3=0,y=0; y<dy/8; y++ ){ - j=loop(bp,dx-1 , y,dx,cs,0,LE); - j=loop(bp,dx-1-j, y,dx,cs,1,LE); if(j>i1) { i1=j; } - j=loop(bp,dx-1 ,dy-1-y,dx,cs,0,LE); - j=loop(bp,dx-1-j,dy-1-y,dx,cs,1,LE); if(j>i3) { i3=j; } - } if( i1<=dx/4 || i3<=dx/4 ) Break; - for( x=dx-1-dx/8; x>dx/2; x-- ){ // look for right the E - if( num_cross(x,x, 0,dy-1,bp,cs) == 3 ) - if( num_cross(x,x, 0,dy/4,bp,cs) == 1 ) - if( num_cross(x-1,dx-1-dx/8,3*dy/4,3*dy/4,bp,cs) == 0 ) - if( num_cross(x,x,3*dy/4,dy-1,bp,cs) == 1 ) break; - } if (x<=dx/2) Break; // not found - if (sdata->holes.num != 1) Break; - if( num_hole(x0,x0+3*dx/4,y0,y1-dy/4,box1->p,cs,NULL) != 1 ) Break; - // if( num_hole(x0, x1,y0,y1 ,box1->p,cs,NULL) != 1 ) Break; - ac=LATIN_CAPITAL_LETTER_AE; - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - - } - // --- test /0 /o /O O_WITH_STROKE ----------------------------------------- - for(ad=99;dx>4 && dy>4;){ // provisorium - DBG( wchar_t c_ask=LATIN_SMALL_LETTER_O_WITH_STROKE; ) - if (sdata->holes.num > 3) Break; /* tolerant against a tiny hole */ - if( num_cross( 0,dx-1,dy/2,dy/2,bp,cs) != 3 ) Break; - if( num_cross(dx/2,dx/2, 0,dy-1,bp,cs) != 3 ) Break; - if (loop(bp,dx-1,3*dy/8,dx,cs,0,RI)>dx/8) Break; - if (loop(bp, 0,5*dy/8,dx,cs,0,RI)>dx/8) Break; - if( num_cross( 0,dx-1, 0, 0,bp,cs) > 2 ) Break; - if( num_cross(dx/4,dx-1, 0, 0,bp,cs) > 2 ) Break; - if( num_cross( 0,dx-1,dy-1,dy-1,bp,cs) > 2 ) Break; - if( num_cross( 0,3*dx/4,dy-1,dy-1,bp,cs) > 2 ) Break; - if( num_cross( 0, 0, 0,dy-1,bp,cs) > 2 ) Break; - if( num_cross(dx-1,dx-1, 0,dy-1,bp,cs) > 2 ) Break; - if( num_cross( 0, 0,dy/4,dy-1,bp,cs) > 2 ) Break; - if( num_cross(dx-1,dx-1, 0,3*dy/4,bp,cs) > 2 ) Break; - i1 =loop(bp,dx-1 , 0,dx,cs,0,LE); if( i1>dx/8 ) Break; - i1+=loop(bp,dx-1-i1, 0,dx,cs,1,LE); if( i1>dx/3 ) Break; i1=dx-1-i1; - i2 =loop(bp, 0,dy-1,dx,cs,0,RI); if( i2>dx/8 ) Break; - for(y=1;y<dy-1;y++){ - x=i1+y*(i2-i1)/dy-dx/8; if(x<0)x=0; - j=loop(bp,x,y,dx,cs,0,RI); if( j>3*dx/16 ) break; - } if( y<dy-1 ) Break; - if( num_cross( 0 ,dx/4,dy/2,dy/2,bp,cs) != 1 ) Break; - if( num_cross(dx-1-dx/4,dx-1,dy/2,dy/2,bp,cs) != 1 ) Break; - if( num_cross(dx/4,dx-1-dx/4,dy/2,dy/2,bp,cs) != 1 ) Break; - if (sdata->holes.num != 2) Break; - // if( num_hole(x0,x1,y0,y1,box1->p,cs,NULL) != 2 ) Break; - - if ( hchar && 2*y0<box1->m1+box1->m2 ) - ac=LATIN_CAPITAL_LETTER_O_WITH_STROKE; - else ac=LATIN_SMALL_LETTER_O_WITH_STROKE; - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - - } - // --- test /c /C C_WITH_STROKE CENT_SIGN -------------------------- - // here only the version with a continuously vertical line (not broken variant) - if( bc==UNKNOWN ) - for(ad=98;dx>4 && dy>4;){ // provisorium - DBG( wchar_t c_ask=CENT_SIGN; ) - if (sdata->holes.num > 2) Break; /* tolerant against a tiny hole */ - if( num_cross( 0,dx-1,dy/2,dy/2,bp,cs) != 2 ) Break; - if( num_cross(0,dx-1-dx/4,dy/2,dy/2,bp,cs) != 2 ) Break; - if( num_cross(dx/2,dx/2, 0,dy-1,bp,cs) != 3 ) Break; - if( num_cross( 0,dx-1, 0, 0,bp,cs) > 2 ) Break; - if( num_cross(dx/4,dx-1, 0, 0,bp,cs) > 2 ) Break; - if( num_cross( 0,dx-1,dy-1,dy-1,bp,cs) > 2 ) Break; - if( num_cross( 0,3*dx/4,dy-1,dy-1,bp,cs) > 2 ) Break; - if( num_cross( 0, 0, 0,dy-1,bp,cs) > 2 ) Break; - if( num_cross(dx-1,dx-1, 0,dy-1,bp,cs) > 3 ) Break; - if( num_cross( 0, 0,dy/4,dy-1,bp,cs) > 2 ) Break; - if( num_cross(dx-1,dx-1, 0,3*dy/4,bp,cs) > 3 ) Break; - i1 =loop(bp,dx-1 , 0,dx,cs,0,LE); if( i1>dx/4 ) Break; - i1+=loop(bp,dx-1-i1, 0,dx,cs,1,LE); if( i1>dx/4 ) Break; i1=dx-1-i1; - i2 =loop(bp, 0,dy-1,dx,cs,0,RI); if( i2>dx/4 ) Break; - for(y=0;y<dy;y++){ - x=i1+y*(i2-i1)/dy; if(x>dx/16+1) x-=dx/16+1; - j=loop(bp,x,y,dx,cs,0,RI); // fprintf(stderr,"\n x=%d j=%d",x,j); - if( j>(dx+4)/8 ) ad=96*ad/100; - if( j>(dx+2)/4 ) break; - } if( y<dy ) Break; - if( num_cross( 0 ,dx/4,dy/2,dy/2,bp,cs) != 1 ) Break; - if( num_cross(dx-1-dx/4,dx-1,dy/2,dy/2,bp,cs) != 0 ) Break; - if( num_cross(dx/4,dx-1-dx/4,dy/2,dy/2,bp,cs) != 1 ) Break; - // if( num_hole(x0,x1,y0,y1,box1->p,cs,NULL) != 1 ) Break; - if (sdata->holes.num != 1) Break; - - ac=CENT_SIGN; - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - - } - // --- test EURO_CURRENCY_SIGN ----------------------------------------- - if( bc==UNKNOWN ) - for(ad=98;dx>4 && dy>6;){ // provisorium - DBG( wchar_t c_ask='&'; ) - if (sdata->holes.num > 1) break; /* tolerant against a tiny hole */ - if( num_cross(dx/2,dx/2, 0,dy-1,bp,cs) != 4 ) break; - if( num_cross( 0,dx-1, 0, 0,bp,cs) != 1 ) break; - if( num_cross( 0,dx-1,dy-1,dy-1,bp,cs) != 1 ) break; - if( num_cross( 0,dx-1,dy/2,dy/2,bp,cs) != 1 ) break; - for(i=0,y=dy/4;y<dy-dy/4-1;y++){ // check if no gap on left side - x=loop(bp,0,y,dx,cs,0,RI); if( x>dx/4 ) break; - j=loop(bp,x,y,dx,cs,1,RI); if( j>i ) i=j; - } if( y<dy-dy/4-1 || i<dx/2 ) break; - for(y=dy/4;y<dy-dy/4-1;y++){ // check for right horizontal gap - x=loop(bp,dx-1,y,dx,cs,0,LE); if( x>dx/2 ) break; - } if( y>=dy-dy/4-1 ) break; - // if( num_hole(x0,x1,y0,y1,box1->p,cs,NULL) != 0 ) break; - if (sdata->holes.num != 0) break; - ac=EURO_CURRENCY_SIGN; - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - } - // --- test LETTER_C_WITH_CEDILLA --------------------------------------------------- - if (bc==UNKNOWN) - if (gchar) - for(ad=98;dx>3 && dy>6;){ // provisorium - DBG( wchar_t c_ask='c'; ) - if (sdata->holes.num > 0) break; /* no tolerant against tiny holes */ - j=loop(bp,dx-1,dy/16 ,dy,cs,0,LE); - x=loop(bp,dx-1,dy/16+1,dy,cs,0,LE); if (x<j) j=x; - if (3*x>dx) Break; // ~4 ocr-b - if( num_cross(0,dx-1,3*dy/16,3*dy/16,bp,cs) > 2 ) break; - if( num_cross(0,dx-1, 0, dy-1,bp,cs) < 2 ) break; - if( num_cross(0,dx-1, dy/16, dy/16,bp,cs) > 2 ) break; - for( x=dx,i2=y=dy/4; y<3*dy/4; y++ ){ - j=loop(bp,0,y,dx,cs,0,RI); if(j<x) { i2=y; x=j; } - } if( x>0 ) break; i1=x; - for( x=0,i4=y=dy/4; y<5*dy/8; y++ ){ - j=loop(bp,dx-1,y,dx,cs,0,LE); if(j>x) { i4=y; x=j; } - } if( x<dx/2 ) break; i3=x; - j =loop(bp,dx/2,0,dy,cs,0,DO); - j+=loop(bp,dx/2,j,dy,cs,1,DO); if(j>dy/4) break; - j =loop(bp,dx/2,j,dy,cs,0,DO); if(j<dy/2) break; - j =loop(bp,dx-1 ,dy-1-dy/8,dx,cs,0,LE); if(j<dx/4 || 4*j>3*dx) break; - j =loop(bp,dx-1-j/2,dy-1-dy/8,dy,cs,0,UP); if(j>dy/2) break; // ~() - // if( num_hole(x0,x1,y0,y1,box1->p,cs,NULL) != 0 ) break; - if (sdata->holes.num) break; - if( hchar ) ac= LATIN_CAPITAL_LETTER_C_WITH_CEDILLA; - else ac= LATIN_SMALL_LETTER_C_WITH_CEDILLA; - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - - } - // --- test # --------------------------------------------------- - for(ad=99;dx>4 && dy>4;){ // never sure? - DBG( wchar_t c_ask='#'; ) - if (sdata->holes.num > 2) Break; /* tolerant against a tiny hole */ - if (sdata->holes.num < 1) Break; - if( num_cross(0,dx-1, dy/8, dy/8,bp,cs) != 2 ) Break; - if( num_cross(0,dx-1,dy-1-dy/8,dy-1-dy/8,bp,cs) != 2 ) Break; - if( num_cross(0,dx-1, dy/2, dy/2,bp,cs) != 2 ) Break; - if( num_cross(0,dx/2, dy/2, dy/2,bp,cs) != 1 ) Break; - /* fat "#" have only small ends on left and right side, we tolerate this */ - j=loop(bp, 0,dy/8,dx,cs,0,RI); if(j<1 || j<dx/16) Break; if (j<dx/8) {ad=ad*96/100;} - j=loop(bp, 0,dy/2,dx,cs,0,RI); if(j<1 || j<dx/16 || j>=dx/2) Break; if (j<dx/8) {ad=ad*96/100;} - j=loop(bp,dx-1,dy/2,dx,cs,0,LE); if(j<1 || j<dx/16 || j>=dx/2) Break; if (j<dx/8) {ad=ad*96/100;} - j=loop(bp,dx-1,dy-1,dx,cs,0,LE); if(j<1 || j<dx/16) Break; if (j<dx/8) {ad=ad*96/100;} - for( i1=i3=0,y=dy/4; y<dy/2; y++ ){ - j=loop(bp,0, y,dx,cs,0,RI); if(j>3*dx/4) { i1=0; break; } - j=loop(bp,j, y,dx,cs,1,RI); if(j>i1) { i1=j; } - j=loop(bp,0,dy-1-y,dx,cs,0,RI); if(j>3*dx/4) { i1=0; break; } - j=loop(bp,j,dy-1-y,dx,cs,1,RI); if(j>i3) { i3=j; } - } - if (i1<dx-dx/4 || i3<dx-dx/4) Break; - if (i1<dx-dx/8) ad=97*ad/100; - if (i3<dx-dx/8) ad=97*ad/100; - if (sdata->holes.num != 1) {ad=95*ad/100;} - if( num_hole(x0+dx/8,x1-dx/8,y0+dy/8,y1-dy/8,box1->p,cs,NULL) != 1 ) Break; - // if( num_hole(x0 ,x1 ,y0 ,y1 ,box1->p,cs,NULL) != 1 ) Break; - - ac=(wchar_t) '#'; - if( gchar ) {ad=99*ad/100;} - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - } - // --- test bullet, full_box, grabbed cursor, ZapfDingBats_156 - if (bc==UNKNOWN) - for(ad=96;dx>4 && dy>4 && 2*dx>dy;){ // provisorium - DBG( wchar_t c_ask='#'; ) - if( get_bw(x0,x1,y0,y1,box1->p,cs,2) != 0 ) break; - ac=BULLET; - if (gchar && !hchar) ad=80*ad/100; - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - } - /* --- test | (vertical line, could be a I or l) --- */ - for(ad=99;dy>4 && 2*dx<dy;){ /* v0.44 */ - DBG( wchar_t c_ask='|'; ) - /* test if everything is filled black */ - if( get_bw(x0+dx/8,x1-dx/8,y0+dy/9,y1-dy/9,box1->p,cs,2) != 0 ) break; - /* more unsure if the borders are not exact */ - if( get_bw(x0 ,x0+dx/8,y0+dy/9,y1-dy/9,box1->p,cs,2) != 0 ) ad=99*ad/100; - if( get_bw(x1-dx/8,x1 ,y0+dy/9,y1-dy/9,box1->p,cs,2) != 0 ) ad=99*ad/100; - if( get_bw(x0+dx/8,x1-dx/8,y0 ,y0+dy/8,box1->p,cs,2) != 0 ) ad=99*ad/100; - if( get_bw(x0+dx/8,x1-dx/8,y1-dy/8,y1 ,box1->p,cs,2) != 0 ) ad=99*ad/100; - if (3*dx<dy) ad=98*ad/100; - if (4*dx<dy) ad=99*ad/100; - if (box1->m2 && 2*y1> box1->m2+box1->m3) Break; - if (box1->m2 && 3*y1>2*box1->m2+box1->m3) ad=95*ad/100; - ac='|'; - if (!hchar) ad=98*ad/100; - Setac(box1,ac,ad); - break; - } - // --- test % --------------------------------------------------- - for(ad=100;dx>5 && dy>7;){ // provisorium - DBG( wchar_t c_ask='%'; ) - if (sdata->holes.num > 2) break; /* tolerant against a tiny hole */ - if( num_cross(x0,x1 ,y0+dy/4,y0+dy/4,box1->p,cs) != 3 - && num_cross(x0,x1 ,y0+dy/8,y0+dy/8,box1->p,cs) != 3 ) Break; - if( num_cross(x0,x1+dx/4,y1-dy/4,y1-dy/4,box1->p,cs) != 3 - && num_cross(x0,x1+dx/4,y1-dy/8,y1-dy/8,box1->p,cs) != 3 ) Break; - if( num_cross(x0,x1, y0, y1,box1->p,cs) < 4 - && num_cross(x0+dx/8,x1, y0, y1,box1->p,cs) < 4 - && num_cross(x0,x1+dx/4, y0, y1,box1->p,cs) < 4 - && dx>7 && dy>15) Break; - if( num_cross(x0,x1, y0, y1,box1->p,cs) !=5 ) ad=99*ad/100; - - if (dx>7 && dy>12) { - if( num_hole(x0 ,x1 ,y0,y1-dy/4,box1->p,cs,NULL) != 1 ) Break; - if( num_hole(x0+dx/4,x1+dx/4,y0+dy/4,y1,box1->p,cs,NULL) != 1 ) Break; - if( num_hole(x0 ,x1+dx/4,y0,y1 ,box1->p,cs,NULL) != 2 ) Break; - } else ad=98*ad/100; - // use box1->p instead of b, because % is a sum of 3 objects - if ( loop(box1->p,x0,y0 ,dx,cs,0,RI) - <= loop(box1->p,x0,y0+dy/16+1,dx,cs,0,RI) ) ad=96*ad/100; // X - if ( loop(box1->p,x1,y1 ,dx,cs,0,LE) - <= loop(box1->p,x1,y1-1-dy/16,dx,cs,0,LE) ) ad=96*ad/100; // X - for (x=0;x<dx;x++) { /* look for a vertical line and break if found */ - if ( get_bw(x0+x,x0+x,y0+dy/8,y1-dy/8,box1->p,cs,2) != 2 ) break; - } if (x<dx) Break; // ~gluedVI - if (gchar) ad=98*ad/100; - ac=(wchar_t) '%'; - Setac(box1,ac,ad); - if (ad>=100) return ac; - break; - } - // --- test Omega --------------------------------------------------- - for(ad=d=99;dx>7 && dy>7;){ // min 3x4 - DBG( wchar_t c_ask=GREEK_CAPITAL_LETTER_OMEGA; ) - if( get_bw(x0 , x0+dx/2,y0+dy/2 , y0+dy/2,box1->p,cs,1) != 1 ) Break; - if( get_bw(x1-dx/2 , x1 ,y0+dy/2 , y0+dy/2,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2 , x0+dx/2,y0 , y0+dy/2,box1->p,cs,1) != 1 ) Break; - if( get_bw(x0+dx/2 , x0+dx/2,y0+dy/3 , y1-dy/3,box1->p,cs,1) != 0 ) Break; - - if( num_cross(x0+dx/2,x0+dx/2,y0 , y1-dy/3,box1->p,cs) != 1 ) Break; - if( num_cross(x0+dx/3,x1-dx/3,y0 , y0 ,box1->p,cs) != 1 ) // AND - if( num_cross(x0+dx/3,x1-dx/3,y0+1 , y0+1 ,box1->p,cs) != 1 ) Break; - if( num_cross(x0+dx/3,x1-dx/3,y1 , y1 ,box1->p,cs) != 2 ) // against "rauschen" - if( num_cross(x0+dx/3,x1-dx/3,y1-1 , y1-1 ,box1->p,cs) != 2 ) Break; - if( num_cross(x0 ,x0 ,y0+dy/3 , y1-dy/3,box1->p,cs) != 1 ) - if( num_cross(x0+1 ,x0+1 ,y0+dy/3 , y1-dy/3,box1->p,cs) != 1 ) Break; - if( num_cross(x1 ,x1 ,y0+dy/3 , y1-dy/3,box1->p,cs) != 1 ) - if( num_cross(x1-1 ,x1-1 ,y0+dy/3 , y1-dy/3,box1->p,cs) != 1 ) Break; - if (sdata->holes.num) Break; - // if( num_hole(x0,x1,y0,y1,box1->p,cs,NULL) != 0 ) break; - - if( loop(bp,0 ,0 ,x1-x0,cs,0,RI)<= - loop(bp,0 ,2 ,x1-x0,cs,0,RI) ) Break; - if( loop(bp,dx/2,dy-dy/4,x1-x0,cs,0,RI)>dx/4 - || loop(bp,dx/2,dy-dy/4,x1-x0,cs,0,LE)>dx/4 ) Break; - if( loop(bp,dx/2,3*dy/8,x1-x0,cs,0,RI)<dx/4 - || loop(bp,dx/2,3*dy/8,x1-x0,cs,0,LE)<dx/4 ) Break; - - i=loop(bp,0,dy-1-dy/16,x1-x0,cs,0,RI); if(i>dx/8) Break; - x=loop(bp,i,dy-1-dy/16,x1-x0,cs,1,RI); i+=x; if(i<3*dx/8 || i>dx/2) Break; - x=loop(bp,i,dy-1-dy/16,x1-x0,cs,0,RI); i+=x; if(i<dx/2 || i>5*dx/8) Break; - x=loop(bp,i,dy-1-dy/16,x1-x0,cs,1,RI); i+=x; if(i<7*dx/8) Break; - - /* look for a vertikal gap at lower end */ - for( x=dx/4;x<3*dx/4;x++ ){ - i=loop(bp,x,dy-1,y1-y0,cs,0,UP); - if( i>3*dy/4 ) break; - } - if( x>=3*dx/4 ) Break; - - if( !hchar ) ad=60*ad/100; - bc=GREEK_CAPITAL_LETTER_OMEGA; - Setac(box1,bc,ad); - break; - } - - return bc; -} - -// -------------------- OCR engine ;) ---------------------------- -wchar_t ocr0(struct box *box1, pix *bp, int cs){ - // pix p=*(box1->p); - int i,j,d,x,y,x0=box1->x0,x1=box1->x1,y0=box1->y0,y1=box1->y1; - int dx=x1-x0+1,dy=y1-y0+1, /* size */ - rx,ry,r1,r2,i1,i2,ad; /* tmp-vars */ - // ad,ac will be used in future - wchar_t bc = UNKNOWN; // bestletter - wchar_t um = SPACE; // modifier '" - int hchar; // char is higher than e - int gchar; // char has ink lower than m3 - int aa[4][4]; /* corner points, see xX, (x,y,dist^2,vector_idx) v0.41 */ - ocr0_shared_t sdata; // data used in all subfunctions - - sdata.box1=box1; - sdata.bp=bp; - sdata.cs=cs; - // --- hchar --- gchar ------------------------- - hchar=0;if( y0 < box1->m2-(box1->m2-box1->m1)/2 ) hchar=1; - gchar=0;if( y1 > box1->m3+(box1->m4-box1->m3)/2 ) gchar=1; - // if the char is slightly moved down correction can be done - if ( y0<box1->m2 && y1>box1->m3 && 2*y1<box1->m3+box1->m4) // moved - if( 2*(y0-(y1-box1->m3))<=2*box1->m2-(box1->m2-box1->m1) ) hchar=1; - - sdata.hchar=hchar; - sdata.gchar=gchar; - - /* search for nearest points to the 4 courners, typical for xX */ - /* this is faster as calling nearest_frame_vector 4 times */ - aa[0][0]=aa[1][0]=aa[2][0]=aa[3][0]=(x0+x1)/2; /* set to center */ - aa[0][1]=aa[1][1]=aa[2][1]=aa[3][1]=(y0+y1)/2; /* set to center */ - aa[0][2]=aa[1][2]=aa[2][2]=aa[3][2]=2*sq(128); /* distance to box edges */ - aa[0][3]=aa[1][3]=aa[2][3]=aa[3][3]=0; /* vector index */ - /* searching for 4 diagonal line ends */ - for (i=0;i<box1->num_frame_vectors[0];i++) { - x=box1->frame_vector[i][0]; /* take a vector */ - y=box1->frame_vector[i][1]; - /* distance to upper left end, normalized to 128 */ - j=0; d=sq((x-x0)*128/dx)+sq((y-y0)*128/dy); - // fprintf(stderr," setaa i= %2d xy= %3d %3d d=%5d aa[3]=%2d\n",i,x-x0,y-y0,d,aa[0][3]); - if (d<aa[j][2]) { aa[j][0]=x; aa[j][1]=y; aa[j][2]=d; aa[j][3]=i; } - /* distance to lower left end */ - j=1; d=sq((x-x0)*128/dx)+sq((y-y1)*128/dy); - if (d<aa[j][2]) { aa[j][0]=x; aa[j][1]=y; aa[j][2]=d; aa[j][3]=i; } - /* distance to lower right end */ - j=2; d=sq((x-x1)*128/dx)+sq((y-y1)*128/dy); - if (d<aa[j][2]) { aa[j][0]=x; aa[j][1]=y; aa[j][2]=d; aa[j][3]=i; } - /* distance to upper right end */ - j=3; d=sq((x-x1)*128/dx)+sq((y-y0)*128/dy); - if (d<aa[j][2]) { aa[j][0]=x; aa[j][1]=y; aa[j][2]=d; aa[j][3]=i; } - } - for (i=0;i<16;i++) sdata.aa[i/4][i%4]=aa[i/4][i%4]; - - /* extract number position and size of holes and store in a table - * - hole coordinates are relative to box (x-x0,y-y0) - */ - sdata.holes.num=0; - if (box1->num_frames>0) // speedup v0.42 - num_hole(x0,x1,y0,y1,box1->p,cs,&sdata.holes); // call once - // printf(" num_holes=%d\n",sdata.holes.num); - - /* - after division of two glued chars, boundaries could be wrong, - check this first (ToDo: only if a flag set?) - */ - if (2*y0 < box1->m2+box1->m3) - if (box1->m4>box1->m3 && 2*box1->y1>box1->m4+box1->m3){ - /* could be a "I" from divided "Ij" or "Ig" */ - for(y=(box1->m3+box1->m2)/2;2*y<box1->m3+box1->m4;y++) - if( get_bw(x0,x1,y,y,box1->p,cs,1)==0 ) break; - if(2*y<box1->m3+box1->m4) - if( get_bw((x0+x1)/2,(x0+x1)/2,y,box1->m4,box1->p,cs,1)==0 ){ - /* be sure, ~_ */ - if (y>y0) y1=box1->y1=y; - } - } - - DBG( IFV fprintf(stderr,"\nDBG L%d (%d,%d): ",__LINE__,box1->x0,box1->y0); ) - DBG( IFV out_b(box1,sdata.bp,0,0,dx,dy,160); ) - DBG( IFV fprintf(stderr,"# aa[] %d %d %d %d %d %d %d %d (4 corners)" - " d= %d %d %d %d", - aa[0][0]-x0,aa[0][1]-y0,aa[1][0]-x0,aa[1][1]-y0, - aa[2][0]-x0,aa[2][1]-y0,aa[3][0]-x0,aa[3][1]-y0, - aa[0][2], aa[1][2], aa[2][2], aa[3][2]);) - DBG( IFV fprintf(stderr,"\n# holes %d gchar=%d hchar=%d",sdata.holes.num, gchar, hchar);) - - // --- test thin lines - --------------------------------- - for( ad=100; 2*dy<box1->m3-box1->m2 && 3*dx>=4*dy && dx>2; ){ // min 3x3 (small font) - DBG( wchar_t c_ask='-'; ) - if( get_bw(x0+dx/8+1,x1-dx/8-1,y0+dy/8+((dy>2)?1:0), - y1-dy/8-((dy>2)?1:0),box1->p,cs,2)==2 ) break; - if( box1->dots ) { Setac(box1,'=',97);break; } - if (dx<=2*dy) ad=98*ad/100; - if (dx<=3*dy) ad=99*ad/100; - if (!box1->m4) ad=96*ad/100; - else { - if (y1>=box1->m3) { - if ( dx<2*dy) ad=98*ad/100; - if (2*dx<3*dy) ad=98*ad/100; - Setac(box1,'_',ad); - break; - } - } - Setac(box1,'-',ad); if (ad>=100) return '-'; - break; - } - // --- test thin lines = --------------------------------- - for( ; dy>2 && dx>2; ){ // min 3x3 (small font) - DBG( wchar_t c_ask='='; ) - for( y=y0;y<y1;y++) // remove upper empty space - if( get_bw(x0+dx/10,x1-dx/10,y ,y ,box1->p,cs,1)==1 ) break; - if( get_bw(x0+dx/10,x1-dx/10,y ,y ,box1->p,cs,2)==2 ) break; - if( get_bw(x0 ,x1 ,(y+y1)/2,(y+y1)/2,box1->p,cs,1)==1 ) break; - if( get_bw(x0+dx/10,x1-dx/10,y1 ,y1 ,box1->p,cs,2)==2 ) break; - Setac(box1,'=',100); - return '='; - } - // --- test dots : --------------------------------- - for( ad=100; dy>2 && dy>=2*dx; ){ // max 3x3 (small font) - - DBG( wchar_t c_ask=':'; ) - // check the gap hight - for( i1=dy/16;i1<dy/2;i1++) - if( get_bw(x0+dx/8,x1-dx/8,y0+i1,y0+i1,box1->p,cs,1)==0 ) break; - if (i1>=dy/2) break; - for( i2=dy/16;i2<dy/2;i2++) - if( get_bw(x0+dx/8,x1-dx/8,y1-i2,y1-i2,box1->p,cs,1)==0 ) break; - if (i2>=dy/2) Break; - MSG(fprintf(stderr,"gap y12 %d %d",i1,i2);) - - if (box1->m3 && y1>box1->m3) ad=98*ad/100; // ~; - if (box1->m3 && 2*y0> box1->m2+box1->m1) ad=98*ad/100; // ~i - if (gchar) ad=99*ad/100; - ad=ad-abs(i1-i2)/dy*20; - if (abs(i1-dx)>dy/4) Break; // round or quadratic dots? - if (abs(i1-dx)>dy/8) ad=98*ad/100; - if (abs(i2-dx)>dy/4) Break; // round or quadratic dots? - if (abs(i2-dx)>dy/8) ad=98*ad/100; - if (box1->dots!=1) ad=96*ad/100; - Setac(box1,':',ad); // dx<=3 ad-- - if (ad>=100) return ':'; - break; - } - // --- test dots ; --------------------------------- - if( 2*y0> box1->m2+box1->m1 ) // ~i - if( 4*y1>=3*box1->m3+box1->m2 ) // ~: - for( ad=100; dy>5 && dx>1 && dy>2*dx; ){ // max 3x3 (small font) - DBG( wchar_t c_ask=';'; ) - // better would it be to detect round pixelcluster on top - // check high of upper and lower dot - for( i1=0;i1<dy/2;i1++) - if( get_bw(x0,x1,y0+i1,y0+i1,box1->p,cs,1)==0 ) break; - if (i1>=dy/2) break; - for( i2=0;i2<dy/2;i2++) - if( get_bw(x0,x1,y1-i2,y1-i2,box1->p,cs,1)==0 ) break; - if (i2<i1) break; - - /* test for horizontal symmetry ~i */ - for (y=0;y<dy;y++) for (x=0;x<dx/2;x++) - if ((getpixel(bp,x,y)<cs)!=(getpixel(bp,dx-1-x,y)<cs)) { y=dy+1; break; } - if (y==dy) ad=96*ad/100; /* ~i */ - - if (i2==i1 && y1<=box1->m3) ad=97*ad/100; - if (i2-i1<dy/8) ad=99*ad/100; - Setac(box1,';',ad); // dx<=3 ad-- - if (ad>=100) return ';'; - break; - } - // --- first test small dots . --------------------------------- - if( 3*dy<box1->m4-box1->m1 && abs(dx-dy)<(dx+dy)/4+2 - && 3*y1>=(2*box1->m3+ box1->m2) // dot near baseline? - && 5*y0>=(3*box1->m3+2*box1->m2) ){ // Jul00 - DBG( wchar_t c_ask='.'; ) - d=0; r1=60;r2=140; ad=99; - for(x=x0;x<=x1;x++)for(y=y0;y<=y1;y++){ /* circle equation */ - rx=100*(2*x-(x0+x1))/dx; // normalize to 15bit number - ry=100*(2*y-(y0+y1))/dy; - if( rx*rx + ry*ry < r1*r1 ) if( getpixel(box1->p,x,y)>=cs ){ d++;x=x1+1;y=y1+1; } - if( rx*rx + ry*ry > r2*r2 ) if( getpixel(box1->p,x,y)< cs ){ d++;x=x1+1;y=y1+1; } - // fprintf(stderr,"\nDBG . x= %3d %3d r= %6d %6d %6d", rx, ry, rx*rx+ry*ry, r1*r1, r2*r2); - } - if(d==0) - if( loop(box1->p,x0,y0,x1-x0,cs,0,RI) - <= loop(box1->p,x0,y1,x1-x0,cs,0,RI) - || loop(box1->p,x1,y0,x1-x0,cs,0,LE) - >= loop(box1->p,x1,y1,x1-x0,cs,0,LE) ) - { - bc='.'; if (box1->dots) { Setac(box1,':',ad); ad=98*ad/100; } - Setac(box1,bc,ad); - } - } - // --- first test small dots , --------------------------------- - if( 3*dy<2*(box1->m4-box1->m1) - && 2*y0> box1->m2+box1->m3 - && (2*dx<3*dy - || get_bw(0,dx/2,dy/2,dy-1,bp,cs,1)==0) ){ // ocr-a-, - DBG( wchar_t c_ask=','; ) - ad=100; bc=','; - if (dy==1 && dx==1) ad=98*ad/100; - if (dy==2 && dx==1) ad=99*ad/100; // this is a problem case - if (dx>=dy) ad=99*ad/100; - if( 2*dy >= box1->m4-box1->m1) ad=98*ad/100; - if( loop(box1->p,x0,y0,x1-x0,cs,0,RI) /* simple line */ - > loop(box1->p,x0,y1,x1-x0,cs,0,RI) - && loop(box1->p,x1,y0,x1-x0,cs,0,LE) - < loop(box1->p,x1,y1,x1-x0,cs,0,LE) ) { ad=99*ad/100; } - else { /* with upper circle */ - if( loop(box1->p,x0,(y0+y1+1)/2,x1-x0,cs,0,RI)<dx/2 ) ad=98*ad/100; - if( loop(box1->p,x1, y1 ,x1-x0,cs,0,LE)<dx/2 ) ad=98*ad/100; - if( loop(box1->p,x0,y1-((dy>5)?1:0),x1-x0,cs,0,LE)>(dx+1)/2 ) - if( loop(box1->p,x0, y1 ,x1-x0,cs,0,LE)>(dx+1)/2 ) ad=96*ad/100; - } - if(box1->dots==1) { Setac(box1,';',ad); ad=99*ad/100; } - Setac(box1,bc,ad); - } - // --- first test small dots '" --------------------------------- - if( 2*dy < box1->m4 -box1->m1+1 - && 2*y0 < box1->m2 +box1->m3 - && 3*y1 < box1->m2+2*box1->m3+2 ){ - DBG( wchar_t c_ask='\''; ) - ad=100; bc='\''; - if (2*y1 >= box1->m2+box1->m3) { ad=96*ad/100; MSG({}) } // ~! - if (3*y1>=2*box1->m2+box1->m3) { ad=96*ad/100; MSG({}) } - if (get_bw(x0,x1,(box1->m2+box1->m3)/2,box1->m4,box1->p,cs,1)!=0) - { ad=98*ad/100; MSG({}) } - if (dx>4 - && num_cross(x0,x1,y1,y1,box1->p,cs) == 2) { // " " - bc='"'; - // ocr-a-" has no gap! - if ( get_bw((x0+x1)/2,(x0+x1)/2,y0,y1,box1->p,cs,1)!=0 ) ad=96*ad/100; - } else { - if ( num_cross(x0,x1, y0 , y0 ,box1->p,cs)!=1) ad=96*ad/100; - if ( num_cross(x0,x1,(y0+y1)/2,(y0+y1)/2,box1->p,cs)!=1) ad=98*ad/100; - if (dx>dy) { ad=96*ad/100; MSG({}) } - } - if (2*y0 > box1->m1+box1->m2) ad=99*ad/100; - Setac(box1,bc,ad); - if (ad>=100) return bc; - } - // --- TILDE ~ --------------------------------- - if( 2*dy<box1->m4-box1->m1 && dx>=dy && dx>3 && dy>1 - && 2*y0< box1->m1+box1->m2 - && 3*y1<2*box1->m2+box1->m3 ){ - if( loop(box1->p,x0,y0,dx,cs,0,RI) - > loop(box1->p,x0,y1,dx,cs,0,RI) - && loop(box1->p,x1,y0,dx,cs,0,LE) - < loop(box1->p,x1,y1,dx,cs,0,LE) - && num_cross(x0,x1,y0,y0,box1->p,cs) == 2 - && num_cross(x0,x1,y1,y1,box1->p,cs) == 2 ) { - DBG( wchar_t c_ask='~'; ) - bc=TILDE; - Setac(box1,bc,99); - } - } - // --- CIRCUMFLEX, hat ^ --------------------------------- - if( 2*dy<box1->m4-box1->m1 && dx>=dy && dx>2 && dy>1 - && 2*y0< box1->m1+box1->m2 - && 3*y1<2*box1->m2+box1->m3 ){ - DBG( wchar_t c_ask='^'; ) - if( ( loop(box1->p,x0,y0 ,dx,cs,0,RI) - > loop(box1->p,x0,y1 ,dx,cs,0,RI)-dx/8 - || loop(box1->p,x0,y0 ,dx,cs,0,RI) - > loop(box1->p,x0,y1-1,dx,cs,0,RI)-dx/8 ) - && ( loop(box1->p,x1,y0 ,dx,cs,0,LE) - > loop(box1->p,x1,y1 ,dx,cs,0,LE)-dx/8 - || loop(box1->p,x1,y0 ,dx,cs,0,LE) - > loop(box1->p,x1,y1-1,dx,cs,0,LE)-dx/8 ) - && num_cross(x0,x1,y0 ,y0 ,box1->p,cs) == 1 - && ( num_cross(x0,x1,y1 ,y1 ,box1->p,cs) == 2 - || num_cross(x0,x1,y1-1,y1-1,box1->p,cs) == 2 )) { - bc='^'; - Setac(box1,bc,99); - } - } - // ------------------------------------------------------ -// if( dots==1 ){ um='\''; } -#if 0 /* ToDo: change to vectors, call here or in whatletter */ - if (box1->dots==0) { // i-dots ??? (if dots==0 is wrong) - y=box1->m1; - for(;y<y0+dy/2;y++)if( get_bw(x0+dx/4,x1,y,y,box1->p,cs,1)==1) break; - { i1=y; - if( y<y0+dy/4 ) - for(;y<y0+dy/2;y++)if( get_bw(x0,x1,y,y,box1->p,cs,1)==0) break; - if( y<y0+dy/2 && 5*(y-i1+1)>box1->m2-box1->m1){ - testumlaut(box1,cs,2,&um); // set modifier + new y0 ??? - - } - } - } -#else - um = box1->modifier; -#endif - if ( /* um==ACUTE_ACCENT || */ um==DIAERESIS){ - for(y=y1;y>y0;y--) - if( get_bw(x0,x1,y,y,box1->p,cs,1)==0) { y0=y; dy=y1-y0+1; break; } // scan "a "o "u - } - - // --- test numbers 0..9 --- separated for faster compilation - if( JOB->cfg.only_numbers ) return ocr0n(&sdata); - - // bc=ocr1(box1,bp,cs); - if(bc!=UNKNOWN && box1->num_ac>0 && box1->wac[0]==100) - return bc; // for fast compilable tests - - // ------ separated for faster compilation - // ToDo: inser ocr0_shared_t here and split into a,b,cC,d,e,f,g9,... -#define IF_NOT_SURE if(bc==UNKNOWN || box1->num_ac==0 || box1->wac[0]<100) - - IF_NOT_SURE bc=ocr0_eE(&sdata); - IF_NOT_SURE bc=ocr0_f(&sdata); - IF_NOT_SURE bc=ocr0_bB(&sdata); - IF_NOT_SURE bc=ocr0_dD(&sdata); - IF_NOT_SURE bc=ocr0_F(&sdata); - IF_NOT_SURE bc=ocr0_uU(&sdata); - IF_NOT_SURE bc=ocr0_micro(&sdata); - IF_NOT_SURE bc=ocr0_vV(&sdata); - IF_NOT_SURE bc=ocr0_rR(&sdata); - IF_NOT_SURE bc=ocr0_m(&sdata); - IF_NOT_SURE bc=ocr0_tT(&sdata); - IF_NOT_SURE bc=ocr0_sS(&sdata); - IF_NOT_SURE bc=ocr0_gG(&sdata); - IF_NOT_SURE bc=ocr0_xX(&sdata); - IF_NOT_SURE bc=ocr0_yY(&sdata); - IF_NOT_SURE bc=ocr0_zZ(&sdata); - IF_NOT_SURE bc=ocr0_wW(&sdata); - IF_NOT_SURE bc=ocr0_aA(&sdata); - IF_NOT_SURE bc=ocr0_cC(&sdata); - IF_NOT_SURE bc=ocr0_lL(&sdata); - IF_NOT_SURE bc=ocr0_oO(&sdata); - IF_NOT_SURE bc=ocr0_pP(&sdata); - IF_NOT_SURE bc=ocr0_qQ(&sdata); - IF_NOT_SURE bc=ocr0_iIjJ(&sdata); - IF_NOT_SURE bc=ocr0_n(&sdata); - IF_NOT_SURE bc=ocr0_M(&sdata); - IF_NOT_SURE bc=ocr0_N(&sdata); - IF_NOT_SURE bc=ocr0_h(&sdata); - IF_NOT_SURE bc=ocr0_H(&sdata); - IF_NOT_SURE bc=ocr0_k(&sdata); - IF_NOT_SURE bc=ocr0_K(&sdata); - IF_NOT_SURE bc=ocr0n(&sdata); - IF_NOT_SURE bc=ocr0_brackets(&sdata); - IF_NOT_SURE bc=ocr0p9(&sdata); - IF_NOT_SURE bc=ocr0px(&sdata); - - - if(box1->num_ac==0 && bc!=UNKNOWN) fprintf(stderr,"<!--ERROR 576-->"); - if(box1->num_ac>0 && box1->wac[0]>95) box1->c=bc=box1->tac[0]; - /* will be removed later, only fix old things */ - for (i=0;i<box1->num_ac;i++) if (box1->tac[i]==bc) { bc=box1->tac[0]; } - - return bc; -} - - |