--- /dev/null
+/*
+ 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;
+}
+
+
git.asbjorn.biz / swftools.git / blobdiff