/*************************************************************************************** * * WRITEPAD(r): Handwriting Recognition Engine (HWRE) and components. * Copyright (c) 2001-2016 PhatWare (r) Corp. All rights reserved. * * Licensing and other inquires: * Developer: Stan Miasnikov, et al. (c) PhatWare Corp. * * WRITEPAD HWRE 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 3 of the License, or * (at your option) any later version. * * THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS" * AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE, * INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR * FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL PHATWARE CORP. * BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT, SPECIAL, INCIDENTAL, * INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND, OR ANY DAMAGES WHATSOEVER, * INCLUDING WITHOUT LIMITATION, LOSS OF PROFIT, LOSS OF USE, SAVINGS * OR REVENUE, OR THE CLAIMS OF THIRD PARTIES, WHETHER OR NOT PHATWARE CORP. * HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON * ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE * POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE. * See the GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with WritePad. If not, see . * **************************************************************************************/ #ifndef LOW_LEVEL_INCLUDED #define LOW_LEVEL_INCLUDED #include "ams_mg.h" #include "floats.h" #define NEW_VERSION _TRUE /* New version - born in Sept.1992 */ #define LOW_INLINE _FALSE /* If small low-level functions should be */ /* expanded inline (as macros). */ #define USE_FRM_WORD _FALSE /* _TRUE - makes it able to provide */ /* formulas wordbreaking and */ /* recogn. enhancing by cost of */ /* code enlarging. */ /* _FALSE- no fromula wordbreaking and */ /* additional enhancement, but */ /* code size reduces. */ /**************************************************************************/ /* CODES OF SPECIAL POINTS */ /**************************************************************************/ /* */ #define EMPTY 0x00 /* empty mark */ #define MINW 0x01 /* wide minimum */ #define MINN 0x02 /* narrow minimum */ #define MAXW 0x03 /* wide maximum */ #define MAXN 0x04 /* narrow maximum */ #define _MINX 0x11 /* */ #define _MAXX 0x13 /* */ #define MINXY 0x21 /* */ #define MAXXY 0x23 /* */ #define MINYX 0x31 /* */ #define MAXYX 0x33 /* */ #define SHELF 0x05 /* shelf */ #define CROSS 0x06 /* crossing */ #define STROKE 0x07 /* stroke */ #define DOT 0x08 /* point */ #define STICK 0x09 /* hypothetical stick */ #define HATCH 0x0a /* crossing with the stroke */ /* #define BIRD 0x12 */ /* */ /* #define STAFF 0x21 */ /* */ #define ANGLE 0x0b /* angle */ #define BEG 0x10 /* beginning of unbroken group of points */ #define END 0x20 /* end of the unbroken group of points */ #define DROP 0x44 /* break */ //GIT - new marks for SDS #define SDS_INTERSECTED 0x80 #define SDS_ISOLATE 0x81 /* */ /**************************************************************************/ /* Constants - direction setters for extrema searching. */ /* They are bits in the variable and may be combined using "|". */ /**************************************************************************/ #define EMPTY_DIR 0x0000 #define X_DIR 0x0001 #define Y_DIR 0x0002 #define XY_DIR 0x0004 #define YX_DIR 0x0008 /**************************************************************************/ /* CONSTANTS DEFINITION */ /**************************************************************************/ /* */ /* */ #define MAXBUF 8000 /* max size */ /* buffer of data */ #define LOWBUF (MAXBUF+3) /* size of buffer for */ /* lower level. */ #define SPECVAL 640 /* masssive measurity */ /* structure of special*/ /* points . */ #define N_GR_BORD 50 /* Size of an array of */ /* moveable SPECL elems*/ #define N_ABSNUM 50 /* Size of an array of */ /* moveable SPECL elems*/ #define UMSPC 50 /* */ /* */ #define N_SDS 200 /* Size of SDS array */ /* */ #define LENTH_E 64 /* */ /* */ #define LENTH_Q 64 /* */ /* */ #define LENTH_S 128 /* */ /* */ #define ALEF 32767 /* the biggest number */ /* y (for regime EGA ).*/ #define SQRT_ALEF 181 /* sqrt(ALEF) */ /* */ #define ELEM 0 /* the smallest */ /* bite number */ /* without sign */ #define BREAK -1 /* number-symbol of */ /* style break */ #define RIGHT 319 /* the most right point*/ /* */ #define CONSTVAL 8 /* max number of files */ /* with constants */ /* */ #define ABSENCE 1 /* */ /* */ #define NOABSENCE 0 /* */ /* */ #define CELLSIZE 7 /*size of rastre square*/ /* */ #define END_OF_WORDS 0xff /* End of list */ /* */ #define UNDEF -2 /* Undef value for in- */ /* dexes in arrays etc.*/ /* */ /* */ /***************************************************************************/ /* STRUCTURE OF DATA FOR LOW LEVEL */ /***************************************************************************/ /*------------------------------------------------------------------------*/ #if defined(FOR_GERMAN) || defined(FOR_FRENCH) || defined(FOR_INTERNATIONAL) typedef struct { _SHORT GroupNum ; _SHORT numMin ; _CHAR tH ; _CHAR bH ; _CHAR UmEls ; _CHAR ElsUm ; _CHAR UmDot ; _CHAR DotUm ; _CHAR UmStr ; _CHAR StrUm ; _CHAR UmCom ; _CHAR ComUm ; _CHAR CrossFeature ; _CHAR PositionFeature ; } _UM_MARKS , _PTR p_UM_MARKS ; typedef struct { p_UM_MARKS pUmMarks ; _SHORT Um_buf_Len ; _SHORT tmpUMnumber ; _SHORT termSpecl ; _SHORT termSpecl1 ; } _UM_MARKS_CONTROL , _PTR p_UM_MARKS_CONTROL ; #endif /* FOR_GERMAN... */ /********************************************************/ /* Lines description structures: */ /********************************************************/ typedef struct SDB_TYPE { _SHORT s ; _SHORT a ; _SHORT dL ; _SHORT iLmax ; _SHORT dR ; _SHORT iRmax ; _SHORT d ; _SHORT imax ; _LONG l ; _SHORT cr ; _SHORT ld ; _SHORT lg ; } _SAD ; typedef _SAD _PTR p_SAD ; /* cr == (BASE*d/s); "Curvity" */ /* ld == (BASE*l/s); */ /* lg == (BASE*l/(length of all part between breaks)); */ /* ooo "l" */ /* ooooooo | ooo */ /* ooo | o ooOO */ /* ooo | oo ooo */ /* oo | oo oo */ /* oo | "d" o o */ /* ------- OO -------------- | ---------- o --------- o ---------- */ /* ------- "s"| o o */ /* ------------ o o */ /* "a" - slope of this > --------OO oo */ /* (BASE*"dy"/"dx") oo oo */ /* ooo */ typedef struct _SDS_TYPE { _SHORT mark ; _SHORT ibeg ; _SHORT iend ; _SHORT xmax ; _SHORT xmin ; _SHORT ymax ; _SHORT ymin ; _SAD des ; } _SDS ; typedef _SDS _PTR p_SDS ; typedef struct _SDS_CONTROL_TYPE { _SHORT sizeSDS ; _SHORT iBegLock_SDS ; _SHORT lenSDS ; p_SDS pSDS ; } _SDS_CONTROL ; typedef _SDS_CONTROL _PTR p_C_SDS ; /* links description structure */ typedef enum { ARC_UNKNOWN = 0 , ARC_LEFT , ARC_RIGHT , ARC_UP , ARC_DOWN , ARC_UP_LEFT , ARC_DOWN_LEFT , ARC_UP_RIGHT , ARC_DOWN_RIGHT , ARC_LINE_VERT , ARC_LINE_HOR , ARC_LINE_SLASH , ARC_LINE_BACKSLASH , ARC_S_LIKE , ARC_Z_LIKE , ARC_SHORT } _ARC_TYPE ; /* new links description structure */ typedef enum { LINK_UNKNOWN = 0, // 0 LINK_HCR_CCW , // 1 LINK_LCR_CCW , // 2 LINK_MCR_CCW , // 3 LINK_SCR_CCW , // 4 LINK_TCR_CCW , // 5 LINK_LINE , // 6 LINK_TCR_CW , // 7 Tiny curvature (<10) LINK_SCR_CW , // 8 Small curvature (<15) LINK_MCR_CW , // 9 Med curvature (<20) LINK_LCR_CW , // 10 Large curvature (<30) LINK_HCR_CW , // 11 Huge curvature (>=30) LINK_HS_LIKE , // 12 's' shape huge curvature (>=25) LINK_S_LIKE , // 13 's' shape normal curvature (<25) LINK_Z_LIKE , // 14 'z' shape normal curvature (<25) LINK_HZ_LIKE // 15 'z' shape huge curvature (>=25) } _LINK_TYPE ; /*--------------- SPECIAL POINTS DESCRIPTOR ------------------------------*/ typedef struct SPEC_TYPE { _UCHAR mark ; _UCHAR code ; _UCHAR attr ;//round drection (0x30) | height (0x0f) _UCHAR other ; _SHORT ibeg ; _SHORT iend ; _SHORT ipoint0 ; _SHORT ipoint1 ; struct SPEC_TYPE near * next ; struct SPEC_TYPE near * prev ; } SPECL, _PTR p_FSPECL; /* grafy.h definitions */ typedef SPECL near* p_SPECL ; /*--------------- LIST OF CONSTANTS --------------------------------------*/ typedef struct CON_TYPE /* table for interpolaton constants */ { _SHORT horda ; /* chord of normalizaton */ _SHORT dlt0 ; /* */ _SHORT nsr ; /* */ _SHORT j_step ; /* beginning steps of crossings */ _SHORT i_step ; /* search */ _SHORT eps_y ; /* environs of extremums marking out*/ _SHORT eps_x ; /* and preliminary marking out */ /* of shelves */ _SHORT eps_py ; /* max.(vertical and horisontal) */ _SHORT eps_px ; /* sizes of 'points */ _SHORT eps_st ; /* max stroke legnth */ _SHORT a0 ; /* */ _SHORT b0 ; /* */ _SHORT lf0 ; /* */ _SHORT lz0 ; /* */ _SHORT a1 ; /* */ _SHORT b1 ; /* */ _SHORT lf1 ; /* */ _SHORT lz1 ; /* */ _SHORT a2 ; /* */ _SHORT b2 ; /* */ _SHORT lf2 ; /* */ _SHORT lz2 ; /* */ _SHORT a3 ; /* */ _SHORT b3 ; /* */ _SHORT lf3 ; /* */ _SHORT lz3 ; /* */ } CONSTS ; /*--------------- HEIGHTS ------------------------------------------------*/ typedef struct /* If y<=y_US_, then height==_US_ */ { _SHORT y_US1_ ; _SHORT y_US2_ ; _SHORT y_UE1_ ; _SHORT y_UE2_ ; _SHORT y_UI1_ ; _SHORT y_UI2_ ; _SHORT y_MD_ ; _SHORT y_DI1_ ; _SHORT y_DI2_ ; _SHORT y_DE1_ ; _SHORT y_DE2_ ; _SHORT y_DS1_ ; _SHORT y_DS2_ ; } HEIGHTS_DEF ; /*--------------- BUFFER'S STRUCTURE -------------------------------------*/ typedef struct { p_SHORT ptr ; /* Pointer to buffer. */ _SHORT nSize ; /* # of _SHORTs in buffer. */ } BUF_DESCR, _PTR p_BUF_DESCR ; /*--------------- NUMBER OF BEGIN & END OF POINTS GROUP ------------------*/ typedef struct { _SHORT iBeg ; _SHORT iEnd ; _RECT GrBox ; } POINTS_GROUP, _PTR p_POINTS_GROUP ; /*--------------- LOW LEVEL MAIN DATA STRUCTURE --------------------------*/ #define NUM_BUF 4 /* buffers quantity */ typedef struct { rc_type _PTR rc ; BUF_DESCR buffers[NUM_BUF] ; PS_point_type _PTR p_trace ; _SHORT nLenXYBuf ; p_SHORT xBuf ; p_SHORT yBuf ; p_SHORT x ; p_SHORT y ; _SHORT ii ; p_SPECL specl ; _SHORT nMaxLenSpecl ; _SHORT len_specl ; _SHORT LastSpeclIndex ; p_SHORT pAbsnum ; _SHORT lenabs ; _SHORT rmAbsnum ; p_POINTS_GROUP pGroupsBorder ; _SHORT lenGrBord ; _SHORT rmGrBord ; _SHORT iBegBlankGroups ; #if defined(FOR_GERMAN) || defined(FOR_FRENCH) || defined(FOR_INTERNATIONAL) p_UM_MARKS_CONTROL pUmMarksControl ; #endif p_C_SDS p_cSDS ; /* array of geometric features */ _SHORT VertSticksNum ; p_POINTS_GROUP pVS_Collector ; _SHORT padding ; _SHORT slope ; _SHORT width_letter ; _SHORT StepSure ; _RECT box ; /* the smallest and the biggest y */ /* the smallest and the biggest x */ HEIGHTS_DEF hght ; _SHORT o_little ; _SHORT z_little ; } low_type, _PTR p_low_type ; typedef p_low_type p_LowData ; #if PG_DEBUG _VOID draw_SDS(p_low_type low_data); #endif _SHORT GetLinkBetweenThisAndNextXr(p_low_type low_data,p_SPECL pXr, xrd_el_type _PTR xrd_elem); _SHORT RecountBegEndInSDS(p_low_type low_data); /* bCalc determines, whether or not to calculate some features in this function */ _SHORT iMostFarDoubleSide( p_SHORT xArray, p_SHORT yArray, p_SDS pSDS, p_SHORT pxd, p_SHORT pyd, _BOOL bCalc ) ; /***************************************************************************/ /* FUNCTIONS */ /***************************************************************************/ /*------------------------- module lk_begin ------------------------------*/ _SHORT lk_begin(low_type _PTR low_data); /*beginning working out of elem.*/ _SHORT get_last_in_specl(low_type _PTR low_data); _SHORT Sort_specl(p_SPECL specl,_SHORT l_specl); /*sorting SPECL in time*/ _SHORT Clear_specl(p_SPECL specl,_SHORT len_specl); _SHORT extremum(_UCHAR code,_SHORT beg,_SHORT end,_SHORT _PTR y); /*------------------------ module lk_cross ------------------------------*/ _SHORT lk_cross(low_type _PTR low_data); /*sorting out of elem. crossings*/ /*------------------------ module lk_next ------------------------------*/ /* Parsing of different arcs on the ends: */ _SHORT lk_duga( low_type _PTR low_data ); /*------------------------ module low_3 -------------------------------*/ _SHORT FindDArcs ( low_type _PTR pld ) ; /* see fig. at the */ /* func. text */ /* Checks, if some _IU(D)_s should be _UU(D)_ and vice versa: */ _VOID Adjust_I_U ( low_type _PTR low_data ) ; _BOOL FindSideExtr( low_type _PTR low_data ) ; _BOOL PostFindSideExtr( low_type _PTR low_data ); _SHORT RestoreColons( low_type _PTR low_data ); #if !defined (FOR_GERMAN) _BOOL RestoreApostroph(p_low_type low_data,p_SPECL pCurr); /*Eric*/ #endif /*------------------------ module breaks -------------------------------*/ _SHORT xt_st_zz(low_type _PTR low_data); /* working out of tear-off parts */ _BOOL find_CROSS(p_low_type low_data,_SHORT ibeg_X,_SHORT iend_X, p_SPECL _PTR pCross); /*------------------------ module FILTER -------------------------------*/ _SHORT Filt( low_type _PTR pLowData , _SHORT t_horda , _SHORT fl_absence ) ; _SHORT PreFilt( _SHORT t_horda , low_type _PTR p_low_data ) ; _VOID Errorprov(low_type _PTR low_data) ; /* check tablete co-ordinates*/ /*------------------------ module INIT_GRF -------------------------------*/ _VOID AcceptEps( _SHORT a,_SHORT b,_SHORT lf,_SHORT lz,p_SHORT eps ) ; _VOID AcceptNbcut (_VOID) ; _VOID glob_low_init( _VOID ) ; /* initialisation of globals */ /*----------------------- module CHECK, PICT, CROSS ---------------------*/ _SHORT InitSpecl( low_type _PTR low_data, _SHORT n ) ; _SHORT InitSpeclElement( SPECL _PTR specl ) ; _SHORT Mark( low_type _PTR low_data , _UCHAR mark , _UCHAR code, _UCHAR attr , _UCHAR other , _SHORT begin, _SHORT end , _SHORT ipoint0, _SHORT ipoint1 ) ; _SHORT MarkSpecl( low_type _PTR low_data , SPECL _PTR p_tmpSpecl ) ; _BOOL NoteSpecl( low_type _PTR pLowData , SPECL _PTR pTmpSpecl , SPECL _PTR pSpecl , _SHORT _PTR pLspecl , _SHORT limSpecl ) ; #if PG_DEBUG _VOID PaintSpeclElement( low_type _PTR pLowData, SPECL _PTR pNewSpecl, SPECL _PTR pSpecl , _SHORT _PTR pLspecl ); #endif p_SPECL LastElemAnyKind ( p_SPECL pSpecl , _UCHAR kind_of_mark ) ; p_SPECL FirstElemAnyKind ( p_SPECL pSpecl , _UCHAR kind_of_mark ) ; _SHORT Pict( low_type _PTR low_data ) ; _SHORT Surgeon( low_type _PTR pLowData ) ; _SHORT OperateSpeclArray( low_type _PTR pLowData ) ; #define NO_CONTACT 0x0000 #define END_RESTRICTION 0x0001 #define ANY_OCCUARANCE 0x0002 #define END_INSIDE 0x0004 #define IP0_INSIDE 0x0008 #define BEG_INSIDE 0x0010 #define TOTALY_INSIDE 0x0020 #define TOTALY_COVERED 0x0040 #define MOD_SKIP 0x0080 _SHORT SpcElemFirstOccArr( low_type _PTR pLowData, p_INT pModeWord , p_POINTS_GROUP pTrajectoryCut, _UCHAR mark ) ; #define NREDUCTION 5 #define NREDUCTION_FOR_BORDER 0 _SHORT Extr( low_type _PTR low_data, _SHORT eps_fy, _SHORT eps_fx , _SHORT eps_fxy , _SHORT eps_fyx , _SHORT nMaxReduct , _SHORT extr_axis ) ; _SHORT Cross( low_type _PTR low_data ) ; _SHORT Clash( _SHORT _PTR x, _SHORT _PTR y, _SHORT i, _SHORT j, _SHORT of, _SHORT bf ) ; /***************************************************************************/ /* module LOW_UTIL */ /***************************************************************************/ #define LEFT_OUTSIDE 1 #define RIGHT_OUTSIDE 2 #define LEFT_SHIFT 3 #define RIGHT_SHIFT 4 #define INSIDE 5 #define COVERS 6 _VOID SetXYToInitial ( low_type _PTR pLowData ) ; _SHORT LowAlloc( _SHORT _PTR _PTR buffer, _SHORT num_buffers , _SHORT len_buf , low_type _PTR pLowData ) ; _SHORT low_dealloc( _SHORT _PTR _PTR buffer ) ; _SHORT alloc_rastr( _ULONG _PTR _PTR rastr , _SHORT num_rastrs,_SHORT len_rastr ) ; _SHORT dealloc_rastr( _ULONG _PTR _PTR rastr ) ; _BOOL AllocSpecl ( p_SPECL _PTR ppSpecl, _SHORT nElements ) ; _VOID DeallocSpecl ( p_SPECL _PTR ppSpecl ) ; _BOOL CreateSDS ( low_type _PTR pLowData , _SHORT nSDS ) ; _VOID DestroySDS( low_type _PTR pLowData ) ; _SHORT MaxPointsGrown( #ifdef FORMULA _TRACE trace, #endif /*FORMULA*/ _SHORT nPoints ) ; /* Max # of points */ /* after "Errorprov" or oth-*/ /* er functions in "x" and */ /* "y" arrays. nPoints - */ /* initial value. */ _INT MaxesCount( p_SHORT xyArr, low_type _PTR pLowData ) ; /* Counts (and returns) the total number of */ /* x- or y-maxima in the whole trajectory. */ _BOOL BorderForSpecSymbol ( low_type _PTR pLowData , rc_type _PTR rc ); /* If the trace looks like some special */ /* symbol (fraction line,"-","=","+"), then */ /* finds borders for it and returns _TRUE, */ /* otherwise does nothing and returns _FALSE. */ _LONG DistanceSquare ( _INT i1, _INT i2, p_SHORT xAr, p_SHORT yAr ) ; /* The square of the distance between */ /* points #i1 and #i2. */ #if 0 #define PRESERVE_GLOB_EXTR _TRUE /* For usage as parameter */ /* "bPreserveGlobExtr" in funct- */ /* ion "SmoothXY". */ _BOOL SmoothXY ( p_SHORT x, p_SHORT y, _INT iLeft, _INT iRight, _INT nTimes, _BOOL bPreserveGlobExtr ); #endif /* This function computes the square of the distance of the */ /* point (xPoint,yPoint) to the straight line going through */ /* (x1,y1) and (x2,y2). See figure in the function code. */ _LONG QDistFromChord ( _INT x1, _INT y1, _INT x2, _INT y2, _INT xPoint, _INT yPoint ); #define CURV_MAX (1000L) #define CURV_NORMA (100L) _SHORT CurvMeasure ( p_SHORT x, p_SHORT y, _INT iBeg, _INT iEnd, _INT iMostFar ); /* This function computes the distance whose "circle" */ /* is the 8-angles figure: */ _INT Distance8 ( _INT x1, _INT y1, _INT x2, _INT y2 ); #if PG_DEBUG _VOID SetNewAttr ( p_SPECL pElem, _UCHAR hght, _UCHAR fb_dir ); /* Clears attrs and sets */ /* specified height and cir- */ /* cle direction. */ #else #define SetNewAttr(el,h,fb) (el)->attr = (((h)&_umd_) | ((fb)&_fb_)) #endif #if (PG_DEBUG || PG_DEBUG_WIN) p_SPECL BadSPECLPtr (_VOID); #define REF(elem) ((elem)? (elem):BadSPECLPtr()) #define CHECK_PTR(p) {if ((p)==_NULL) BadSPECLPtr();} #else #define REF(elem) (elem) #define CHECK_PTR(p) {} #endif /*!(PG_DEBUG || PG_DEBUG_WIN)*/ #define ANY_CROSSING(pElem) ( REF(pElem)->mark==CROSS \ || REF(pElem)->mark==HATCH \ || REF(pElem)->mark==STICK ) #define IU_OR_ID(pElem) (REF(pElem)->code==_IU_ || REF(pElem)->code==_ID_) /* #define SET_XTST_BITS(pElem) {SetBit(pElem,X_XT); SetBit(pElem,X_ST);}*/ #define NULL_OR_ZZ(pElem) ( (pElem)==_NULL \ || REF(pElem)->code==_ZZZ_ \ || REF(pElem)->code==_ZZ_ \ || REF(pElem)->code==_Z_ \ || REF(pElem)->code==_FF_ ) #define ANY_BREAK(pElem) ( REF(pElem)->code==_ZZZ_ \ || REF(pElem)->code==_ZZ_ \ || REF(pElem)->code==_Z_ \ || REF(pElem)->code==_FF_ ) #define ANY_ARC_WITH_TAIL(pElem) ( REF(pElem)->code==_UUR_ \ || REF(pElem)->code==_UUL_ \ || REF(pElem)->code==_UDR_ \ || REF(pElem)->code==_UDL_) #define ANY_GAMMA_SMALL(pElem) ( REF(pElem)->code==_GUs_ \ || REF(pElem)->code==_GDs_ \ || REF(pElem)->code==_Gl_ \ || REF(pElem)->code==_Gr_) #define ANY_ANGLE(pElem) ( REF(pElem)->code==_ANl \ || REF(pElem)->code==_ANr \ || REF(pElem)->code==_AN_UR \ || REF(pElem)->code==_AN_UL \ ) #define XT_OR_ST(pElem) ( REF(pElem)->code==_XT_ \ || REF(pElem)->code==_ST_) #define ANY_MOVEMENT(pElem) ( REF(pElem)->code==_TZ_ \ || REF(pElem)->code==_TS_ \ || REF(pElem)->code==_BL_ \ || REF(pElem)->code==_BR_) #if LOW_INLINE #define IsAnyCrossing(e) ANY_CROSSING(e) #define Is_IU_or_ID(e) IU_OR_ID(e) #define NULL_or_ZZ_this(el) NULL_OR_ZZ(el) #define NULL_or_ZZ_after(el) NULL_or_ZZ_this(REF(el)->next) #define NULL_or_ZZ_before(el) NULL_or_ZZ_this(REF(el)->prev) #define IsAnyBreak(el) ANY_BREAK(el) #define IsAnyArcWithTail(el) ANY_ARC_WITH_TAIL(el) #define IsAnyGsmall(el) ANY_GAMMA_SMALL(el) #define IsAnyAngle(el) ANY_ANGLE(el) #define IsXTorST(el) XT_OR_ST(el) #define IsAnyMovement(el) ANY_MOVEMENT(el) #else _BOOL IsAnyCrossing ( p_SPECL pElem ); /* Checks if the "Elem" has the */ /* HATCH,CROSS or STICK mark. */ _BOOL IsAnyBreak( p_SPECL pElem ); /* Checks if the "Elem" is BREAK*/ _BOOL Is_IU_or_ID ( p_SPECL pElem ); /* _VOID SetXTSTBits ( p_SPECL pElem );*/ /* Sets both XT and ST bits */ /* (frequently used operation). */ _BOOL NULL_or_ZZ_this ( p_SPECL pElem ); _BOOL NULL_or_ZZ_after ( p_SPECL pElem ); _BOOL NULL_or_ZZ_before( p_SPECL pElem ); _BOOL IsAnyArcWithTail(p_SPECL pElem); _BOOL IsAnyGsmall(p_SPECL pElem); _BOOL IsAnyAngle(p_SPECL pElem); _BOOL IsXTorST(p_SPECL pElem); _BOOL IsAnyMovement(p_SPECL pElem); #endif /*LOW_INLINE*/ p_SPECL SkipAnglesAfter ( p_SPECL pElem ); p_SPECL SkipAnglesBefore ( p_SPECL pElem ); p_SPECL FindStrongElemAfter ( p_SPECL pElem ); p_SPECL FindStrongElemBefore ( p_SPECL pElem ); _BOOL IsUpperElem ( p_SPECL pElem ); _BOOL IsLowerElem ( p_SPECL pElem ); _BOOL IsStrongElem ( p_SPECL pElem ); _BOOL X_IsBreak ( p_xrd_el_type pXr ); _BOOL X_IsStrongElem( p_xrd_el_type pXr ); _INT iRefPoint( p_SPECL pElem, p_SHORT y ); _UCHAR HeightInLine ( _SHORT y, /* Calculating height in */ low_type _PTR pLowData ); /* the line of the point */ /* with abs.coord "y". */ _UCHAR MidPointHeight ( p_SPECL pElem, low_type _PTR pLowData ); /* The height of the middle point */ /* of the "pElem" */ _INT iMidPointPlato ( _INT iFirst, _INT iToStop, p_SHORT val, p_SHORT y ); _BOOL GetBoxFromTrace ( _TRACE trace, _INT iLeft, _INT iRight, p_RECT pRect ); _VOID GetTraceBox ( p_SHORT xArray, p_SHORT yArray, _INT iLeft, _INT iRight, p_RECT pRect ); _BOOL GetTraceBoxInsideYZone ( p_SHORT x, p_SHORT y, _INT ibeg, _INT iend, _SHORT yUpZone, _SHORT yDnZone, p_RECT pRect, p_SHORT ixmax,p_SHORT ixmin,p_SHORT iymax,p_SHORT iymin); #define size_cross(jb,je,x,y,pr) GetTraceBox((x),(y),(jb),(je),(pr)) /* Values of (*ptRetCod) after "ClosedSquare" worked: */ #define RETC_OK ((_SHORT)0) #define RETC_NO_PTS_IN_TRAJECTORY ((_SHORT)1) #define RETC_BREAK_WHERE_SHOULDNT ((_SHORT)2) _LONG ClosedSquare( p_SHORT xTrace, p_SHORT yTrace, _INT iBeg, _INT iEnd, p_SHORT ptRetCod ); _LONG TriangleSquare( p_SHORT x, p_SHORT y, _INT i1, _INT i2, _INT i3 ); _SHORT CurvFromSquare( p_SHORT x, p_SHORT y, _INT iBeg, _INT iEnd ); _LONG LengthOfTraj( p_SHORT xTrace, p_SHORT yTrace, _INT iBeg, _INT iEnd, p_LONG pChord ,p_SHORT ptRetCod ); /* Calc. angle cos */ _LONG cos_pointvect ( _INT xbeg1, _INT ybeg1, _INT xend1, _INT yend1, _INT xbeg2, _INT ybeg2, _INT xend2, _INT yend2 ); _LONG cos_vect( _INT beg1, _INT end1, /* beg and end first */ _INT beg2, _INT end2, /* and second vector's */ _SHORT _PTR x, _SHORT _PTR y); _LONG cos_horizline ( _INT beg1, _INT end1, _SHORT _PTR x, _SHORT _PTR y); _LONG cos_normalslope ( _INT beg1, _INT end1, _INT slope, _SHORT _PTR x, _SHORT _PTR y ); _UCHAR GetBit (p_SPECL elem,_SHORT bitnum); _BOOL SetBit (p_SPECL elem, _SHORT bitnum); _BOOL ClrBit (p_SPECL elem, _SHORT bitnum); _INT ixMin ( _INT iStart, _INT iEnd, p_SHORT xArray, p_SHORT yArray ); _INT ixMax ( _INT iStart, _INT iEnd, p_SHORT xArray, p_SHORT yArray ); _INT iXYweighted_max_right ( p_SHORT xArray, p_SHORT yArray, _INT iStart, _INT nDepth, _INT xCoef, _INT yCoef ); _INT iXmax_right ( p_SHORT xArray, p_SHORT yArray, _INT iStart, _INT nDepth ); _INT iXmin_right ( p_SHORT xArray, p_SHORT yArray, _INT iStart, _INT nDepth ); _INT iXmax_left ( p_SHORT xArray, p_SHORT yArray, _INT iStart, _INT nDepth ); _INT iXmin_left ( p_SHORT xArray, p_SHORT yArray, _INT iStart, _INT nDepth ); #define iYup_right(y,iStart,nDepth) (iXmin_right((y),(y),(iStart),(nDepth))) #define iYdown_right(y,iStart,nDepth) (iXmax_right((y),(y),(iStart),(nDepth))) #define iYup_left(y,iStart,nDepth) (iXmin_left((y),(y),(iStart),(nDepth))) #define iYdown_left(y,iStart,nDepth) (iXmax_left((y),(y),(iStart),(nDepth))) _BOOL xMinMax ( _INT ibeg, _INT iend, p_SHORT x, p_SHORT y, p_SHORT pxMin, p_SHORT pxMax ); _BOOL yMinMax ( _INT ibeg, _INT iend, p_SHORT y, p_SHORT pyMin, p_SHORT pyMax ); _INT iyMin ( _INT iStart, _INT iEnd, p_SHORT yArray ); _INT iyMax ( _INT iStart, _INT iEnd, p_SHORT yArray ); _INT iYup_range ( p_SHORT yArray, _INT iStart, _INT iEnd ); _INT iYdown_range ( p_SHORT yArray, _INT iStart, _INT iEnd ); _INT iClosestToXY ( _INT iBeg, _INT iEnd, p_SHORT xAr, p_SHORT yAr, _SHORT xRef, _SHORT yRef ); _INT iClosestToY( p_SHORT yAr, _INT iBeg, _INT iEnd, _SHORT yVal ); _BOOL FindCrossPoint ( _SHORT x1, _SHORT y1, _SHORT x2, _SHORT y2, _SHORT x3, _SHORT y3, _SHORT x4, _SHORT y4, p_SHORT pxAnswer, p_SHORT pyAnswer ); _BOOL is_cross ( _SHORT x1, _SHORT y1, _SHORT x2, _SHORT y2, _SHORT x3, _SHORT y3, _SHORT x4, _SHORT y4 ); _INT iMostFarFromChord ( p_SHORT xArray, p_SHORT yArray, _INT iLeft, _INT iRight ); /* Constants - return values of the "SideExtr" */ /* function: */ /* "NO_SIDE_EXTR" Must be ZERO */ #define NO_SIDE_EXTR 0 #define SIDE_EXTR_LIKE_1ST 1 #define SIDE_EXTR_LIKE_2ND 2 #define SIDE_EXTR_LIKE_1ST_WEAK 3 #define SIDE_EXTR_LIKE_2ND_WEAK 4 #if defined(FOR_GERMAN) || defined(FOR_FRENCH) #define SIDE_EXTR_TRACE_FOR_er 5 #endif /*FOR_GERMAN*/ /* Constant for usage as "bStrict" argument of "SideExtr": */ #define STRICT_ANGLE_STRUCTURE _TRUE _INT SideExtr( p_SHORT x, p_SHORT y, _INT iBeg, _INT iEnd, _INT nSlope, p_SHORT xBuf, p_SHORT yBuf, p_SHORT ind_back, p_INT piSideExtr, _BOOL bStrict ); _INT iMostCurvedPoint( p_SHORT x, p_SHORT y, _INT iBeg, _INT iEnd, _INT nCurvAll ); /* "CurrIndex" finds the current index of the point */ /* with the "ind_old" source index (i.e. on the un- */ /* modified trajectory). Or UNDEF, if this wasn't */ /* found. */ _SHORT CurrIndex ( p_SHORT indBack, _INT ind_old, _INT nIndexes ); _SHORT SlopeShiftDx ( _SHORT dy, _INT slope ); #define STRICT_OVERLAP _TRUE _BOOL xHardOverlapRect ( p_RECT pr1, p_RECT pr2, _BOOL bStrict ); _BOOL yHardOverlapRect ( p_RECT pr1, p_RECT pr2, _BOOL bStrict ); _BOOL HardOverlapRect ( p_RECT pr1, p_RECT pr2, _BOOL bStrict ); #define STRICT_IN _TRUE _BOOL SoftInRect ( p_RECT pr1, p_RECT pr2, _BOOL bStrict ); _BOOL IsRightGulfLikeIn3 ( p_SHORT x, p_SHORT y, _INT iBeg, _INT iEnd, p_INT piGulf ); _INT brk_right ( p_SHORT yArray, _INT iStart, _INT iEnd ); _INT brk_left ( p_SHORT yArray, _INT iStart, _INT iEnd ); _INT nobrk_right ( p_SHORT yArray, _INT iStart, _INT iEnd ); _INT nobrk_left ( p_SHORT yArray, _INT iStart, _INT iEnd ); #define _FIRST 0 #define _MEAD 1 #define _LAST 2 _SHORT NewIndex ( p_SHORT indBack , p_SHORT newY , _SHORT ind_old , _SHORT nIndexes , _SHORT fl ) ; _SHORT R_ClosestToLine( p_SHORT xAr, p_SHORT yAr, PS_point_type _PTR pRef, p_POINTS_GROUP pLine , p_SHORT p_iClosest ) ; _VOID DefLineThresholds ( p_low_type pLowData ) ; _LONG SquareDistance ( _SHORT xBeg , _SHORT yBeg, _SHORT xEnd , _SHORT yEnd ); #define INIT 1 #define NOINIT 0 _SHORT InitGroupsBorder( low_type _PTR pLowData , _SHORT fl_BoxInit ) ; _INT GetGroupNumber( low_type _PTR pLowData , _INT iPoint ) ; _BOOL HeightMeasure( _INT iBeg, _INT iEnd, low_type _PTR pLowData , p_UCHAR pUpperHeight, p_UCHAR pLowerHeight ) ; _SHORT IsPointCont( low_type _PTR pLowData, _INT iPoint, _UCHAR mark ); /* Return values of the function "DefineWritingStep": */ //with bUseMediana == _TRUE #define STEP_INDEPENDENT 0 #define STEP_MEDIANA 1 #define STEP_COMBINED 2 //with bUseMediana == _FALSE #define STEP_SURE STEP_INDEPENDENT #define STEP_REJECT STEP_MEDIANA #define STEP_UNSURE STEP_COMBINED _SHORT DefineWritingStep( low_type _PTR low_data, p_SHORT pxWrtStep, _BOOL bUseMediana ); _BOOL IsInnerAngle ( p_SHORT xArray, p_SHORT yArray, SPECL _PTR pFrst, SPECL _PTR pLast, SPECL _PTR pAngle ); _INT CalcDistBetwXr(p_SHORT xTrace,p_SHORT yTrace, _INT ibeg1,_INT iend1,_INT ibeg2,_INT iend2, p_SHORT Retcod); _BOOL CurveHasSelfCrossing( p_SHORT x, p_SHORT y, _INT iBeg, _INT iEnd, p_INT pInd1, p_INT pInd2, _LONG lMinAbsSquare ); #define POINT_ON_BORDER 0 #define POINT_INSIDE 1 #define POINT_OUTSIDE 2 /* in case of moving those two prototypes below, move defines above with them */ _SHORT IsPointInsideArea(p_SHORT pxBorder,p_SHORT pyBorder,_INT NumPntsInBorder, _SHORT xPoint,_SHORT yPoint,p_SHORT position); _BOOL IsPointOnBorder(p_SHORT pxBorder,p_SHORT pyBorder,_INT Pnt1st,_INT Pnt2nd, _SHORT xPoint,_SHORT yPoint,p_BOOL pbIsCross); _BOOL GetTraceBoxWithoutXT_ST(p_low_type low_data,_INT ibeg,_INT iend,p_RECT pRect); _BOOL IsPointBelongsToXT_ST(_INT iPoint,p_SPECL specl); /***************************************************************************/ /* module TRANSFRM */ /***************************************************************************/ _SHORT transfrmN(low_type _PTR low_data); /* */ /***************************************************************************/ /* module OVER */ /***************************************************************************/ _SHORT measure_slope(low_type _PTR low_data); /* calculation of */ /* slope */ /* */ _SHORT def_over(low_type _PTR low_data); /* setting OVR */ /* */ /***************************************************************************/ /* module ANGLE */ /***************************************************************************/ _SHORT angl(low_type _PTR low_data); /* search for angles */ /* */ /* */ _SHORT angle_direction(_SHORT x0, /* calculate any angle direction */ _SHORT y0, /* vector of angle direction*/ _SHORT slope); /* script slope */ /* */ /***************************************************************************/ /* module LU_SPECL */ /***************************************************************************/ p_SPECL NewSPECLElem( low_type _PTR low_data ); _VOID DelFromSPECLList ( p_SPECL pElem ); _VOID DelThisAndNextFromSPECLList ( p_SPECL pElem ); _VOID DelCrossingFromSPECLList ( p_SPECL pElem ); _VOID SwapThisAndNext ( p_SPECL pElem ); _VOID Insert2ndAfter1st ( p_SPECL p1st, p_SPECL p2nd ); _VOID InsertCrossing2ndAfter1st ( p_SPECL p1st, p_SPECL p2nd ); _VOID CheckInsertCrossing2ndAfter1st (p_low_type low_data, p_SPECL p1st, p_SPECL p2nd ); _VOID Move2ndAfter1st ( p_SPECL p1st, p_SPECL p2nd ); _VOID MoveCrossing2ndAfter1st ( p_SPECL p1st, p_SPECL p2nd ); #define ATTACH_2nd_TO_1st(p1,p2) {(p1)->next=(p2); if(p2)(p2)->prev=(p1);} #define CROSS_IN_TIME(p1,p2) ( (p1)->iend >= (p2)->ibeg \ && (p2)->iend >= (p1)->ibeg ) #define FIRST_IN_SECOND(p1,p2) ( (p1)->ibeg >= (p2)->ibeg \ && (p1)->iend <= (p2)->iend ) #if LOW_INLINE #define Attach2ndTo1st(p1,p2) ATTACH_2nd_TO_1st(p1,p2) #define CrossInTime(p1,p2) CROSS_IN_TIME(p1,p2) #define FirstBelongsTo2nd(p1,p2) FIRST_IN_SECOND(p1,p2) #else _VOID Attach2ndTo1st ( p_SPECL p1st, p_SPECL p2nd ); _BOOL CrossInTime ( p_SPECL p1st, p_SPECL p2nd ); /* TRUE if some part */ /* of trajectory belongs to */ /* both elems. */ _BOOL FirstBelongsTo2nd ( p_SPECL p1st, p_SPECL p2nd ); /* TRUE if all */ /* trajectory of the 1st elem */ /* is part of that of the 2nd */ /* one */ #endif /*LOW_INLINE*/ _VOID RefreshElem ( p_SPECL pElem, _UCHAR mark, _UCHAR code, _UCHAR attr #if !NEW_VERSION , _SHORT bitToSet #endif /*NEW_VERSION*/ ); /* Set the fields of "pElem". */ p_SPECL FindMarkRight ( p_SPECL pElem, _UCHAR mark ); /* Goes "next" */ /* until "mark" is found or end */ /* of specl. If pElem->mark==mark*/ /* returns pElem. */ p_SPECL FindMarkLeft ( p_SPECL pElem, _UCHAR mark ); /* Same, but "prev" */ /***************************************************************************/ /* module CONVERT */ /***************************************************************************/ _SHORT exchange( low_type _PTR low_data, xrdata_type _PTR xrd); _SHORT form_pseudo_xr_data(low_type _PTR low_data, xrdata_type _PTR xrdata); /***************************************************************************/ /* module CIRCLE */ /***************************************************************************/ _SHORT Circle(low_type _PTR low_data); /* */ /* */ /***************************************************************************/ /* module frm_word */ /***************************************************************************/ _BOOL MayBeFrline ( p_SHORT xArray, p_SHORT yArray, _INT iBeg, _INT iEnd, _SHORT xRange ); /* Possible return values of "chk_sign" function: */ #define SGN_NOT_SIGN 0 /* CHE: This MUST be zero !!! */ #define SGN_SOME 1 /* Some of the possible signs listed */ /* below in "#define"'s */ #define SGN_PLUS 2 #define SGN_EQUAL 3 _SHORT chk_sign ( p_SHORT xArray, p_SHORT yArray, _INT iBeg, _INT iEnd, _SHORT xRange, _SHORT yRange ); /* Definition for "chk_slash" function: */ #define WHOLE_TRAJECTORY _TRUE _BOOL chk_slash (p_SHORT xArray, p_SHORT yArray, _INT iLeft, _INT iRight, _SHORT yRange, _BOOL bWholeTrj ); _VOID FindStraightPart ( p_SHORT xArray, p_SHORT yArray, p_INT piBeg, p_INT piEnd); _BOOL delta_interval ( p_SHORT xArray, p_SHORT yArray, _INT iLeft, _INT iRight, _INT nMaxRectRatio, _INT nSlope, p_LONG pldxSum, p_LONG pldySum, p_LONG plNumIntervals, _BOOL bThrowBigAndSmall ); #if USE_FRM_WORD /* Constants for usage as "bIncrementalBreak" parameter values: */ #define INCREMENTAL_BREAK _TRUE #define NOT_INCREMENTAL_BREAK (!INCREMENTAL_BREAK) _SHORT FrmWordBreak ( _TRACE trace, _INT nPoints, _BOOL bIncrementalBreak, p_SHORT pn1stWrdPoints, p_SHORT pnFrLinePoints ); _VOID ResetFrmWordBreak(_VOID); /* Should be called before the passing */ /* the first stroke of the new formula. */ /***************************************************************************/ /* module LOW_UTIL */ /***************************************************************************/ _INT brk_left_trace ( PS_point_type _PTR trace, _INT iStart, _INT iEnd ); _INT nobrk_left_trace ( PS_point_type _PTR trace, _INT iStart, _INT iEnd ); _INT brk_right_trace ( PS_point_type _PTR trace, _INT iStart, _INT iEnd ); _INT nobrk_right_trace ( PS_point_type _PTR trace, _INT iStart, _INT iEnd ); _SHORT Xmean_range ( p_SHORT xArray, p_SHORT yArray, _INT iStart, _INT iEnd ); _SHORT Ymean_range ( p_SHORT yArray, _INT iStart, _INT iEnd ); _SHORT Yup_range ( p_SHORT yArray, _INT iStart, _INT iEnd ); _SHORT Ydown_range ( p_SHORT yArray, _INT iStart, _INT iEnd ); _VOID xy_to_trace ( p_SHORT xArray, p_SHORT yArray, _INT nPoints, _TRACE trace ); #endif /*USE_FRM_WORD*/ _VOID trace_to_xy ( p_SHORT xArray, p_SHORT yArray, _INT nPoints, _TRACE trace ); /***************************************************************************/ /* module SPECWIN */ /***************************************************************************/ _SHORT low_level(PS_point_type _PTR trace, /* completeness of low level */ xrdata_type _PTR xrdata, /* */ rc_type _PTR rc ); _INT BaselineAndScale(low_type _PTR pLowData); _BOOL PrepareLowData(low_type _PTR pLowData, PS_point_type _PTR trace, rc_type _PTR rc, p_SHORT _PTR pbuffer); _VOID FillLowDataTrace(low_type _PTR pLowData, PS_point_type _PTR trace); _VOID GetLowDataRect (low_type _PTR pLowData); _INT AnalyzeLowData(low_type _PTR pLowData, PS_point_type _PTR trace); /***************************************************************************/ #endif /* LOW_LEVEL_INCLUDED */ /***************************************************************************/