b0c7d060bea7e63c3971b23ec1d59f87b4960f89
[occt.git] / src / BRepTest / BRepTest_ExtremaCommands.cxx
1 // Created on: 1995-09-08
2 // Created by: Modelistation
3 // Copyright (c) 1995-1999 Matra Datavision
4 // Copyright (c) 1999-2014 OPEN CASCADE SAS
5 //
6 // This file is part of Open CASCADE Technology software library.
7 //
8 // This library is free software; you can redistribute it and/or modify it under
9 // the terms of the GNU Lesser General Public License version 2.1 as published
10 // by the Free Software Foundation, with special exception defined in the file
11 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 // distribution for complete text of the license and disclaimer of any warranty.
13 //
14 // Alternatively, this file may be used under the terms of Open CASCADE
15 // commercial license or contractual agreement.
16
17 // modified by mps (juillet 96) : ajout de la commande distmini
18
19 #include <DBRep.hxx>
20 #include <BRepTest.hxx>
21 #include <gp_Pnt.hxx>
22 #include <TopoDS_Shape.hxx>
23 #include <TopoDS_Edge.hxx>
24 #include <BRepExtrema_Poly.hxx>
25 #include <BRepExtrema_DistShapeShape.hxx>
26 #include <BRepLib_MakeEdge.hxx>
27 #include <BRepLib_MakeEdge.hxx>
28 #include <BRepLib_MakeVertex.hxx>
29 #include <Draw.hxx>
30 #include <Draw_Interpretor.hxx>
31 //#ifdef WNT
32 #include <stdio.h>
33 //#endif
34
35 //=======================================================================
36 //function : distance
37 //purpose  : 
38 //=======================================================================
39
40 static Standard_Integer distance (Draw_Interpretor& di,
41                                   Standard_Integer n,
42                                   const char** a)
43 {
44   if (n < 3) return 1;
45
46   const char *name1 = a[1];
47   const char *name2 = a[2];
48
49   TopoDS_Shape S1 = DBRep::Get(name1);
50   TopoDS_Shape S2 = DBRep::Get(name2);
51   if (S1.IsNull() || S2.IsNull()) return 1;
52   gp_Pnt P1,P2;
53   Standard_Real D;
54   if (!BRepExtrema_Poly::Distance(S1,S2,P1,P2,D)) return 1;
55   //cout << " distance : " << D << endl;
56   di << " distance : " << D << "\n";
57   TopoDS_Edge E = BRepLib_MakeEdge(P1,P2);
58   DBRep::Set("distance",E);
59   return 0;
60 }
61 static Standard_Integer distmini(Draw_Interpretor& di, Standard_Integer n, const char** a)
62
63   Standard_Integer i1;
64 //  gp_Pnt P;
65
66   if (n != 4) return 1;
67
68   const char *ns1 = (a[2]), *ns2 = (a[3]), *ns0 = (a[1]);
69   TopoDS_Shape S1(DBRep::Get(ns1)), S2(DBRep::Get(ns2))  ;
70   BRepExtrema_DistShapeShape dst(S1 ,S2 );
71
72
73   if (dst.IsDone()) 
74       { 
75 #ifdef DEB
76          //dst.Dump(cout);
77         Standard_SStream aSStream;
78         dst.Dump(aSStream);
79         di << aSStream;
80 #endif
81
82          char named[100];
83          Sprintf(named, "%s%s" ,ns0,"_val");
84          char* tempd = named;
85          Draw::Set(tempd,dst.Value());
86          di << named << " ";
87
88          for (i1=1; i1<= dst.NbSolution(); i1++)
89            {
90              gp_Pnt P1,P2;
91              P1 = (dst.PointOnShape1(i1));
92              P2 = (dst.PointOnShape2(i1));
93              if (dst.Value()<=1.e-9) 
94              {
95               TopoDS_Vertex V =BRepLib_MakeVertex(P1);
96               char namev[100];
97               if (i1==1) 
98               Sprintf(namev, "%s" ,ns0);
99               else Sprintf(namev, "%s%d" ,ns0,i1);
100               char* tempv = namev;
101               DBRep::Set(tempv,V);
102               di << namev << " ";
103               }
104              else
105              {char name[100];
106               TopoDS_Edge E = BRepLib_MakeEdge (P1, P2);
107               if (i1==1)
108               {Sprintf(name,"%s",ns0);}
109               else {Sprintf(name,"%s%d",ns0,i1);}
110               char* temp = name;
111               DBRep::Set(temp,E);
112               di << name << " " ;
113              }
114            }
115       }
116   
117   else di << "probleme"<< "\n";
118   //else cout << "probleme"<< endl;
119   return 0;
120 }
121
122 //=======================================================================
123 //function : ExtremaCommands
124 //purpose  : 
125 //=======================================================================
126
127 void  BRepTest::ExtremaCommands(Draw_Interpretor& theCommands)
128 {
129   static Standard_Boolean done = Standard_False;
130   if (done) return;
131   done = Standard_True;
132
133   const char* g = "TOPOLOGY Extrema commands";
134
135   theCommands.Add("dist","dist Shape1 Shape2"   ,__FILE__,distance,g);
136
137   
138   theCommands.Add("distmini",
139                   "distmini name Shape1 Shape2",
140                   __FILE__,
141                   distmini,g);
142 }
143
144
145
146
147
148
149
150
151
152
153
154