src/QABugs/QABugs_9.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 <gp_Ax2.hxx>
  28 #include <gp_Pnt.hxx>
  29 #include <Geom_RectangularTrimmedSurface.hxx>
  30 #include <BRepBuilderAPI_MakeFace.hxx>
  31 #include <GC_MakeTrimmedCone.hxx>
  32
  33 static Standard_Integer BUC60857 (Draw_Interpretor& di, Standard_Integer /*argc*/,const char ** argv)
  34 {
  35   gp_Ax2  Cone_Ax;
  36   double R1=8, R2=16;
  37   gp_Pnt P0(0,0,0), P1(0,0,20), P2(0,0,45);
  38
  39   Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
  40   if(aContext.IsNull()) {
  41     di << "Use vinit command before " << argv[0] << "\n";
  42     return 1;
  43   }
  44
  45   Handle(Geom_RectangularTrimmedSurface) S = GC_MakeTrimmedCone (P1, P2, R1, R2).Value();
  46   TopoDS_Shape myshape = BRepBuilderAPI_MakeFace(S, Precision::Confusion()).Shape();
  47   DBRep::Set("BUC60857_BLUE",myshape);
  48   Handle(AIS_Shape) ais1 = new AIS_Shape(myshape);
  49   aContext->Display(ais1);
  50   aContext->SetColor(ais1, Quantity_NOC_BLUE1);
  51
  52   Handle(Geom_RectangularTrimmedSurface) S2 = GC_MakeTrimmedCone (P1, P2, R1, 0).Value();
  53   TopoDS_Shape myshape2 = BRepBuilderAPI_MakeFace(S2, Precision::Confusion()).Shape();
  54   DBRep::Set("BUC60857_RED",myshape2);
  55   Handle(AIS_Shape) ais2 = new AIS_Shape(myshape2);
  56   aContext->Display(ais2);
  57   aContext->SetColor(ais2, Quantity_NOC_RED);
  58
  59   Handle(Geom_RectangularTrimmedSurface) S3 = GC_MakeTrimmedCone (P1, P2, R2, R1).Value();
  60   TopoDS_Shape myshape3 = BRepBuilderAPI_MakeFace(S3, Precision::Confusion()).Shape();
  61   DBRep::Set("BUC60857_GREEN",myshape3);
  62   Handle(AIS_Shape) ais3 = new AIS_Shape(myshape3);
  63   aContext->Display(ais3);
  64   aContext->SetColor(ais3, Quantity_NOC_GREEN);
  65
  66   return 0;
  67 }
  68
  69 #include <ViewerTest_DoubleMapOfInteractiveAndName.hxx>
  70 #include <ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName.hxx>
  71 #include <SelectMgr_Selection.hxx>
  72 #include <StdSelect_BRepOwner.hxx>
  73 #include <SelectBasics_SensitiveEntity.hxx>
  74 #if ! defined(_WIN32)
  75 extern ViewerTest_DoubleMapOfInteractiveAndName& GetMapOfAIS();
  76 #else
  77 Standard_EXPORT ViewerTest_DoubleMapOfInteractiveAndName& GetMapOfAIS();
  78 #endif
  79
  80 static Standard_Integer OCC137 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
  81 {
  82   Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
  83   if(aContext.IsNull()) {
  84     di << argv[0] << "ERROR : use 'vinit' command before \n";
  85     return 1;
  86   }
  87   if ( argc < 2 || argc > 3) {
  88     di << "ERROR : Usage : " << argv[0] << " highlight_mode [shape]\n";
  89     return 1;
  90   }
  91
  92   ViewerTest_DoubleMapOfInteractiveAndName aMap ;
  93   if(argc != 3) {
  94     aMap.Assign(GetMapOfAIS());
  95   } else {
  96     ViewerTest_DoubleMapOfInteractiveAndName& aMap1 = GetMapOfAIS();
  97     TCollection_AsciiString aName(argv[2]);
  98     Handle(AIS_InteractiveObject) AISObj;
  99     if(!aMap1.IsBound2(aName)) {
 100       di << "Use 'vdisplay' before\n";
 101       return 1;
 102     } else {
 103       AISObj = Handle(AIS_InteractiveObject)::DownCast(aMap1.Find2(aName));
 104       if(AISObj.IsNull()){
 105         di << argv[2] << " : No interactive object\n";
 106         return 1;
 107       }
 108       aMap.Bind(AISObj,aName);
 109     }
 110   }
 111   ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName it(GetMapOfAIS());
 112   while ( it.More() ) {
 113     Handle(AIS_InteractiveObject) AISObj = Handle(AIS_InteractiveObject)::DownCast(it.Key1());
 114     AISObj->SetHilightMode(Draw::Atoi(argv[1]));
 115     if(AISObj->HasSelection(4)) {
 116       //Handle(SelectMgr_Selection)& aSelection = AISObj->Selection(4);
 117       const Handle(SelectMgr_Selection)& aSelection = AISObj->Selection(4);
 118       if(!aSelection.IsNull()) {
 119         for(aSelection->Init();aSelection->More();aSelection->Next()) {
 120           Handle(StdSelect_BRepOwner) aO = Handle(StdSelect_BRepOwner)::DownCast(aSelection->Sensitive()->BaseSensitive()->OwnerId());
 121           aO->SetHilightMode(Draw::Atoi(argv[1]));
 122         }
 123       }
 124     }
 125     it.Next();
 126   }
 127
 128   return 0;
 129 }
 130
 131 #include <GccEnt_Position.hxx>
 132 #include <Geom2dGcc_QualifiedCurve.hxx>
 133 #include <Geom2dGcc_Circ2d2TanRad.hxx>
 134 #include <gp_Elips2d.hxx>
 135 #include <Geom2d_Ellipse.hxx>
 136 #include <Geom2d_Circle.hxx>
 137 #include <AIS_InteractiveObject.hxx>
 138
 139 static Standard_Integer OCC24303(Draw_Interpretor& di, Standard_Integer n, const char** a)
 140 {
 141   if(n < 2)
 142     return 1;
 143
 144   const Standard_Integer SolID = Draw::Atoi(a[1]);
 145
 146   //Ellipses
 147   Standard_Real majorRadius = 2.0;
 148   Standard_Real minorRadius = 1.0;
 149   gp_Pnt2d p0(gp::Origin2d());
 150   gp_Pnt2d p1(4.0,0.0);
 151
 152   gp_Elips2d ellipse1 = gp_Elips2d( gp_Ax2d(p0,gp::DX2d()),majorRadius, minorRadius,true);
 153   gp_Elips2d ellipse2 = gp_Elips2d( gp_Ax2d(p1,gp::DX2d()),majorRadius, minorRadius,true);
 154
 155   Handle(Geom2d_Curve) curve1 = new Geom2d_Ellipse(ellipse1);
 156   Handle(Geom2d_Curve) curve2 = new Geom2d_Ellipse(ellipse2);
 157   DrawTrSurf::Set("c1", curve1);
 158   DrawTrSurf::Set("c2", curve2);
 159   //Expected tangent
 160   gp_Pnt2d centre(5.0,0.0);
 161   Standard_Real radius = 3.0;
 162   gp_Circ2d theorical_tangent = gp_Circ2d(gp_Ax2d(centre,gp::DX2d()),radius);
 163
 164   //Calculate the tangent with Geom2dGcc_Circ2dTanRan
 165
 166   const Geom2dAdaptor_Curve  AdaptedCurve1 ( curve1 );
 167   const Geom2dAdaptor_Curve  AdaptedCurve2 ( curve2 );
 168
 169   GccEnt_Position  curveQualif1 = GccEnt_unqualified;
 170   GccEnt_Position  curveQualif2 = GccEnt_unqualified;
 171
 172   const Geom2dGcc_QualifiedCurve qualifiedCurve1 ( AdaptedCurve1, curveQualif1 );
 173   const Geom2dGcc_QualifiedCurve qualifiedCurve2 ( AdaptedCurve2, curveQualif2 );
 174
 175   const Geom2dGcc_Circ2d2TanRad circCalc(qualifiedCurve1,qualifiedCurve2,radius,/*Precision::Approximation()*/ 1.0e-9);
 176
 177   const Standard_Integer aNbSol = circCalc.NbSolutions();
 178   di << "Solutions " << aNbSol << "\n";
 179
 180   if((SolID < 1) || (SolID > aNbSol))
 181   {
 182     di << "Wrong SolID value\n";
 183     return 1;
 184   }
 185
 186   gp_Circ2d calculated_tangent = circCalc.ThisSolution(SolID);
 187
 188   char Buf[10];
 189   for (Standard_Integer i = 1; i <= aNbSol; i++)
 190   {
 191     gp_Circ2d ct = circCalc.ThisSolution(i);
 192     Handle (Geom2d_Circle) GSol = new Geom2d_Circle(ct);
 193     Sprintf(Buf, "Sol%d",i);
 194     DrawTrSurf::Set(Buf, GSol);
 195   }
 196
 197   //This distance is different in OC 6.5.4 and OC 6.6.0
 198   Standard_Real dist = theorical_tangent.Location().Distance(calculated_tangent.Location());
 199   di << "Distance = " << dist << "\n";
 200
 201   return 0;
 202 }
 203
 204 void QABugs::Commands_9(Draw_Interpretor& theCommands) {
 205   const char *group = "QABugs";
 206
 207   theCommands.Add ("BUC60857", "BUC60857", __FILE__, BUC60857, group);
 208   theCommands.Add("OCC137","OCC137 mode [shape]",__FILE__,OCC137,group);
 209   theCommands.Add("OCC24303", "OCC24303 SolID ",        __FILE__,       OCC24303,group);
 210
 211   return;
 212 }