1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
// File: GccAna_Circ2d2TanOn_11.cxx
// Created: Thu Jan 2 16:00:53 1992
// Author: Remi GILET
// <reg@topsn3>
//=========================================================================
// Creation d un cercle tangent a deux elements : Droite. +
// Cercle. +
// Point. +
// centre sur un troisieme : Droite. +
// Cercle. +
//=========================================================================
#include <GccAna_Circ2d2TanOn.jxx>
#include <ElCLib.hxx>
#include <gp_Dir2d.hxx>
#include <gp_Ax2d.hxx>
#include <IntAna2d_AnaIntersection.hxx>
#include <IntAna2d_IntPoint.hxx>
#include <GccAna_Lin2dBisec.hxx>
//=========================================================================
// Creation d un cercle Passant par : 2 points Point1 et Point2. +
// Centre sur : 1 cercle OnCirc. +
// avec une Tolerance de precision : Tolerance. +
// +
// On cree L1 la droite des points equidistant de Point1 et Point2. +
// On cree alors les solutions cirsol telles que : +
// cirsol est l ensemble des cercle ayant pour centre une des inter- +
// sections de L1 avec OnCirc et de rayon la distance entre Point1 et +
// le point ci dessus calcule. +
//=========================================================================
GccAna_Circ2d2TanOn::
GccAna_Circ2d2TanOn (const gp_Pnt2d& Point1 ,
const gp_Pnt2d& Point2 ,
const gp_Circ2d& OnCirc ,
const Standard_Real Tolerance ):
cirsol(1,2) ,
qualifier1(1,2) ,
qualifier2(1,2) ,
TheSame1(1,2) ,
TheSame2(1,2) ,
pnttg1sol(1,2) ,
pnttg2sol(1,2) ,
pntcen(1,2) ,
par1sol(1,2) ,
par2sol(1,2) ,
pararg1(1,2) ,
pararg2(1,2) ,
parcen3(1,2)
{
TheSame1.Init(0);
TheSame2.Init(0);
WellDone = Standard_False;
NbrSol = 0;
gp_Dir2d dirx(1.,0.);
Standard_Real Tol = Abs(Tolerance);
Standard_Real dist = Point1.Distance(Point2);
Standard_Real dp1cen = Point1.Distance(OnCirc.Location());
Standard_Real dp2cen = Point2.Distance(OnCirc.Location());
Standard_Real R = OnCirc.Radius();
gp_Circ2d C1 = OnCirc;
if (dist<Tol||Abs(dp1cen+2*R-dp2cen)<Tol||Abs(dp2cen+2*R-dp1cen)<Tol){
WellDone = Standard_True;
return;
}
gp_Lin2d L1(gp_Pnt2d((Point1.XY()+Point2.XY())/2.0),
gp_Dir2d(Point1.Y()-Point2.Y(),Point2.X()-Point1.X()));
if (Abs(dp1cen+2*R-dp2cen)<Tol || Abs(dp2cen+2*R-dp1cen)<Tol) {
if (Abs(dp1cen+2*R-dp2cen)<Tol) {
C1 = gp_Circ2d(gp_Ax2d(OnCirc.Location(),dirx),
OnCirc.Radius()+Abs(dp2cen-dp1cen-2.0*R));
}
else if (Abs(dp1cen+2*R-dp2cen)<Tol) {
C1 = gp_Circ2d(gp_Ax2d(OnCirc.Location(),dirx),
OnCirc.Radius()+Abs(dp2cen-dp1cen-2.0*R));
}
}
IntAna2d_AnaIntersection Intp(L1,C1);
if (Intp.IsDone()) {
if (!Intp.IsEmpty()) {
for (Standard_Integer i = 1 ; i <= Intp.NbPoints() ; i++) {
NbrSol++;
gp_Ax2d axe(Intp.Point(i).Value(),dirx);
cirsol(NbrSol) = gp_Circ2d(axe,Point1.Distance(Intp.Point(i).Value()));
// ======================================================================
qualifier1(NbrSol) = GccEnt_noqualifier;
qualifier2(NbrSol) = GccEnt_noqualifier;
pnttg1sol(NbrSol) = Point1;
pararg1(NbrSol) = 0.;
par1sol(NbrSol)=ElCLib::Parameter(cirsol(NbrSol),pnttg1sol(NbrSol));
pnttg2sol(NbrSol) = Point2;
pararg2(NbrSol) = 0.;
par2sol(NbrSol)=ElCLib::Parameter(cirsol(NbrSol),pnttg2sol(NbrSol));
pntcen(NbrSol) = cirsol(NbrSol).Location();
parcen3(NbrSol)=ElCLib::Parameter(OnCirc,pntcen(NbrSol));
}
}
WellDone = Standard_True;
}
}
|
