src/IntPatch/IntPatch_PrmPrmIntersection.cxx

   1 // File:      IntPatch_PrmPrmIntersection.cxx
   2 // Created:   Tue Feb  2 18:05:43 1993
   3 // Author:    Laurent BUCHARD
   4 // Copyright: OPEN CASCADE 1993
   5
   6 // modified by Edward AGAPOV (eap) Tue Jan 22 12:29:55 2002
   7 // modified by Oleg FEDYAED  (ofv) Fri Nov 29 16:08:02 2002
   8
   9 #include <IntPatch_PrmPrmIntersection.ixx>
  10
  11 #include <IntPatch_TheInterfPolyhedron.hxx>
  12 #include <IntPatch_ThePWalkingInter.hxx>
  13 #include <IntPatch_WLine.hxx>
  14 #include <IntPatch_RstInt.hxx>
  15
  16 #include <IntPatch_Line.hxx>
  17
  18 #include <Handle_IntSurf_LineOn2S.hxx>
  19 #include <IntSurf_PntOn2S.hxx>
  20 #include <IntSurf_LineOn2S.hxx>
  21 #include <TColStd_Array1OfReal.hxx>
  22 #include <Intf_PIType.hxx>
  23 #include <Intf_SectionLine.hxx>
  24 #include <Intf_TangentZone.hxx>
  25 #include <Intf_SectionPoint.hxx>
  26 #include <gp_Pnt.hxx>
  27 #include <gp_Dir.hxx>
  28 #include <IntPolyh_Intersection.hxx>
  29
  30 #include <TColStd_SequenceOfInteger.hxx>
  31 #include <IntSurf_ListIteratorOfListOfPntOn2S.hxx>
  32 #include <TColStd_HArray1OfReal.hxx>
  33
  34 static void SectionPointToParameters(const Intf_SectionPoint& Sp,
  35                                      const IntPatch_Polyhedron& Surf1,
  36                                      const IntPatch_Polyhedron& Surf2,
  37                                      Standard_Real& u1,
  38                                      Standard_Real& v1,
  39                                      Standard_Real& u2,
  40                                      Standard_Real& v2);
  41
  42
  43 static
  44   void AdjustOnPeriodic(const Handle(Adaptor3d_HSurface)& Surf1,
  45                         const Handle(Adaptor3d_HSurface)& Surf2,
  46                         IntPatch_SequenceOfLine& aSLin);
  47
  48 //==================================================================================
  49 // function :
  50 // purpose  :
  51 //==================================================================================
  52 IntPatch_PrmPrmIntersection::IntPatch_PrmPrmIntersection(): done(Standard_False)
  53 {
  54 }
  55
  56 //==================================================================================
  57 // function : Perform
  58 // purpose  :
  59 //==================================================================================
  60 void IntPatch_PrmPrmIntersection::Perform (const Handle(Adaptor3d_HSurface)&   Surf1,
  61                                            const Handle(Adaptor3d_TopolTool)& D1,
  62                                            const Standard_Real  TolTangency,
  63                                            const Standard_Real  Epsilon,
  64                                            const Standard_Real  Deflection,
  65                                            const Standard_Real  Increment)
  66 {
  67   IntPatch_Polyhedron Poly1( Surf1, D1->NbSamplesU(), D1->NbSamplesV() );
  68   Perform( Surf1, Poly1, D1, TolTangency, Epsilon, Deflection, Increment );
  69 }
  70
  71 //==================================================================================
  72 // function : Perform
  73 // purpose  :
  74 //==================================================================================
  75 void IntPatch_PrmPrmIntersection::Perform (const Handle(Adaptor3d_HSurface)&   Surf1,
  76                                            const IntPatch_Polyhedron& Poly1,
  77                                            const Handle(Adaptor3d_TopolTool)& D1,
  78                                            const Handle(Adaptor3d_HSurface)&   Surf2,
  79                                            const Handle(Adaptor3d_TopolTool)& D2,
  80                                            const Standard_Real  TolTangency,
  81                                            const Standard_Real  Epsilon,
  82                                            const Standard_Real  Deflection,
  83                                            const Standard_Real  Increment)
  84 {
  85   IntPatch_Polyhedron Poly2( Surf2 );
  86   Perform( Surf1, Poly1, D1, Surf2, Poly2, D2, TolTangency, Epsilon, Deflection, Increment);
  87 }
  88
  89 //==================================================================================
  90 // function : Perform
  91 // purpose  :
  92 //==================================================================================
  93 void IntPatch_PrmPrmIntersection::Perform (const Handle(Adaptor3d_HSurface)&   Surf1,
  94                                            const Handle(Adaptor3d_TopolTool)& D1,
  95                                            const Handle(Adaptor3d_HSurface)&   Surf2,
  96                                            const IntPatch_Polyhedron& Poly2,
  97                                            const Handle(Adaptor3d_TopolTool)& D2,
  98                                            const Standard_Real  TolTangency,
  99                                            const Standard_Real  Epsilon,
 100                                            const Standard_Real  Deflection,
 101                                            const Standard_Real  Increment)
 102 {
 103   IntPatch_Polyhedron Poly1( Surf1 );
 104   Perform( Surf1, Poly1, D1, Surf2, Poly2, D2, TolTangency, Epsilon, Deflection, Increment );
 105 }
 106
 107 //==================================================================================
 108 // function : Perform
 109 // purpose  :
 110 //==================================================================================
 111 void IntPatch_PrmPrmIntersection::Perform (const Handle(Adaptor3d_HSurface)&    Surf1,
 112                                            const IntPatch_Polyhedron&  Poly1,
 113                                            const Handle(Adaptor3d_TopolTool)& D1,
 114                                            const Handle(Adaptor3d_HSurface)&    Surf2,
 115                                            const IntPatch_Polyhedron&  Poly2,
 116                                            const Handle(Adaptor3d_TopolTool)& D2,
 117                                            const Standard_Real   TolTangency,
 118                                            const Standard_Real   Epsilon,
 119                                            const Standard_Real   Deflection,
 120                                            const Standard_Real   Increment)
 121 {
 122   IntPatch_TheInterfPolyhedron Interference(Poly1,Poly2);
 123   empt = Standard_True;
 124   done = Standard_True;
 125   SLin.Clear();
 126
 127   Standard_Real Deflection2 = Deflection*Deflection;
 128   Standard_Integer nbLigSec = Interference.NbSectionLines();
 129   Standard_Integer nbTanZon = Interference.NbTangentZones();
 130
 131   Standard_Integer NbPntOn2SOnLine;
 132   Standard_Integer NbLigCalculee = 0;
 133
 134   Standard_Real U1,U2,V1,V2;
 135   Standard_Real pu1,pu2,pv1,pv2;
 136
 137   TColStd_Array1OfReal StartParams(1,4);
 138
 139   IntPatch_ThePWalkingInter PW( Surf1, Surf2, TolTangency, Epsilon, Deflection, Increment );
 140
 141   Standard_Real    SeuildPointLigne = 15.0 * Increment * Increment; //-- 10 est insuffisant
 142   Standard_Real    incidence;
 143   Standard_Real    dminiPointLigne;
 144
 145   Standard_Boolean HasStartPoint,RejetLigne;
 146
 147   IntSurf_PntOn2S StartPOn2S;
 148
 149   Standard_Integer ver;
 150
 151   gp_Pnt Point3dDebut,Point3dFin;
 152
 153   if( nbLigSec >= 1 ) {
 154     Standard_Integer *TabL = new Standard_Integer [nbLigSec+1];
 155     Standard_Integer ls;
 156     for( ls = 1; ls <= nbLigSec; ls++ )
 157       TabL[ls]=ls;
 158
 159     Standard_Boolean triok;
 160     do {
 161       triok=Standard_True;
 162       for(Standard_Integer b=2; b<=nbLigSec; b++) {
 163         Standard_Integer nb_B = Interference.LineValue(TabL[b]).NumberOfPoints();
 164         Standard_Integer nb_A = Interference.LineValue(TabL[b-1]).NumberOfPoints();
 165         if( nb_B > nb_A ) {
 166           Standard_Integer tyu=TabL[b];
 167           TabL[b]=TabL[b-1];
 168           TabL[b-1]=tyu;
 169           triok=Standard_False;
 170         }
 171       }
 172     } while( triok==Standard_False );
 173
 174     for( ls = 1; ls <= nbLigSec; ls++) {
 175       const Intf_SectionLine& LineSec=Interference.LineValue(TabL[ls]);
 176       Standard_Integer nbp = LineSec.NumberOfPoints();
 177
 178       Standard_Integer *TabPtDep = new Standard_Integer [nbp+1];
 179       Standard_Integer ilig;
 180       for( ilig = 1; ilig <= nbp; ilig++)
 181         TabPtDep[ilig]=0;
 182
 183       Standard_Real UminLig1,VminLig1,UmaxLig1,VmaxLig1;
 184       Standard_Real UminLig2,VminLig2,UmaxLig2,VmaxLig2;
 185
 186       SectionPointToParameters(LineSec.GetPoint(1),Poly1,Poly2,UminLig1,VminLig1,UminLig2,VminLig2);
 187
 188       UmaxLig1=UminLig1;
 189       VmaxLig1=VminLig1;
 190       UmaxLig2=UminLig2;
 191       VmaxLig2=VminLig2;
 192
 193       for( ilig = 2; ilig <= nbp; ilig++ ) {
 194         SectionPointToParameters(LineSec.GetPoint(ilig),Poly1,Poly2,U1,V1,U2,V2);
 195
 196         if(U1>UmaxLig1) UmaxLig1=U1;
 197         if(V1>VmaxLig1) VmaxLig1=V1;
 198         if(U2>UmaxLig2) UmaxLig2=U2;
 199         if(V2>VmaxLig2) VmaxLig2=V2;
 200
 201         if(U1<UminLig1) UminLig1=U1;
 202         if(V1<VminLig1) VminLig1=V1;
 203         if(U2<UminLig2) UminLig2=U2;
 204         if(V2<VminLig2) VminLig2=V2;
 205       }
 206
 207       Standard_Integer nbps2 = (nbp>3)? (nbp/2) :  1;
 208       Standard_Integer NombreDePointsDeDepartDuCheminement = 0;
 209       Standard_Integer IndicePointdeDepart1 = 0,IndicePointdeDepart2 = 0;
 210       Standard_Boolean lignetrouvee=Standard_False;
 211
 212       do {
 213         NombreDePointsDeDepartDuCheminement++;
 214         if(NombreDePointsDeDepartDuCheminement == 1) {
 215           incidence=3.0;
 216           Standard_Integer nbp1_4=nbp/4;
 217           Standard_Integer nbp3_4=nbp-nbp1_4;
 218
 219           Standard_Integer nsp;
 220           for(nsp=nbp/2; nsp<nbp3_4; nsp++) {
 221             Standard_Real CurrentIncidence =  LineSec.GetPoint(nsp).Incidence();
 222             if(CurrentIncidence < incidence) {
 223               nbps2 = nsp;
 224               incidence = 0.9*CurrentIncidence;
 225             }
 226           }
 227
 228           for(nsp=nbp/2; nsp>nbp1_4; nsp--) {
 229             Standard_Real CurrentIncidence =  LineSec.GetPoint(nsp).Incidence();
 230             if(CurrentIncidence < incidence) {
 231               nbps2 = nsp;
 232               incidence = 0.9*CurrentIncidence;
 233             }
 234           }
 235
 236           if(nbp<3)
 237             NombreDePointsDeDepartDuCheminement=3;
 238
 239           IndicePointdeDepart1 = nbps2;
 240         }
 241         else if(NombreDePointsDeDepartDuCheminement == 2) {
 242           if(IndicePointdeDepart1 == 1) {
 243             nbps2 = nbp/2;
 244             IndicePointdeDepart2 = nbps2;
 245           }
 246           else {
 247             nbps2 = 1;
 248             IndicePointdeDepart2 = 1;
 249           }
 250         }
 251         else if(NombreDePointsDeDepartDuCheminement == 3) {
 252           if(IndicePointdeDepart1 == nbp)
 253             nbps2 = (IndicePointdeDepart1+IndicePointdeDepart2)/2;
 254           else
 255             nbps2 = nbp;
 256         }
 257         else {
 258           nbps2 = NombreDePointsDeDepartDuCheminement-3;
 259           NombreDePointsDeDepartDuCheminement++;
 260         }
 261
 262         if(TabPtDep[nbps2]==0) {
 263           TabPtDep[nbps2]=1;
 264           SectionPointToParameters(LineSec.GetPoint(nbps2),Poly1,Poly2,U1,V1,U2,V2);
 265
 266           StartParams(1) = U1;
 267           StartParams(2) = V1;
 268           StartParams(3) = U2;
 269           StartParams(4) = V2;
 270
 271           HasStartPoint = PW.PerformFirstPoint(StartParams,StartPOn2S);
 272           dminiPointLigne = SeuildPointLigne + SeuildPointLigne;
 273
 274           if(HasStartPoint) {
 275             StartPOn2S.Parameters(pu1,pv1,pu2,pv2);
 276             NbLigCalculee = SLin.Length();
 277             Standard_Integer l;
 278             for( l=1; (l <= NbLigCalculee) && (dminiPointLigne >= SeuildPointLigne); l++) {
 279               Handle(IntPatch_WLine)& testwline = *((Handle(IntPatch_WLine)*)&SLin.ChangeValue(l));
 280               if( (testwline->IsOutSurf1Box(gp_Pnt2d(pu1,pv1))==Standard_False) &&
 281                   (testwline->IsOutSurf2Box(gp_Pnt2d(pu2,pv2))==Standard_False) &&
 282                   (testwline->IsOutBox(StartPOn2S.Value())==Standard_False) ) {
 283                 NbPntOn2SOnLine = testwline->NbPnts();
 284                 Standard_Integer ll;
 285                 for( ll=1; (ll < NbPntOn2SOnLine) && (dminiPointLigne >= SeuildPointLigne); ll++) {
 286                   const gp_Pnt &Pa = testwline->Point(ll).Value();
 287                   const gp_Pnt &Pb = testwline->Point(ll+1).Value();
 288                   const gp_Pnt &PStart = StartPOn2S.Value();
 289                   gp_Vec AM(Pa,PStart);
 290                   gp_Vec MB(PStart,Pb);
 291                   Standard_Real AMMB = AM.Dot(MB);
 292                   if(AMMB > 0.0) {
 293                     gp_Dir ABN(Pb.X()-Pa.X(),Pb.Y()-Pa.Y(),Pb.Z()-Pa.Z());
 294                     Standard_Real lan =  ABN.X()*AM.X()+ABN.Y()*AM.Y()+ABN.Z()*AM.Z();
 295                     gp_Vec AH(lan*ABN.X(),lan*ABN.Y(),lan*ABN.Z());
 296                     gp_Vec HM(AM.X()-AH.X(),AM.Y()-AH.Y(),AM.Z()-AH.Z());
 297                     Standard_Real d = 0.0;
 298                     if(HM.X() < Deflection) {
 299                       d+=HM.X()*HM.X();
 300                       if(HM.Y() < Deflection) {
 301                         d+=HM.Y()*HM.Y();
 302                         if(HM.Z() < Deflection)
 303                           d+=HM.Z()*HM.Z();
 304                         else
 305                           d=Deflection2;
 306                       }
 307                       else
 308                         d=Deflection2;
 309                     }
 310                     else
 311                       d=Deflection2;
 312
 313                     if(d<Deflection2)
 314                       dminiPointLigne = 0.0;
 315                   }
 316                   else {
 317                     Standard_Real dab = Pa.SquareDistance(Pb);
 318                     Standard_Real dap = Pa.SquareDistance(PStart);
 319                     if(dap < dab)
 320                       dminiPointLigne=0;
 321                     else {
 322                       Standard_Real dbp = Pb.SquareDistance(PStart);
 323                       if(dbp < dab)
 324                         dminiPointLigne=0;
 325                     }
 326                   }
 327                 }
 328               }
 329             } // for ( l ...
 330
 331             if(dminiPointLigne > SeuildPointLigne) {
 332               PW.Perform(StartParams,UminLig1,VminLig1,UminLig2,VminLig2,UmaxLig1,VmaxLig1,UmaxLig2,VmaxLig2);
 333               if(PW.IsDone()) {
 334                 if(PW.NbPoints()>2) {
 335                   RejetLigne = Standard_False;
 336                   Point3dDebut = PW.Value(1).Value();
 337                   Point3dFin   = PW.Value(PW.NbPoints()).Value();
 338                   for( ver = 1 ; (!RejetLigne) && (ver<= NbLigCalculee) ; ver++) {
 339                     const Handle(IntPatch_WLine)& verwline = *((Handle(IntPatch_WLine)*)&SLin.Value(ver));
 340                     const IntSurf_PntOn2S& verPointDebut = verwline->Point(1);
 341                     const IntSurf_PntOn2S& verPointFin = verwline->Point(verwline->NbPnts());
 342                     if( Point3dDebut.Distance(verPointDebut.Value()) <= TolTangency ) {
 343                       if(Point3dFin.Distance(verPointFin.Value()) <= TolTangency)
 344                         RejetLigne = Standard_True;
 345                     }
 346                   }
 347
 348                   if(!RejetLigne) {
 349                     // Calculation transition
 350                     IntSurf_TypeTrans trans1,trans2;
 351                     Standard_Real locu,locv;
 352                     gp_Vec norm1,norm2,d1u,d1v;
 353                     gp_Pnt ptbid;
 354                     Standard_Integer indextg;
 355                     gp_Vec tgline(PW.TangentAtLine(indextg));
 356                     PW.Line()->Value(indextg).ParametersOnS1(locu,locv);
 357                     Surf1->D1(locu,locv,ptbid,d1u,d1v);
 358                     norm1 = d1u.Crossed(d1v);
 359                     PW.Line()->Value(indextg).ParametersOnS2(locu,locv);
 360                     Surf2->D1(locu,locv,ptbid,d1u,d1v);
 361                     norm2 = d1u.Crossed(d1v);
 362                     if(tgline.DotCross(norm2,norm1)>0.) {
 363                       trans1 = IntSurf_Out;
 364                       trans2 = IntSurf_In;
 365                     }
 366                     else {
 367                       trans1 = IntSurf_In;
 368                       trans2 = IntSurf_Out;
 369                     }
 370
 371                     Standard_Real TolTang = TolTangency;
 372                     Handle(IntPatch_WLine) wline = new IntPatch_WLine(PW.Line(),Standard_False,trans1,trans2);
 373                     IntPatch_RstInt::PutVertexOnLine(wline,Surf1,D1,Surf2,Standard_True,TolTang);
 374                     IntPatch_RstInt::PutVertexOnLine(wline,Surf2,D2,Surf1,Standard_False,TolTang);
 375
 376                     if(wline->NbVertex() == 0) {
 377                       IntPatch_Point vtx;
 378                       IntSurf_PntOn2S POn2S = PW.Line()->Value(1);
 379                       POn2S.Parameters(pu1,pv1,pu2,pv2);
 380                       vtx.SetValue(Point3dDebut,TolTang,Standard_False);
 381                       vtx.SetParameters(pu1,pv1,pu2,pv2);
 382                       vtx.SetParameter(1);
 383                       wline->AddVertex(vtx);
 384
 385                       POn2S = PW.Line()->Value(wline->NbPnts());
 386                       POn2S.Parameters(pu1,pv1,pu2,pv2);
 387                       vtx.SetValue(Point3dFin,TolTang,Standard_False);
 388                       vtx.SetParameters(pu1,pv1,pu2,pv2);
 389                       vtx.SetParameter(wline->NbPnts());
 390                       wline->AddVertex(vtx);
 391                     }
 392
 393                     lignetrouvee = Standard_True;
 394                     SLin.Append(wline);
 395                     empt = Standard_False;
 396                   }// !RejetLigne
 397                 }// PW.NbPoints()>2
 398               }// done is True
 399             }// dminiPointLigne > SeuildPointLigne
 400           }// HasStartPoint
 401         }// TabPtDep[nbps2]==0
 402       } while( nbp>5 && ( !( ( (NombreDePointsDeDepartDuCheminement >= 3) && lignetrouvee ) ||
 403                         ( (NombreDePointsDeDepartDuCheminement-3>=nbp) && !lignetrouvee ) ) ) );
 404
 405       delete [] TabPtDep;
 406     }// for( ls ...
 407
 408     delete [] TabL;
 409   }// nbLigSec >= 1
 410
 411   Standard_Real UminLig1,VminLig1,UmaxLig1,VmaxLig1;
 412   Standard_Real UminLig2,VminLig2,UmaxLig2,VmaxLig2;
 413
 414   UminLig1=VminLig1=UminLig2=VminLig2=RealLast();
 415   UmaxLig1=VmaxLig1=UmaxLig2=VmaxLig2=-UminLig1;
 416
 417   Standard_Integer z;
 418   for(z=1; z <= nbTanZon; z++) {
 419     const Intf_TangentZone& TangentZone=Interference.ZoneValue(z);
 420     for(Standard_Integer pz=1; pz<=TangentZone.NumberOfPoints(); pz++) {
 421       SectionPointToParameters(TangentZone.GetPoint(pz),Poly1,Poly2,U1,V1,U2,V2);
 422
 423       if(U1>UmaxLig1) UmaxLig1=U1;
 424       if(V1>VmaxLig1) VmaxLig1=V1;
 425       if(U2>UmaxLig2) UmaxLig2=U2;
 426       if(V2>VmaxLig2) VmaxLig2=V2;
 427
 428       if(U1<UminLig1) UminLig1=U1;
 429       if(V1<VminLig1) VminLig1=V1;
 430       if(U2<UminLig2) UminLig2=U2;
 431       if(V2<VminLig2) VminLig2=V2;
 432     }
 433   }
 434
 435   for(z=1; z <= nbTanZon; z++) {
 436     const Intf_TangentZone& TangentZone=Interference.ZoneValue(z);
 437     Standard_Integer pz;
 438     for( pz=1; pz<=TangentZone.NumberOfPoints(); pz++) {
 439       SectionPointToParameters(TangentZone.GetPoint(pz),Poly1,Poly2,U1,V1,U2,V2);
 440
 441       StartParams(1) = U1;
 442       StartParams(2) = V1;
 443       StartParams(3) = U2;
 444       StartParams(4) = V2;
 445
 446       HasStartPoint = PW.PerformFirstPoint(StartParams,StartPOn2S);
 447       if(HasStartPoint) {
 448         StartPOn2S.Parameters(pu1,pv1,pu2,pv2);
 449         NbLigCalculee = SLin.Length();
 450         dminiPointLigne = SeuildPointLigne + SeuildPointLigne;
 451         Standard_Integer l;
 452         for( l = 1; (l <= NbLigCalculee) && (dminiPointLigne >= SeuildPointLigne); l++) {
 453           Handle(IntPatch_WLine)& testwline = *((Handle(IntPatch_WLine)*)&SLin.ChangeValue(l));
 454           if( (testwline->IsOutSurf1Box(gp_Pnt2d(pu1,pv1))==Standard_False) &&
 455               (testwline->IsOutSurf2Box(gp_Pnt2d(pu2,pv2))==Standard_False) &&
 456               (testwline->IsOutBox(StartPOn2S.Value())==Standard_False) ) {
 457             NbPntOn2SOnLine = testwline->NbPnts();
 458             Standard_Integer ll;
 459             for( ll = 1; (ll < NbPntOn2SOnLine) && (dminiPointLigne >= SeuildPointLigne); ll++) {
 460               const gp_Pnt& Pa = testwline->Point(ll).Value();
 461               const gp_Pnt& Pb = testwline->Point(ll+1).Value();
 462               const gp_Pnt& PStart=StartPOn2S.Value();
 463               gp_Vec AM(Pa,PStart);
 464               gp_Vec MB(PStart,Pb);
 465               Standard_Real AMMB = AM.Dot(MB);
 466               if(AMMB > 0.0) {
 467                 gp_Dir ABN(Pb.X()-Pa.X(),Pb.Y()-Pa.Y(),Pb.Z()-Pa.Z());
 468                 Standard_Real lan =  ABN.X()*AM.X()+ABN.Y()*AM.Y()+ABN.Z()*AM.Z();
 469                 gp_Vec AH(lan*ABN.X(),lan*ABN.Y(),lan*ABN.Z());
 470                 gp_Vec HM(AM.X()-AH.X(),AM.Y()-AH.Y(),AM.Z()-AH.Z());
 471                 Standard_Real d = 0.0;
 472                 if(HM.X() < Deflection) {
 473                   d+=HM.X()*HM.X();
 474                   if(HM.Y() < Deflection) {
 475                     d+=HM.Y()*HM.Y();
 476                     if(HM.Z() < Deflection)
 477                       d+=HM.Z()*HM.Z();
 478                     else
 479                       d=Deflection2;
 480                   }
 481                   else
 482                     d=Deflection2;
 483                 }
 484                 else
 485                   d=Deflection2;
 486
 487                 if(d<Deflection2)
 488                   dminiPointLigne = 0.0;
 489               }
 490               else {
 491                 Standard_Real dab = Pa.Distance(Pb);
 492                 Standard_Real dap = Pa.Distance(PStart);
 493                 if(dap < dab)
 494                   dminiPointLigne=0;
 495                 else {
 496                   Standard_Real dbp = Pb.Distance(PStart);
 497                   if(dbp < dab)
 498                     dminiPointLigne=0;
 499                 }
 500               }
 501             }// for( ll ...
 502           }// if ...
 503         }// for( l ...
 504
 505         if(dminiPointLigne > SeuildPointLigne) {
 506           PW.Perform(StartParams,UminLig1,VminLig1,UminLig2,VminLig2,UmaxLig1,VmaxLig1,UmaxLig2,VmaxLig2);
 507           if(PW.IsDone()) {
 508             if(PW.NbPoints()>2) {
 509               RejetLigne = Standard_False;
 510               Point3dDebut = PW.Value(1).Value();
 511               Point3dFin   = PW.Value(PW.NbPoints()).Value();
 512               for(ver=1 ; (!RejetLigne) && (ver<= NbLigCalculee) ; ver++) {
 513                 const Handle(IntPatch_WLine)& verwline = *((Handle(IntPatch_WLine)*)&SLin.Value(ver));
 514                 const IntSurf_PntOn2S& verPointDebut = verwline->Point(1);
 515                 const IntSurf_PntOn2S& verPointFin   = verwline->Point(verwline->NbPnts());
 516                 if(Point3dDebut.Distance(verPointDebut.Value()) < TolTangency)
 517                   RejetLigne = Standard_True;
 518                 else {
 519                   if(Point3dFin.Distance(verPointFin.Value()) < TolTangency)
 520                     RejetLigne = Standard_True;
 521                 }
 522               }
 523
 524               if(!RejetLigne) {
 525                 IntSurf_TypeTrans trans1,trans2;
 526                 Standard_Real locu,locv;
 527                 gp_Vec norm1,norm2,d1u,d1v;
 528                 gp_Pnt ptbid;
 529                 Standard_Integer indextg;
 530                 gp_Vec tgline(PW.TangentAtLine(indextg));
 531                 PW.Line()->Value(indextg).ParametersOnS1(locu,locv);
 532                 Surf1->D1(locu,locv,ptbid,d1u,d1v);
 533                 norm1 = d1u.Crossed(d1v);
 534                 PW.Line()->Value(indextg).ParametersOnS2(locu,locv);
 535                 Surf2->D1(locu,locv,ptbid,d1u,d1v);
 536                 norm2 = d1u.Crossed(d1v);
 537                 if(tgline.DotCross(norm2,norm1)>0.) {
 538                   trans1 = IntSurf_Out;
 539                   trans2 = IntSurf_In;
 540                 }
 541                 else {
 542                   trans1 = IntSurf_In;
 543                   trans2 = IntSurf_Out;
 544                 }
 545
 546                 Standard_Real TolTang = TolTangency;
 547                 Handle(IntPatch_WLine) wline = new IntPatch_WLine(PW.Line(),Standard_False,trans1,trans2);
 548                 IntPatch_RstInt::PutVertexOnLine(wline,Surf1,D1,Surf2,Standard_True,TolTang);
 549                 IntPatch_RstInt::PutVertexOnLine(wline,Surf2,D2,Surf1,Standard_False,TolTang);
 550
 551                 if(wline->NbVertex() == 0) {
 552                   IntPatch_Point vtx;
 553                   IntSurf_PntOn2S POn2S = PW.Line()->Value(1);
 554                   POn2S.Parameters(pu1,pv1,pu2,pv2);
 555                   vtx.SetValue(Point3dDebut,TolTang,Standard_False);
 556                   vtx.SetParameters(pu1,pv1,pu2,pv2);
 557                   vtx.SetParameter(1);
 558                   wline->AddVertex(vtx);
 559
 560                   POn2S = PW.Line()->Value(wline->NbPnts());
 561                   POn2S.Parameters(pu1,pv1,pu2,pv2);
 562                   vtx.SetValue(Point3dFin,TolTang,Standard_False);
 563                   vtx.SetParameters(pu1,pv1,pu2,pv2);
 564                   vtx.SetParameter(wline->NbPnts());
 565                   wline->AddVertex(vtx);
 566                 }
 567
 568                 SLin.Append(wline);
 569                 empt = Standard_False;
 570               }// if !RejetLigne
 571             }// PW.NbPoints()>2
 572           }// done is True
 573         }// dminiPointLigne > SeuildPointLigne
 574       }// HasStartPoint
 575     }// for( pz ...
 576   }// for( z ...
 577 }
 578
 579 //==================================================================================
 580 // function : Perform
 581 // purpose  :
 582 //==================================================================================
 583 void IntPatch_PrmPrmIntersection::Perform (const Handle(Adaptor3d_HSurface)&    Surf1,
 584                                            const IntPatch_Polyhedron&  Poly1,
 585                                            const Handle(Adaptor3d_TopolTool)& D1,
 586                                            const Standard_Real   TolTangency,
 587                                            const Standard_Real   Epsilon,
 588                                            const Standard_Real   Deflection,
 589                                            const Standard_Real   Increment)
 590 {
 591   IntPatch_TheInterfPolyhedron Interference(Poly1);
 592   empt = Standard_True;
 593   done = Standard_True;
 594   SLin.Clear();
 595
 596   Standard_Integer nbLigSec = Interference.NbSectionLines();
 597   Standard_Integer nbTanZon = Interference.NbTangentZones();
 598
 599   Standard_Integer NbPntOn2SOnLine;
 600   Standard_Integer NbLigCalculee = 0;
 601
 602   Standard_Real U1,U2,V1,V2;
 603   Standard_Real pu1,pu2,pv1,pv2;
 604
 605   TColStd_Array1OfReal StartParams(1,4);
 606   IntPatch_ThePWalkingInter PW(Surf1,Surf1,TolTangency,Epsilon,Deflection,Increment);
 607
 608   Standard_Real    SeuildPointLigne = 15.0 * Increment * Increment; //-- 10 est insuffisant
 609   Standard_Real    incidence;
 610   Standard_Real    dminiPointLigne;
 611
 612   Standard_Boolean HasStartPoint,RejetLigne;
 613
 614   IntSurf_PntOn2S StartPOn2S;
 615
 616   Standard_Integer ver;
 617
 618   gp_Pnt Point3dDebut,Point3dFin;
 619
 620   if(nbLigSec>=1) {
 621     Standard_Integer ls;
 622     for( ls = 1; ls <= nbLigSec; ls++) {
 623       const Intf_SectionLine& LineSec=Interference.LineValue(ls);
 624       Standard_Integer nbp = LineSec.NumberOfPoints();
 625       Standard_Integer nbps2 = (nbp>3)? (nbp/2) :  1;
 626       Standard_Integer NombreDePointsDeDepartDuCheminement = 0;
 627       Standard_Integer IndicePointdeDepart1 = 0, IndicePointdeDepart2 = 0;
 628       do {
 629         NombreDePointsDeDepartDuCheminement++;
 630         if(NombreDePointsDeDepartDuCheminement == 1) {
 631           incidence = 0.0;
 632           Standard_Integer nsp1;
 633           for( nsp1= nbp/2; nsp1 >= 1; nsp1--) {
 634             SectionPointToParameters(LineSec.GetPoint(nsp1),Poly1,Poly1,U1,V1,U2,V2);
 635             Standard_Real CurrentIncidence =  Abs(U1-U2)+Abs(V1-V2);
 636             if(CurrentIncidence > incidence) {
 637               nbps2 = nsp1;
 638               incidence = CurrentIncidence;
 639             }
 640           }
 641           for( nsp1 = nbp/2; nsp1 <= nbp; nsp1++) {
 642             SectionPointToParameters(LineSec.GetPoint(nsp1),Poly1,Poly1,U1,V1,U2,V2);
 643             Standard_Real CurrentIncidence =  Abs(U1-U2)+Abs(V1-V2);
 644             if(CurrentIncidence > incidence) {
 645               nbps2 = nsp1;
 646               incidence = CurrentIncidence;
 647             }
 648           }
 649
 650           if(nbp<3)
 651             NombreDePointsDeDepartDuCheminement=3;
 652
 653           IndicePointdeDepart1 = nbps2;
 654         }
 655         else if(NombreDePointsDeDepartDuCheminement == 2) {
 656           if(IndicePointdeDepart1 == 1) {
 657             nbps2 = nbp/2;
 658             IndicePointdeDepart2 = nbps2;
 659           }
 660           else {
 661             nbps2 = 1;
 662             IndicePointdeDepart2 = 1;
 663           }
 664         }
 665         else {
 666           if(IndicePointdeDepart1 == nbp)
 667             nbps2 = (IndicePointdeDepart1+IndicePointdeDepart2)/2;
 668           else
 669             nbps2 = nbp;
 670         }
 671
 672         SectionPointToParameters(LineSec.GetPoint(nbps2),Poly1,Poly1,U1,V1,U2,V2);
 673
 674         StartParams(1) = U1;
 675         StartParams(2) = V1;
 676         StartParams(3) = U2;
 677         StartParams(4) = V2;
 678
 679         HasStartPoint = PW.PerformFirstPoint(StartParams,StartPOn2S);
 680         dminiPointLigne = SeuildPointLigne + SeuildPointLigne;
 681         if(HasStartPoint) {
 682           StartPOn2S.Parameters(pu1,pv1,pu2,pv2);
 683           if(Abs(pu1-pu2)>1e-7 || Abs(pv1-pv2)>1e-7) {
 684             NbLigCalculee = SLin.Length();
 685             Standard_Integer l;
 686             for( l = 1; (l <= NbLigCalculee) && (dminiPointLigne >= SeuildPointLigne); l++) {
 687               Handle(IntPatch_WLine)& testwline = *((Handle(IntPatch_WLine)*)&SLin.ChangeValue(l));
 688               if( (testwline->IsOutSurf1Box(gp_Pnt2d(pu1,pv1))==Standard_False) &&
 689                   (testwline->IsOutSurf2Box(gp_Pnt2d(pu2,pv2))==Standard_False) &&
 690                   (testwline->IsOutBox(StartPOn2S.Value())==Standard_False) ) {
 691                 NbPntOn2SOnLine = testwline->NbPnts();
 692                 Standard_Integer ll;
 693                 for( ll=1; (ll < NbPntOn2SOnLine) && (dminiPointLigne >= SeuildPointLigne); ll++) {
 694                   Standard_Real t,Au1,Av1,Au2,Av2,Bu1,Bv1,Bu2,Bv2;
 695                   testwline->Point(ll).Parameters(Au1,Av1,Au2,Av2);
 696                   testwline->Point(ll+1).Parameters(Bu1,Bv1,Bu2,Bv2);
 697                   if(Au1>Bu1) {
 698                     t=Au1;
 699                     Au1=Bu1;
 700                     Bu1=t;
 701                   }
 702                   if(Av1>Bv1) {
 703                     t=Av1;
 704                     Av1=Bv1;
 705                     Bv1=t;
 706                   }
 707                   Au1-=1.0e-7;
 708                   Av1-=1.0e-7;
 709                   Bu1+=1.0e-7;
 710                   Bv1+=1.0e-7;
 711
 712                   if((pu1>=Au1) && (pu1<=Bu1) && (pv1>=Av1) && (pv1<=Bv1))
 713                     dminiPointLigne = 0.0;
 714                   else {
 715                     if((pu2>=Au1) && (pu2<=Bu1) && (pv2>=Av1) && (pv2<=Bv1))
 716                       dminiPointLigne = 0.0;
 717                   }
 718                 }// for( ll ...
 719               }// if ...
 720             }// for( l ...
 721
 722             if(dminiPointLigne > SeuildPointLigne) {
 723               PW.Perform(StartParams);
 724               if(PW.IsDone()) {
 725                 if(PW.NbPoints()>2) {
 726                   RejetLigne = Standard_False;
 727                   Point3dDebut = PW.Value(1).Value();
 728                   Point3dFin   = PW.Value(PW.NbPoints()).Value();
 729                   for(ver=1 ; (!RejetLigne) && (ver<= NbLigCalculee) ; ver++) {
 730                     const Handle(IntPatch_WLine)& verwline = *((Handle(IntPatch_WLine)*)&SLin.Value(ver));
 731                     const IntSurf_PntOn2S& verPointDebut = verwline->Point(1);
 732                     const IntSurf_PntOn2S& verPointFin = verwline->Point(verwline->NbPnts());
 733                     if(Point3dDebut.Distance(verPointDebut.Value()) < TolTangency)
 734                       RejetLigne = Standard_True;
 735                     else {
 736                       if(Point3dFin.Distance(verPointFin.Value()) < TolTangency)
 737                         RejetLigne = Standard_True;
 738                     }
 739                   }
 740
 741                   if(!RejetLigne) {
 742                     IntSurf_TypeTrans trans1,trans2;
 743                     Standard_Real locu,locv;
 744                     gp_Vec norm1,norm2,d1u,d1v;
 745                     gp_Pnt ptbid;
 746                     Standard_Integer indextg;
 747                     gp_Vec tgline(PW.TangentAtLine(indextg));
 748                     PW.Line()->Value(indextg).ParametersOnS1(locu,locv);
 749                     Surf1->D1(locu,locv,ptbid,d1u,d1v);
 750                     norm1 = d1u.Crossed(d1v);
 751                     PW.Line()->Value(indextg).ParametersOnS2(locu,locv);
 752                     Surf1->D1(locu,locv,ptbid,d1u,d1v);
 753                     norm2 = d1u.Crossed(d1v);
 754                     if (tgline.DotCross(norm2,norm1)>0.) {
 755                       trans1 = IntSurf_Out;
 756                       trans2 = IntSurf_In;
 757                     }
 758                     else {
 759                       trans1 = IntSurf_In;
 760                       trans2 = IntSurf_Out;
 761                     }
 762
 763                     IntSurf_LineOn2S LineOn2S;
 764                     Standard_Integer nbpw,imin,imax,i;
 765                     nbpw = PW.Line()->NbPoints();
 766                     Standard_Real u1,v1,u2,v2;
 767                     i=0;
 768                     do {
 769                       i++;
 770                       imin=i;
 771                       const IntSurf_PntOn2S& Pi   = PW.Line()->Value(i);
 772                       Pi.Parameters(u1,v1,u2,v2);
 773                     } while((i<nbpw)&&(Abs(u1-u2)<=1e-6 && Abs(v1-v2)<=1e-6));
 774
 775                     if(imin>2)
 776                       imin--;
 777
 778                     i=nbpw+1;
 779                     do {
 780                       i--;
 781                       imax=i;
 782                       const IntSurf_PntOn2S& Pi   = PW.Line()->Value(i);
 783                       Pi.Parameters(u1,v1,u2,v2);
 784                     } while((i>2)&&(Abs(u1-u2)<=1e-6 && Abs(v1-v2)<=1e-6));
 785
 786                     if(imax<nbpw)
 787                       imax++;
 788
 789                     if(imin<imax) {
 790                       Handle_IntSurf_LineOn2S PWLine = new IntSurf_LineOn2S();
 791                       for(i=imin;i<=imax;i++)
 792                         PWLine->Add(PW.Line()->Value(i));
 793
 794                       Standard_Real TolTang = TolTangency;
 795                       Handle(IntPatch_WLine) wline = new IntPatch_WLine(PWLine,Standard_False,trans1,trans2);
 796                       const IntSurf_PntOn2S& POn2SDeb = wline->Point(1);
 797                       const IntSurf_PntOn2S& POn2SFin = wline->Point(wline->NbPnts());
 798                       if((POn2SDeb.Value()).Distance(POn2SFin.Value()) <= TolTangency) {
 799                         Standard_Real u1t,v1t,u2t,v2t;
 800                         POn2SDeb.Parameters(u1t,v1t,u2t,v2t);
 801                         IntPatch_Point vtx;
 802                         vtx.SetValue(POn2SDeb.Value(),TolTang,Standard_False);
 803                         vtx.SetParameters(u2t,v2t,u1t,v1t);
 804                         vtx.SetParameter(wline->NbPnts());
 805                         wline->SetPoint(wline->NbPnts(),vtx);
 806                       }
 807                       IntPatch_RstInt::PutVertexOnLine(wline,Surf1,D1,Surf1,Standard_True,TolTang);
 808                       if(wline->NbVertex() == 0) {
 809                         IntPatch_Point vtx;
 810                         IntSurf_PntOn2S POn2S = PW.Line()->Value(1);
 811                         POn2S.Parameters(pu1,pv1,pu2,pv2);
 812                         vtx.SetValue(Point3dDebut,TolTang,Standard_False);
 813                         vtx.SetParameters(pu1,pv1,pu2,pv2);
 814                         vtx.SetParameter(1);
 815                         wline->AddVertex(vtx);
 816
 817                         POn2S = PW.Line()->Value(wline->NbPnts());
 818                         POn2S.Parameters(pu1,pv1,pu2,pv2);
 819                         vtx.SetValue(Point3dFin,TolTang,Standard_False);
 820                         vtx.SetParameters(pu1,pv1,pu2,pv2);
 821                         vtx.SetParameter(wline->NbPnts());
 822                         wline->AddVertex(vtx);
 823                       }
 824                       SLin.Append(wline);
 825                       empt = Standard_False;
 826                     }// imin<imax
 827                   }// !RejetLigne
 828                 }// PW.NbPoints()>2
 829               }// done is True
 830             }// dminiPointLigne > SeuildPointLigne
 831           }// Abs || Abs
 832         }// HasStartPoint
 833       } while(nbp>5 && NombreDePointsDeDepartDuCheminement<3);
 834     }// for( ls ...
 835   }// nbLigSec>=1
 836
 837   Standard_Integer z;
 838   for( z = 1; z <= nbTanZon; z++) {
 839     const Intf_TangentZone& TangentZone=Interference.ZoneValue(z);
 840     for(Standard_Integer pz=1; pz<=TangentZone.NumberOfPoints(); pz++) {
 841       SectionPointToParameters(TangentZone.GetPoint(pz),Poly1,Poly1,U1,V1,U2,V2);
 842
 843       StartParams(1) = U1;
 844       StartParams(2) = V1;
 845       StartParams(3) = U2;
 846       StartParams(4) = V2;
 847
 848       HasStartPoint = PW.PerformFirstPoint(StartParams,StartPOn2S);
 849       if(HasStartPoint) {
 850         StartPOn2S.Parameters(pu1,pv1,pu2,pv2);
 851         if(Abs(pu1-pu2)>1e-7 || Abs(pv1-pv2)>1e-7) {
 852           NbLigCalculee = SLin.Length();
 853           dminiPointLigne = SeuildPointLigne + SeuildPointLigne;
 854           Standard_Integer l;
 855           for( l = 1; (l <= NbLigCalculee) && (dminiPointLigne >= SeuildPointLigne); l++) {
 856             Handle(IntPatch_WLine)& testwline = *((Handle(IntPatch_WLine)*)&SLin.ChangeValue(l));
 857             if( (testwline->IsOutSurf1Box(gp_Pnt2d(pu1,pv1))==Standard_False) &&
 858                 (testwline->IsOutSurf2Box(gp_Pnt2d(pu2,pv2))==Standard_False) &&
 859                 (testwline->IsOutBox(StartPOn2S.Value())==Standard_False) ) {
 860               NbPntOn2SOnLine = testwline->NbPnts();
 861               Standard_Integer ll;
 862               for( ll = 1; (ll < NbPntOn2SOnLine) && (dminiPointLigne >= SeuildPointLigne); ll++) {
 863                 Standard_Real t,Au1,Av1,Au2,Av2,Bu1,Bv1,Bu2,Bv2;
 864                 testwline->Point(ll).Parameters(Au1,Av1,Au2,Av2);
 865                 testwline->Point(ll+1).Parameters(Bu1,Bv1,Bu2,Bv2);
 866                 if(Au1>Bu1) {
 867                   t=Au1;
 868                   Au1=Bu1;
 869                   Bu1=t;
 870                 }
 871                 if(Av1>Bv1) {
 872                   t=Av1;
 873                   Av1=Bv1;
 874                   Bv1=t;
 875                 }
 876                 Au1-=1.0e-7;
 877                 Av1-=1.0e-7;
 878                 Bu1+=1.0e-7;
 879                 Bv1+=1.0e-7;
 880                 if((pu1>=Au1) && (pu1<=Bu1) && (pv1>=Av1) && (pv1<=Bv1))
 881                   dminiPointLigne = 0.0;
 882                 else {
 883                   if((pu2>=Au1) && (pu2<=Bu1) && (pv2>=Av1) && (pv2<=Bv1))
 884                     dminiPointLigne = 0.0;
 885                 }
 886               }// for( ll ...
 887             }// if ...
 888           }// for( l ...
 889
 890           if(dminiPointLigne > SeuildPointLigne) {
 891             PW.Perform(StartParams);
 892             if(PW.IsDone()) {
 893               if(PW.NbPoints()>2) {
 894                 RejetLigne = Standard_False;
 895                 Point3dDebut = PW.Value(1).Value();
 896                 Point3dFin   = PW.Value(PW.NbPoints()).Value();
 897                 for( ver = 1 ; (!RejetLigne) && (ver<= NbLigCalculee) ; ver++) {
 898                   const Handle(IntPatch_WLine)& verwline = *((Handle(IntPatch_WLine)*)&SLin.Value(ver));
 899                   const IntSurf_PntOn2S& verPointDebut = verwline->Point(1);
 900                   const IntSurf_PntOn2S& verPointFin = verwline->Point(verwline->NbPnts());
 901                   if(Point3dDebut.Distance(verPointDebut.Value()) < TolTangency)
 902                     RejetLigne = Standard_True;
 903                   else {
 904                     if(Point3dFin.Distance(verPointFin.Value()) < TolTangency)
 905                       RejetLigne = Standard_True;
 906                   }
 907                 }
 908
 909                 if(!RejetLigne) {
 910                   IntSurf_TypeTrans trans1,trans2;
 911                   Standard_Real locu,locv;
 912                   gp_Vec norm1,norm2,d1u,d1v;
 913                   gp_Pnt ptbid;
 914                   Standard_Integer indextg;
 915                   gp_Vec tgline(PW.TangentAtLine(indextg));
 916                   PW.Line()->Value(indextg).ParametersOnS1(locu,locv);
 917                   Surf1->D1(locu,locv,ptbid,d1u,d1v);
 918                   norm1 = d1u.Crossed(d1v);
 919                   PW.Line()->Value(indextg).ParametersOnS2(locu,locv);
 920                   Surf1->D1(locu,locv,ptbid,d1u,d1v);
 921                   norm2 = d1u.Crossed(d1v);
 922                   if(tgline.DotCross(norm2,norm1)>0.) {
 923                     trans1 = IntSurf_Out;
 924                     trans2 = IntSurf_In;
 925                   }
 926                   else {
 927                     trans1 = IntSurf_In;
 928                     trans2 = IntSurf_Out;
 929                   }
 930
 931                   IntSurf_LineOn2S LineOn2S;
 932                   Standard_Integer nbp,imin,imax,i;
 933                   nbp = PW.Line()->NbPoints();
 934                   Standard_Real u1,v1,u2,v2;
 935                   i=0;
 936                   do {
 937                     i++;
 938                     imin=i;
 939                     const IntSurf_PntOn2S& Pi   = PW.Line()->Value(i);
 940                     Pi.Parameters(u1,v1,u2,v2);
 941                   } while((i<nbp)&&(Abs(u1-u2)<=1e-6 && Abs(v1-v2)<=1e-6));
 942
 943                   if(imin>2)
 944                     imin--;
 945
 946                   i=nbp+1;
 947                   do {
 948                     i--;
 949                     imax=i;
 950                     const IntSurf_PntOn2S& Pi   = PW.Line()->Value(i);
 951                     Pi.Parameters(u1,v1,u2,v2);
 952                   } while((i>2)&&(Abs(u1-u2)<=1e-6 && Abs(v1-v2)<=1e-6));
 953
 954                   if(imax<nbp)
 955                     imax++;
 956
 957                   if(imin<imax) {
 958                     Handle_IntSurf_LineOn2S PWLine = new IntSurf_LineOn2S();
 959                     for(i=imin;i<=imax;i++)
 960                       PWLine->Add(PW.Line()->Value(i));
 961
 962                     Standard_Real TolTang = TolTangency;
 963                     Handle(IntPatch_WLine) wline = new IntPatch_WLine(PWLine,Standard_False,trans1,trans2);
 964                     const IntSurf_PntOn2S& POn2SDeb = wline->Point(1);
 965                     const IntSurf_PntOn2S& POn2SFin = wline->Point(wline->NbPnts());
 966                     if((POn2SDeb.Value()).Distance(POn2SFin.Value()) <= TolTangency) {
 967                       Standard_Real u1t,v1t,u2t,v2t;
 968                       POn2SDeb.Parameters(u1t,v1t,u2t,v2t);
 969                       IntPatch_Point vtx;
 970                       vtx.SetValue(POn2SDeb.Value(),TolTang,Standard_False);
 971                       vtx.SetParameters(u2t,v2t,u1t,v1t);
 972                       vtx.SetParameter(wline->NbPnts());
 973                       wline->SetPoint(wline->NbPnts(),vtx);
 974                     }
 975
 976                     IntPatch_RstInt::PutVertexOnLine(wline,Surf1,D1,Surf1,Standard_True,TolTang);
 977
 978                     if(wline->NbVertex() == 0) {
 979                       IntPatch_Point vtx;
 980                       IntSurf_PntOn2S POn2S = PW.Line()->Value(1);
 981                       POn2S.Parameters(pu1,pv1,pu2,pv2);
 982                       vtx.SetValue(Point3dDebut,TolTang,Standard_False);
 983                       vtx.SetParameters(pu1,pv1,pu2,pv2);
 984                       vtx.SetParameter(1);
 985                       wline->AddVertex(vtx);
 986
 987                       POn2S = PW.Line()->Value(wline->NbPnts());
 988                       POn2S.Parameters(pu1,pv1,pu2,pv2);
 989                       vtx.SetValue(Point3dFin,TolTang,Standard_False);
 990                       vtx.SetParameters(pu1,pv1,pu2,pv2);
 991                       vtx.SetParameter(wline->NbPnts());
 992                       wline->AddVertex(vtx);
 993                     }
 994
 995                     SLin.Append(wline);
 996                     empt = Standard_False;
 997                   }// imin<imax
 998                 }// !RejetLigne
 999               }// PW.NbPoints()>2
1000             }// done a True
1001           }// dminiPointLigne > SeuildPointLigne
1002         }// Abs || Abs
1003       }// HasStartPoint
1004     }// for ( pz ...
1005   }// for( z ...
1006 }
1007
1008 //==================================================================================
1009 // function : NewLine
1010 // purpose  :
1011 //==================================================================================
1012 Handle_IntPatch_Line IntPatch_PrmPrmIntersection::NewLine (const Handle(Adaptor3d_HSurface)&    Surf1,
1013                                                            const Handle(Adaptor3d_HSurface)&    Surf2,
1014                                                            const Standard_Integer NumLine,
1015                                                            const Standard_Integer Low,
1016                                                            const Standard_Integer High,
1017                                                            const Standard_Integer NbPntsToInsert) const
1018 {
1019   Standard_Integer NbPnts = NbPntsToInsert + High - Low;
1020   if(NumLine>NbLines() || NumLine<1  || Low>=High )
1021     Standard_OutOfRange::Raise(" IntPatch_PrmPrmIntersection NewLine ");
1022   //------------------------------------------------------------------
1023   //--  Indice     :   Low       Low+1     I    I+1         High    --
1024   //--                                                              --
1025   //--  Abs.Curv.  :  S(Low)              S(I)  S(I+1)      S(High) --
1026   //--                                                              --
1027   //--                On echantillonne a abcisse curviligne         --
1028   //--                constante.                                    --
1029   //--                L abcisse est calculee sur les params U1,V1   --
1030   //------------------------------------------------------------------
1031   TColStd_Array1OfReal U1(Low,High);
1032   TColStd_Array1OfReal V1(Low,High);
1033   TColStd_Array1OfReal U2(Low,High);
1034   TColStd_Array1OfReal V2(Low,High);
1035   TColStd_Array1OfReal AC(Low,High);
1036
1037   Standard_Real s,ds;
1038   Handle(IntPatch_WLine) TheLine = Handle(IntPatch_WLine)::DownCast(Line(NumLine));
1039   const IntSurf_PntOn2S& Point=TheLine->Point(Low);
1040   Standard_Real u1,v1,u2,v2;
1041   Point.Parameters(u1,v1,u2,v2);
1042   U1(Low) = u1;
1043   V1(Low) = v1;
1044   U2(Low) = u2;
1045   V2(Low) = v2;
1046   AC(Low) =0.0;
1047
1048   IntPatch_ThePWalkingInter PW(Surf1,Surf2,0.000001,0.000001,0.001,0.001);
1049
1050   Standard_Integer i;
1051   for(i=Low+1; i<=High; i++)
1052     {
1053       const IntSurf_PntOn2S& Pointi=TheLine->Point(i);
1054       Pointi.Parameters(u1,v1,u2,v2);
1055       U1(i) = u1;
1056       V1(i) = v1;
1057       U2(i) = u2;
1058       V2(i) = v2;
1059
1060       Standard_Real du1=u1-U1(i-1);
1061       Standard_Real dv1=v1-V1(i-1);
1062
1063       AC(i) = AC(i-1) + Sqrt((du1*du1)+(dv1*dv1));
1064     }
1065
1066   Handle(IntSurf_LineOn2S) ResultPntOn2SLine = new IntSurf_LineOn2S();
1067
1068   IntSurf_PntOn2S StartPOn2S;
1069   TColStd_Array1OfReal StartParams(1,4);
1070
1071   ResultPntOn2SLine->Add(TheLine->Point(Low));
1072
1073   ds = AC(High) / (NbPnts-1);
1074   Standard_Integer Indice = Low;
1075
1076   Standard_Real dsmin = ds*0.3;
1077   Standard_Real smax  = AC(High);
1078
1079   for(i=2,s=ds; (i<NbPnts)&&(s<smax); i++,s+=ds)
1080     {
1081       while(AC(Indice+1) <= s)
1082         {
1083           ResultPntOn2SLine->Add(TheLine->Point(Indice));
1084           Indice++;
1085         }
1086       Standard_Real a = s - AC(Indice);
1087       Standard_Real b = AC(Indice+1) - s;
1088       Standard_Real nab = 1.0/(a+b);
1089       //----------------------------------------------------------
1090       //-- Verification :  Si Dist au prochain  point < dsmin   --
1091       //--                 Si Dist au precedent point < dsmin   --
1092       //--                                                      --
1093       //----------------------------------------------------------
1094       if((nab > ds)&&(a>dsmin)&&(b>dsmin))
1095         {
1096           StartParams(1) = (U1(Indice) * b   +  U1(Indice+1) * a) * nab;
1097           StartParams(2) = (V1(Indice) * b   +  V1(Indice+1) * a) * nab;
1098           StartParams(3) = (U2(Indice) * b   +  U2(Indice+1) * a) * nab;
1099           StartParams(4) = (V2(Indice) * b   +  V2(Indice+1) * a) * nab;
1100
1101           Standard_Boolean HasStartPoint = PW.PerformFirstPoint(StartParams,StartPOn2S);
1102           if(HasStartPoint)
1103             ResultPntOn2SLine->Add(StartPOn2S);
1104         }
1105       else
1106         s+=dsmin;
1107     }
1108
1109   ResultPntOn2SLine->Add(TheLine->Point(High));
1110
1111   return(new IntPatch_WLine(ResultPntOn2SLine,Standard_False));
1112 }
1113
1114 //==================================================================================
1115 // function : SectionPointToParameters
1116 // purpose  :
1117 //==================================================================================
1118 void SectionPointToParameters(const Intf_SectionPoint& Sp,
1119                               const IntPatch_Polyhedron& Poly1,
1120                               const IntPatch_Polyhedron& Poly2,
1121                               Standard_Real& u1,
1122                               Standard_Real& v1,
1123                               Standard_Real& u2,
1124                               Standard_Real& v2)
1125 {
1126   Intf_PIType       typ;
1127   Standard_Integer  Adr1,Adr2;
1128   Standard_Real     Param,u,v;
1129   gp_Pnt P(Sp.Pnt());
1130
1131   Standard_Integer Pt1,Pt2,Pt3;
1132
1133   Sp.InfoFirst(typ,Adr1,Adr2,Param);
1134   switch(typ) {
1135   case Intf_VERTEX:   //-- Adr1 est le numero du vertex
1136     {
1137       Poly1.Parameters(Adr1,u1,v1);
1138       break;
1139     }
1140   case Intf_EDGE:
1141     {
1142       Poly1.Parameters(Adr1,u1,v1);
1143       Poly1.Parameters(Adr2,u,v);
1144       u1+= Param * (u-u1);
1145       v1+= Param * (v-v1);
1146       break;
1147     }
1148   case Intf_FACE:
1149     {
1150       Standard_Real ua,va,ub,vb,uc,vc,ca,cb,cc,cabc;
1151       Poly1.Triangle(Adr1,Pt1,Pt2,Pt3);
1152       gp_Pnt PA(Poly1.Point(Pt1));
1153       gp_Pnt PB(Poly1.Point(Pt2));
1154       gp_Pnt PC(Poly1.Point(Pt3));
1155       Poly1.Parameters(Pt1,ua,va);
1156       Poly1.Parameters(Pt2,ub,vb);
1157       Poly1.Parameters(Pt3,uc,vc);
1158       gp_Vec Normale(gp_Vec(PA,PB).Crossed(gp_Vec(PA,PC)));
1159       cc = (gp_Vec(PA,PB).Crossed(gp_Vec(PA,P))).Dot(Normale);
1160       ca = (gp_Vec(PB,PC).Crossed(gp_Vec(PB,P))).Dot(Normale);
1161       cb = (gp_Vec(PC,PA).Crossed(gp_Vec(PC,P))).Dot(Normale);
1162       cabc = ca + cb + cc;
1163
1164       ca/=cabc;     cb/=cabc;       cc/=cabc;
1165
1166       u1 = ca * ua + cb * ub + cc * uc;
1167       v1 = ca * va + cb * vb + cc * vc;
1168       break;
1169     }
1170   default:
1171     {
1172       //-- cout<<" Default dans SectionPointToParameters "<<endl;
1173       break;
1174     }
1175   }
1176
1177
1178   Sp.InfoSecond(typ,Adr1,Adr2,Param);
1179   switch(typ) {
1180   case Intf_VERTEX:   //-- Adr1 est le numero du vertex
1181     {
1182       Poly2.Parameters(Adr1,u2,v2);
1183       break;
1184     }
1185   case Intf_EDGE:
1186     {
1187       Poly2.Parameters(Adr1,u2,v2);
1188       Poly2.Parameters(Adr2,u,v);
1189       u2+= Param * (u-u2);
1190       v2+= Param * (v-v2);
1191       break;
1192     }
1193   case Intf_FACE:
1194     {
1195       Standard_Real ua,va,ub,vb,uc,vc,ca,cb,cc,cabc;
1196       Poly2.Triangle(Adr1,Pt1,Pt2,Pt3);
1197       gp_Pnt PA(Poly2.Point(Pt1));
1198       gp_Pnt PB(Poly2.Point(Pt2));
1199       gp_Pnt PC(Poly2.Point(Pt3));
1200       Poly2.Parameters(Pt1,ua,va);
1201       Poly2.Parameters(Pt2,ub,vb);
1202       Poly2.Parameters(Pt3,uc,vc);
1203       gp_Vec Normale(gp_Vec(PA,PB).Crossed(gp_Vec(PA,PC)));
1204       cc = (gp_Vec(PA,PB).Crossed(gp_Vec(PA,P))).Dot(Normale);
1205       ca = (gp_Vec(PB,PC).Crossed(gp_Vec(PB,P))).Dot(Normale);
1206       cb = (gp_Vec(PC,PA).Crossed(gp_Vec(PC,P))).Dot(Normale);
1207       cabc = ca + cb + cc;
1208
1209       ca/=cabc;     cb/=cabc;       cc/=cabc;
1210
1211       u2 = ca * ua + cb * ub + cc * uc;
1212       v2 = ca * va + cb * vb + cc * vc;
1213       break;
1214     }
1215   default:
1216     {
1217       //-- cout<<" Default dans SectionPointToParameters "<<endl;
1218       break;
1219     }
1220   }
1221 }
1222
1223 //==================================================================================
1224 // function : RemplitLin
1225 // purpose  :
1226 //==================================================================================
1227 void IntPatch_PrmPrmIntersection::RemplitLin(const Standard_Integer x1,
1228                                              const Standard_Integer y1,
1229                                              const Standard_Integer z1,
1230                                              const Standard_Integer x2,
1231                                              const Standard_Integer y2,
1232                                              const Standard_Integer z2,
1233                                              IntPatch_PrmPrmIntersection_T3Bits& Map) const
1234 {
1235   int xg,yg,zg;
1236   xg=x1-x2; if(xg<0) xg=-xg;
1237   yg=y1-y2; if(yg<0) yg=-yg;
1238   zg=z1-z2; if(zg<0) zg=-zg;
1239   if(DansGrille(x1) && DansGrille(y1) && DansGrille(z1)) {
1240     Standard_Integer t = GrilleInteger(x1,y1,z1);
1241     Map.Add(t);
1242   }
1243   if(xg<=1 && yg<=1 && zg<=1) return;
1244   xg = (x1+x2)>>1;
1245   yg = (y1+y2)>>1;
1246   zg = (z1+z2)>>1;
1247   RemplitLin(x1,y1,z1,xg,yg,zg,Map);
1248   RemplitLin(x2,y2,z2,xg,yg,zg,Map);
1249 }
1250
1251 //==================================================================================
1252 // function : RemplitTri
1253 // purpose  :
1254 //==================================================================================
1255 void IntPatch_PrmPrmIntersection::RemplitTri(const Standard_Integer x1,
1256                                              const Standard_Integer y1,
1257                                              const Standard_Integer z1,
1258                                              const Standard_Integer x2,
1259                                              const Standard_Integer y2,
1260                                              const Standard_Integer z2,
1261                                              const Standard_Integer x3,
1262                                              const Standard_Integer y3,
1263                                              const Standard_Integer z3,
1264                                              IntPatch_PrmPrmIntersection_T3Bits& Map) const
1265 {
1266   if(x1==x2 && x1==x3 && y1==y2 && y1==y3 && z1==z2 && z1==z3) {
1267     if(DansGrille(x1) && DansGrille(y1) && DansGrille(z1)) {
1268       Standard_Integer t = GrilleInteger(x1,y1,z1);
1269       Map.Add(t);
1270     }
1271     return;
1272   }
1273   else {
1274     Standard_Integer xg=(x1+x2+x3)/3;
1275     Standard_Integer yg=(y1+y2+y3)/3;
1276     Standard_Integer zg=(z1+z2+z3)/3;
1277     if(xg==x1 && yg==y1 && zg==z1) {
1278       RemplitLin(x1,y1,z1,x2,y2,z2,Map);
1279       RemplitLin(x1,y1,z1,x3,y3,z3,Map);
1280       return;
1281     }
1282     if(xg==x2 && yg==y2 && zg==z2) {
1283       RemplitLin(x2,y2,z2,x1,y1,z1,Map);
1284       RemplitLin(x2,y2,z2,x3,y3,z3,Map);
1285       return;
1286     }
1287     if(xg==x3 && yg==y3 && zg==z3) {
1288       RemplitLin(x3,y3,z3,x2,y2,z2,Map);
1289       RemplitLin(x3,y3,z3,x1,y1,z1,Map);
1290       return;
1291     }
1292     if(DansGrille(xg) && DansGrille(yg) && DansGrille(zg)) {
1293       Standard_Integer t = GrilleInteger(xg,yg,zg);
1294       Map.Add(t);
1295     }
1296     if(xg!=x3 || yg!=y3 || zg!=z3) RemplitTri(x1,y1,z1, x2,y2,z2, xg,yg,zg, Map);
1297     if(xg!=x1 || yg!=y1 || zg!=z1) RemplitTri(xg,yg,zg, x2,y2,z2, x3,y3,z3, Map);
1298     if(xg!=x2 || yg!=y2 || zg!=z2) RemplitTri(x1,y1,z1, xg,yg,zg, x3,y3,z3, Map);
1299   }
1300 }
1301
1302 //==================================================================================
1303 // function : Remplit
1304 // purpose  :
1305 //==================================================================================
1306 void IntPatch_PrmPrmIntersection::Remplit(const Standard_Integer a,
1307                                           const Standard_Integer b,
1308                                           const Standard_Integer c,
1309                                           IntPatch_PrmPrmIntersection_T3Bits& Map) const
1310 {
1311   int iax,iay,iaz,ibx,iby,ibz,icx,icy,icz;
1312   if(a!=-1) Map.Add(a);
1313   if(b!=-1) Map.Add(b);
1314   if(c!=-1) Map.Add(c);
1315
1316   if(a!=-1 && b!=-1 && c!=-1 ) {
1317     IntegerGrille(a,iax,iay,iaz);
1318     IntegerGrille(b,ibx,iby,ibz);
1319     IntegerGrille(c,icx,icy,icz);
1320     RemplitTri(iax,iay,iaz,ibx,iby,ibz,icx,icy,icz,Map);
1321   }
1322 }
1323
1324
1325
1326 //=======================================================================
1327 //function : Perform
1328 //purpose  :
1329 //=======================================================================
1330 void IntPatch_PrmPrmIntersection::Perform (const Handle(Adaptor3d_HSurface)&    Surf1,
1331                                            const Handle(Adaptor3d_TopolTool)& D1,
1332                                            const Handle(Adaptor3d_HSurface)&    Surf2,
1333                                            const Handle(Adaptor3d_TopolTool)& D2,
1334                                            const Standard_Real   TolTangency,
1335                                            const Standard_Real   Epsilon,
1336                                            const Standard_Real   Deflection,
1337                                            const Standard_Real   Increment,
1338                                            IntSurf_ListOfPntOn2S& LOfPnts,
1339                                            const Standard_Boolean RestrictLine)
1340 {
1341   if (LOfPnts.IsEmpty()){
1342     done = Standard_True;
1343     return;
1344   }
1345
1346   empt = Standard_True;
1347   SLin.Clear();
1348
1349   Standard_Real UminLig1,VminLig1,UmaxLig1,VmaxLig1;
1350   Standard_Real UminLig2,VminLig2,UmaxLig2,VmaxLig2;
1351   Standard_Real U1,U2,V1,V2;
1352
1353   UminLig1 = Surf1->FirstUParameter();
1354   VminLig1 = Surf1->FirstVParameter();
1355   UmaxLig1 = Surf1->LastUParameter();
1356   VmaxLig1 = Surf1->LastVParameter();
1357   UminLig2 = Surf2->FirstUParameter();
1358   VminLig2 = Surf2->FirstVParameter();
1359   UmaxLig2 = Surf2->LastUParameter();
1360   VmaxLig2 = Surf2->LastVParameter();
1361
1362   IntSurf_ListIteratorOfListOfPntOn2S IterLOP1(LOfPnts);
1363
1364   for(; IterLOP1.More(); IterLOP1.Next()){
1365     IntSurf_PntOn2S Pnt = IterLOP1.Value();
1366     Pnt.Parameters(U1, V1, U2, V2);
1367     if(U1>UmaxLig1) UmaxLig1=U1;
1368     if(V1>VmaxLig1) VmaxLig1=V1;
1369     if(U2>UmaxLig2) UmaxLig2=U2;
1370     if(V2>VmaxLig2) VmaxLig2=V2;
1371
1372     if(U1<UminLig1) UminLig1=U1;
1373     if(V1<VminLig1) VminLig1=V1;
1374     if(U2<UminLig2) UminLig2=U2;
1375     if(V2<VminLig2) VminLig2=V2;
1376   }
1377
1378   Standard_Real Deflection2 = Deflection*Deflection;
1379
1380   Standard_Real SeuildPointLigne = 15.0 * Increment * Increment;
1381
1382   Standard_Integer NbPntOn2SOnLine = 0, NbLigCalculee = 0, ver;
1383   Standard_Real pu1,pu2,pv1,pv2, dminiPointLigne;
1384   Standard_Boolean HasStartPoint,RejetLigne;
1385   IntSurf_PntOn2S StartPOn2S;
1386   gp_Pnt Point3dDebut,Point3dFin;
1387
1388   TColStd_Array1OfReal StartParams(1,4);
1389   IntPatch_ThePWalkingInter PW(Surf1,Surf2,TolTangency,Epsilon,Deflection,Increment);
1390
1391   IntSurf_ListIteratorOfListOfPntOn2S IterLOP2(LOfPnts);
1392   for(; IterLOP2.More(); IterLOP2.Next() ){
1393
1394     IntSurf_PntOn2S cPnt = IterLOP2.Value();
1395     cPnt.Parameters(U1, V1, U2, V2);
1396
1397     StartParams(1) = U1;
1398     StartParams(2) = V1;
1399     StartParams(3) = U2;
1400     StartParams(4) = V2;
1401
1402     HasStartPoint = PW.PerformFirstPoint(StartParams,StartPOn2S);
1403     dminiPointLigne = SeuildPointLigne + SeuildPointLigne;
1404     if(HasStartPoint) {
1405       StartPOn2S.Parameters(pu1,pv1,pu2,pv2);
1406       NbLigCalculee = SLin.Length();
1407       Standard_Integer l;
1408       for( l = 1; (l <= NbLigCalculee) && (dminiPointLigne >= SeuildPointLigne); l++) {
1409         Handle(IntPatch_WLine)& testwline = *((Handle(IntPatch_WLine)*)&SLin.ChangeValue(l));
1410         if( (testwline->IsOutSurf1Box(gp_Pnt2d(pu1,pv1))==Standard_False) &&
1411            (testwline->IsOutSurf2Box(gp_Pnt2d(pu2,pv2))==Standard_False) &&
1412            (testwline->IsOutBox(StartPOn2S.Value())==Standard_False) )  {
1413           NbPntOn2SOnLine = testwline->NbPnts();
1414           Standard_Integer ll;
1415           for( ll = 1; (ll < NbPntOn2SOnLine) && (dminiPointLigne >= SeuildPointLigne); ll++) {
1416             const gp_Pnt &Pa = testwline->Point(ll).Value();
1417             const gp_Pnt &Pb = testwline->Point(ll+1).Value();
1418             const gp_Pnt &PStart = StartPOn2S.Value();
1419             gp_Vec AM(Pa,PStart);
1420             gp_Vec MB(PStart,Pb);
1421             Standard_Real AMMB = AM.Dot(MB);
1422             if(AMMB > 0.0) {
1423               gp_Dir ABN(Pb.X()-Pa.X(),Pb.Y()-Pa.Y(),Pb.Z()-Pa.Z());
1424               Standard_Real lan =  ABN.X()*AM.X()+ABN.Y()*AM.Y()+ABN.Z()*AM.Z();
1425               gp_Vec AH(lan*ABN.X(),lan*ABN.Y(),lan*ABN.Z());
1426               gp_Vec HM(AM.X()-AH.X(),AM.Y()-AH.Y(),AM.Z()-AH.Z());
1427               Standard_Real d = 0.0;
1428               if(HM.X() < Deflection) {
1429                 d+=HM.X()*HM.X();
1430                 if(HM.Y() < Deflection) {
1431                   d+=HM.Y()*HM.Y();
1432                   if(HM.Z() < Deflection)
1433                     d+=HM.Z()*HM.Z();
1434                   else
1435                     d=Deflection2;
1436                 }
1437                 else
1438                   d=Deflection2;
1439               }
1440               else
1441                 d=Deflection2;
1442
1443               if(d<Deflection2)
1444                 dminiPointLigne = 0.0;
1445             }
1446             else {
1447               Standard_Real dab = Pa.SquareDistance(Pb);
1448               Standard_Real dap = Pa.SquareDistance(PStart);
1449               if(dap < dab)
1450                 dminiPointLigne=0;
1451               else {
1452                 Standard_Real dbp = Pb.SquareDistance(PStart);
1453                 if(dbp < dab)
1454                   dminiPointLigne=0;
1455               }
1456             }
1457           }// for( ll ...
1458         }// if ...
1459       }// for( l ...
1460
1461       if(dminiPointLigne > SeuildPointLigne) {
1462         PW.Perform(StartParams,UminLig1,VminLig1,UminLig2,VminLig2,UmaxLig1,VmaxLig1,UmaxLig2,VmaxLig2);
1463         if(PW.IsDone()) {
1464           if(PW.NbPoints()>2) {
1465             RejetLigne = Standard_False;
1466             Point3dDebut = PW.Value(1).Value();
1467             Point3dFin   = PW.Value(PW.NbPoints()).Value();
1468             for( ver = 1 ; (!RejetLigne) && (ver<= NbLigCalculee) ; ver++) {
1469               const Handle(IntPatch_WLine)& verwline = *((Handle(IntPatch_WLine)*)&SLin.Value(ver));
1470               const IntSurf_PntOn2S& verPointDebut = verwline->Point(1);
1471               const IntSurf_PntOn2S& verPointFin = verwline->Point(verwline->NbPnts());
1472               if(Point3dDebut.Distance(verPointDebut.Value()) <= TolTangency) {
1473                 if(Point3dFin.Distance(verPointFin.Value()) <= TolTangency)
1474                   RejetLigne = Standard_True;
1475               }
1476             }
1477
1478             if(!RejetLigne) {
1479               IntSurf_TypeTrans trans1,trans2;
1480               Standard_Real locu,locv;
1481               gp_Vec norm1,norm2,d1u,d1v;
1482               gp_Pnt ptbid;
1483               Standard_Integer indextg;
1484               gp_Vec tgline(PW.TangentAtLine(indextg));
1485               PW.Line()->Value(indextg).ParametersOnS1(locu,locv);
1486               Surf1->D1(locu,locv,ptbid,d1u,d1v);
1487               norm1 = d1u.Crossed(d1v);
1488               PW.Line()->Value(indextg).ParametersOnS2(locu,locv);
1489               Surf2->D1(locu,locv,ptbid,d1u,d1v);
1490               norm2 = d1u.Crossed(d1v);
1491               if( tgline.DotCross(norm2,norm1) >= 0. ) {
1492                 trans1 = IntSurf_Out;
1493                 trans2 = IntSurf_In;
1494               }
1495               else {
1496                 trans1 = IntSurf_In;
1497                 trans2 = IntSurf_Out;
1498               }
1499
1500               Standard_Real TolTang = TolTangency;
1501               Handle(IntPatch_WLine) wline = new IntPatch_WLine(PW.Line(),Standard_False,trans1,trans2);
1502               if (RestrictLine){
1503                 IntPatch_RstInt::PutVertexOnLine(wline,Surf1,D1,Surf2,Standard_True,TolTang);
1504                 IntPatch_RstInt::PutVertexOnLine(wline,Surf2,D2,Surf1,Standard_False,TolTang);
1505               }
1506
1507               if(wline->NbVertex() == 0) {
1508                 IntPatch_Point vtx;
1509                 IntSurf_PntOn2S POn2S = PW.Line()->Value(1);
1510                 POn2S.Parameters(pu1,pv1,pu2,pv2);
1511                 vtx.SetValue(Point3dDebut,TolTang,Standard_False);
1512                 vtx.SetParameters(pu1,pv1,pu2,pv2);
1513                 vtx.SetParameter(1);
1514                 wline->AddVertex(vtx);
1515
1516                 POn2S = PW.Line()->Value(wline->NbPnts());
1517                 POn2S.Parameters(pu1,pv1,pu2,pv2);
1518                 vtx.SetValue(Point3dFin,TolTang,Standard_False);
1519                 vtx.SetParameters(pu1,pv1,pu2,pv2);
1520                 vtx.SetParameter(wline->NbPnts());
1521                 wline->AddVertex(vtx);
1522               }
1523
1524               Standard_Integer slinlen = SLin.Length();
1525               if( slinlen > 0 ) {
1526                 Standard_Integer cnbV = wline->NbVertex();
1527                 Standard_Integer ciV;
1528                 for( ciV = 1; ciV <= cnbV; ciV++ ) {
1529                   Standard_Real pntDMin = 1.e+100;
1530                   Standard_Integer VDMin = 0;
1531                   Standard_Integer WLDMin = 0;
1532                   gp_Pnt cPV = wline->Vertex(ciV).Value();
1533                   Standard_Integer iL;
1534                   for( iL = 1; iL <= slinlen; iL++) {
1535                     const Handle(IntPatch_Line)& aSLine = SLin.Value(iL);
1536                     IntPatch_IType aType = aSLine->ArcType();
1537                     if( aType != IntPatch_Walking)
1538                       continue;
1539                     const Handle(IntPatch_WLine)&  aWLine = (*((Handle(IntPatch_WLine)*)&aSLine));
1540                     Standard_Integer tnbV = aWLine->NbVertex();
1541                     Standard_Integer tiV;
1542                     for( tiV = 1; tiV <= tnbV; tiV++ ) {
1543                       gp_Pnt tPV = aWLine->Vertex(tiV).Value();
1544                       Standard_Real tDistance = cPV.Distance(tPV);
1545                       Standard_Real uRs1 = Surf1->Surface().UResolution(tDistance);
1546                       Standard_Real vRs1 = Surf1->Surface().VResolution(tDistance);
1547                       Standard_Real uRs2 = Surf2->Surface().UResolution(tDistance);
1548                       Standard_Real vRs2 = Surf2->Surface().VResolution(tDistance);
1549                       Standard_Real RmaxS1 = Max(uRs1,vRs1);
1550                       Standard_Real RmaxS2 = Max(uRs2,vRs2);
1551                       if(RmaxS1 < 1.e-4 && RmaxS2 < 1.e-4) {
1552                         if( pntDMin > tDistance && tDistance > 1.e-9) {
1553                           pntDMin = tDistance;
1554                           VDMin = tiV;
1555                           WLDMin = iL;
1556                         }
1557                       }
1558                     }
1559                   }
1560
1561                   if( VDMin != 0 ) {
1562                     const Handle(IntPatch_Line)& aSLine = SLin.Value(WLDMin);
1563                     const Handle(IntPatch_WLine)&  aWLine = (*((Handle(IntPatch_WLine)*)&aSLine));
1564                     Standard_Integer tiVpar = (Standard_Integer)aWLine->Vertex(VDMin).ParameterOnLine();
1565                     Standard_Integer ciVpar = (Standard_Integer)wline->Vertex(ciV).ParameterOnLine();
1566                     Standard_Real u11 = 0., u12 = 0., v11 = 0., v12 = 0.;
1567                     Standard_Real u21 = 0., u22 = 0., v21 = 0., v22 = 0.;
1568                     wline->Point(ciVpar).Parameters(u11,v11,u12,v12);
1569                     aWLine->Point(tiVpar).Parameters(u21,v21,u22,v22);
1570
1571                     Handle(IntSurf_LineOn2S) newL2s = new IntSurf_LineOn2S();
1572                     IntSurf_PntOn2S replacePnt = aWLine->Point(tiVpar);
1573                     Standard_Integer cNbP = wline->NbPnts();
1574
1575                     TColStd_SequenceOfInteger VPold;
1576                     Standard_Integer iPo;
1577                     for( iPo = 1; iPo <= cnbV; iPo++ ) {
1578                       Standard_Real Po = wline->Vertex(iPo).ParameterOnLine();
1579                       Standard_Integer IPo = (Standard_Integer) Po;
1580                       VPold.Append(IPo);
1581                     }
1582
1583                     Standard_Boolean removeNext = Standard_False;
1584                     Standard_Boolean removePrev = Standard_False;
1585                     if( ciV == 1) {
1586                       Standard_Integer dPar = Abs( VPold.Value(ciV) - VPold.Value(ciV+1));
1587                       if(dPar > 10) {
1588                                 removeNext = Standard_True;
1589                                 for( iPo = (ciV+1); iPo <= cnbV; iPo++ )
1590                                   VPold.SetValue(iPo, VPold.Value(iPo) - 1 );
1591                               }
1592                     }
1593                     else if( ciV == cnbV) {
1594                       Standard_Integer dPar = Abs( VPold.Value(ciV) - VPold.Value(ciV-1));
1595                       if(dPar > 10) {
1596                         removePrev = Standard_True;
1597                         VPold.SetValue(ciV, VPold.Value(ciV) - 1 );
1598                       }
1599                     }
1600                     else {
1601                       Standard_Integer dParMi = Abs( VPold.Value(ciV) - VPold.Value(ciV-1));
1602                       Standard_Integer dParMa = Abs( VPold.Value(ciV) - VPold.Value(ciV+1));
1603                       if(dParMi > 10) {
1604                         removePrev = Standard_True;
1605                         VPold.SetValue(ciV, VPold.Value(ciV) - 1 );
1606                       }
1607                       if(dParMa > 10) {
1608                         removeNext = Standard_True;
1609                         for( iPo = (ciV+1); iPo <= cnbV; iPo++ ) {
1610                           if(dParMi > 10)
1611                             VPold.SetValue(iPo, VPold.Value(iPo) - 2 );
1612                           else
1613                             VPold.SetValue(iPo, VPold.Value(iPo) - 1 );
1614                         }
1615                       }
1616                       else {
1617                         if(dParMi > 10)
1618                           for( iPo = (ciV+1); iPo <= cnbV; iPo++ )
1619                             VPold.SetValue(iPo, VPold.Value(iPo) - 1 );
1620                       }
1621                     }
1622                     Standard_Integer pI = (Standard_Integer) ciVpar;
1623
1624                     Standard_Integer iP;
1625                     for( iP = 1; iP <= cNbP; iP++) {
1626                       if( pI == iP )
1627                         newL2s->Add(replacePnt);
1628                       else if(removeNext && iP == (pI + 1))
1629                         continue;
1630                       else if(removePrev && iP == (pI - 1))
1631                         continue;
1632                       else
1633                         newL2s->Add(wline->Point(iP));
1634                     }
1635
1636                     IntPatch_Point newVtx;
1637                     gp_Pnt Pnt3dV = aWLine->Vertex(VDMin).Value();
1638                     newVtx.SetValue(Pnt3dV,TolTang,Standard_False);
1639                     newVtx.SetParameters(u21,v21,u22,v22);
1640                     newVtx.SetParameter(VPold.Value(ciV));
1641
1642                     Handle(IntPatch_WLine) NWLine = new IntPatch_WLine(newL2s,Standard_False,trans1,trans2);
1643
1644                     Standard_Integer iV;
1645                     for( iV = 1; iV <= cnbV; iV++ ) {
1646                       if( iV == ciV )
1647                         NWLine->AddVertex(newVtx);
1648                       else {
1649                         IntPatch_Point theVtx = wline->Vertex(iV);
1650                         theVtx.SetParameter(VPold.Value(iV));
1651                         NWLine->AddVertex(theVtx);
1652                       }
1653                     }
1654
1655                     wline = NWLine;
1656                   }
1657                 }
1658               }// SLin.Length > 0
1659
1660               SLin.Append(wline);
1661               empt = Standard_False;
1662             }// !RejetLigne
1663           }// PW points > 2
1664         }// done is True
1665       }// dminiPointLigne > SeuildPointLigne
1666     }// HasStartPoint
1667   }// for( IterLOP ...
1668   done = Standard_True;
1669   return;
1670 }
1671 //=======================================================================
1672 //function : Perform
1673 //purpose  :
1674 //=======================================================================
1675 void IntPatch_PrmPrmIntersection::Perform(const Handle(Adaptor3d_HSurface)&    Surf1,
1676                                           const Handle(Adaptor3d_TopolTool)& D1,
1677                                           const Handle(Adaptor3d_HSurface)&    Surf2,
1678                                           const Handle(Adaptor3d_TopolTool)& D2,
1679                                           const Standard_Real   U1Depart,
1680                                           const Standard_Real   V1Depart,
1681                                           const Standard_Real   U2Depart,
1682                                           const Standard_Real   V2Depart,
1683                                           const Standard_Real   TolTangency,
1684                                           const Standard_Real   Epsilon,
1685                                           const Standard_Real   Deflection,
1686                                           const Standard_Real   Increment) {
1687
1688
1689
1690 //    Standard_Integer NbU1 = D1->NbSamplesU();
1691 //    Standard_Integer NbV1 = D1->NbSamplesV();
1692 //    Standard_Integer NbU2 = D2->NbSamplesU();
1693 //    Standard_Integer NbV2 = D2->NbSamplesV();
1694
1695   //-- Traitement des Lignes de sections
1696   empt = Standard_True;
1697   done = Standard_True;
1698   SLin.Clear();
1699
1700   //------------------------------------------------------------
1701
1702   Standard_Real pu1,pu2,pv1,pv2;
1703
1704   TColStd_Array1OfReal StartParams(1,4);
1705
1706 //    Standard_Integer MaxOscill = NbU1;
1707 //    if(MaxOscill < NbU2) MaxOscill=NbU2;
1708 //    if(MaxOscill < NbV1) MaxOscill=NbV1;
1709 //    if(MaxOscill < NbV2) MaxOscill=NbV2;
1710
1711 //    Standard_Real nIncrement=Increment;
1712 //    if(MaxOscill>10) {
1713 //  #ifdef DEB
1714 //      cout<<"\n IntPatch_PrmPrmIntersection.gxx : Increment:"<<Increment<<" -> "<<Increment/(0.5*MaxOscill)<<endl;
1715 //  #endif
1716 //      nIncrement/=0.5*MaxOscill;
1717 //    }
1718
1719   IntPatch_ThePWalkingInter PW(Surf1,Surf2,
1720                                TolTangency,
1721                                Epsilon,
1722                                Deflection,
1723                                Increment); //nIncrement);
1724
1725
1726   //Standard_Real    SeuildPointLigne = 15.0 * Increment * Increment; //-- 10 est insuffisant
1727   //Standard_Real    incidence;
1728   //Standard_Real    dminiPointLigne;
1729
1730   Standard_Boolean HasStartPoint;//,RejetLigne;
1731
1732   IntSurf_PntOn2S StartPOn2S;
1733
1734   //Standard_Integer ver;
1735
1736   gp_Pnt Point3dDebut,Point3dFin;
1737
1738   //------------------------------------------------------------
1739
1740   StartParams(1) = U1Depart;
1741   StartParams(2) = V1Depart;
1742   StartParams(3) = U2Depart;
1743   StartParams(4) = V2Depart;
1744
1745   //-----------------------------------------------------------------------
1746   //-- Calcul du premier point de cheminement a partir du point approche --
1747   //-----------------------------------------------------------------------
1748   HasStartPoint = PW.PerformFirstPoint(StartParams,StartPOn2S);
1749   if(HasStartPoint) {
1750     //-------------------------------------------------
1751     //-- Un point a ete trouve                       --
1752     //-- On verifie qu il n appartient pas           --
1753     //--  a une ligne de cheminement deja calculee.  --
1754     //-------------------------------------------------
1755
1756     PW.Perform(StartParams);
1757     if(PW.IsDone()) {
1758
1759       Point3dDebut = PW.Value(1).Value();
1760       Point3dFin   = PW.Value(PW.NbPoints()).Value();
1761
1762       IntSurf_TypeTrans trans1,trans2;
1763       Standard_Real locu,locv;
1764       gp_Vec norm1,norm2,d1u,d1v;
1765       gp_Pnt ptbid;
1766       Standard_Integer indextg;
1767       gp_Vec tgline(PW.TangentAtLine(indextg));
1768       PW.Line()->Value(indextg).ParametersOnS1(locu,locv);
1769       Surf1->D1(locu,locv,ptbid,d1u,d1v);
1770       norm1 = d1u.Crossed(d1v);
1771       PW.Line()->Value(indextg).ParametersOnS2(locu,locv);
1772       Surf2->D1(locu,locv,ptbid,d1u,d1v);
1773       norm2 = d1u.Crossed(d1v);
1774       if (tgline.DotCross(norm2,norm1)>0.) {
1775         trans1 = IntSurf_Out;
1776         trans2 = IntSurf_In;
1777       }
1778       else {
1779         trans1 = IntSurf_In;
1780         trans2 = IntSurf_Out;
1781       }
1782
1783
1784
1785       Standard_Real TolTang = TolTangency;
1786       Handle(IntPatch_WLine) wline = new IntPatch_WLine(PW.Line(),Standard_False,trans1,trans2);
1787       IntPatch_RstInt::PutVertexOnLine(wline,Surf1,D1,Surf2,Standard_True,TolTang);
1788       IntPatch_RstInt::PutVertexOnLine(wline,Surf2,D2,Surf1,Standard_False,TolTang);
1789
1790       //---------------
1791       if(wline->NbVertex() == 0) {
1792         IntPatch_Point vtx;
1793         IntSurf_PntOn2S POn2S = PW.Line()->Value(1);
1794         POn2S.Parameters(pu1,pv1,pu2,pv2);
1795         vtx.SetValue(Point3dDebut,TolTang,Standard_False);
1796         vtx.SetParameters(pu1,pv1,pu2,pv2);
1797         vtx.SetParameter(1);
1798         wline->AddVertex(vtx);
1799
1800         POn2S = PW.Line()->Value(wline->NbPnts());
1801         POn2S.Parameters(pu1,pv1,pu2,pv2);
1802         vtx.SetValue(Point3dFin,TolTang,Standard_False);
1803         vtx.SetParameters(pu1,pv1,pu2,pv2);
1804         vtx.SetParameter(wline->NbPnts());
1805         wline->AddVertex(vtx);
1806       }
1807
1808       //---------------
1809       SLin.Append(wline);
1810       empt = Standard_False;
1811
1812     }
1813   }
1814 }
1815 //==================================================================================
1816 // function : AdjustOnPeriodic
1817 // purpose  :
1818 //==================================================================================
1819 void AdjustOnPeriodic(const Handle(Adaptor3d_HSurface)& Surf1,
1820                       const Handle(Adaptor3d_HSurface)& Surf2,
1821                       IntPatch_SequenceOfLine& aSLin)
1822 {
1823   Standard_Boolean bIsPeriodic[4], bModified, bIsNull, bIsPeriod;
1824   Standard_Integer i, j, k, aNbLines, aNbPx, aIndx, aIndq;
1825   Standard_Real aPeriod[4], dPeriod[4], ux[4], uq[4], aEps, du;
1826   //
1827   aEps=Precision::Confusion();
1828   //
1829   for (k=0; k<4; ++k) {
1830     aPeriod[k]=0.;
1831   }
1832   //
1833   bIsPeriodic[0]=Surf1->IsUPeriodic();
1834   bIsPeriodic[1]=Surf1->IsVPeriodic();
1835   bIsPeriodic[2]=Surf2->IsUPeriodic();
1836   bIsPeriodic[3]=Surf2->IsVPeriodic();
1837   //
1838   if (bIsPeriodic[0]){
1839     aPeriod[0]=Surf1->UPeriod();
1840   }
1841   if (bIsPeriodic[1]){
1842     aPeriod[1]=Surf1->VPeriod();
1843   }
1844   if (bIsPeriodic[2]){
1845     aPeriod[2]=Surf2->UPeriod();
1846   }
1847   if (bIsPeriodic[3]){
1848     aPeriod[3]=Surf2->VPeriod();
1849   }
1850   //
1851   for (k=0; k<4; ++k) {
1852     dPeriod[k]=0.25*aPeriod[k];
1853   }
1854   //
1855   aNbLines=aSLin.Length();
1856   for (i=1; i<=aNbLines; ++i) {
1857     Handle(IntPatch_WLine) aIL=Handle(IntPatch_WLine)::DownCast(aSLin.Value(i));
1858     Handle(IntSurf_LineOn2S) aL=aIL->Curve();
1859
1860     aNbPx=aL->NbPoints();
1861     if (aNbPx<10) {
1862       continue;
1863     }
1864     //
1865     for (j=0; j<2; ++j) {
1866       bModified=Standard_False;
1867       aIndx=1;
1868       aIndq=2;
1869       if (j) {
1870         aIndx=aNbPx;
1871         aIndq=aNbPx-1;
1872       }
1873       //
1874       const IntSurf_PntOn2S& aPSx=aL->Value(aIndx);
1875       const IntSurf_PntOn2S& aPSq=aL->Value(aIndq);
1876       //
1877       aPSx.Parameters(ux[0], ux[1], ux[2], ux[3]);
1878       aPSq.Parameters(uq[0], uq[1], uq[2], uq[3]);
1879       //
1880       for (k=0; k<4; ++k) {
1881         bIsNull=Standard_False;
1882         bIsPeriod=Standard_False;
1883         //
1884         if (!bIsPeriodic[k]) {
1885           continue;
1886         }
1887         //
1888         if (fabs(ux[k])<aEps) {
1889           bModified=Standard_True;
1890           bIsNull=Standard_True;
1891         }
1892         //
1893         else if (fabs(ux[k]-aPeriod[k])<aEps) {
1894           bModified=Standard_True;
1895           bIsPeriod=Standard_True;
1896         }
1897         //
1898         if (bModified) {
1899           du=fabs(ux[k]-uq[k]);
1900           if (du > dPeriod[k]) {
1901             if(bIsNull){
1902               ux[k]=aPeriod[k];
1903             }
1904             if(bIsPeriod) {
1905               ux[k]=0.;
1906             }
1907           }
1908         }
1909       }//for (k=0; k<4; ++k)
1910       if (bModified) {
1911         IntSurf_PntOn2S aPntOn2S;
1912         //
1913         aPntOn2S=aPSx;
1914         aPntOn2S.SetValue(ux[0], ux[1], ux[2], ux[3]);
1915         aL->Value(aIndx, aPntOn2S);
1916       }
1917     }//for (j=0; j<1; ++j) {
1918   }//for (i=1; i<=aNbLines; ++i)
1919 }
1920 //==================================================================================
1921 // function : Perform
1922 // purpose  : base SS Int. function
1923 //==================================================================================
1924 void IntPatch_PrmPrmIntersection::Perform (const Handle(Adaptor3d_HSurface)& Surf1,
1925                                            const Handle(Adaptor3d_TopolTool)& D1,
1926                                            const Handle(Adaptor3d_HSurface)& Surf2,
1927                                            const Handle(Adaptor3d_TopolTool)& D2,
1928                                            const Standard_Real   TolTangency,
1929                                            const Standard_Real   Epsilon,
1930                                            const Standard_Real   Deflection,
1931                                            const Standard_Real   Increment,
1932                                            const Standard_Boolean ClearFlag)
1933 {
1934   Standard_Integer NbU1, NbV1, NbU2, NbV2, Limit;
1935   //
1936   D1->SamplePnts(Deflection, 10, 10);
1937   D2->SamplePnts(Deflection, 10, 10);
1938   //
1939   NbU1 = D1->NbSamplesU();
1940   NbV1 = D1->NbSamplesV();
1941   NbU2 = D2->NbSamplesU();
1942   NbV2 = D2->NbSamplesV();
1943   TColStd_Array1OfReal anUpars1(1, NbU1), aVpars1(1, NbV1);
1944   TColStd_Array1OfReal anUpars2(1, NbU2), aVpars2(1, NbV2);
1945   //
1946   D1->UParameters(anUpars1);
1947   D1->VParameters(aVpars1);
1948   D2->UParameters(anUpars2);
1949   D2->VParameters(aVpars2);
1950   //---------------------------------------------
1951   Limit = 2500;
1952   if((NbU1*NbV1<=Limit && NbV2*NbU2<=Limit)) {
1953     empt = Standard_True;
1954     if (ClearFlag){
1955       SLin.Clear();
1956     }
1957     //
1958     IntPolyh_Intersection* pInterference = NULL;
1959
1960     if ( D1->IsUniformSampling() || D2->IsUniformSampling() ) {
1961       pInterference = new IntPolyh_Intersection(Surf1,NbU1,NbV1,Surf2,NbU2,NbV2);
1962     }
1963     else {
1964       pInterference = new IntPolyh_Intersection(Surf1, anUpars1, aVpars1,
1965                                                 Surf2, anUpars2, aVpars2 );
1966     }
1967     if ( !pInterference ) {
1968       done = Standard_False;
1969       return;
1970     }
1971     //
1972     IntPolyh_Intersection& Interference = *pInterference;
1973     //
1974     done = Interference.IsDone();
1975     if( !done ) {
1976       if (pInterference) {
1977         delete pInterference;
1978         pInterference = NULL;
1979       }
1980       return;
1981     }
1982
1983     Standard_Real Deflection2 = Deflection*Deflection;
1984     Standard_Integer nbLigSec = Interference.NbSectionLines();
1985     Standard_Integer nbTanZon = Interference.NbTangentZones();
1986     Standard_Real SeuildPointLigne = 15.0 * Increment * Increment;
1987
1988     Standard_Integer NbPntOn2SOnLine = 0, NbLigCalculee = 0, ver;
1989     Standard_Real U1,U2,V1,V2, pu1,pu2,pv1,pv2, incidence, dminiPointLigne;
1990     Standard_Boolean HasStartPoint,RejetLigne;
1991     IntSurf_PntOn2S StartPOn2S;
1992     gp_Pnt Point3dDebut,Point3dFin;
1993
1994     TColStd_Array1OfReal StartParams(1,4);
1995     IntPatch_ThePWalkingInter PW(Surf1,Surf2,TolTangency,Epsilon,Deflection,Increment);
1996
1997     if(nbLigSec>=1) {
1998       Standard_Integer *TabL = new Standard_Integer [nbLigSec+1];
1999       Standard_Integer ls;
2000       for(ls=1; ls<=nbLigSec; ++ls){
2001         TabL[ls]=ls;
2002       }
2003       //----------------------------------------1.1
2004       Standard_Boolean triok;
2005       do {
2006         Standard_Integer b, nb_B, nb_A, tyu;
2007         //
2008         triok=Standard_True;
2009         for( b = 2; b <= nbLigSec; ++b ) {
2010           nb_B = Interference.NbPointsInLine(TabL[b]);
2011           nb_A = Interference.NbPointsInLine(TabL[b-1]);
2012           if( nb_B > nb_A ) {
2013             tyu=TabL[b];
2014             TabL[b]=TabL[b-1];
2015             TabL[b-1]=tyu;
2016             triok=Standard_False;
2017           }
2018         }
2019       } while(triok==Standard_False);
2020       //----------------------------------------
2021       // 1.2 For the line "ls" get 2D-bounds U,V for surfaces 1,2
2022       //
2023       for( ls = 1; ls <= nbLigSec; ++ls) {
2024         Standard_Integer nbp, ilig, *TabPtDep;
2025         //
2026         nbp = Interference.NbPointsInLine(TabL[ls]);
2027         if (!nbp) {
2028           continue;
2029         }
2030         //
2031         TabPtDep = new Standard_Integer [nbp+1];
2032         for( ilig = 1; ilig <= nbp; ++ilig ) {
2033           TabPtDep[ilig]=0;
2034         }
2035         //
2036         Standard_Real UminLig1,VminLig1,UmaxLig1,VmaxLig1;
2037         Standard_Real UminLig2,VminLig2,UmaxLig2,VmaxLig2;
2038         Standard_Real _x,_y,_z;
2039         //
2040         Interference.GetLinePoint(TabL[ls], 1,
2041                                   _x,_y,_z,
2042                                   UminLig1, VminLig1, UminLig2, VminLig2,
2043                                   incidence);
2044
2045         UmaxLig1=UminLig1;
2046         VmaxLig1=VminLig1;
2047         UmaxLig2=UminLig2;
2048         VmaxLig2=VminLig2;
2049         //
2050         for( ilig = 2; ilig <= nbp; ilig++ ) {
2051           Interference.GetLinePoint(TabL[ls],ilig,_x,_y,_z,U1,V1,U2,V2,incidence);
2052           //
2053           if(U1>UmaxLig1) UmaxLig1=U1;
2054           if(V1>VmaxLig1) VmaxLig1=V1;
2055           if(U2>UmaxLig2) UmaxLig2=U2;
2056           if(V2>VmaxLig2) VmaxLig2=V2;
2057           //
2058           if(U1<UminLig1) UminLig1=U1;
2059           if(V1<VminLig1) VminLig1=V1;
2060           if(U2<UminLig2) UminLig2=U2;
2061           if(V2<VminLig2) VminLig2=V2;
2062         }//for( ilig = 2; ilig <= nbp; ilig++ ) {
2063         //
2064         //----------------------------------------
2065         // 1.3
2066         Standard_Integer nbps2 = (nbp>3)? (nbp/2) :  1;
2067         Standard_Integer NombreDePointsDeDepartDuCheminement = 0;
2068         Standard_Boolean lignetrouvee=Standard_False;
2069         const Standard_Integer NbDePointsDeDepartDuChmLimit = 5;
2070         //
2071         do {
2072           NombreDePointsDeDepartDuCheminement++;
2073           switch (NombreDePointsDeDepartDuCheminement) {
2074           case 1:
2075             nbps2 = (nbp > 1) ? nbp/2 : 1;
2076             if(nbp<3)
2077               NombreDePointsDeDepartDuCheminement = NbDePointsDeDepartDuChmLimit;
2078             break;
2079           case 2:
2080             nbps2 = 1;
2081             break;
2082           case 3:
2083             nbps2 = nbp-1;
2084             break;
2085           case 4:
2086             nbps2 = 3 * nbp / 4;
2087             break;
2088           case 5:
2089             nbps2 = nbp / 4;
2090             break;
2091           default:
2092             nbps2 = NombreDePointsDeDepartDuCheminement-3;
2093             NombreDePointsDeDepartDuCheminement++;
2094           }
2095           //
2096           if(TabPtDep[nbps2] == 0) {
2097             TabPtDep[nbps2] = 1;
2098             Interference.GetLinePoint(TabL[ls],nbps2,_x,_y,_z,U1,V1,U2,V2,incidence);
2099
2100             StartParams(1) = U1;
2101             StartParams(2) = V1;
2102             StartParams(3) = U2;
2103             StartParams(4) = V2;
2104
2105             HasStartPoint = PW.PerformFirstPoint(StartParams,StartPOn2S);
2106             dminiPointLigne = SeuildPointLigne + SeuildPointLigne;
2107             if(HasStartPoint) {
2108               StartPOn2S.Parameters(pu1,pv1,pu2,pv2);
2109               NbLigCalculee = SLin.Length();
2110               Standard_Integer l;
2111               for( l = 1; (l <= NbLigCalculee) && (dminiPointLigne >= SeuildPointLigne); l++) {
2112                 Handle(IntPatch_WLine)& testwline = *((Handle(IntPatch_WLine)*)&SLin.ChangeValue(l));
2113                 if( (testwline->IsOutSurf1Box(gp_Pnt2d(pu1,pv1))==Standard_False) &&
2114                     (testwline->IsOutSurf2Box(gp_Pnt2d(pu2,pv2))==Standard_False) &&
2115                     (testwline->IsOutBox(StartPOn2S.Value())==Standard_False) ) {
2116                   NbPntOn2SOnLine = testwline->NbPnts();
2117                   Standard_Integer ll;
2118                   for( ll = 1; (ll < NbPntOn2SOnLine) && (dminiPointLigne >= SeuildPointLigne); ll++) {
2119                     const gp_Pnt &Pa = testwline->Point(ll).Value();
2120                     const gp_Pnt &Pb = testwline->Point(ll+1).Value();
2121                     const gp_Pnt &PStart = StartPOn2S.Value();
2122                     gp_Vec AM(Pa,PStart);
2123                     gp_Vec MB(PStart,Pb);
2124                     Standard_Real AMMB = AM.Dot(MB);
2125                     if(AMMB > 0.0) {
2126                       gp_Dir ABN(Pb.X()-Pa.X(),Pb.Y()-Pa.Y(),Pb.Z()-Pa.Z());
2127                       Standard_Real lan =  ABN.X()*AM.X()+ABN.Y()*AM.Y()+ABN.Z()*AM.Z();
2128                       gp_Vec AH(lan*ABN.X(),lan*ABN.Y(),lan*ABN.Z());
2129                       gp_Vec HM(AM.X()-AH.X(),AM.Y()-AH.Y(),AM.Z()-AH.Z());
2130                       Standard_Real d = 0.0;
2131                       if(HM.X() < Deflection) {
2132                         d+=HM.X()*HM.X();
2133                         if(HM.Y() < Deflection) {
2134                           d+=HM.Y()*HM.Y();
2135                           if(HM.Z() < Deflection)
2136                             d+=HM.Z()*HM.Z();
2137                           else
2138                             d=Deflection2;
2139                         }
2140                         else
2141                           d=Deflection2;
2142                       }
2143                       else
2144                         d=Deflection2;
2145
2146                       if(d<Deflection2)
2147                         dminiPointLigne = 0.0;
2148                     }
2149                     else {
2150                       Standard_Real dab = Pa.SquareDistance(Pb);
2151                       Standard_Real dap = Pa.SquareDistance(PStart);
2152                       if(dap < dab)
2153                         dminiPointLigne=0;
2154                       else {
2155                         Standard_Real dbp = Pb.SquareDistance(PStart);
2156                         if(dbp < dab)
2157                           dminiPointLigne=0;
2158                       }
2159                     }
2160                   }// for( ll ...
2161                 }// if ...
2162               }// for( l ...
2163
2164               if(dminiPointLigne > SeuildPointLigne) {
2165                 PW.Perform(StartParams,UminLig1,VminLig1,UminLig2,VminLig2,UmaxLig1,VmaxLig1,UmaxLig2,VmaxLig2);
2166                 //
2167                 Standard_Boolean bPWIsDone;
2168                 Standard_Integer iPWNbPoints, aNbPointsVer;
2169                 Standard_Real aD11, aD12, aD21, aD22, aDx;
2170                 //
2171                 bPWIsDone=PW.IsDone();
2172                 if(bPWIsDone) {
2173                   iPWNbPoints=PW.NbPoints();
2174                   //
2175                   if( iPWNbPoints > 2 ) {
2176                     RejetLigne = Standard_False;
2177                     Point3dDebut = PW.Value(1).Value();
2178                     Point3dFin   = PW.Value(iPWNbPoints).Value();
2179                     for( ver = 1; (!RejetLigne) && (ver<= NbLigCalculee); ++ver) {
2180                       const Handle(IntPatch_WLine)& verwline = *((Handle(IntPatch_WLine)*)&SLin.Value(ver));
2181                       //
2182                       aNbPointsVer=verwline->NbPnts();
2183                       if (aNbPointsVer<3) {
2184                         continue;
2185                       }
2186                       //
2187                       const IntSurf_PntOn2S& verPointDebut = verwline->Point(1);
2188                       const IntSurf_PntOn2S& verPointFin = verwline->Point(verwline->NbPnts());
2189                       //xf
2190                       const gp_Pnt& aP21=verPointDebut.Value();
2191                       const gp_Pnt& aP22=verPointFin.Value();
2192                       //
2193                       aD11=Point3dDebut.Distance(aP21);
2194                       aD12=Point3dDebut.Distance(aP22);
2195                       aD21=Point3dFin.Distance(aP21);
2196                       aD22=Point3dFin.Distance(aP22);
2197                       //
2198                       if((aD11<=TolTangency && aD22<=TolTangency) ||
2199                          (aD12<=TolTangency && aD21<=TolTangency)) {
2200                         Standard_Integer m, mx;
2201                         //
2202                         mx=aNbPointsVer/2;
2203                         if (aNbPointsVer%2) {
2204                           ++mx;
2205                         }
2206                         //
2207                         const gp_Pnt& aPx=verwline->Point(mx).Value();
2208                         for(m=1; m<iPWNbPoints; ++m){
2209                           const gp_Pnt& aP1=PW.Value(m).Value();
2210                           const gp_Pnt& aP2=PW.Value(m+1).Value();
2211                           gp_Vec aVec12(aP1, aP2);
2212                           if (aVec12.SquareMagnitude()<1.e-20){
2213                             continue;
2214                           }
2215                           //
2216                           gp_Dir aDir12(aVec12);
2217                           gp_Lin aLin12(aP1, aDir12);
2218                           aDx=aLin12.Distance(aPx);
2219                           //modified by NIZNHY-PKV Tue May 10 11:08:07 2011f
2220                           if (aDx<=2.*Epsilon) {
2221                           //if (aDx<=TolTangency) {
2222                           //modified by NIZNHY-PKV Tue May 10 11:08:13 2011t
2223                             RejetLigne = Standard_True;
2224                             break;
2225                           }
2226                         }//for(m=1; m<iPWNbPoints; ++m){
2227                       }//if((aD11<=TolTangency && aD22<=TolTangency) ||...
2228                     }// for( ver = 1 ; (!RejetLigne) && (ver<= NbLigCalculee) ; ver++) {
2229                     //
2230                     if(!RejetLigne) {
2231                       IntSurf_TypeTrans trans1,trans2;
2232                       Standard_Real locu,locv;
2233                       gp_Vec norm1,norm2,d1u,d1v;
2234                       gp_Pnt ptbid;
2235                       Standard_Integer indextg;
2236                       gp_Vec tgline(PW.TangentAtLine(indextg));
2237                       PW.Line()->Value(indextg).ParametersOnS1(locu,locv);
2238                       Surf1->D1(locu,locv,ptbid,d1u,d1v);
2239                       norm1 = d1u.Crossed(d1v);
2240                       PW.Line()->Value(indextg).ParametersOnS2(locu,locv);
2241                       Surf2->D1(locu,locv,ptbid,d1u,d1v);
2242                       norm2 = d1u.Crossed(d1v);
2243                       if( tgline.DotCross(norm2,norm1) >= 0. ) {
2244                         trans1 = IntSurf_Out;
2245                         trans2 = IntSurf_In;
2246                       }
2247                       else {
2248                         trans1 = IntSurf_In;
2249                         trans2 = IntSurf_Out;
2250                       }
2251
2252                       Standard_Real TolTang = TolTangency;
2253                       Handle(IntPatch_WLine) wline = new IntPatch_WLine(PW.Line(),Standard_False,trans1,trans2);
2254                       IntPatch_RstInt::PutVertexOnLine(wline,Surf1,D1,Surf2,Standard_True,TolTang);
2255                       IntPatch_RstInt::PutVertexOnLine(wline,Surf2,D2,Surf1,Standard_False,TolTang);
2256
2257                       if(wline->NbVertex() == 0) {
2258                         IntPatch_Point vtx;
2259                         IntSurf_PntOn2S POn2S = PW.Line()->Value(1);
2260                         POn2S.Parameters(pu1,pv1,pu2,pv2);
2261                         vtx.SetValue(Point3dDebut,TolTang,Standard_False);
2262                         vtx.SetParameters(pu1,pv1,pu2,pv2);
2263                         vtx.SetParameter(1);
2264                         wline->AddVertex(vtx);
2265
2266                         POn2S = PW.Line()->Value(wline->NbPnts());
2267                         POn2S.Parameters(pu1,pv1,pu2,pv2);
2268                         vtx.SetValue(Point3dFin,TolTang,Standard_False);
2269                         vtx.SetParameters(pu1,pv1,pu2,pv2);
2270                         vtx.SetParameter(wline->NbPnts());
2271                         wline->AddVertex(vtx);
2272                       }
2273
2274                       lignetrouvee = Standard_True;
2275
2276                       Standard_Integer slinlen = SLin.Length();
2277                       if( slinlen > 0 ) {
2278                         Standard_Integer cnbV = wline->NbVertex();
2279                         Standard_Integer ciV;
2280                         for( ciV = 1; ciV <= cnbV; ciV++ ) {
2281                           Standard_Real pntDMin = 1.e+100;
2282                           Standard_Integer VDMin = 0;
2283                           Standard_Integer WLDMin = 0;
2284                           gp_Pnt cPV = wline->Vertex(ciV).Value();
2285                           Standard_Integer iL;
2286                           for( iL = 1; iL <= slinlen; iL++) {
2287                             const Handle(IntPatch_Line)& aSLine = SLin.Value(iL);
2288                             IntPatch_IType aType = aSLine->ArcType();
2289                             if( aType != IntPatch_Walking)
2290                               continue;
2291                             const Handle(IntPatch_WLine)&  aWLine = (*((Handle(IntPatch_WLine)*)&aSLine));
2292                             Standard_Integer tnbV = aWLine->NbVertex();
2293                             Standard_Integer tiV;
2294                             for( tiV = 1; tiV <= tnbV; tiV++ ) {
2295                               gp_Pnt tPV = aWLine->Vertex(tiV).Value();
2296                               Standard_Real tDistance = cPV.Distance(tPV);
2297                               Standard_Real uRs1 = Surf1->Surface().UResolution(tDistance);
2298                               Standard_Real vRs1 = Surf1->Surface().VResolution(tDistance);
2299                               Standard_Real uRs2 = Surf2->Surface().UResolution(tDistance);
2300                               Standard_Real vRs2 = Surf2->Surface().VResolution(tDistance);
2301                               Standard_Real RmaxS1 = Max(uRs1,vRs1);
2302                               Standard_Real RmaxS2 = Max(uRs2,vRs2);
2303                               if(RmaxS1 < 1.e-4 && RmaxS2 < 1.e-4) {
2304                                 if( pntDMin > tDistance && tDistance > 1.e-9) {
2305                                   pntDMin = tDistance;
2306                                   VDMin = tiV;
2307                                   WLDMin = iL;
2308                                 }
2309                               }
2310                             }
2311                           }
2312
2313                           if( VDMin != 0 ) {
2314                             const Handle(IntPatch_Line)& aSLine = SLin.Value(WLDMin);
2315                             const Handle(IntPatch_WLine)&  aWLine = (*((Handle(IntPatch_WLine)*)&aSLine));
2316                             Standard_Integer tiVpar = (Standard_Integer)aWLine->Vertex(VDMin).ParameterOnLine();
2317                             Standard_Integer ciVpar = (Standard_Integer)wline->Vertex(ciV).ParameterOnLine();
2318                             Standard_Real u11 = 0., u12 = 0., v11 = 0., v12 = 0.;
2319                             Standard_Real u21 = 0., u22 = 0., v21 = 0., v22 = 0.;
2320                             wline->Point(ciVpar).Parameters(u11,v11,u12,v12);
2321                             aWLine->Point(tiVpar).Parameters(u21,v21,u22,v22);
2322
2323                             Handle(IntSurf_LineOn2S) newL2s = new IntSurf_LineOn2S();
2324                             IntSurf_PntOn2S replacePnt = aWLine->Point(tiVpar);
2325                             Standard_Integer cNbP = wline->NbPnts();
2326
2327                             TColStd_SequenceOfInteger VPold;
2328                             Standard_Integer iPo;
2329                             for( iPo = 1; iPo <= cnbV; iPo++ ) {
2330                               Standard_Real Po = wline->Vertex(iPo).ParameterOnLine();
2331                               Standard_Integer IPo = (Standard_Integer) Po;
2332                               VPold.Append(IPo);
2333                             }
2334
2335                             Standard_Boolean removeNext = Standard_False;
2336                             Standard_Boolean removePrev = Standard_False;
2337                             if( ciV == 1) {
2338                               Standard_Integer dPar = Abs( VPold.Value(ciV) - VPold.Value(ciV+1));
2339                               if(dPar > 10) {
2340                                 removeNext = Standard_True;
2341                                 for( iPo = (ciV+1); iPo <= cnbV; iPo++ )
2342                                   VPold.SetValue(iPo, VPold.Value(iPo) - 1 );
2343                               }
2344                             }
2345                             else if( ciV == cnbV) {
2346                               Standard_Integer dPar = Abs( VPold.Value(ciV) - VPold.Value(ciV-1));
2347                               if(dPar > 10) {
2348                                 removePrev = Standard_True;
2349                                 VPold.SetValue(ciV, VPold.Value(ciV) - 1 );
2350                               }
2351                             }
2352                             else {
2353                               Standard_Integer dParMi = Abs( VPold.Value(ciV) - VPold.Value(ciV-1));
2354                               Standard_Integer dParMa = Abs( VPold.Value(ciV) - VPold.Value(ciV+1));
2355                               if(dParMi > 10) {
2356                                 removePrev = Standard_True;
2357                                 VPold.SetValue(ciV, VPold.Value(ciV) - 1 );
2358                               }
2359                               if(dParMa > 10) {
2360                                 removeNext = Standard_True;
2361                                 for( iPo = (ciV+1); iPo <= cnbV; iPo++ ) {
2362                                   if(dParMi > 10)
2363                                     VPold.SetValue(iPo, VPold.Value(iPo) - 2 );
2364                                   else
2365                                     VPold.SetValue(iPo, VPold.Value(iPo) - 1 );
2366                                 }
2367                               }
2368                               else {
2369                                 if(dParMi > 10)
2370                                   for( iPo = (ciV+1); iPo <= cnbV; iPo++ )
2371                                     VPold.SetValue(iPo, VPold.Value(iPo) - 1 );
2372                               }
2373                             }
2374                             Standard_Integer pI = (Standard_Integer) ciVpar;
2375
2376                             Standard_Integer iP;
2377                             for( iP = 1; iP <= cNbP; iP++) {
2378                               if( pI == iP )
2379                                 newL2s->Add(replacePnt);
2380                               else if(removeNext && iP == (pI + 1))
2381                                 continue;
2382                               else if(removePrev && iP == (pI - 1))
2383                                 continue;
2384                               else
2385                                 newL2s->Add(wline->Point(iP));
2386                             }
2387
2388                             IntPatch_Point newVtx;
2389                             gp_Pnt Pnt3dV = aWLine->Vertex(VDMin).Value();
2390                             newVtx.SetValue(Pnt3dV,TolTang,Standard_False);
2391                             newVtx.SetParameters(u21,v21,u22,v22);
2392                             newVtx.SetParameter(VPold.Value(ciV));
2393
2394                             Handle(IntPatch_WLine) NWLine = new IntPatch_WLine(newL2s,Standard_False,trans1,trans2);
2395
2396                             Standard_Integer iV;
2397                             for( iV = 1; iV <= cnbV; iV++ ) {
2398                               if( iV == ciV )
2399                                 NWLine->AddVertex(newVtx);
2400                               else {
2401                                 IntPatch_Point theVtx = wline->Vertex(iV);
2402                                 theVtx.SetParameter(VPold.Value(iV));
2403                                 NWLine->AddVertex(theVtx);
2404                               }
2405                             }
2406
2407                             wline = NWLine;
2408                           }
2409                         }
2410                       }// SLin.Length > 0
2411
2412                       SLin.Append(wline);
2413                       empt = Standard_False;
2414                     }// !RejetLigne
2415                   }// PW points > 2
2416                 }// done is True
2417               }// dminiPointLigne > SeuildPointLigne
2418             }// HasStartPoint
2419           }// if TabPtDep[nbps2] == 0
2420         } while(nbp>5 && !( (NombreDePointsDeDepartDuCheminement >= NbDePointsDeDepartDuChmLimit && lignetrouvee) ||
2421                             (NombreDePointsDeDepartDuCheminement-3 >= nbp && (!lignetrouvee))));
2422         delete [] TabPtDep;
2423       }// for( ls ...
2424
2425       delete [] TabL;
2426
2427     }// if nbLigSec >= 1
2428     //
2429     AdjustOnPeriodic(Surf1, Surf2, SLin);
2430     //
2431
2432     //--------------------------------------------------------------------
2433     //-- Calcul des parametres approches a partir des Zones De Tangence --
2434     //--------------------------------------------------------------------
2435     Standard_Real UminLig1,VminLig1,UmaxLig1,VmaxLig1;
2436     Standard_Real UminLig2,VminLig2,UmaxLig2,VmaxLig2;
2437
2438     UminLig1=VminLig1=UminLig2=VminLig2=RealLast();
2439     UmaxLig1=VmaxLig1=UmaxLig2=VmaxLig2=-UminLig1;
2440
2441     // NbPointsInTangentZone always == 1 (eap)
2442
2443     Standard_Integer z;
2444     for( z=1; z <= nbTanZon; z++) {
2445       //Standard_Integer NbPointsInTangentZone=Interference.NbPointsInTangentZone(z);
2446       //for(Standard_Integer pz=1; pz<=NbPointsInTangentZone; pz++) {
2447         Standard_Integer pz=1;
2448         Standard_Real _x,_y,_z;
2449         Interference.GetTangentZonePoint(z,pz,_x,_y,_z,U1,V1,U2,V2);
2450
2451         if(U1>UmaxLig1) UmaxLig1=U1;
2452         if(V1>VmaxLig1) VmaxLig1=V1;
2453         if(U2>UmaxLig2) UmaxLig2=U2;
2454         if(V2>VmaxLig2) VmaxLig2=V2;
2455
2456         if(U1<UminLig1) UminLig1=U1;
2457         if(V1<VminLig1) VminLig1=V1;
2458         if(U2<UminLig2) UminLig2=U2;
2459         if(V2<VminLig2) VminLig2=V2;
2460       //}
2461     }
2462     for(z=1; z <= nbTanZon; z++) {
2463
2464       //Standard_Integer NbPointsInTangentZone=Interference.NbPointsInTangentZone(z);
2465       //for(Standard_Integer pz=1; pz<=NbPointsInTangentZone; pz++) {
2466         Standard_Integer pz=1;
2467         Standard_Real _x,_y,_z;
2468         Interference.GetTangentZonePoint(z,pz,_x,_y,_z,U1,V1,U2,V2);
2469
2470         StartParams(1) = U1;
2471         StartParams(2) = V1;
2472         StartParams(3) = U2;
2473         StartParams(4) = V2;
2474
2475         //-----------------------------------------------------------------------
2476         //-- Calcul du premier point de cheminement a partir du point approche --
2477         //-----------------------------------------------------------------------
2478         HasStartPoint = PW.PerformFirstPoint(StartParams,StartPOn2S);
2479         if(HasStartPoint) {
2480           //-------------------------------------------------
2481           //-- Un point a ete trouve                       --
2482           //-- On verifie qu il n appartient pas           --
2483           //--  a une ligne de cheminement deja calculee.  --
2484           //-------------------------------------------------
2485           StartPOn2S.Parameters(pu1,pv1,pu2,pv2);
2486
2487           NbLigCalculee = SLin.Length();
2488           dminiPointLigne = SeuildPointLigne + SeuildPointLigne;
2489
2490           for(Standard_Integer l=1;
2491               (l <= NbLigCalculee) && (dminiPointLigne >= SeuildPointLigne);
2492               l++) {
2493             Handle(IntPatch_WLine)& testwline = *((Handle(IntPatch_WLine)*)&SLin.ChangeValue(l));
2494
2495             if(  (testwline->IsOutSurf1Box(gp_Pnt2d(pu1,pv1))==Standard_False)
2496                &&(testwline->IsOutSurf2Box(gp_Pnt2d(pu2,pv2))==Standard_False)
2497                &&(testwline->IsOutBox(StartPOn2S.Value())==Standard_False)) {
2498
2499
2500               //-- Handle(IntPatch_WLine) testwline=Handle(IntPatch_WLine)::DownCast(SLin.Value(l));
2501               NbPntOn2SOnLine = testwline->NbPnts();
2502               for(Standard_Integer ll=1;
2503                   (ll < NbPntOn2SOnLine) && (dminiPointLigne >= SeuildPointLigne);
2504                   ll++) {
2505                 const gp_Pnt& Pa = testwline->Point(ll).Value();
2506                 const gp_Pnt& Pb = testwline->Point(ll+1).Value();
2507                 const gp_Pnt& PStart=StartPOn2S.Value();
2508                 gp_Vec AM(Pa,PStart);
2509                 gp_Vec MB(PStart,Pb);
2510                 Standard_Real AMMB = AM.Dot(MB);
2511                 if(AMMB > 0.0) {
2512                   gp_Dir ABN(Pb.X()-Pa.X(),Pb.Y()-Pa.Y(),Pb.Z()-Pa.Z());
2513                   Standard_Real lan =  ABN.X()*AM.X()+ABN.Y()*AM.Y()+ABN.Z()*AM.Z();
2514                   gp_Vec AH(lan*ABN.X(),lan*ABN.Y(),lan*ABN.Z());
2515                   gp_Vec HM(AM.X()-AH.X(),AM.Y()-AH.Y(),AM.Z()-AH.Z());
2516
2517                   Standard_Real d = 0.0;
2518                   if(HM.X() < Deflection) {
2519                     d+=HM.X()*HM.X();
2520                     if(HM.Y() < Deflection) {
2521                       d+=HM.Y()*HM.Y();
2522                       if(HM.Z() < Deflection) {
2523                         d+=HM.Z()*HM.Z();
2524                       }
2525                       else {
2526                         d=Deflection2;
2527                       }
2528                     }
2529                     else {
2530                       d=Deflection2;
2531                     }
2532                   }
2533                   else {
2534                     d=Deflection2;
2535                   }
2536                   if(d<Deflection2) {
2537                     dminiPointLigne = 0.0;
2538                   }
2539                 }
2540                 else {
2541                   Standard_Real dab = Pa.Distance(Pb);
2542                   Standard_Real dap = Pa.Distance(PStart);
2543                   if(dap < dab) {
2544                     dminiPointLigne=0;
2545                   }
2546                   else {
2547                     Standard_Real dbp = Pb.Distance(PStart);
2548                     if(dbp < dab) {
2549                       dminiPointLigne=0;
2550                     }
2551                   }
2552                 }
2553               }
2554             } //-- rejection sur les boites
2555           }
2556
2557
2558           //-- Fin d exploration des lignes
2559           if(dminiPointLigne > SeuildPointLigne) {
2560             //---------------------------------------------------
2561             //-- Le point de depart du nouveau cheminement     --
2562             //-- n est present dans aucune ligne deja calculee.--
2563             //---------------------------------------------------
2564             PW.Perform(StartParams,
2565                          UminLig1,VminLig1,UminLig2,VminLig2,
2566                          UmaxLig1,VmaxLig1,UmaxLig2,VmaxLig2);
2567             if(PW.IsDone()) {
2568               if(PW.NbPoints()>2) {
2569                 //-----------------------------------------------
2570                 //-- Verification a posteriori :
2571                 //-- On teste si le point de depart et de fin de
2572                 //-- la ligne de cheminement est present dans une
2573                 //-- autre ligne .
2574                 //-----------------------------------------------
2575                 RejetLigne = Standard_False;
2576                 Point3dDebut = PW.Value(1).Value();
2577                 Point3dFin   = PW.Value(PW.NbPoints()).Value();
2578
2579                 for(ver=1 ; (!RejetLigne) && (ver<= NbLigCalculee) ; ver++) {
2580                   const Handle(IntPatch_WLine)& verwline = *((Handle(IntPatch_WLine)*)&SLin.Value(ver));
2581                   //-- Handle(IntPatch_WLine) verwline=Handle(IntPatch_WLine)::DownCast(SLin.Value(ver));
2582                   const IntSurf_PntOn2S& verPointDebut = verwline->Point(1);
2583                   const IntSurf_PntOn2S& verPointFin   = verwline->Point(verwline->NbPnts());
2584                   if(Point3dDebut.Distance(verPointDebut.Value()) < TolTangency) {
2585                     RejetLigne = Standard_True;
2586                   }
2587                   else {
2588                     if(Point3dFin.Distance(verPointFin.Value()) < TolTangency) {
2589                       RejetLigne = Standard_True;
2590                     }
2591                   }
2592                 }
2593
2594                 if(!RejetLigne) {
2595
2596                   IntSurf_TypeTrans trans1,trans2;
2597                   Standard_Real locu,locv;
2598                   gp_Vec norm1,norm2,d1u,d1v;
2599                   gp_Pnt ptbid;
2600                   Standard_Integer indextg;
2601                   gp_Vec tgline(PW.TangentAtLine(indextg));
2602                   PW.Line()->Value(indextg).ParametersOnS1(locu,locv);
2603                   Surf1->D1(locu,locv,ptbid,d1u,d1v);
2604                   norm1 = d1u.Crossed(d1v);
2605                   PW.Line()->Value(indextg).ParametersOnS2(locu,locv);
2606                   Surf2->D1(locu,locv,ptbid,d1u,d1v);
2607                   norm2 = d1u.Crossed(d1v);
2608                   if (tgline.DotCross(norm2,norm1)>0.) {
2609                     trans1 = IntSurf_Out;
2610                     trans2 = IntSurf_In;
2611                   }
2612                   else {
2613                     trans1 = IntSurf_In;
2614                     trans2 = IntSurf_Out;
2615                   }
2616
2617
2618
2619                   Standard_Real TolTang = TolTangency;
2620                   Handle(IntPatch_WLine) wline = new IntPatch_WLine(PW.Line(),Standard_False,trans1,trans2);
2621                   IntPatch_RstInt::PutVertexOnLine(wline,Surf1,D1,Surf2,Standard_True,TolTang);
2622                   IntPatch_RstInt::PutVertexOnLine(wline,Surf2,D2,Surf1,Standard_False,TolTang);
2623
2624                   //---------------
2625                     if(wline->NbVertex() == 0) {
2626                       IntPatch_Point vtx;
2627                       IntSurf_PntOn2S POn2S = PW.Line()->Value(1);
2628                       POn2S.Parameters(pu1,pv1,pu2,pv2);
2629                       vtx.SetValue(Point3dDebut,TolTang,Standard_False);
2630                       vtx.SetParameters(pu1,pv1,pu2,pv2);
2631                       vtx.SetParameter(1);
2632                       wline->AddVertex(vtx);
2633
2634                       POn2S = PW.Line()->Value(wline->NbPnts());
2635                       POn2S.Parameters(pu1,pv1,pu2,pv2);
2636                       vtx.SetValue(Point3dFin,TolTang,Standard_False);
2637                       vtx.SetParameters(pu1,pv1,pu2,pv2);
2638                       vtx.SetParameter(wline->NbPnts());
2639                       wline->AddVertex(vtx);
2640                     }
2641
2642                   //---------------
2643                   SLin.Append(wline);
2644                   empt = Standard_False;
2645
2646                 }
2647                 else {
2648                   //-- cout<<" ----- REJET DE LIGNE (POINT DE DEPART) ----- "<<endl;
2649                 }
2650                 //------------------------------------------------------------
2651               }
2652             }  //--  le cheminement a reussi (done a True)
2653           }  //--  le point approche ne renvoie pas sur une ligne existante
2654         } //-- Si HasStartPoint
2655       //} //-- Boucle Sur les Points de la Tangent Zone
2656     } //-- Boucle sur Les Tangent Zones
2657
2658     if ( pInterference ) {
2659       delete pInterference;
2660       pInterference = NULL;
2661     }
2662     return;
2663   }// if((NbU1*NbV1<=Limit && NbV2*NbU2<=Limit)) {
2664
2665   Handle(IntSurf_LineOn2S) LOn2S = new IntSurf_LineOn2S();
2666   PointDepart( LOn2S, Surf1, NbU1, NbV1, Surf2, NbU2, NbV2 );
2667   empt = Standard_True;
2668   done = Standard_True;
2669   SLin.Clear();
2670   Standard_Real Deflection2 = Deflection*Deflection;
2671
2672   Standard_Integer NbPntOn2SOnLine;
2673   Standard_Integer NbLigCalculee = 0;
2674   Standard_Real U1,U2,V1,V2;
2675   Standard_Real pu1,pu2,pv1,pv2;
2676
2677   TColStd_Array1OfReal StartParams(1,4);
2678   Standard_Integer MaxOscill = NbU1;
2679   if(MaxOscill < NbU2) MaxOscill=NbU2;
2680   if(MaxOscill < NbV1) MaxOscill=NbV1;
2681   if(MaxOscill < NbV2) MaxOscill=NbV2;
2682
2683   Standard_Real nIncrement=Increment;
2684   //if(MaxOscill>10)
2685     //nIncrement/=0.5*MaxOscill;
2686
2687   IntPatch_ThePWalkingInter PW(Surf1,Surf2,TolTangency,Epsilon,Deflection,nIncrement);
2688   Standard_Real    SeuildPointLigne = 15.0 * Increment * Increment; //-- 10 est insuffisant
2689   Standard_Real    dminiPointLigne;
2690   Standard_Boolean HasStartPoint,RejetLigne;
2691   IntSurf_PntOn2S StartPOn2S;
2692   Standard_Integer ver;
2693   gp_Pnt Point3dDebut,Point3dFin;
2694
2695   //------------------------------------------------------------
2696   //-- Calcul des parametres approches a partir des Zones De Tangence --
2697   //--------------------------------------------------------------------
2698   Standard_Integer nbTanZon = LOn2S->NbPoints();
2699   for(Standard_Integer z=1; z <= nbTanZon; z++) {
2700     const IntSurf_PntOn2S& POn2S = LOn2S->Value(z);
2701     POn2S.Parameters(U1,V1,U2,V2);
2702     StartParams(1) = U1;
2703     StartParams(2) = V1;
2704     StartParams(3) = U2;
2705     StartParams(4) = V2;
2706
2707     //-----------------------------------------------------------------------
2708     //-- Calcul du premier point de cheminement a partir du point approche --
2709     //-----------------------------------------------------------------------
2710     HasStartPoint = PW.PerformFirstPoint(StartParams,StartPOn2S);
2711     if(HasStartPoint) {
2712       //-------------------------------------------------
2713       //-- Un point a ete trouve                       --
2714       //-- On verifie qu il n appartient pas           --
2715       //--  a une ligne de cheminement deja calculee.  --
2716       //-------------------------------------------------
2717       StartPOn2S.Parameters(pu1,pv1,pu2,pv2);
2718
2719       NbLigCalculee = SLin.Length();
2720       dminiPointLigne = SeuildPointLigne + SeuildPointLigne;
2721
2722       for(Standard_Integer l=1;
2723           (l <= NbLigCalculee) && (dminiPointLigne >= SeuildPointLigne);
2724           l++) {
2725         const Handle(IntPatch_WLine)& testwline = *((Handle(IntPatch_WLine)*)&SLin.Value(l));
2726
2727         if(  (testwline->IsOutSurf1Box(gp_Pnt2d(pu1,pv1))==Standard_False)
2728            &&(testwline->IsOutSurf2Box(gp_Pnt2d(pu2,pv2))==Standard_False)
2729            &&(testwline->IsOutBox(StartPOn2S.Value())==Standard_False)) {
2730
2731           NbPntOn2SOnLine = testwline->NbPnts();
2732           for(Standard_Integer ll=1;
2733               (ll < NbPntOn2SOnLine) && (dminiPointLigne >= SeuildPointLigne);
2734               ll++) {
2735
2736             const gp_Pnt& Pa = testwline->Point(ll).Value();
2737             const gp_Pnt& Pb = testwline->Point(ll+1).Value();
2738             const gp_Pnt& PStart=StartPOn2S.Value();
2739             gp_Vec AM(Pa,PStart);
2740             gp_Vec MB(PStart,Pb);
2741             Standard_Real AMMB = AM.Dot(MB);
2742             if(AMMB > 0.0) {
2743               gp_Dir ABN(Pb.X()-Pa.X(),Pb.Y()-Pa.Y(),Pb.Z()-Pa.Z());
2744               Standard_Real lan =  ABN.X()*AM.X()+ABN.Y()*AM.Y()+ABN.Z()*AM.Z();
2745               gp_Vec AH(lan*ABN.X(),lan*ABN.Y(),lan*ABN.Z());
2746               gp_Vec HM(AM.X()-AH.X(),AM.Y()-AH.Y(),AM.Z()-AH.Z());
2747
2748               Standard_Real d = 0.0;
2749               if(HM.X() < Deflection) {
2750                 d+=HM.X()*HM.X();
2751                 if(HM.Y() < Deflection) {
2752                   d+=HM.Y()*HM.Y();
2753                   if(HM.Z() < Deflection) {
2754                     d+=HM.Z()*HM.Z();
2755                   }
2756                   else {
2757                     d=Deflection2;
2758                   }
2759                 }
2760                 else {
2761                   d=Deflection2;
2762                 }
2763               }
2764               else {
2765                 d=Deflection2;
2766               }
2767               if(d<Deflection2) {
2768                 dminiPointLigne = 0.0;
2769               }
2770             }
2771             else {
2772               Standard_Real dab = Pa.Distance(Pb);
2773               Standard_Real dap = Pa.Distance(PStart);
2774               if(dap < dab) {
2775                 dminiPointLigne=0;
2776               }
2777               else {
2778                 Standard_Real dbp = Pb.Distance(PStart);
2779                 if(dbp < dab) {
2780                   dminiPointLigne=0;
2781                 }
2782               }
2783             }
2784           }
2785         } //-- Rejections Boites
2786         //--      else {
2787         //--        cout<<" Rejet Boites "<<endl;
2788         //--      }
2789       }
2790
2791
2792       //-- Fin d exploration des lignes
2793       if(dminiPointLigne > SeuildPointLigne) {
2794         //---------------------------------------------------
2795         //-- Le point de depart du nouveau cheminement     --
2796         //-- n est present dans aucune ligne deja calculee.--
2797         //---------------------------------------------------
2798         PW.Perform(StartParams);
2799         if(PW.IsDone()) {
2800           if(PW.NbPoints()>2) {
2801             //-----------------------------------------------
2802             //-- Verification a posteriori :
2803             //-- On teste si le point de depart et de fin de
2804             //-- la ligne de cheminement est present dans une
2805             //-- autre ligne .
2806             //-----------------------------------------------
2807             RejetLigne = Standard_False;
2808             Point3dDebut = PW.Value(1).Value();
2809             Point3dFin   = PW.Value(PW.NbPoints()).Value();
2810
2811             for(ver=1 ; (!RejetLigne) && (ver<= NbLigCalculee) ; ver++) {
2812               const Handle(IntPatch_WLine)& verwline = *((Handle(IntPatch_WLine)*)&SLin.Value(ver));
2813               //-- Handle(IntPatch_WLine) verwline=Handle(IntPatch_WLine)::DownCast(SLin.Value(ver));
2814               const IntSurf_PntOn2S& verPointDebut = verwline->Point(1);
2815               const IntSurf_PntOn2S& verPointFin   = verwline->Point(verwline->NbPnts());
2816               if(Point3dDebut.Distance(verPointDebut.Value()) < TolTangency) {
2817                 RejetLigne = Standard_True;
2818               }
2819               else {
2820                 if(Point3dFin.Distance(verPointFin.Value()) < TolTangency) {
2821                   RejetLigne = Standard_True;
2822                 }
2823               }
2824             }
2825
2826             if(!RejetLigne) {
2827
2828               IntSurf_TypeTrans trans1,trans2;
2829               Standard_Real locu,locv;
2830               gp_Vec norm1,norm2,d1u,d1v;
2831               gp_Pnt ptbid;
2832               Standard_Integer indextg;
2833               gp_Vec tgline(PW.TangentAtLine(indextg));
2834               PW.Line()->Value(indextg).ParametersOnS1(locu,locv);
2835               Surf1->D1(locu,locv,ptbid,d1u,d1v);
2836               norm1 = d1u.Crossed(d1v);
2837               PW.Line()->Value(indextg).ParametersOnS2(locu,locv);
2838               Surf2->D1(locu,locv,ptbid,d1u,d1v);
2839               norm2 = d1u.Crossed(d1v);
2840               if (tgline.DotCross(norm2,norm1)>0.) {
2841                 trans1 = IntSurf_Out;
2842                 trans2 = IntSurf_In;
2843               }
2844               else {
2845                 trans1 = IntSurf_In;
2846                 trans2 = IntSurf_Out;
2847               }
2848
2849
2850
2851               Standard_Real TolTang = TolTangency;
2852               Handle(IntPatch_WLine) wline = new IntPatch_WLine(PW.Line(),Standard_False,trans1,trans2);
2853               IntPatch_RstInt::PutVertexOnLine(wline,Surf1,D1,Surf2,Standard_True,TolTang);
2854               IntPatch_RstInt::PutVertexOnLine(wline,Surf2,D2,Surf1,Standard_False,TolTang);
2855
2856               //---------------
2857               if(wline->NbVertex() == 0) {
2858                 IntPatch_Point vtx;
2859                 const IntSurf_PntOn2S& POn2Sf = PW.Line()->Value(1);
2860                 POn2Sf.Parameters(pu1,pv1,pu2,pv2);
2861                 vtx.SetValue(Point3dDebut,TolTang,Standard_False);
2862                 vtx.SetParameters(pu1,pv1,pu2,pv2);
2863                 vtx.SetParameter(1);
2864                 wline->AddVertex(vtx);
2865
2866                 const IntSurf_PntOn2S& POn2Sl = PW.Line()->Value(wline->NbPnts());
2867                 POn2Sl.Parameters(pu1,pv1,pu2,pv2);
2868                 vtx.SetValue(Point3dFin,TolTang,Standard_False);
2869                 vtx.SetParameters(pu1,pv1,pu2,pv2);
2870                 vtx.SetParameter(wline->NbPnts());
2871                 wline->AddVertex(vtx);
2872               }
2873
2874               //---------------
2875               SLin.Append(wline);
2876               empt = Standard_False;
2877
2878             }
2879             else {
2880               //-- cout<<" ----- REJET DE LIGNE (POINT DE DEPART) ----- "<<endl;
2881             }
2882             //------------------------------------------------------------
2883           }
2884         }  //--  le cheminement a reussi (done a True)
2885       }  //--  le point approche ne renvoie pas sur une ligne existante
2886     } //-- Si HasStartPoint
2887   } //-- Boucle sur Les Tangent Zones
2888
2889 }
2890 //modified by NIZNHY-PKV Wed May 25 09:39:07 2011f
2891 //=======================================================================
2892 //class : IntPatch_InfoPD
2893 //purpose  :
2894 //=======================================================================
2895 class IntPatch_InfoPD {
2896  public:
2897   //----------------------------------------C-tor
2898   IntPatch_InfoPD(const Standard_Integer aNBI) {
2899     Standard_Integer aNBI2, i, j;
2900     myNBI=aNBI;
2901     //
2902     aNBI2=aNBI*aNBI;
2903     myP1DS2=new char[aNBI2];
2904     myP2DS1=new char[aNBI2];
2905     myIP1=new Standard_Integer[aNBI2];
2906     myIP2=new Standard_Integer[aNBI2];
2907     myP1=new gp_Pnt[aNBI2];
2908     myP2=new gp_Pnt[aNBI2];
2909     //
2910     for (i=0; i<myNBI; ++i) {
2911       for (j=0; j<myNBI; ++j) {
2912         xP1DS2(i, j)=0;
2913         xP2DS1(i, j)=0;
2914         xIP1(i, j)=0;
2915         xIP2(i, j)=0;
2916         xP1(i, j).SetCoord(0., 0., 0.);
2917         xP2(i, j).SetCoord(0., 0., 0.);
2918       }
2919     }
2920   };
2921   //---------------------------------------- D-tor
2922   ~IntPatch_InfoPD() {
2923     delete [] (char*) myP1DS2;
2924     delete [] (char*) myP2DS1;
2925     delete [] (Standard_Integer*) myIP1;
2926     delete [] (Standard_Integer*) myIP2;
2927     delete [] (gp_Pnt*)myP1;
2928     delete [] (gp_Pnt*)myP2;
2929   };
2930   //---------------------------------------- Index
2931   Standard_Integer Index(const Standard_Integer i,
2932                          const Standard_Integer j) const {
2933     return i*myNBI+j;
2934   };
2935   //---------------------------------------- NBI
2936   Standard_Integer NBI() const {
2937     return myNBI;
2938   };
2939   //----------------------------------------xP1DS2
2940   char& xP1DS2(const Standard_Integer i,
2941                const Standard_Integer j) {
2942     return myP1DS2[Index(i,j)];
2943   };
2944   //----------------------------------------xP2DS1
2945   char& xP2DS1(const Standard_Integer i,
2946                const Standard_Integer j) {
2947     return myP2DS1[Index(i,j)];
2948   };
2949   //----------------------------------------xIP1
2950   Standard_Integer& xIP1(const Standard_Integer i,
2951                          const Standard_Integer j) {
2952     return myIP1[Index(i,j)];
2953   };
2954   //----------------------------------------xIP2
2955   Standard_Integer& xIP2(const Standard_Integer i,
2956                          const Standard_Integer j) {
2957     return myIP2[Index(i,j)];
2958   };
2959   //----------------------------------------xP1
2960   gp_Pnt& xP1(const Standard_Integer i,
2961               const Standard_Integer j) {
2962     return myP1[Index(i,j)];
2963   };
2964   //----------------------------------------xP1
2965   gp_Pnt& xP2(const Standard_Integer i,
2966               const Standard_Integer j) {
2967     return myP2[Index(i,j)];
2968   };
2969  protected:
2970   Standard_Integer myNBI;
2971   char *myP1DS2;
2972   char *myP2DS1;
2973   Standard_Integer *myIP1;
2974   Standard_Integer *myIP2;
2975   gp_Pnt *myP1;
2976   gp_Pnt *myP2;
2977 };
2978 //modified by NIZNHY-PKV Tue May 24 11:38:55 2011t
2979 //==================================================================================
2980 // function : PointDepart
2981 // purpose  :
2982 //==================================================================================
2983 void IntPatch_PrmPrmIntersection::PointDepart(Handle(IntSurf_LineOn2S)& LineOn2S,
2984                                               const Handle(Adaptor3d_HSurface)& S1,
2985                                               const Standard_Integer SU_1,
2986                                               const Standard_Integer SV_1,
2987                                               const Handle(Adaptor3d_HSurface)& S2,
2988                                               const Standard_Integer SU_2,
2989                                               const Standard_Integer SV_2) const
2990 {
2991   Standard_Integer i, j, xNBI;
2992   //modified by NIZNHY-PKV Tue May 24 11:37:38 2011f
2993   xNBI=200;
2994   IntPatch_InfoPD aIPD(xNBI);
2995   //modified by NIZNHY-PKV Wed May 25 06:47:12 2011t
2996   Standard_Integer iC15, SU1, SV1, SU2, SV2;
2997   Standard_Real U0, U1, V0, V1, U, V;
2998   Standard_Real resu0,resu1,resv0,resv1;
2999   Standard_Real  du1,du2,dv1,dv2, dmaxOn1, dmaxOn2;
3000   Standard_Real x0,y0,z0, x1,y1,z1,d;
3001   Bnd_Box Box1, Box2;
3002   //
3003   iC15=15;
3004   SU1 =iC15*SU_1 ;
3005   SV1 =iC15*SV_1 ;
3006   SU2 =iC15*SU_2 ;
3007   SV2 =iC15*SV_2 ;
3008   //
3009   if(xNBI<SU1) {
3010     SU1 = xNBI;
3011   }
3012   if(xNBI<SV1){
3013     SV1 = xNBI;
3014   }
3015   if(xNBI<SU2){
3016     SU2 = xNBI;
3017   }
3018   if(xNBI<SV2){
3019     SV2 = xNBI;
3020   }
3021   //
3022   U0 = S1->FirstUParameter();
3023   U1 = S1->LastUParameter();
3024   V0 = S1->FirstVParameter();
3025   V1 = S1->LastVParameter();
3026   //
3027   resu0=U0;
3028   resu1=U1;
3029   resv1=V1;
3030   resv0=V0;
3031   //
3032   dmaxOn1 = 0.0;
3033   dmaxOn2 = 0.0;
3034   //-----
3035   du1 = (U1-U0)/(SU1-1);
3036   dv1 = (V1-V0)/(SV1-1);
3037   for(U=U0,i=0; i<SU1; i++,U+=du1) {
3038     for(V=V0,j=0; j<SV1; V+=dv1,j++) {
3039       aIPD.xP1(i, j)= S1->Value(U,V);
3040       Box1.Add(aIPD.xP1(i, j));
3041       if(i>0 && j>0) {
3042         aIPD.xP1(i, j)    .Coord(x0,y0,z0);
3043         aIPD.xP1(i-1, j-1).Coord(x1,y1,z1);
3044         //
3045         d=Abs(x1-x0)+Abs(y1-y0)+Abs(z1-z0);
3046         if(d>dmaxOn1) {
3047           dmaxOn1 = d;
3048         }
3049       }
3050     }
3051   }
3052   Box1.Enlarge(1.e-8);
3053   //
3054   U0 = S2->FirstUParameter();
3055   U1 = S2->LastUParameter();
3056   V0 = S2->FirstVParameter();
3057   V1 = S2->LastVParameter();
3058   //
3059   du2 = (U1-U0)/(SU2-1);
3060   dv2 = (V1-V0)/(SV2-1);
3061   for(U=U0,i=0; i<SU2; i++,U+=du2) {
3062     for(V=V0,j=0; j<SV2; V+=dv2,j++) {
3063       aIPD.xP2(i, j) = S2->Value(U,V);
3064       Box2.Add(aIPD.xP2(i, j));
3065       if(i>0 && j>0) {
3066         aIPD.xP2(i, j)    .Coord(x0,y0,z0);
3067         aIPD.xP2(i-1, j-1).Coord(x1,y1,z1);
3068         d =  Abs(x1-x0)+Abs(y1-y0)+Abs(z1-z0);
3069         if(d>dmaxOn2) {
3070           dmaxOn2 = d;
3071         }
3072       }
3073     }
3074   }
3075   Box2.Enlarge(1.e-8);
3076   //--------
3077   //
3078   if(Box1.IsOut(Box2)) {
3079
3080     return;
3081   }
3082   //
3083   Standard_Integer aNbPG;
3084   Standard_Real x10,y10,z10,x11,y11,z11;
3085   Standard_Real x20,y20,z20,x21,y21,z21;
3086   Standard_Real dx, dy, dz, dmax;
3087   Standard_Real dx2, dy2, dz2;
3088   //
3089   Box1.Get(x10,y10,z10,x11,y11,z11);
3090   Box2.Get(x20,y20,z20,x21,y21,z21);
3091   //
3092   x0 = (x10>x20)? x10 : x20;
3093   y0 = (y10>y20)? y10 : y20;
3094   z0 = (z10>z20)? z10 : z20;
3095   //
3096   x1 = (x11<x21)? x11 : x21;
3097   y1 = (y11<y21)? y11 : y21;
3098   z1 = (z11<z21)? z11 : z21;
3099   //
3100   if(dmaxOn2 > dmaxOn1) {
3101     dmaxOn1 = dmaxOn2;
3102   }
3103   //
3104   dmaxOn1+=dmaxOn1;
3105   x0-=dmaxOn1;
3106   y0-=dmaxOn1;
3107   z0-=dmaxOn1;
3108   x1+=dmaxOn1;
3109   y1+=dmaxOn1;
3110   z1+=dmaxOn1;
3111   //
3112   x10-=dmaxOn1;   y10-=dmaxOn1;   z10-=dmaxOn1;
3113   x11+=dmaxOn1;   y11+=dmaxOn1;   z11+=dmaxOn1;
3114
3115   x20-=dmaxOn1;   y20-=dmaxOn1;   z20-=dmaxOn1;
3116   x21+=dmaxOn1;   y21+=dmaxOn1;   z21+=dmaxOn1;
3117
3118   aNbPG=NbPointsGrille();
3119   dx = (x1-x0)/aNbPG;
3120   dy = (y1-y0)/aNbPG;
3121   dz = (z1-z0)/aNbPG;
3122   //
3123   dmax = dx;
3124   if(dy>dmax) {
3125     dmax = dy;
3126   }
3127   if(dz>dmax){
3128     dmax = dz;
3129   }
3130   //
3131   if(dx<dmax*0.01) {
3132     dx = dmax*0.01;
3133   }
3134   if(dy<dmax*0.01) {
3135     dy = dmax*0.01;
3136   }
3137   if(dz<dmax*0.01) {
3138     dz = dmax*0.01;
3139   }
3140   //
3141   dx2 = dx*0.5;
3142   dy2 = dy*0.5;
3143   dz2 = dz*0.5 ;
3144   //
3145   IntPatch_PrmPrmIntersection_T3Bits M1(_BASE);
3146   IntPatch_PrmPrmIntersection_T3Bits M2(_BASE);
3147   //
3148   for(i=0;i<SU1;i++) {
3149     for(j=0;j<SV1;j++) {
3150       aIPD.xIP1(i, j)=-1;
3151       const gp_Pnt& P=aIPD.xP1(i, j);
3152       aIPD.xP1DS2(i, j) = CodeReject(x20,y20,z20,x21,y21,z21,P.X(),P.Y(),P.Z());
3153       int ix = (int)((P.X()-x0  + dx2 )/dx);
3154       if(DansGrille(ix)) {
3155         int iy = (int)((P.Y()-y0 + dy2)/dy);
3156         if(DansGrille(iy)) {
3157           int iz = (int)((P.Z()-z0 + dz2)/dz);
3158           if(DansGrille(iz)) {
3159             aIPD.xIP1(i, j) = GrilleInteger(ix,iy,iz);
3160           }
3161         }
3162       }
3163     }
3164   }
3165   //-- cout<<" Grille  du 1 fini "<<endl;
3166   for(i=0;i<SU2;i++) {
3167     for(j=0;j<SV2;j++) {
3168       aIPD.xIP2(i, j)=-1;
3169       const gp_Pnt& P=aIPD.xP2(i, j);
3170       aIPD.xP2DS1(i, j) = CodeReject(x10,y10,z10,x11,y11,z11,P.X(),P.Y(),P.Z());
3171       int ix = (int)((P.X()-x0 + dx2)/dx);
3172       if(DansGrille(ix)) {
3173         int iy = (int)((P.Y()-y0 + dy2)/dy);
3174         if(DansGrille(iy)) {
3175           int iz = (int)((P.Z()-z0 + dz2)/dz);
3176           if(DansGrille(iz)) {
3177             aIPD.xIP2(i, j) =  GrilleInteger(ix,iy,iz);
3178           }
3179         }
3180       }
3181     }
3182   }
3183   //
3184   for(i=0;i<SU1-1;i+=1) {
3185     for(j=0;j<SV1-1;j+=1) {
3186       if(!((aIPD.xP1DS2(i, j) & aIPD.xP1DS2(i+1, j)) ||
3187            (aIPD.xP1DS2(i, j) & aIPD.xP1DS2(i+1, j+1)))){
3188         Remplit(aIPD.xIP1(i, j),
3189                 aIPD.xIP1(i+1, j),
3190                 aIPD.xIP1(i+1, j+1),
3191                 M1);
3192       }
3193       if(!((aIPD.xP1DS2(i, j) & aIPD.xP1DS2(i, j+1)) ||
3194            (aIPD.xP1DS2(i, j) & aIPD.xP1DS2(i+1, j+1)))) {
3195         Remplit(aIPD.xIP1(i, j),
3196                 aIPD.xIP1(i, j+1),
3197                 aIPD.xIP1(i+1, j+1),
3198                 M1);
3199       }
3200     }
3201   }
3202   //
3203   for(i=0;i<SU2-1;i+=1) {
3204     for(j=0;j<SV2-1;j+=1) {
3205       if(!((aIPD.xP2DS1(i, j) & aIPD.xP2DS1(i+1, j)) ||
3206            (aIPD.xP2DS1(i, j) & aIPD.xP2DS1(i+1, j+1)))){
3207         Remplit(aIPD.xIP2(i, j),
3208                 aIPD.xIP2(i+1, j),
3209                 aIPD.xIP2(i+1, j+1),
3210                 M2);
3211       }
3212       if(!((aIPD.xP2DS1(i, j) & aIPD.xP2DS1(i, j+1)) ||
3213            (aIPD.xP2DS1(i, j) & aIPD.xP2DS1(i+1, j+1)))){
3214         Remplit(aIPD.xIP2(i, j),
3215                 aIPD.xIP2(i, j+1),
3216                 aIPD.xIP2(i+1, j+1),
3217                 M2);
3218       }
3219     }
3220   }
3221   //
3222   M1.ResetAnd();
3223   M2.ResetAnd();
3224   //
3225   int newind=0;
3226   long unsigned Compt=0;
3227   int ok=0;
3228   int indicepointtraite = 0;
3229   Standard_Integer k,nu,nv;
3230   //
3231   do {
3232     indicepointtraite--;
3233     ok = M1.And(M2,newind);
3234     if(ok) {
3235       IntegerGrille(newind,i,j,k);
3236       int nb=0;
3237       int LIM=3;
3238       if(   DansGrille(i-1) && DansGrille(j-1) && DansGrille(k-1)
3239          && DansGrille(i+1) && DansGrille(j+1) && DansGrille(k+1)) {
3240         int si,sj,sk;
3241         for(si=-1; si<= 1 && nb<LIM; si++) {
3242           for(sj=-1; sj<= 1 && nb<LIM; sj++) {
3243             for(sk=-1; sk<= 1 && nb<LIM; sk++) {
3244               long unsigned lu=GrilleInteger(i+si,j+sj,k+sk);
3245               if(M1.Val(lu) && M2.Val(lu)) {
3246                 nb++;
3247               }
3248             }
3249           }
3250         }
3251         if(nb>=LIM) {
3252           for(si=-1; si<= 1; si++) {
3253             for(sj=-1; sj<= 1; sj++) {
3254               for(sk=-1; sk<= 1; sk++) {
3255                 if(si || sj || sk) {
3256                   long unsigned lu=GrilleInteger(i+si,j+sj,k+sk);
3257                   M1.Raz(lu);
3258                 }
3259               }
3260             }
3261           }
3262         }
3263       }
3264       //
3265       gp_Pnt P(dx*i + x0, dy*j + y0, dz*k+z0);
3266       //
3267       Standard_Integer nu1=-1,nu2=-1;
3268       Standard_Integer nv1=0, nv2=0;
3269       int nbsur1 = 0;
3270       for(nu=0;nu1<0 && nu<SU1;nu++) {
3271         for(nv=0;nu1<0 && nv<SV1;nv++) {
3272           if( aIPD.xIP1(nu, nv) ==(Standard_Integer) newind )  {
3273             nbsur1++;
3274             aIPD.xIP1(nu, nv)=indicepointtraite;
3275             nu1=nu; nv1=nv;
3276           }
3277         }
3278       }
3279       if(nu1>=0) {
3280         int nbsur2 = 0;
3281         for(nu=0;nu2<0 && nu<SU2;nu++) {
3282           for(nv=0;nu2<0 && nv<SV2;nv++) {
3283             if( aIPD.xIP2(nu, nv)==(Standard_Integer) newind )  {
3284               nbsur2++;
3285               aIPD.xIP2(nu, nv)=indicepointtraite;
3286               nu2=nu; nv2=nv;
3287             }
3288           }
3289         }
3290       }
3291       if(nu1>=0 && nu2>=0) {
3292         IntSurf_PntOn2S POn2S;
3293         POn2S.SetValue(P,
3294                        S1->FirstUParameter()+nu1*du1,
3295                        S1->FirstVParameter()+nv1*dv1,
3296                        S2->FirstUParameter()+nu2*du2,
3297                        S2->FirstVParameter()+nv2*dv2);
3298         LineOn2S->Add(POn2S);
3299         Compt++;
3300       }
3301       else {
3302         //-- aucun point du triangle n a ete trouve assez proche
3303         //-- on recherche les 3 points les plus proches de P
3304         //-- dans chacun des tableaux
3305         Standard_Real Dist3[3],u3[3],v3[3];
3306         Dist3[0]=Dist3[1]=Dist3[2]=RealLast();
3307         for(U=resu0,i=0; i<SU1; i++,U+=du1) {
3308           for(V=resv0,j=0; j<SV1; V+=dv1,j++) {
3309             //-- On place les 3 meilleures valeurs dans Dist1,Dist2,Dist3
3310             Standard_Real t = aIPD.xP1(i, j).SquareDistance(P);
3311             //-- On remplace la plus grande valeur ds Dist[.] par la val courante
3312             if(Dist3[0]<Dist3[1]) {
3313               Standard_Real z;
3314               z=Dist3[0]; Dist3[0]=Dist3[1]; Dist3[1]=z;
3315               z=u3[0]; u3[0]=u3[1]; u3[1]=z;
3316               z=v3[0]; v3[0]=v3[1]; v3[1]=z;
3317             }
3318             if(Dist3[1]<Dist3[2]) {
3319               Standard_Real z;
3320               z=Dist3[1]; Dist3[1]=Dist3[2]; Dist3[2]=z;
3321               z=u3[1]; u3[1]=u3[2]; u3[2]=z;
3322               z=v3[1]; v3[1]=v3[2]; v3[2]=z;
3323             }
3324             if(Dist3[0]<Dist3[1]) {
3325               Standard_Real z;
3326               z=Dist3[0]; Dist3[0]=Dist3[1]; Dist3[1]=z;
3327               z=u3[0]; u3[0]=u3[1]; u3[1]=z;
3328               z=v3[0]; v3[0]=v3[1]; v3[1]=z;
3329             }
3330             //-- la plus grande valeur est dans Dist3[0]
3331             if(t<Dist3[0]) {
3332               Dist3[0]=t; u3[0]=U; v3[0]=V;
3333             }
3334           }
3335         }
3336         //
3337         Standard_Real U1_3 = (u3[0]+u3[1]+u3[2])/3.0;
3338         Standard_Real V1_3 = (v3[0]+v3[1]+v3[2])/3.0;
3339
3340         Dist3[0]=Dist3[1]=Dist3[2]=RealLast();
3341         for(U=U0,i=0; i<SU2; i++,U+=du2) {
3342           for(V=V0,j=0; j<SV2; V+=dv2,j++) {
3343             //-- On place les 3 meilleures valeurs dans Dist1,Dist2,Dist3
3344             Standard_Real t = aIPD.xP2(i, j).SquareDistance(P);
3345             //-- On remplace la plus grande valeur ds Dist3[.] par la val courante
3346             if(Dist3[0]<Dist3[1]) {
3347               Standard_Real z;
3348               z=Dist3[0]; Dist3[0]=Dist3[1]; Dist3[1]=z;
3349               z=u3[0]; u3[0]=u3[1]; u3[1]=z;
3350               z=v3[0]; v3[0]=v3[1]; v3[1]=z;
3351             }
3352             if(Dist3[1]<Dist3[2]) {
3353               Standard_Real z;
3354               z=Dist3[1]; Dist3[1]=Dist3[2]; Dist3[2]=z;
3355               z=u3[1]; u3[1]=u3[2]; u3[2]=z;
3356               z=v3[1]; v3[1]=v3[2]; v3[2]=z;
3357             }
3358             if(Dist3[0]<Dist3[1]) {
3359               Standard_Real z;
3360               z=Dist3[0]; Dist3[0]=Dist3[1]; Dist3[1]=z;
3361               z=u3[0]; u3[0]=u3[1]; u3[1]=z;
3362               z=v3[0]; v3[0]=v3[1]; v3[1]=z;
3363             }
3364             //-- la plus grande valeur est dans Dist3[0]
3365             if(t<Dist3[0]) {
3366               Dist3[0]=t; u3[0]=U; v3[0]=V;
3367             }
3368           }
3369         }
3370         //
3371         Standard_Real U2_3 = (u3[0]+u3[1]+u3[2])/3.0;
3372         Standard_Real V2_3 = (v3[0]+v3[1]+v3[2])/3.0;
3373         //
3374         IntSurf_PntOn2S POn2S;
3375         POn2S.SetValue(P,U1_3,V1_3,U2_3,V2_3);
3376         LineOn2S->Add(POn2S);
3377         Compt++;
3378       }
3379     }
3380   }
3381   while(ok);
3382 }