0028567: Get rid of the unused DRAW commands based on old Boolean Operations (BRepAlgo)
[occt.git] / src / ViewerTest / ViewerTest_FilletCommands.cxx
1 // Created on: 1998-11-20
2 // Created by: Robert COUBLANC
3 // Copyright (c) 1998-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 #include <ViewerTest.hxx>
18 #include <BRepTest.hxx>
19 #include <TColgp_Array1OfPnt2d.hxx>
20 #include <DBRep.hxx>
21 #include <Draw_Interpretor.hxx>
22 #include <Draw_Appli.hxx>
23 #include <BRepFilletAPI_MakeFillet.hxx>
24 #include <BiTgte_Blend.hxx>
25 #include <TopTools_ListIteratorOfListOfShape.hxx>
26 #include <TopAbs_ShapeEnum.hxx>
27 #include <TopoDS_Shape.hxx>
28 #include <TopoDS_Compound.hxx>
29 #include <TopoDS_Edge.hxx>
30 #include <TopoDS_Vertex.hxx>
31 #include <TopoDS.hxx>
32 #include <TopExp.hxx>
33 #include <TopExp_Explorer.hxx>
34
35 #include <FilletSurf_Builder.hxx>
36 #include <ChFi3d_FilletShape.hxx>
37 #include <Geom_TrimmedCurve.hxx>
38 #include <TopTools_ListOfShape.hxx>
39 #include <FilletSurf_StatusType.hxx>
40 #include <FilletSurf_ErrorTypeStatus.hxx>
41 #include <TopAbs.hxx>
42 #include <DrawTrSurf.hxx>
43 #include <TopTools_HArray1OfShape.hxx>
44
45 #include <AIS_InteractiveContext.hxx>
46 #include <AIS_InteractiveObject.hxx>
47 #include <AIS_Shape.hxx>
48
49 #ifdef _WIN32
50 //#define strcasecmp strcmp Already defined in Standard
51 # include <stdio.h>
52 #endif
53
54 extern  Handle(AIS_Shape) GetAISShapeFromName(const char* name);
55
56
57 static Standard_Real t3d = 1.e-4;
58 static Standard_Real t2d = 1.e-5;
59 static Standard_Real ta  = 1.e-2;
60 static Standard_Real fl  = 1.e-3;
61 static Standard_Real tapp_angle = 1.e-2;
62 static GeomAbs_Shape blend_cont = GeomAbs_C1;
63
64 static BRepFilletAPI_MakeFillet* Rakk = 0;
65
66
67 static void printtolblend(Draw_Interpretor& di)
68 {
69   di<<"tolerance ang : "<<ta<<"\n";
70   di<<"tolerance 3d  : "<<t3d<<"\n";
71   di<<"tolerance 2d  : "<<t2d<<"\n";
72   di<<"fleche        : "<<fl<<"\n";
73
74   di<<"tolblend "<<ta<<" "<<t3d<<" "<<t2d<<" "<<fl<<"\n";
75 }
76
77 static Standard_Integer VBLEND(Draw_Interpretor& di, Standard_Integer narg, const char** a)
78 {
79   if(Rakk != 0) {delete Rakk; Rakk = 0;}
80   printtolblend(di);
81   if (narg<5) return 1;
82   
83   Standard_Integer NbToPick = (narg -4)/2;
84   Handle(TopTools_HArray1OfShape) arr = new TopTools_HArray1OfShape(1,NbToPick);
85   if(ViewerTest::PickShapes(TopAbs_EDGE,arr)){
86     for(Standard_Integer i=1;i<=NbToPick;i++){
87       TopoDS_Shape PickSh = arr->Value(i);
88       if(!PickSh.IsNull()){
89         DBRep::Set(a[(2*i+2)],PickSh);
90       }
91     }
92   }
93   
94   TopoDS_Shape V = DBRep::Get(a[2]);
95   if(V.IsNull()) return 1;
96   ChFi3d_FilletShape FSh = ChFi3d_Rational;
97   if (narg%2 == 0) {
98     if (!strcasecmp(a[narg-1], "Q")) {
99       FSh = ChFi3d_QuasiAngular;
100     }
101     else if (!strcasecmp(a[narg-1], "P")) {
102       FSh = ChFi3d_Polynomial;
103     }
104   }
105   Rakk = new BRepFilletAPI_MakeFillet(V,FSh);
106   Rakk->SetParams(ta,t3d,t2d,t3d,t2d,fl);
107   Rakk->SetContinuity(blend_cont, tapp_angle);
108   Standard_Real Rad;
109   TopoDS_Edge E;
110   Standard_Integer nbedge = 0;
111   for (Standard_Integer ii = 1; ii < (narg-1)/2; ii++){
112     Rad = Draw::Atof(a[2*ii + 1]);
113     TopoDS_Shape aLocalShape = DBRep::Get(a[(2*ii+2)],TopAbs_EDGE);
114     E = TopoDS::Edge(aLocalShape);
115 //    E = TopoDS::Edge(DBRep::Get(a[(2*ii+2)],TopAbs_EDGE));
116     if(!E.IsNull()){
117       Rakk->Add(Rad,E);
118       nbedge++;
119     }
120   }
121   if(!nbedge) return 1;
122   Rakk->Build();
123   if(!Rakk->IsDone()) return 1;
124   TopoDS_Shape res = Rakk->Shape();
125   DBRep::Set(a[1],res);
126
127
128   // visu resultat...
129   Handle(AIS_Shape) AS = GetAISShapeFromName(a[1]);
130   Handle(AIS_Shape) Start = GetAISShapeFromName(a[2]);
131   Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
132   Ctx->Erase(Start,Standard_False);
133   if(Ctx->IsDisplayed(AS))
134     Ctx->Redisplay (AS, Standard_True);
135   else
136     Ctx->Display (AS, Standard_True);
137   return 0;
138 }
139
140
141
142
143 void  ViewerTest::FilletCommands(Draw_Interpretor& theCommands)
144 {
145   const char* g = "Viewer Fillet construction commands";
146   theCommands.Add("vblend",
147                   "vblend result object rad1 ed1 rad2 ed2 ... [R/Q/P]",__FILE__,
148                   VBLEND,g);
149 }