0024430: vviewlist draw command does not added name of viewer created by XShow draw...
[occt.git] / src / QABugs / QABugs_16.cxx
1 // Created on: 2002-03-18
2 // Created by: QA Admin
3 // Copyright (c) 2002-2014 OPEN CASCADE SAS
4 //
5 // This file is part of Open CASCADE Technology software library.
6 //
7 // This library is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU Lesser General Public License version 2.1 as published
9 // by the Free Software Foundation, with special exception defined in the file
10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 // distribution for complete text of the license and disclaimer of any warranty.
12 //
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
15
16 #include <QABugs.hxx>
17
18 #include <Draw.hxx>
19 #include <Draw_Interpretor.hxx>
20 #include <DBRep.hxx>
21 #include <DrawTrSurf.hxx>
22 #include <AIS_InteractiveContext.hxx>
23 #include <ViewerTest.hxx>
24 #include <AIS_Shape.hxx>
25 #include <TopoDS_Shape.hxx>
26
27 #include <GProp_GProps.hxx>
28 #include <BRepGProp.hxx>
29 #include <TopoDS_Edge.hxx>
30 #include <BRepBuilderAPI_MakeEdge.hxx>
31 #include <AIS_Trihedron.hxx>
32 #include <Geom_Axis2Placement.hxx>
33 #include <gp_Ax2.hxx>
34 #include <Geom_Circle.hxx>
35 #include <AIS_Circle.hxx>
36 #include <TopoDS.hxx>
37 #include <Geom_Plane.hxx>
38 #include <gp_Pln.hxx>
39 #include <AIS_AngleDimension.hxx>
40
41 #include <Aspect_Window.hxx>
42 #include <V3d_View.hxx>
43
44 #include <TopExp_Explorer.hxx>
45 #include <BRepAdaptor_Curve.hxx>
46 #include <GC_MakePlane.hxx>
47 #include <AIS_PlaneTrihedron.hxx>
48 #include <ViewerTest_DoubleMapOfInteractiveAndName.hxx>
49
50 #include <BRep_Tool.hxx>
51 #include <Geom_BSplineCurve.hxx>
52 #include <GeomConvert_CompCurveToBSplineCurve.hxx>
53 #include <BRepBuilderAPI_MakeEdge.hxx>
54 #include <Precision.hxx>
55
56 #include <GProp_PrincipalProps.hxx>
57
58 #include <OSD_Path.hxx>
59 #include <Standard_ProgramError.hxx>
60
61 //#include <QAModTopOpe_Limitation.hxx>
62 #include <QANewModTopOpe_Limitation.hxx>
63
64 //#include <QAModTopOpe_Glue.hxx>
65 #include <QANewModTopOpe_Glue.hxx>
66
67 #include <ShapeFix_Wireframe.hxx>
68 #include <ShapeBuild_ReShape.hxx>
69
70 #include <BRepBuilderAPI_MakeEdge.hxx>
71
72 //#include <QAModTopOpe_ReShaper.hxx>
73 #include <QANewModTopOpe_ReShaper.hxx>
74
75 #include <ViewerTest_EventManager.hxx>
76
77 #include <TColgp_Array1OfPnt2d.hxx>
78
79 #include <DDocStd.hxx>
80 #include <TDocStd_Document.hxx>
81 #include <Standard_ErrorHandler.hxx>
82
83 #if ! defined(WNT)
84 extern ViewerTest_DoubleMapOfInteractiveAndName& GetMapOfAIS();
85 #else
86 Standard_EXPORT ViewerTest_DoubleMapOfInteractiveAndName& GetMapOfAIS();
87 #endif
88
89 static Standard_Integer BUC60848 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
90 {
91   if ( argc != 2 ) {
92     di << "Usage : " << argv[0] << " shape " << "\n";
93     return 1;
94   }
95   TopoDS_Shape S = DBRep::Get( argv[1] );
96   if ( S.IsNull() ) {
97     di << "Shape is empty" << "\n";
98     return 1;
99   }
100   GProp_GProps G;
101   BRepGProp::VolumeProperties( S,G );
102   Standard_Real GRes;
103   GRes = G.Mass();
104   if ( GRes < 0 ) {
105     di << "Result is negative : " << GRes << "\n";
106     return 1;
107   } else {
108     di << "Volume : " << GRes << "\n";
109   }
110
111   return 0;
112 }
113
114 static Standard_Integer BUC60828 (Draw_Interpretor& di, Standard_Integer /*argc*/, const char ** /*argv*/)
115 {
116   TopoDS_Edge anEdge = BRepBuilderAPI_MakeEdge(gp_Pnt(0.,0.,0.), gp_Pnt(0.,0.,1.)); 
117   Standard_Boolean aValue; 
118   aValue=anEdge.Infinite(); 
119   di << "Initial flag : " << (Standard_Integer) aValue << "\n";
120   anEdge.Infinite(Standard_True); 
121   Standard_Boolean aValue1; 
122   aValue1=anEdge.Infinite(); 
123   di << "Current flag : " << (Standard_Integer) aValue1 << "\n";
124   if(aValue1) di << "Flag was set properly." << "\n";
125   else di << "Faulty : flag was not set properly." << "\n";
126   return 0;
127 }
128
129 static Standard_Integer  BUC60814(Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
130 {
131   if(argc!=1)
132   {
133     di << "Usage : " << argv[0] << "\n";
134     return 1;
135   }
136
137
138   Handle(AIS_InteractiveContext) myAISContext = ViewerTest::GetAISContext();
139   if(myAISContext.IsNull()) {
140     di << "use 'vinit' command before " << argv[0] << "\n";
141     return 1;
142   }
143   
144   // TRIHEDRON
145   Handle(AIS_Trihedron) aTrihedron;
146   Handle(Geom_Axis2Placement) aTrihedronAxis=new Geom_Axis2Placement(gp::XOY());
147   aTrihedron=new AIS_Trihedron(aTrihedronAxis);
148   myAISContext->Display(aTrihedron);
149   
150   //Circle
151   gp_Pnt P(10,10,10);
152   gp_Dir V(1,0,0);
153   gp_Ax2 aAx2(P,V);
154   
155   Handle(Geom_Circle) ahCircle=new Geom_Circle(aAx2,20);
156   Handle(AIS_Circle)   aCircle=new AIS_Circle(ahCircle);
157   myAISContext->Display(aCircle);
158     
159   myAISContext->SelectionColor(Quantity_NOC_BLUE1);
160   
161   myAISContext->AddOrRemoveSelected(aTrihedron);
162   myAISContext->AddOrRemoveSelected(aCircle);
163   
164   return 0;
165 }
166
167 //=======================================================================
168 //function : BUC60774
169 //purpose  : 
170 //=======================================================================
171 static Standard_Integer BUC60774 (Draw_Interpretor& theDi,
172                                   Standard_Integer theArgNb,
173                                   const char** theArgv)
174 {
175   if (theArgNb != 1)
176   {
177     std::cout << "Usage : " << theArgv[0] << "\n";
178     return -1;
179   }
180
181   const Handle(AIS_InteractiveContext)& anAISContext = ViewerTest::GetAISContext();
182   if (anAISContext.IsNull())
183   {
184     std::cout << "use 'vinit' command before " << theArgv[0] << "\n";
185     return -1;
186   }
187
188   const Handle(V3d_View)& aV3dView = ViewerTest::CurrentView();
189
190   Standard_Integer aWinWidth  = 0;
191   Standard_Integer aWinHeight = 0;
192   aV3dView->Window()->Size (aWinWidth, aWinHeight);
193
194   Standard_Integer aXPixMin = 0;
195   Standard_Integer aYPixMin = 0;
196   Standard_Integer aXPixMax = aWinWidth;
197   Standard_Integer aYPixMax = aWinHeight;
198
199   AIS_StatusOfPick aPickStatus = anAISContext->Select (aXPixMin, aYPixMin, aXPixMax, aYPixMax, aV3dView);
200   theDi << (aPickStatus == AIS_SOP_NothingSelected
201     ? "status = AIS_SOP_NothingSelected : OK"
202     : "status = AIS_SOP_NothingSelected : bugged - Faulty ");
203   theDi << "\n";
204
205   theDi.Eval ("box b 10 10 10");
206   theDi.Eval (" vdisplay b");
207
208   aPickStatus = anAISContext->Select (aXPixMin, aYPixMin, aXPixMax, aYPixMax, aV3dView);
209   theDi << (aPickStatus == AIS_SOP_OneSelected
210     ? "status = AIS_SOP_OneSelected : OK"
211     : "status = AIS_SOP_OneSelected : bugged - Faulty ");
212   theDi << "\n";
213
214   theDi.Eval ("box w 20 20 20 20 20 20");
215   theDi.Eval (" vdisplay w");
216
217   aPickStatus = anAISContext->Select (aXPixMin, aYPixMin, aXPixMax, aYPixMax, aV3dView);
218   theDi << (aPickStatus == AIS_SOP_SeveralSelected
219     ? "status = AIS_SOP_SeveralSelected : OK"
220     : "status = AIS_SOP_SeveralSelected : bugged - Faulty ");
221   theDi << "\n";
222
223   return 0;
224 }
225
226 static Standard_Integer BUC60972 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
227 {
228   Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
229   if(aContext.IsNull()) { 
230     di << "use 'vinit' command before " << argv[0] << "\n";
231     return 1;
232   }
233
234   if(argc != 6) {
235     di << "Usage : " << argv[0] << " edge edge plane val text" << "\n";
236     return 1;
237   }
238   
239   TopoDS_Edge aFirst = TopoDS::Edge(DBRep::Get(argv[1],TopAbs_EDGE));
240   TopoDS_Edge aSecond = TopoDS::Edge(DBRep::Get(argv[2],TopAbs_EDGE));
241   Handle(Geom_Plane) aPlane = Handle(Geom_Plane)::DownCast(DrawTrSurf::GetSurface(argv[3]));
242   if(aPlane.IsNull())
243     return 1;
244   
245   di << aPlane->Pln().SquareDistance( gp_Pnt(0,0,0) ) << "\n";
246   
247   TCollection_ExtendedString aText(argv[5]);
248   //Standard_ExtString ExtString_aText = aText.ToExtString();
249   //di << ExtString_aText << " " << Draw::Atof(argv[4]) << "\n";
250   di << argv[5] << " " << Draw::Atof(argv[4]) << "\n";
251   
252   Handle(AIS_AngleDimension) aDim = new AIS_AngleDimension(aFirst, aSecond);
253   aContext->Display(aDim);                                                         
254   
255   return 0;
256 }
257
258 static Standard_Integer OCC218bug (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
259 {
260   Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
261   if(aContext.IsNull()) { 
262     di << "use 'vinit' command before " << argv[0] << "\n";
263     return 1;
264   }
265
266   if(argc != 5) {
267     di << "Usage : " << argv[0] << " name plane Xlabel Ylabel" << "\n";
268     return 1;
269   }
270
271   TopoDS_Shape S = DBRep::Get( argv[2] );
272   if ( S.IsNull() ) {
273     di << "Shape is empty" << "\n";
274     return 1;
275   }
276
277   TCollection_AsciiString name(argv[1]);
278   TCollection_AsciiString Xlabel(argv[3]);
279   TCollection_AsciiString Ylabel(argv[4]);
280   
281   // Construction de l'AIS_PlaneTrihedron
282   Handle(AIS_PlaneTrihedron) theAISPlaneTri;
283
284   Standard_Boolean IsBound = GetMapOfAIS().IsBound2(name);
285   if (IsBound) {
286     // on recupere la shape dans la map des objets displayes
287     Handle(AIS_InteractiveObject) aShape = Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2(name));
288       
289     // On verifie que l'AIS InteraciveObject est bien 
290     // un AIS_PlaneTrihedron
291     if (aShape->Type()==AIS_KOI_Datum && aShape->Signature()==4) {
292       // On downcast aShape de AIS_InteractiveObject a AIS_PlaneTrihedron
293       theAISPlaneTri = *(Handle(AIS_PlaneTrihedron)*) &aShape;
294
295       theAISPlaneTri->SetXLabel(Xlabel);
296       theAISPlaneTri->SetYLabel(Ylabel);
297   
298       aContext->Redisplay(theAISPlaneTri, Standard_False);
299       aContext->UpdateCurrentViewer();
300     }
301   } else {
302     TopoDS_Face  FaceB=TopoDS::Face(S);
303   
304     // Construction du Plane
305     // recuperation des edges des faces.
306     TopExp_Explorer FaceExpB(FaceB,TopAbs_EDGE);
307   
308     TopoDS_Edge EdgeB=TopoDS::Edge(FaceExpB.Current() );
309     // declarations 
310     gp_Pnt A,B,C;
311   
312     // si il y a plusieurs edges
313     if (FaceExpB.More() ) {
314       FaceExpB.Next();
315       TopoDS_Edge EdgeC=TopoDS::Edge(FaceExpB.Current() );
316       BRepAdaptor_Curve theCurveB(EdgeB);
317       BRepAdaptor_Curve theCurveC(EdgeC);
318       A=theCurveC.Value(0.1);
319       B=theCurveC.Value(0.9);
320       C=theCurveB.Value(0.5);
321     }
322     else {
323       // FaceB a 1 unique edge courbe
324       BRepAdaptor_Curve theCurveB(EdgeB);
325       A=theCurveB.Value(0.1);
326       B=theCurveB.Value(0.9);
327       C=theCurveB.Value(0.5);
328     }
329     // Construction du Geom_Plane
330     GC_MakePlane MkPlane(A,B,C);
331     Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
332     
333     // on le display & bind
334     theAISPlaneTri= new AIS_PlaneTrihedron(theGeomPlane );
335     
336     theAISPlaneTri->SetXLabel(Xlabel);
337     theAISPlaneTri->SetYLabel(Ylabel);
338     
339     GetMapOfAIS().Bind ( theAISPlaneTri, name);
340     aContext->Display(theAISPlaneTri );
341   }
342   return 0;
343 }
344
345 static Standard_Integer OCC295(Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
346 {
347   if(argc != 4) {
348     di << "Usage : " << argv[0] << " edge_result edge1 edge2" << "\n";
349     return 1;
350   }
351   
352   TopoDS_Shape Sh1 = DBRep::Get(argv[2]);
353   TopoDS_Shape Sh2 = DBRep::Get(argv[3]);
354   if(Sh1.IsNull() || Sh2.IsNull()) return 1;
355   if(Sh1.ShapeType() != TopAbs_EDGE || Sh2.ShapeType() != TopAbs_EDGE) return 1;
356   TopoDS_Edge e1 = TopoDS::Edge(Sh1);
357   TopoDS_Edge e2 = TopoDS::Edge(Sh2);
358   Standard_Real f1,l1,f2,l2;
359   Standard_Boolean After =  Standard_True;
360   Handle(Geom_Curve) ac1 = BRep_Tool::Curve(e1,f1,l1);
361   Handle(Geom_Curve) ac2 = BRep_Tool::Curve(e2,f2,l2);
362   Handle(Geom_BSplineCurve) bsplc1 = Handle(Geom_BSplineCurve)::DownCast(ac1);
363   Handle(Geom_BSplineCurve) bsplc2 = Handle(Geom_BSplineCurve)::DownCast(ac2);
364   if(bsplc1.IsNull() || bsplc2.IsNull()) return 1;
365   gp_Pnt pmid = 0.5 * ( bsplc1->Pole(bsplc1->NbPoles()).XYZ() + bsplc2->Pole(1).XYZ() );
366   bsplc1->SetPole(bsplc1->NbPoles(), pmid);
367   bsplc2->SetPole(1, pmid);
368   GeomConvert_CompCurveToBSplineCurve connect3d(bsplc1);
369   if(!connect3d.Add(bsplc2,Precision::Confusion(), After, Standard_False)) return 1;
370   BRepBuilderAPI_MakeEdge MkEdge(connect3d.BSplineCurve());
371   if(MkEdge.IsDone()) {
372     TopoDS_Edge nedge = MkEdge.Edge();
373     DBRep::Set ( argv[1], nedge );
374     return 0;
375   }
376   else return 1;
377 }
378
379 static Standard_Integer OCC49 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
380 {
381
382   if ( argc != 2 ) {
383     di << "Usage : " << argv[0] << " name" << "\n";
384     return 1;
385   }
386
387   TopoDS_Shape S = DBRep::Get(argv[1]);
388   if (S.IsNull()) return 0;
389
390   GProp_GProps G;
391   BRepGProp::VolumeProperties(S,G);
392   GProp_PrincipalProps Pr = G.PrincipalProperties();
393   Standard_Boolean Result = Pr.HasSymmetryAxis();
394   if (Result) {
395     di << "1" << "\n";
396   } else {
397     di << "0" << "\n";
398   }
399   return 0;
400 }
401
402 static Standard_Integer OCC132 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
403 {
404   /*
405      OCC132:
406      =======
407
408      ... the validation of the name of files in Analyse_DOS and Analyse_UNIX is : 
409
410      characters not allowed in DOS/WNT names are 
411      / 
412      : 
413      * 
414      ? 
415      " 
416      < 
417      > 
418      | 
419      and  more than one dot in filename.
420      */
421
422   if ( argc != 2 ) {
423     di << "Usage : " << argv[0] << " DependentName" << "\n";
424     return 1;
425   }
426
427   OSD_SysType SysType1 = OSD_OS2;
428   OSD_SysType SysType2 = OSD_WindowsNT;
429
430   {
431     try {
432       OCC_CATCH_SIGNALS
433       OSD_Path Path (argv[1], SysType1);
434     }
435     catch (Standard_ProgramError) {
436       di << "1" << "\n";
437       return 0;
438     }
439   }
440
441   {
442     try {
443       OCC_CATCH_SIGNALS
444       OSD_Path Path (argv[1], SysType2);
445     }
446     catch (Standard_ProgramError) {
447       di << "2" << "\n";
448       return 0;
449     }
450   }
451   
452   di << "0" << "\n";
453   return 0;
454 }
455
456 static Standard_Integer OCC405 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
457 {
458   if(argc != 4) {
459     di << "Usage : " << argv[0] << " edge_result edge1 edge2; merge two edges" << "\n";
460     return 1;
461   }
462   
463   TopoDS_Shape Sh1 = DBRep::Get(argv[2]);
464   TopoDS_Shape Sh2 = DBRep::Get(argv[3]);
465   if(Sh1.IsNull() || Sh2.IsNull()) return 1;
466   if(Sh1.ShapeType() != TopAbs_EDGE || Sh2.ShapeType() != TopAbs_EDGE) return 1;
467   TopoDS_Edge e1 = TopoDS::Edge(Sh1);
468   TopoDS_Edge e2 = TopoDS::Edge(Sh2);
469   Standard_Real f1,l1,f2,l2;
470   Standard_Boolean After =  Standard_True;
471   Handle(Geom_Curve) ac1 = BRep_Tool::Curve(e1,f1,l1);
472   Handle(Geom_Curve) ac2 = BRep_Tool::Curve(e2,f2,l2);
473   if(e1.Orientation() == TopAbs_REVERSED) {
474     Standard_Real cf = f1;
475       f1 = ac1->ReversedParameter ( l1 );
476       l1 = ac1->ReversedParameter ( cf );
477       ac1 = ac1->Reversed();
478     }
479     if(e2.Orientation() == TopAbs_REVERSED) {
480       Standard_Real cf = f2;
481       f2 = ac2->ReversedParameter ( l2 );
482       l2 = ac2->ReversedParameter ( cf );
483       ac2 = ac2->Reversed();
484     }
485   Handle(Geom_BSplineCurve) bsplc1 = Handle(Geom_BSplineCurve)::DownCast(ac1);
486   Handle(Geom_BSplineCurve) bsplc2 = Handle(Geom_BSplineCurve)::DownCast(ac2);
487   if(bsplc1.IsNull() || bsplc2.IsNull()) return 1;
488   if(bsplc1->FirstParameter() < f1 - Precision::PConfusion() || 
489      bsplc1->LastParameter() > l1 + Precision::PConfusion()) {
490     Handle(Geom_BSplineCurve) aBstmp  = Handle(Geom_BSplineCurve)::DownCast(bsplc1->Copy());
491     aBstmp->Segment(f1,l1);
492     bsplc1 =aBstmp; 
493   }
494   if(bsplc2->FirstParameter() < f2 - Precision::PConfusion() || 
495      bsplc2->LastParameter() > l2 + Precision::PConfusion()) {
496     Handle(Geom_BSplineCurve) aBstmp  = Handle(Geom_BSplineCurve)::DownCast(bsplc2->Copy());
497     aBstmp->Segment(f2,l2);
498     bsplc2 =aBstmp; 
499   }
500   gp_Pnt pmid = 0.5 * ( bsplc1->Pole(bsplc1->NbPoles()).XYZ() + bsplc2->Pole(1).XYZ() );
501   bsplc1->SetPole(bsplc1->NbPoles(), pmid);
502   bsplc2->SetPole(1, pmid);
503   GeomConvert_CompCurveToBSplineCurve connect3d(bsplc1);
504   if(!connect3d.Add(bsplc2,Precision::Confusion(), After, Standard_False)) return 1;
505   BRepBuilderAPI_MakeEdge MkEdge(connect3d.BSplineCurve());
506   if(MkEdge.IsDone()) {
507     TopoDS_Edge nedge = MkEdge.Edge();
508     DBRep::Set ( argv[1], nedge );
509     return 0;
510   }
511   else return 1;
512 }
513
514 static Standard_Integer OCC252 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
515 {
516   if(!(argc == 4 || argc == 5)) {
517     di << "Usage : " << argv[0] << " result part tool [ModeOfLimitation=0/1/2]" << "\n";
518     return 1;
519   }
520   
521   TopoDS_Shape s1 = DBRep::Get(argv[2]);
522   TopoDS_Shape s2 = DBRep::Get(argv[3]);
523   if (s1.IsNull() || s2.IsNull()) return 1;
524
525   //QAModTopOpe_ModeOfLimitation ModeOfLimitation = QAModTopOpe_Forward;
526   QANewModTopOpe_ModeOfLimitation ModeOfLimitation = QANewModTopOpe_Forward;
527   if(argc==5) {
528     Standard_Integer ModeOfLimitationInteger = Draw::Atoi(argv[4]);
529     if(!(ModeOfLimitationInteger == 0 || ModeOfLimitationInteger == 1 || ModeOfLimitationInteger == 2)) {
530       di << "Usage : " << argv[0] << " result part tool [ModeOfLimitation=0/1/2]" << "\n";
531       return 1;
532     }
533     //if (ModeOfLimitationInteger == 1) ModeOfLimitation = QAModTopOpe_Reversed;
534     //if (ModeOfLimitationInteger == 2) ModeOfLimitation = QAModTopOpe_BothParts;
535     if (ModeOfLimitationInteger == 1) ModeOfLimitation = QANewModTopOpe_Reversed;
536     if (ModeOfLimitationInteger == 2) ModeOfLimitation = QANewModTopOpe_BothParts;
537   }
538
539   //TopoDS_Shape res = QAModTopOpe_Limitation(s1,s2,ModeOfLimitation);
540   TopoDS_Shape res = QANewModTopOpe_Limitation(s1,s2,ModeOfLimitation);
541   if (res.IsNull()) {
542     di << "Error : result is null" << "\n";
543     return 1;
544   }
545
546   DBRep::Set(argv[1],res);
547
548   return 0;
549 }
550
551 static Standard_Integer OCC307 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
552 {
553   if(!(argc == 4 || argc == 5)) {
554     di << "Usage : " << argv[0] << " result part tool [AllowCutting=0/1]" << "\n";
555     return 1;
556   }
557   
558   TopoDS_Shape s1 = DBRep::Get(argv[2]);
559   TopoDS_Shape s2 = DBRep::Get(argv[3]);
560   if (s1.IsNull() || s2.IsNull()) return 1;
561
562   Standard_Boolean AllowCutting = Standard_False;
563   if(argc==5) {
564     Standard_Integer AllowCuttingInteger = Draw::Atoi(argv[4]);
565     if(!( AllowCuttingInteger == 0 || AllowCuttingInteger == 1)) {
566       di << "Usage : " << argv[0] << " result part tool [AllowCutting=0/1]" << "\n";
567       return 1;
568     }
569     if (AllowCuttingInteger == 1) AllowCutting = Standard_True;
570   }
571
572   //TopoDS_Shape res = QAModTopOpe_Glue(s1,s2,AllowCutting);
573   TopoDS_Shape res = QANewModTopOpe_Glue(s1,s2,AllowCutting);
574   if (res.IsNull()) {
575     di << "Error : result is null" << "\n";
576     return 1;
577   }
578
579   DBRep::Set(argv[1],res);
580
581   return 0;
582 }
583
584 static Standard_Integer OCC395 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
585 {
586   if(argc != 4) {
587     di << "Usage : " << argv[0] << " edge_result edge1 edge2" << "\n";
588     return 1;
589   }
590   //TCollection_AsciiString fnom(a[1]);
591   //Standard_Boolean modfic = XSDRAW::FileAndVar(a[1],a[2],a[3],"IGES",fnom,rnom,resnom);
592   TopoDS_Shape Sh1 = DBRep::Get(argv[2]);
593   TopoDS_Shape Sh2 = DBRep::Get(argv[3]);
594   if(Sh1.IsNull() || Sh2.IsNull()) return 1;
595   if(Sh1.ShapeType() != TopAbs_EDGE || Sh2.ShapeType() != TopAbs_EDGE) return 1;
596   TopoDS_Edge e1 = TopoDS::Edge(Sh1);
597   TopoDS_Edge e2 = TopoDS::Edge(Sh2);
598   Standard_Real f1,l1,f2,l2;
599   Standard_Boolean After =  Standard_True;
600   Handle(Geom_Curve) ac1 = BRep_Tool::Curve(e1,f1,l1);
601   Handle(Geom_Curve) ac2 = BRep_Tool::Curve(e2,f2,l2);
602   if(e1.Orientation() == TopAbs_REVERSED) {
603       //Standard_Real cf = cf1;
604       //cf1 = ac1->ReversedParameter ( cl1 );
605       //cl1 = ac1->ReversedParameter ( cf );
606       ac1 = ac1->Reversed();
607     }
608     if(e2.Orientation() == TopAbs_REVERSED) {
609       //Standard_Real cf = cf2;
610       //ac2 = ac2->ReversedParameter ( cl2 );
611       //ac2 = ac2->ReversedParameter ( cf );
612       ac2 = ac2->Reversed();
613     }
614   Handle(Geom_BSplineCurve) bsplc1 = Handle(Geom_BSplineCurve)::DownCast(ac1);
615   Handle(Geom_BSplineCurve) bsplc2 = Handle(Geom_BSplineCurve)::DownCast(ac2);
616   if(bsplc1.IsNull() || bsplc2.IsNull()) return 1;
617   gp_Pnt pmid = 0.5 * ( bsplc1->Pole(bsplc1->NbPoles()).XYZ() + bsplc2->Pole(1).XYZ() );
618   bsplc1->SetPole(bsplc1->NbPoles(), pmid);
619   bsplc2->SetPole(1, pmid);
620   GeomConvert_CompCurveToBSplineCurve connect3d(bsplc1);
621   if(!connect3d.Add(bsplc2,Precision::Confusion(), After, Standard_False)) return 1;
622   BRepBuilderAPI_MakeEdge MkEdge(connect3d.BSplineCurve());
623   if(MkEdge.IsDone()) {
624     TopoDS_Edge nedge = MkEdge.Edge();
625     DBRep::Set ( argv[1], nedge );
626     return 0;
627   }
628   else return 1;
629 }
630
631 static Standard_Integer OCC394 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
632 {
633   if(argc < 3) {
634     di << "Usage : " << argv[0] << " edge_result edge [tol [mode [tolang]]]" << "\n";
635     return 1;
636   }
637    TopoDS_Shape Sh = DBRep::Get(argv[2]);
638  
639    Standard_Integer k = 3;
640    Standard_Real tol = 100000;
641    Standard_Integer mode = 2;
642    Standard_Real tolang = M_PI/2;
643    if(argc > k) 
644      tol = Draw::Atof(argv[k++]);
645    
646    if(argc > k) 
647      mode=  Draw::Atoi(argv[k++]);
648    
649    if(argc > k) 
650      tolang = Draw::Atof(argv[k++]);
651      
652    
653    Handle(ShapeFix_Wireframe) aSfwr = new ShapeFix_Wireframe();
654    Handle(ShapeBuild_ReShape) aReShape = new ShapeBuild_ReShape;
655    aSfwr->SetContext(aReShape);
656    aSfwr->Load(Sh);
657    aSfwr->SetPrecision(tol);
658    Standard_Boolean aModeDrop = Standard_True;
659    if(mode == 2) 
660      aModeDrop = Standard_False;
661    
662     TopTools_MapOfShape theSmallEdges, theMultyEdges;
663   TopTools_DataMapOfShapeListOfShape theEdgeToFaces,theFaceWithSmall;
664   aSfwr->CheckSmallEdges(theSmallEdges,theEdgeToFaces,theFaceWithSmall, theMultyEdges);
665   aSfwr->MergeSmallEdges (theSmallEdges,theEdgeToFaces,theFaceWithSmall, theMultyEdges, aModeDrop,tolang);
666    //aSfwr->FixSmallEdges(); 
667   TopoDS_Shape resShape =  aSfwr->Shape();;
668   DBRep::Set ( argv[1], resShape );
669   return 0;
670 }
671
672 static Standard_Integer OCC301 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
673 {
674   Handle(AIS_InteractiveContext) context = ViewerTest::GetAISContext();
675   if(context.IsNull()) {
676     di << "use 'vinit' command before " << argv[0] << "\n";
677     return 1;
678   }
679   if ( argc != 3 ) {
680     di << "Usage : " << argv[0] << " ArcRadius ArrowSize" << "\n";
681     return 1;
682   }
683
684   Standard_Real aRadius = Draw::Atof(argv[1]);
685   Standard_Real anArrowSize = Draw::Atof(argv[2]);
686
687   gp_Pnt p1 = gp_Pnt(10.,10.,0.);
688   gp_Pnt p2 = gp_Pnt(50.,10.,0.);
689   gp_Pnt p3 = gp_Pnt(50.,50.,0.);
690
691   TopoDS_Edge E1 = BRepBuilderAPI_MakeEdge(p1, p2);
692   TopoDS_Edge E2 = BRepBuilderAPI_MakeEdge(p2, p3);
693
694   context->Display(new AIS_Shape(E1)); 
695   context->Display(new AIS_Shape(E2)); 
696
697   gp_Pnt plnpt(0, 0, 0);
698   gp_Dir plndir(0, 0, 1);
699   Handle(Geom_Plane) pln = new Geom_Plane(plnpt,plndir);
700
701   Handle(AIS_AngleDimension) anAngleDimension = new AIS_AngleDimension (p1.Mirrored (p2), p2, p3);
702
703   Handle(Prs3d_DimensionAspect) anAspect = new Prs3d_DimensionAspect;
704   anAspect->MakeArrows3d (Standard_True);
705   anAspect->ArrowAspect()->SetLength (anArrowSize);
706   anAspect->SetTextHorizontalPosition (Prs3d_DTHP_Right);
707   anAspect->TextAspect ()->SetColor (Quantity_NOC_YELLOW);
708   anAngleDimension->SetDimensionAspect (anAspect);
709   // Another position of dimension
710   anAngleDimension->SetFlyout (aRadius);
711   context->Display (anAngleDimension, 0);
712   return 0;
713 }
714
715 static Standard_Integer OCC294 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
716 {
717   if(argc < 4) {
718     di << "Usage : " << argv[0] << " shape_result shape edge" << "\n";
719     return 1;
720   }
721   TopoDS_Shape Sh1 = DBRep::Get(argv[2]);
722   TopoDS_Shape Sh2 = DBRep::Get(argv[3]);
723   if(Sh1.IsNull() || Sh2.IsNull()) return 1;
724   if(Sh2.ShapeType() != TopAbs_EDGE) return 1;
725
726   //QAModTopOpe_ReShaper ReShaper(Sh1);
727   QANewModTopOpe_ReShaper ReShaper(Sh1);
728   ReShaper.Remove(Sh2);
729   const TopoDS_Shape& ResultShape = ReShaper.GetResult();
730   if(ResultShape.IsNull()) {
731     di << "Faulty " << argv[0] << " : " << argv[1] << " - shape_result is null" << "\n";
732     return 1;
733   }
734
735   DBRep::Set ( argv[1], ResultShape);
736   return 0;
737 }
738
739 static Standard_Integer OCC60 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
740 {
741   Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
742   if(aContext.IsNull()) { 
743     di << "use 'vinit' command before " << argv[0] << "\n";
744     return 1;
745   }
746   if(argc < 5) {
747     di << "Usage : " << argv[0] << " xmin ymin xmax ymax; selection window" << "\n";
748     return 1;
749   }
750
751   Standard_Integer xmin = Draw::Atoi(argv[1]);
752   Standard_Integer ymin = Draw::Atoi(argv[2]);
753   Standard_Integer xmax = Draw::Atoi(argv[3]);
754   Standard_Integer ymax = Draw::Atoi(argv[4]);
755
756   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
757
758   Handle(ViewerTest_EventManager) EM = ViewerTest::CurrentEventManager();
759   EM->Select(xmin,ymin,xmax,ymax);
760
761   return 0;
762 }
763
764 static Standard_Integer OCC70 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
765 {
766   Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
767   if(aContext.IsNull()) { 
768     di << "use 'vinit' command before " << argv[0] << "\n";
769     return 1;
770   }
771   if(argc < 7) {
772     di << "Usage : " << argv[0] << " x1 y1 x2 y2 x3 y3 [x y ...]; polygon of selection" << "\n";
773     return 1;
774   }
775   if (((argc - 1) % 2) != 0) {
776     di << "Usage : " << argv[0] << " x1 y1 x2 y2 x3 y3 [x y ...]; polygon of selection" << "\n";
777     return 1;
778   }
779
780   Standard_Integer i, j, np = (argc-1) / 2;
781   TColgp_Array1OfPnt2d Polyline(1,np);
782   j = 1;
783   for (i = 1; i <= np; i++) {
784     Polyline(i) = gp_Pnt2d(Draw::Atof(argv[j]), Draw::Atof(argv[j+1]));
785     j += 2;
786   }
787
788   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
789
790   aContext->Select(Polyline,V3dView);
791   aContext->UpdateCurrentViewer();
792
793   return 0;
794 }
795
796 static Standard_Integer OCC261 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
797 {
798   if(argc != 2) {
799     di << "Usage : " << argv[0] << " Doc" << "\n";
800     return 1;
801   }
802
803   Handle(TDocStd_Document) Doc;
804   if(DDocStd::GetDocument(argv[1], Doc)) {
805     Doc->ClearRedos();
806     return 0;
807   } else
808     return 1;
809 }
810
811 #include <OSD_File.hxx>
812 static Standard_Integer OCC710 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
813 {
814   if(argc != 2) {
815     di << "Usage : " << argv[0] << " path" << "\n";
816   }
817
818   TCollection_AsciiString in(argv[1]);
819   OSD_File* aFile = new OSD_File(in);
820   Standard_Boolean anExists = aFile->Exists();
821   if(anExists == Standard_True) 
822     di << "1" << "\n";
823   else
824     di << "0" << "\n";
825   return 0;
826 }
827
828 #include <ShapeFix_Shell.hxx>
829 static Standard_Integer OCC904 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
830 {
831   if(argc != 4) {
832     di << "Usage : " << argv[0] << " result shape nonmanifoldmode(0/1)" << "\n";
833   }
834   TopoDS_Shape S = DBRep::Get(argv[2]);
835   if (S.IsNull() || S.ShapeType() != TopAbs_SHELL) {
836     di << " Shape is null" << "\n";
837     return 1;
838   }
839   Standard_Boolean nonmanifmode = (Draw::Atoi(argv[3]) != 0);
840   Handle(ShapeFix_Shell) SFSh = new ShapeFix_Shell;
841   SFSh->FixFaceOrientation(TopoDS::Shell(S),Standard_True,nonmanifmode);
842   DBRep::Set(argv[1],SFSh->Shape());
843   return 0;
844 }
845
846 void QABugs::Commands_16(Draw_Interpretor& theCommands) {
847   const char *group = "QABugs";
848
849   theCommands.Add ("BUC60848", "BUC60848 shape", __FILE__, BUC60848, group);
850   theCommands.Add ("BUC60828", "BUC60828", __FILE__, BUC60828, group);
851   theCommands.Add ("BUC60814", "BUC60814", __FILE__, BUC60814, group);
852   theCommands.Add ("BUC60774", "BUC60774", __FILE__, BUC60774, group);
853   theCommands.Add ("BUC60972", "BUC60972 edge edge plane val text ", __FILE__, BUC60972, group);
854   theCommands.Add ("OCC218", "OCC218 name plane Xlabel Ylabel", __FILE__, OCC218bug, group);
855   theCommands.Add ("OCC295", "OCC295 edge_result edge1 edge2", __FILE__, OCC295, group);
856   theCommands.Add ("OCC49", "OCC49 name", __FILE__, OCC49, group);
857   theCommands.Add ("OCC132", "OCC132 DependentName", __FILE__, OCC132, group);
858   theCommands.Add ("OCC405", "OCC405 edge_result edge1 edge2; merge two edges", __FILE__, OCC405, group);
859   theCommands.Add ("OCC252", "OCC252 result part tool [ModeOfLimitation=0/1/2]", __FILE__, OCC252, group);
860   theCommands.Add ("OCC307", "OCC307 result part tool [AllowCutting=0/1]", __FILE__, OCC307, group);
861   theCommands.Add ("OCC395", "OCC395 edge_result edge1 edge2", __FILE__, OCC395, group);
862   theCommands.Add ("OCC394", "OCC394 edge_result edge [tol [mode [tolang]]]", __FILE__, OCC394, group);
863   theCommands.Add ("OCC301", "OCC301 ArcRadius ArrowSize", __FILE__, OCC301, group);
864   theCommands.Add ("OCC294", "OCC294 shape_result shape edge", __FILE__, OCC294, group);
865   theCommands.Add ("OCC60", "OCC60 xmin ymin xmax ymax; selection window", __FILE__, OCC60, group);
866   theCommands.Add ("OCC70", "OCC70 x1 y1 x2 y2 x3 y3 [x y ...]; polygon of selection", __FILE__, OCC70, group);
867   theCommands.Add ("OCC261", "OCC261 Doc", __FILE__, OCC261, group);
868   theCommands.Add ("OCC710", "OCC710 path", __FILE__, OCC710, group);
869   theCommands.Add ("OCC904", "OCC904 result shape nonmanifoldmode(0/1)", __FILE__, OCC904, group);
870
871   return;
872 }