/*************************************************************************************** * * 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 LSTRIP #include "ams_mg.h" #include "hwr_sys.h" #include "lowlevel.h" #include "const.h" #include "calcmacr.h" #include "low_dbg.h" #if PG_DEBUG #include "pg_debug.h" #include "def.h" #endif _SHORT Grab(low_type _PTR pLowData, _USHORT uFlagWord, p_POINTS_GROUP pLastGrBord, p_POINTS_GROUP pPrevGrBord); _UCHAR DrawEnds(low_type _PTR pLowData, p_SHORT piBeg, p_SHORT pjEnd); _SHORT AnyCrosCont(low_type _PTR pLowData, _INT iPoint, _INT jPoint, p_INT p_jNew); _VOID Clash(low_type _PTR pLowData, _USHORT uFlagWord, p_POINTS_GROUP pPrevGrBord, p_SPECL pLastCrossBr, p_SPECL pPrevCrossBr); _SHORT ChkMrgCrs(low_type _PTR pLowData, p_SHORT pModWord, p_SPECL pLastCrossBr, p_SPECL pPrevCrossBr); #if PG_DEBUG _VOID PaintCross(low_type _PTR pLowData, _UCHAR mark, _SHORT iCrossBeg, _SHORT iCrossEnd, _SHORT jCrossBeg, _SHORT jCrossEnd); _VOID DrawStr(low_type _PTR pLowData, p_POINTS_GROUP pLastGrBord, p_POINTS_GROUP pPrevGrBord); #endif /*------------------------------------------------------------------------*/ #define CLEAR_FLAG_WORD uFlagWord = 0x0000 ; #define PROXIMITY_ON uFlagWord = uFlagWord | 0x0001 ; #define NO_PROXIMITY uFlagWord = uFlagWord & ~0x0001 ; #define IS_PROXIMITY ( uFlagWord & 0x0001 ) #define IS_NO_PROXIMITY ( !IS_PROXIMITY ) #define OPEN_CROSS uFlagWord = uFlagWord | 0x0002 ; #define CLOSE_CROSS uFlagWord = uFlagWord & ~0x0002 ; #define IS_CROSS_OPENED ( uFlagWord & 0x0002 ) #define IS_CROSS_CLOSED ( !IS_CROSS_OPENED ) #define BREAK_BETWEEN_ON uFlagWord = uFlagWord | 0x0004 ; #define NO_BREAK_BETWEEN uFlagWord = uFlagWord & ~0x0004 ; #define IS_BREAK_BETWEEN ( uFlagWord & 0x0004 ) #define IS_NO_BREAK_BETWEEN ( !IS_BREAK_BETWEEN ) #define SEPARATE_LETTERS_ON uFlagWord = uFlagWord | 0x0008 ; #define SEPARATE_LETTERS_OFF uFlagWord = uFlagWord & ~0x0008 ; #define IS_SEPARATE_LETTERS ( uFlagWord & 0x0008 ) #define IS_NO_SEPARATE_LETTERS ( !IS_SEPARATE_LETTERS) #define LAST_STROKE_ON uFlagWord = uFlagWord | 0x0010 ; #define LAST_STROKE_OFF uFlagWord = uFlagWord & ~0x0010 ; #define IS_LAST_STROKE ( uFlagWord & 0x0010 ) #define IS_NO_LAST_STROKE ( !IS_LAST_STROKE ) #define PREV_STROKE_ON uFlagWord = uFlagWord | 0x0020 ; #define PREV_STROKE_OFF uFlagWord = uFlagWord & ~0x0020 ; #define IS_PREV_STROKE ( uFlagWord & 0x0020 ) #define IS_NO_PREV_STROKE ( !IS_PREV_STROKE ) /**************************************************************************/ ROM_DATA_EXTERNAL CONSTS const1; ROM_DATA_EXTERNAL _SHORT nbcut0, nbcut1, nbcut2; ROM_DATA_EXTERNAL _SHORT eps0 [], eps1 [], eps2 [], eps3 []; /*------------------------------------------------------------------------*/ _SHORT Cross(low_type _PTR pLowData) { p_POINTS_GROUP pGroupsBorder = pLowData->pGroupsBorder; _INT lenGrBord = pLowData->lenGrBord; _INT fl_Cross = SUCCESS; p_POINTS_GROUP pLastGrBord, pPrevGrBord; p_RECT pLastBox, pPrevBox; _INT iLastGr, jPrevGr; _INT iBeg, jBeg; _USHORT uFlagWord; for (iLastGr = 0; iLastGr < lenGrBord; iLastGr++) { CLEAR_FLAG_WORD pLastGrBord = pGroupsBorder + iLastGr; iBeg = pLastGrBord->iBeg; if (IsPointCont(pLowData, iBeg, DOT) != UNDEF) { continue; } pLastBox = &(pLastGrBord->GrBox); if (IsPointCont(pLowData, iBeg, STROKE) != UNDEF) { LAST_STROKE_ON } for (jPrevGr = iLastGr; jPrevGr >= 0; jPrevGr--) { PREV_STROKE_OFF pPrevGrBord = pGroupsBorder + jPrevGr; jBeg = pPrevGrBord->iBeg; if (IsPointCont(pLowData, jBeg, DOT) != UNDEF) { continue; } if (IsPointCont(pLowData, jBeg, STROKE) != UNDEF) { PREV_STROKE_ON } if (IS_LAST_STROKE && IS_PREV_STROKE) { continue; } if (jPrevGr == iLastGr) { NO_BREAK_BETWEEN } else { pPrevBox = &(pPrevGrBord->GrBox); if ((pLastBox->right < pPrevBox->left - nbcut0) || (pPrevBox->right < pLastBox->left - nbcut0) || (pLastBox->bottom < pPrevBox->top - nbcut0) || (pPrevBox->bottom < pLastBox->top - nbcut0)) { continue; } BREAK_BETWEEN_ON } #if PG_DEBUG if (mpr == 3) { DrawStr(pLowData, pLastGrBord, pPrevGrBord); } #endif if (Grab(pLowData, uFlagWord, pLastGrBord, pPrevGrBord) == UNSUCCESS) { fl_Cross = UNSUCCESS; goto QUIT; } } } QUIT: return(fl_Cross); } /*------------------------------------------------------------------------*/ _UCHAR DrawEnds(low_type _PTR pLowData, p_SHORT piBeg, p_SHORT pjEnd) { p_SHORT X = pLowData->x; p_SHORT Y = pLowData->y; _INT dX, dY; _UCHAR mark; _LONG R0; _INT rThreshold; _INT r0, r1; _INT il, jl; il = *piBeg; jl = *pjEnd; if (il < jl) { err_msg(" Wrong inexes ... "); goto MARK; } dX = X[il] - X[jl]; dY = Y[il] - Y[jl]; R0 = (_LONG) dX*dX + (_LONG) dY*dY; rThreshold = eps3[((il - jl) < LENTH_E) ? (il - jl) : LENTH_E - 1]; if (R0 > rThreshold) { mark = CROSS; goto QUIT; } r1 = r0 = (_INT) R0; while (r1 <= r0) { r0 = r1; il--; if (il <= jl) { break; } dX = X[il] - X[jl]; dY = Y[il] - Y[jl]; r1 = dX*dX + dY*dY; } if (il > jl) { r1 = r0; il++; while ((r1 <= r0) || (r1 <= rThreshold)) { r0 = r1; il--; jl++; if (il <= jl) { break; } dX = X[il] - X[jl]; dY = Y[il] - Y[jl]; r1 = dX*dX + dY*dY; rThreshold = eps3[((il - jl) < LENTH_E) ? (il - jl) : LENTH_E - 1]; } } MARK: if (jl >= il) { mark = STICK; if (jl > il) { *piBeg = (il + jl) / 2; } else { *piBeg = il; } *pjEnd = *piBeg - 1; } else { mark = CROSS; } QUIT: return (mark); } /*------------------------------------------------------------------------*/ _SHORT AnyCrosCont(low_type _PTR pLowData, _INT iPoint, _INT jPoint, p_INT p_jNew) { _SHORT lenSpecl = pLowData->len_specl; p_SPECL pEndSpecl = pLowData->specl + lenSpecl - 1; p_SHORT Y = pLowData->y; _SHORT retFlag = SUCCESS; p_SPECL pTmpSpecl; _INT jl, jNew; jNew = UNDEF; if ((iPoint < 0) || (iPoint >= pLowData->ii)) { err_msg(" IsPointCont : iPoint is out of range ..."); retFlag = UNSUCCESS; goto QUIT; } else if (Y[iPoint] == BREAK) { err_msg(" IsPointCont : Point iPoint is BREAK ..."); retFlag = UNSUCCESS; goto QUIT; } if ((jPoint < 0) || (jPoint >= pLowData->ii)) { err_msg(" IsPointCont : jPoint is out of range ..."); retFlag = UNSUCCESS; goto QUIT; } else if (Y[jPoint] == BREAK) { err_msg(" IsPointCont : Point jPoint is BREAK ..."); retFlag = UNSUCCESS; goto QUIT; } for (jl = 0; jl < lenSpecl; jl += 2) { pTmpSpecl = pEndSpecl - jl; if ((pTmpSpecl->mark != CROSS) && (pTmpSpecl->mark != HATCH) && (pTmpSpecl->mark != STICK)) { break; } if ((pTmpSpecl->ibeg <= jPoint) && (pTmpSpecl->iend >= jPoint) && ((pTmpSpecl - 1)->ibeg <= iPoint) && ((pTmpSpecl - 1)->iend >= iPoint)) { jNew = pTmpSpecl->ibeg; } } QUIT: *p_jNew = jNew; return(retFlag); } /*-------------------------------------------------------------------------*/ _SHORT ChkMrgCrs(low_type _PTR pLowData, p_SHORT pModWord, p_SPECL pLastCrossBr, p_SPECL pPrevCrossBr) { _SHORT lenSpecl = pLowData->len_specl; p_SPECL pEndSpecl0 = pLowData->specl + lenSpecl - 1; _UCHAR mark1 = pLastCrossBr->mark; _UCHAR mark0 = pEndSpecl0->mark; _SHORT retFlag = SUCCESS; *pModWord = NO_CONTACT; if (((mark0 == HATCH) && (mark1 != HATCH)) || ((mark1 == HATCH) && (mark0 != HATCH))) { goto QUIT; } if ((mark0 == CROSS) || (mark0 == STICK) || (mark0 == HATCH)) { p_SPECL pEndSpecl1 = pEndSpecl0 - 1; _INT iBeg1 = pLastCrossBr->ibeg; _INT iEnd1 = pLastCrossBr->iend; _INT jBeg1 = pPrevCrossBr->ibeg; _INT jEnd1 = pPrevCrossBr->iend; _INT iBeg0 = pEndSpecl1->ibeg; _INT iEnd0 = pEndSpecl1->iend; _INT jBeg0 = pEndSpecl0->ibeg; _INT jEnd0 = pEndSpecl0->iend; *pModWord = UNDEF; if ((iEnd0 < iBeg1) || (iEnd1 < iBeg0) || (jEnd0 < jBeg1) || (jEnd1 < jBeg0)) { *pModWord = NO_CONTACT; goto QUIT; } if ((mark0 != STICK) && (mark1 != STICK)) { *pModWord = MOD_SKIP; pEndSpecl0->ibeg = HWRMin(jBeg1, jBeg0); pEndSpecl0->iend = HWRMax(jEnd1, jEnd0); pEndSpecl1->ibeg = HWRMin(iBeg1, iBeg0); pEndSpecl1->iend = HWRMax(iEnd1, iEnd0); } else if ((mark0 == STICK) && (mark1 != STICK)) { *pModWord = MOD_SKIP; pEndSpecl1->iend = HWRMax(iEnd1, iEnd0); pEndSpecl0->ibeg = HWRMin(jBeg1, jBeg0); } else if ((mark0 != STICK) && (mark1 == STICK)) { *pModWord = MOD_SKIP; pEndSpecl1->ibeg = iBeg1; pEndSpecl0->iend = jEnd1; pEndSpecl1->iend = HWRMax(iEnd1, iEnd0); pEndSpecl0->ibeg = HWRMin(jBeg1, jBeg0); pEndSpecl0->mark = pEndSpecl1->mark = STICK; } else if ((mark0 == STICK) && (mark1 == STICK)) { if ((iBeg1 == iBeg0) && (jEnd1 == jEnd0)) { *pModWord = MOD_SKIP; pEndSpecl1->iend = HWRMax(iEnd1, iEnd0); pEndSpecl0->ibeg = HWRMin(jBeg1, jBeg0); } else { *pModWord = NO_CONTACT; pLastCrossBr->iend = HWRMax(iEnd1, iEnd0); } } } QUIT: return(retFlag); } /*-------------------------------------------------------------------------*/ #if PG_DEBUG _VOID PaintCross(low_type _PTR pLowData, _UCHAR mark, _SHORT iCrossBeg, _SHORT iCrossEnd, _SHORT jCrossBeg, _SHORT jCrossEnd) { _SHORT _PTR X = pLowData->x; _SHORT _PTR Y = pLowData->y; _UCHAR MarkName[6]; if (mpr == 3) { switch (mark) { case CROSS: HWRStrCpy((_STR) MarkName, "CROSS"); break; case STICK: HWRStrCpy((_STR) MarkName, "STICK"); break; case HATCH: HWRStrCpy((_STR) MarkName, "HATCH"); break; default: err_msg(" PaintCross : Wrong mark ..."); goto QUIT; } draw_arc(COLORC, X, Y, iCrossBeg, iCrossEnd); draw_arc(COLORMIN, X, Y, jCrossBeg, jCrossEnd); printw("\n mark = %s", MarkName); printw("\n iCrossBeg = %d iCrossEnd = %d ", iCrossBeg, iCrossEnd); printw("\n jCrossBeg = %d jCrossEnd = %d ", jCrossBeg, jCrossEnd); brkeyw("\n ... "); draw_arc(COLOR, X, Y, iCrossBeg, iCrossEnd); draw_arc(COLOR, X, Y, jCrossBeg, jCrossEnd); } QUIT: return; } /*------------------------------------------------------------------------*/ _VOID DrawStr(low_type _PTR pLowData, p_POINTS_GROUP pLastGrBord, p_POINTS_GROUP pPrevGrBord) { p_SHORT X = pLowData->x; p_SHORT Y = pLowData->y; draw_arc(COLORMAX, X, Y, pLastGrBord->iBeg, pLastGrBord->iEnd); draw_arc(COLORMAXN, X, Y, pPrevGrBord->iBeg, pPrevGrBord->iEnd); printw("\n *** \n"); printw("\n iBegLastStroke = %d iEndLastStroke = %d ", pLastGrBord->iBeg, pLastGrBord->iEnd); printw("\n jBegPrevStroke = %d jEndPrevStroke = %d ", pPrevGrBord->iBeg, pPrevGrBord->iEnd); brkeyw("\n ... "); draw_arc(COLOR, X, Y, pLastGrBord->iBeg, pLastGrBord->iEnd); draw_arc(COLOR, X, Y, pPrevGrBord->iBeg, pPrevGrBord->iEnd); return; } /*------------------------------------------------------------------------*/ #endif /*------------------------------------------------------------------------*/ #define RAT_HORD0(X) ( ((X)*10) >> 5 ) #define RAT_HORD1(X) ( (X) >> 2 ) #define S_CUT_B 135 #define S_CUT_P 144 #define NN_CUT_C 12 #define NN_CUT_B 10 #define N_STOP_C 30 #define N_STOP_B 10 _SHORT Grab(low_type _PTR pLowData, _USHORT uFlagWord, p_POINTS_GROUP pLastGrBord, p_POINTS_GROUP pPrevGrBord) { p_SHORT X = pLowData->x; p_SHORT Y = pLowData->y; _INT iBeg = pLastGrBord->iBeg; _INT iEnd = pLastGrBord->iEnd; _INT jBeg = pPrevGrBord->iBeg; _INT jEnd = pPrevGrBord->iEnd; SPECL LastCrossBr, PrevCrossBr; _INT Limit, nnCut, nnCon, nSCon; _SHORT fl_Grab = SUCCESS; _INT il, jl; _INT dX, dY, dr, dij; _INT jStep, iStep, jNew; const _SHORT _PTR Eps0; _SHORT ModWord; _LONG dR; if (IS_PREV_STROKE || IS_LAST_STROKE) { nnCut = NN_CUT_C; nnCon = 0; } else if (IS_BREAK_BETWEEN) { Eps0 = &eps2[0]; nnCut = NN_CUT_B; nnCon = N_STOP_B; } else { if ((iBeg = iBeg + const1.lz0 + 1) >= iEnd) { goto QUIT; } Eps0 = &eps0[0]; nnCut = NN_CUT_C; nnCon = N_STOP_C; } if (IS_PREV_STROKE || IS_LAST_STROKE) { nSCon = S_CUT_B; } else { nSCon = Eps0[LENTH_E - 1]; } for (il = iBeg, iStep = ALEF; il <= iEnd; il += iStep) { NEXT0: CLOSE_CROSS NO_PROXIMITY if (IS_NO_BREAK_BETWEEN) { jEnd = il - const1.lz0 - 1; } for (jl = jEnd, jStep = 1, iStep = ALEF; jl >= jBeg; jl -= jStep) { dX = X[il] - X[jl]; dY = Y[il] - Y[jl]; dR = (_LONG) dX*dX + (_LONG) dY*dY; dr = HWRILSqrt(dR); dij = il - jl; if (dij > nnCon) { if (dR > nSCon) { jStep = HWRMax(1, RAT_HORD0(dr - nnCut)); iStep = HWRMax(HWRMin(iStep, jStep - 1), 1); if ((jl - jStep < jBeg) && (jl != jBeg)) { jStep = jl - jBeg; } continue; } } else { Limit = *(Eps0 + dij); if (dR > Limit) { Limit = HWRISqrt(Limit); jStep = HWRMax(1, RAT_HORD1(dr - Limit)); iStep = HWRMax(HWRMin(iStep, jStep - 1), 1); if ((jl - jStep < jBeg) && (jl != jBeg)) { jStep = jl - jBeg; } continue; } } if (AnyCrosCont(pLowData, il, jl, &jNew) == UNSUCCESS) { fl_Grab = UNSUCCESS; goto QUIT; } else if (jNew != UNDEF) { jStep = iStep = 1; jl = jNew; continue; } PROXIMITY_ON OPEN_CROSS if (IS_NO_BREAK_BETWEEN) { jEnd = il - const1.lz1 - 1; } InitSpeclElement(&LastCrossBr); InitSpeclElement(&PrevCrossBr); if (IS_NO_BREAK_BETWEEN) { jEnd = il - 1; } LastCrossBr.ibeg = LastCrossBr.iend = il; PrevCrossBr.ibeg = PrevCrossBr.iend = jl; LastCrossBr.ipoint0 = iEnd; LastCrossBr.ipoint1 = ALEF; PrevCrossBr.ipoint0 = jl; PrevCrossBr.ipoint1 = jBeg; Clash(pLowData, uFlagWord, pPrevGrBord, &LastCrossBr, &PrevCrossBr); if (IS_LAST_STROKE || IS_PREV_STROKE) { PrevCrossBr.mark = HATCH; } else if (IS_BREAK_BETWEEN) { PrevCrossBr.mark = CROSS; } else { PrevCrossBr.mark = DrawEnds(pLowData, &LastCrossBr.ibeg, &PrevCrossBr.ipoint0); if (PrevCrossBr.mark == STICK) { PrevCrossBr.iend = PrevCrossBr.ipoint0; } } LastCrossBr.mark = PrevCrossBr.mark; ChkMrgCrs(pLowData, &ModWord, &LastCrossBr, &PrevCrossBr); if ((ModWord == NO_CONTACT) || (ModWord == UNDEF)) { #if PG_DEBUG if (ModWord == UNDEF) { err_msg(" Grab: Wrong cross check ..."); } if (mpr == 3) { PaintCross(pLowData, PrevCrossBr.mark, LastCrossBr.ibeg, LastCrossBr.iend, PrevCrossBr.ibeg, PrevCrossBr.iend); } #endif LastCrossBr.ipoint1 = UNDEF; LastCrossBr.ipoint0 = UNDEF; if (MarkSpecl(pLowData, &LastCrossBr) == UNSUCCESS) { fl_Grab = UNSUCCESS; goto QUIT; } PrevCrossBr.ipoint0 = UNDEF; PrevCrossBr.ipoint1 = UNDEF; if (MarkSpecl(pLowData, &PrevCrossBr) == UNSUCCESS) { fl_Grab = UNSUCCESS; goto QUIT; } } #if PG_DEBUG if ((ModWord == MOD_SKIP) && (mpr == 3)) { p_SPECL pEndSpecl0 = pLowData->specl + pLowData->len_specl - 1; p_SPECL pEndSpecl1 = pEndSpecl0 - 1; printw("\n Redraw Cross ..."); PaintCross(pLowData, pEndSpecl0->mark, pEndSpecl1->ibeg, pEndSpecl1->iend, pEndSpecl0->ibeg, pEndSpecl0->iend); } #endif CLOSE_CROSS if ((LastCrossBr.iend >= iEnd) && (PrevCrossBr.ibeg <= jBeg)) { goto QUIT; } else { jStep = 1; iStep = ALEF; if (PrevCrossBr.ibeg > jBeg) { jl = PrevCrossBr.ibeg; } else { il++; goto NEXT0; } } } } QUIT: return(fl_Grab); } /*------------------------------------------------------------------------*/ #define GET_LIMIT if ( IS_PREV_STROKE || IS_LAST_STROKE ) \ { \ Limit = S_CUT_P ; \ } \ else if ( IS_BREAK_BETWEEN ) \ { \ Limit = FIVE_FOURTH( eps2[ (dij < LENTH_E) ? dij : LENTH_E-1 ] ) ; \ } \ else \ { \ Limit = eps1[ (dij < LENTH_E) ? dij : LENTH_E-1 ] ; \ } _VOID Clash(low_type _PTR pLowData, _USHORT uFlagWord, p_POINTS_GROUP pPrevGrBord, p_SPECL pLastCrossBr, p_SPECL pPrevCrossBr) { _SHORT _PTR X = pLowData->x; _SHORT _PTR Y = pLowData->y; _LONG dR; _INT iCrossBeg = pLastCrossBr->ibeg; _INT iCrossEnd = pLastCrossBr->iend; _INT iEnd = pLastCrossBr->ipoint0; _INT dRMin = pLastCrossBr->ipoint1; _INT jCrossBeg = pPrevCrossBr->ibeg; _INT jCrossEnd = pPrevCrossBr->iend; _INT jkMin = pPrevCrossBr->ipoint0; _INT jBeg = pPrevCrossBr->ipoint1; _INT jEnd = pPrevGrBord->iEnd; _INT iTmpEnd = iCrossEnd + 1; _INT jl = MEAN_OF(jCrossBeg, jCrossEnd); _INT ik, jk, dij, dRbeg; _INT dX, dY; _INT Limit; dRbeg = HWRILSqrt(DistanceSquare(iCrossBeg, jkMin, X, Y)); dij = iCrossBeg - jl; GET_LIMIT for (ik = iCrossBeg, dR = dRbeg; ik <= iTmpEnd; ik++) { NO_PROXIMITY for (jk = jl; (jk <= jEnd) && ((dR <= Limit) || (jk <= jCrossEnd + const1.dlt0)) ; jk++) { dij = ik - jk; if (IS_NO_BREAK_BETWEEN && (dij <= const1.lz1)) { continue; } dX = X[ik] - X[jk]; dY = Y[ik] - Y[jk]; dR = (_LONG) dX*dX + (_LONG) dY*dY; GET_LIMIT if (dR <= Limit) { PROXIMITY_ON jCrossEnd = HWRMax(jCrossEnd, jk); if ((ik == iCrossBeg) && (dR <= dRMin)) { jkMin = jk; dRMin = dR; } jk = jCrossEnd; } } for (jk = jl, dR = dRbeg; (jk >= jBeg) && ((dR <= Limit) || (jk >= jCrossBeg - const1.dlt0)) ; jk--) { dij = ik - jk; if (IS_NO_BREAK_BETWEEN && (dij <= const1.lz1)) { continue; } dX = X[ik] - X[jk]; dY = Y[ik] - Y[jk]; dR = (_LONG) dX*dX + (_LONG) dY*dY; GET_LIMIT if (dR <= Limit) { PROXIMITY_ON jCrossBeg = HWRMin(jCrossBeg, jk); if ((ik == iCrossBeg) && (dR <= dRMin)) { jkMin = jk; dRMin = dR; } jk = jCrossBeg; } } if (IS_PROXIMITY) { if (ik >= iCrossEnd) { iCrossEnd = ik; iTmpEnd = HWRMin(ik + 1, iEnd); } } if (IS_NO_PROXIMITY || (ik == iEnd)) { break; } } pLastCrossBr->ibeg = iCrossBeg; pLastCrossBr->iend = iCrossEnd; pLastCrossBr->ipoint1 = dRMin; pPrevCrossBr->ibeg = jCrossBeg; pPrevCrossBr->iend = jCrossEnd; pPrevCrossBr->ipoint0 = jkMin; return; } /*------------------------------------------------------------------------*/ #endif //#ifndef LSTRIP