// File:	StdPrs_Curve.cxx
// Created:	Fri Aug  4 11:21:03 1995
// Author:	Modelistation
//		<model@metrox>

// Great zoom leads to non-coincidence of
// a point and non-infinite lines passing throught this point:
#define OCC64 

#include <StdPrs_Curve.ixx>

#include <Graphic3d_ArrayOfPrimitives.hxx>
#include <Graphic3d_Array1OfVertex.hxx>
#include <Graphic3d_Group.hxx>
#include <Prs3d_LineAspect.hxx>
#include <Prs3d_Arrow.hxx>
#include <Prs3d_ArrowAspect.hxx>
#include <gp_Pnt.hxx>
#include <gp_Circ.hxx>
#include <gp_Dir.hxx>
#include <gp_Vec.hxx>
#include <Prs3d.hxx>
#include <Bnd_Box.hxx>
#include <Precision.hxx>
#include <TColgp_SequenceOfPnt.hxx>


static Standard_Integer myN = -1;
static Standard_Boolean first = Standard_True;

//==================================================================
// function: FindLimits
// purpose:
//==================================================================
static void FindLimits(const Adaptor3d_Curve& aCurve,
		       const Standard_Real  aLimit,
		       Standard_Real&       First,
		       Standard_Real&       Last)
{
  First = aCurve.FirstParameter();
  Last  = aCurve.LastParameter();
  Standard_Boolean firstInf = Precision::IsNegativeInfinite(First);
  Standard_Boolean lastInf  = Precision::IsPositiveInfinite(Last);

  if (firstInf || lastInf) {
    gp_Pnt P1,P2;
    Standard_Real delta = 1;
    if (firstInf && lastInf) {
      do {
	delta *= 2;
	First = - delta;
	Last  =   delta;
	aCurve.D0(First,P1);
	aCurve.D0(Last,P2);
      } while (P1.Distance(P2) < aLimit);
    }
    else if (firstInf) {
      aCurve.D0(Last,P2);
      do {
	delta *= 2;
	First = Last - delta;
	aCurve.D0(First,P1);
      } while (P1.Distance(P2) < aLimit);
    }
    else if (lastInf) {
      aCurve.D0(First,P1);
      do {
	delta *= 2;
	Last = First + delta;
	aCurve.D0(Last,P2);
      } while (P1.Distance(P2) < aLimit);
    }
  }    
}



//==================================================================
// function: DrawCurve
// purpose:
//==================================================================
static void DrawCurve (const Adaptor3d_Curve&               aCurve,
                       const Handle(Graphic3d_Group) aGroup,
		       const Standard_Integer        NbP,
                       const Standard_Real           U1,
                       const Standard_Real           U2,
		       TColgp_SequenceOfPnt&         Points,
		       const Standard_Boolean drawCurve)
{
  Standard_Integer nbintervals = 1;
  
  if (aCurve.GetType() == GeomAbs_BSplineCurve) {
    nbintervals = aCurve.NbKnots() - 1;
    nbintervals = Max(1, nbintervals/3);
  }

  Standard_Boolean isPrimArrayEnabled = Graphic3d_ArrayOfPrimitives::IsEnable() && !drawCurve;
  switch (aCurve.GetType()) {
  case GeomAbs_Line:
    {
#ifdef OCC64
      Graphic3d_Array1OfVertex VertexArray(1, 3);
      gp_Pnt p = aCurve.Value(U1);
      Points.Append(p);
      VertexArray(1).SetCoord(p.X(), p.Y(), p.Z());
      p = aCurve.Value(0.5 * (U1 + U2));
      Points.Append(p);
      VertexArray(2).SetCoord(p.X(), p.Y(), p.Z());
      p = aCurve.Value(U2);
      Points.Append(p);
      VertexArray(3).SetCoord(p.X(), p.Y(), p.Z());
      if(!isPrimArrayEnabled)
	aGroup->Polyline(VertexArray);
#else
     static Graphic3d_Array1OfVertex VertexLine(1,2);
     gp_Pnt p = aCurve.Value(U1);
     Points.Append(p);
     VertexLine(1).SetCoord(p.X(), p.Y(), p.Z());
     p = aCurve.Value(U2);
     Points.Append(p); 
     VertexLine(2).SetCoord(p.X(), p.Y(), p.Z());
     if(!isPrimArrayEnabled)
       aGroup->Polyline(VertexLine);
#endif
   }
    break;
  default:
    {
      Standard_Real U;
      Standard_Integer N = Max(2, NbP*nbintervals);
      Standard_Real DU = (U2-U1) / (N-1);
      gp_Pnt p;

      if (first) {
	myN = N;
	first = Standard_False;
      }
      if (myN == N) {

	static Graphic3d_Array1OfVertex VertexArray(1, N);
	
	for (Standard_Integer i = 1; i <= N;i++) { 
	  U = U1 + (i-1)*DU;
	  p = aCurve.Value(U);
	  Points.Append(p);
	  VertexArray(i).SetCoord(p.X(), p.Y(), p.Z());
	}
	if(!isPrimArrayEnabled)
	  aGroup->Polyline(VertexArray);
      }
      else {
	Graphic3d_Array1OfVertex VertexArray2(1, N);
	
	for (Standard_Integer i = 1; i <= N;i++) { 
	  U = U1 + (i-1)*DU;
	  p = aCurve.Value(U);
	  Points.Append(p);
	  VertexArray2(i).SetCoord(p.X(), p.Y(), p.Z());
	}
	if(!isPrimArrayEnabled)
	  aGroup->Polyline(VertexArray2);
      }
    }
  }
}



//==================================================================
// function: MatchCurve
// purpose:
//==================================================================
static Standard_Boolean MatchCurve (
		       const Quantity_Length  X,
		       const Quantity_Length  Y,
		       const Quantity_Length  Z,
		       const Quantity_Length  aDistance,
		       const Adaptor3d_Curve&   aCurve,
                       const Quantity_Length  TheDeflection,
		       const Standard_Integer NbP,
                       const Standard_Real    U1,
                       const Standard_Real    U2)
{
  Quantity_Length retdist;
  switch (aCurve.GetType()) {
  case GeomAbs_Line:
    {
     static Graphic3d_Array1OfVertex VertexArray(1,2);
     gp_Pnt p1 = aCurve.Value(U1);
     if ( Abs(X-p1.X()) + Abs(Y-p1.Y()) + Abs(Z-p1.Z()) <= aDistance)
       return Standard_True;
     gp_Pnt p2 = aCurve.Value(U2);
     if ( Abs(X-p2.X()) + Abs(Y-p2.Y()) + Abs(Z-p2.Z()) <= aDistance)
       return Standard_True;
     return Prs3d::MatchSegment(X,Y,Z,aDistance,p1,p2,retdist);
   }
    break;
  case GeomAbs_Circle:
    {Standard_Real Radius = aCurve.Circle().Radius();
     Standard_Real DU = Sqrt(8.0 * TheDeflection / Radius);
     Standard_Real Er = Abs( U2 - U1) / DU;
     Standard_Integer N = Max(2, (Standard_Integer)IntegerPart(Er));
     gp_Pnt p1,p2;
     if ( N > 0) {
       Standard_Real U;
       for (Standard_Integer Index = 1; Index <= N+1; Index++) {
	 U = U1 + (Index - 1) * DU;
	 p2 = aCurve.Value(U);
	 if ( Abs(X-p2.X()) + Abs(Y-p2.Y()) + Abs(Z-p2.Z()) <= aDistance)
	 return Standard_True;

         if (Index>1) { 
	   if (Prs3d::MatchSegment(X,Y,Z,aDistance,p1,p2,retdist)) 
           return Standard_True;
	 }
	 p1=p2;

       }
     }
     return Standard_False;
   }
    break;
  default:
    {
      gp_Pnt p1,p2;
      Standard_Real U;
      Standard_Real DU = (U2-U1) / (NbP-1);

      for (Standard_Integer i=1;i<=NbP;i++) { 
	U = U1 + (i-1)*DU;
	p2 = aCurve.Value(U);
	if ( Abs(X-p2.X()) + Abs(Y-p2.Y()) + Abs(Z-p2.Z()) <= aDistance)
	  return Standard_True;
	if (i>1) { 
	  if (Prs3d::MatchSegment(X,Y,Z,aDistance,p1,p2,retdist)) 
	    return Standard_True;
	}
	p1=p2;
      }
      return Standard_False;
    }
#ifndef _MSC_VER
    return Standard_False;
#endif
  }
#ifndef _MSC_VER
    return Standard_False;
#endif
}


//==================================================================
// function: Add
// purpose:
//==================================================================
void StdPrs_Curve::Add (const Handle (Prs3d_Presentation)& aPresentation,
		       const Adaptor3d_Curve&                    aCurve,
		       const Handle (Prs3d_Drawer)&       aDrawer,
			const Standard_Boolean drawCurve) {

  Prs3d_Root::CurrentGroup(aPresentation)->SetPrimitivesAspect
    (aDrawer->LineAspect()->Aspect());

  Standard_Integer NbPoints =  aDrawer->Discretisation();
  Standard_Real V1, V2;
  FindLimits(aCurve, aDrawer->MaximalParameterValue(), V1, V2);

  TColgp_SequenceOfPnt Pnts;
  DrawCurve(aCurve,
            Prs3d_Root::CurrentGroup(aPresentation),
	    NbPoints,
            V1 , V2, Pnts, drawCurve);

  if (aDrawer->LineArrowDraw()) {
    gp_Pnt Location;
    gp_Vec Direction;
    aCurve.D1(aCurve.LastParameter(),Location,Direction);
    Prs3d_Arrow::Draw (aPresentation,
                     Location,
                     gp_Dir(Direction),
                     aDrawer->ArrowAspect()->Angle(),
                     aDrawer->ArrowAspect()->Length());
  }
}


//==================================================================
// function: Add
// purpose:
//==================================================================
void StdPrs_Curve::Add (const Handle (Prs3d_Presentation)& aPresentation,
			const Adaptor3d_Curve&                    aCurve,
			const Quantity_Length              aDeflection,
			const Handle(Prs3d_Drawer)&        aDrawer,
			TColgp_SequenceOfPnt&           Points,
			const Standard_Boolean drawCurve) 
{
  
  Standard_Integer NbPoints =  aDrawer->Discretisation();
  Standard_Real aLimit = aDrawer->MaximalParameterValue();
  Standard_Real V1, V2;
  FindLimits(aCurve, aLimit, V1, V2);

  DrawCurve(aCurve,
            Prs3d_Root::CurrentGroup(aPresentation),
	    NbPoints,
            V1 , V2, Points, drawCurve);
}

//==================================================================
// function: Add
// purpose:
//==================================================================
void StdPrs_Curve::Add (const Handle (Prs3d_Presentation)& aPresentation,
		       const Adaptor3d_Curve&                    aCurve,
		       const Standard_Real                U1,
		       const Standard_Real                U2,
		       const Quantity_Length              aDeflection,
		       TColgp_SequenceOfPnt&              Points,
		       const Standard_Integer             NbPoints,
			const Standard_Boolean drawCurve) {

  DrawCurve(aCurve,
            Prs3d_Root::CurrentGroup(aPresentation),
	    NbPoints,
            U1 , U2, Points, drawCurve);
}



//==================================================================
// function: Add
// purpose:
//==================================================================
void StdPrs_Curve::Add (const Handle (Prs3d_Presentation)& aPresentation,
		       const Adaptor3d_Curve&                    aCurve,
		       const Standard_Real                U1,
		       const Standard_Real                U2,
		       const Handle (Prs3d_Drawer)&       aDrawer,
			const Standard_Boolean drawCurve) {

  Prs3d_Root::CurrentGroup(aPresentation)->SetPrimitivesAspect(aDrawer->LineAspect()->Aspect());

  Standard_Integer NbPoints = aDrawer->Discretisation();
  Standard_Real V1 = U1;
  Standard_Real V2 = U2;  

  if (Precision::IsNegativeInfinite(V1)) V1 = -aDrawer->MaximalParameterValue();
  if (Precision::IsPositiveInfinite(V2)) V2 = aDrawer->MaximalParameterValue();

  TColgp_SequenceOfPnt Pnts;
  DrawCurve(aCurve,
	    Prs3d_Root::CurrentGroup(aPresentation),
	    NbPoints,
	    V1 , V2, Pnts, drawCurve);
    
  if (aDrawer->LineArrowDraw()) {
    gp_Pnt Location;
    gp_Vec Direction;
    aCurve.D1(aCurve.LastParameter(),Location,Direction);
    Prs3d_Arrow::Draw (aPresentation,
                     Location,
                     gp_Dir(Direction),
                     aDrawer->ArrowAspect()->Angle(),
                     aDrawer->ArrowAspect()->Length());
  }
}


//==================================================================
// function: Match
// purpose:
//==================================================================
Standard_Boolean StdPrs_Curve::Match 
		      (const Quantity_Length        X,
		       const Quantity_Length        Y,
		       const Quantity_Length        Z,
		       const Quantity_Length        aDistance,
		       const Adaptor3d_Curve&              aCurve,
		       const Handle (Prs3d_Drawer)& aDrawer)
{
  Standard_Integer NbPoints = aDrawer->Discretisation();
  Standard_Real V1, V2;
  FindLimits(aCurve, aDrawer->MaximalParameterValue(), V1, V2);

  return MatchCurve(X,Y,Z,aDistance,aCurve,
		    aDrawer->MaximalChordialDeviation(), NbPoints,
		    V1 , V2);

}

//==================================================================
// function: Match
// purpose:
//==================================================================
Standard_Boolean StdPrs_Curve::Match 
		      (const Quantity_Length  X,
		       const Quantity_Length  Y,
		       const Quantity_Length  Z,
		       const Quantity_Length  aDistance,
		       const Adaptor3d_Curve&   aCurve,
		       const Quantity_Length  aDeflection,
		       const Standard_Real    aLimit,
		       const Standard_Integer NbPoints) {

  Standard_Real V1, V2;
  FindLimits(aCurve, aLimit, V1, V2);

  return MatchCurve(X,Y,Z,aDistance,aCurve,
		    aDeflection, NbPoints,
		    V1 , V2);

}



//==================================================================
// function: Match
// purpose:
//==================================================================
Standard_Boolean StdPrs_Curve::Match 
			(const Quantity_Length        X,
			 const Quantity_Length        Y,
			 const Quantity_Length        Z,
			 const Quantity_Length        aDistance,
			 const Adaptor3d_Curve&         aCurve,
			 const Standard_Real          U1,
			 const Standard_Real          U2,
			 const Handle (Prs3d_Drawer)& aDrawer) {

  Standard_Real V1 = U1;
  Standard_Real V2 = U2;  

  if (Precision::IsNegativeInfinite(V1)) V1 = -aDrawer->MaximalParameterValue();
  if (Precision::IsPositiveInfinite(V2)) V2 = aDrawer->MaximalParameterValue();

  return MatchCurve(X,Y,Z,aDistance,aCurve,
		    aDrawer->MaximalChordialDeviation(),
		    aDrawer->Discretisation(),
		    V1 , V2);
}


//==================================================================
// function: Match
// purpose:
//==================================================================
Standard_Boolean StdPrs_Curve::Match 
			(const Quantity_Length  X,
			 const Quantity_Length  Y,
			 const Quantity_Length  Z,
			 const Quantity_Length  aDistance,
			 const Adaptor3d_Curve&   aCurve,
			 const Standard_Real    U1,
			 const Standard_Real    U2,
			 const Quantity_Length  aDeflection,
			 const Standard_Integer aNbPoints) 
{
  return MatchCurve(X,Y,Z,aDistance,aCurve,
		    aDeflection, aNbPoints,
		    U1 , U2);
}