Integration of OCCT 6.5.0 from SVN

src/IntAna2d/IntAna2d_AnaIntersection_6.cxx

@@ -0,0 +1,65 @@
+//============================================ IntAna2d_AnaIntersection_6.cxx
+//============================================================================
+#include <IntAna2d_AnaIntersection.jxx>
+
+#include <IntAna2d_Outils.hxx>
+
+void IntAna2d_AnaIntersection::Perform(const gp_Elips2d& Elips,
+				  const IntAna2d_Conic& Conic)
+{
+  Standard_Boolean EIsDirect = Elips.IsDirect();
+  Standard_Real A,B,C,D,E,F;
+  Standard_Real pcte,ps,pc,p2sc,pcc,pss;
+  Standard_Real minor_radius=Elips.MinorRadius();
+  Standard_Real major_radius=Elips.MajorRadius();
+  Standard_Integer i;
+  Standard_Real tx,ty,S;
+  
+  done = Standard_False;
+  nbp = 0;
+  para = Standard_False;
+  iden = Standard_False; 
+  empt = Standard_False;
+  
+  
+  gp_Ax2d Axe_rep(Elips.XAxis());
+  
+  Conic.Coefficients(A,B,C,D,E,F);
+  Conic.NewCoefficients(A,B,C,D,E,F,Axe_rep);   
+
+  // Parametre : a avec x=MajorRadius Cos(a)  et y=MinorRadius Sin(a)
+  
+  pss= B*minor_radius*minor_radius;                   // SIN ^2
+  pcc= A*major_radius*major_radius-pss;               // COS ^2
+  p2sc=C*major_radius*minor_radius;                   // 2 SIN COS
+  pc= 2.0*D*major_radius;                             // COS
+  ps= 2.0*E*minor_radius;                             // SIN
+  pcte=F+pss;                                         // 1
+  
+  math_TrigonometricFunctionRoots Sol(pcc,p2sc,pc,ps,pcte,0.0,2.0*PI);
+
+  if (!Sol.IsDone()) {
+    done=Standard_False;
+    return;
+  }
+  else { 
+    if(Sol.InfiniteRoots()) {
+      iden=Standard_True;
+      done=Standard_True;
+      return;
+    }
+    nbp=Sol.NbSolutions();
+    for(i=1;i<=nbp;i++) {
+      S = Sol.Value(i);
+      tx=major_radius*Cos(S); 
+      ty=minor_radius*Sin(S);
+      Coord_Ancien_Repere(tx,ty,Axe_rep);
+      if(!EIsDirect) 
+	S = PI+PI-S;
+      lpnt[i-1].SetValue(tx,ty,S);
+    }
+    Traitement_Points_Confondus(nbp,lpnt);
+  }
+  done = Standard_True;
+}
+