/* [<][>][^][v][top][bottom][index][help] */
DEFINITIONS
This source file includes following definitions.
- line_deviation
- nearest_frame_vector
- testumlaut
- ocr0_eE
- ocr0_n
- ocr0_M
- ocr0_N
- ocr0_h
- ocr0_H
- ocr0_k
- ocr0_K
- ocr0_f
- ocr0_bB
- ocr0_dD
- ocr0_F
- ocr0_uU
- ocr0_micro
- ocr0_vV
- ocr0_rR
- ocr0_m
- ocr0_tT
- ocr0_sS
- ocr0_gG
- ocr0_xX
- ocr0_yY
- ocr0_zZ
- ocr0_wW
- ocr0_aA
- ocr0_cC
- ocr0_lL
- ocr0_oO
- ocr0_pP
- ocr0_qQ
- ocr0_iIjJ
- ocr0_brackets
- ocr0_XXX
- ocr0p9
- ocr0px
- ocr0
/*
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;
}