diff --git a/samples/tcl/Penrose.tcl b/samples/tcl/Penrose.tcl
index 3df642dae3..292813fc7d 100644
--- a/samples/tcl/Penrose.tcl
+++ b/samples/tcl/Penrose.tcl
@@ -41,7 +41,7 @@ tcopy bxx b10
# make some boxes hollow
for {set i 1} {$i <= 1} {incr i} {
- set dim [bounding -s b$i -save xmin ymin zmin xmax ymax zmax]
+ set dim [bounding b$i -save xmin ymin zmin xmax ymax zmax]
set dx [dval xmax-xmin]
set x1 [dval xmin+0.1*$dx]
set x2 [dval ymin+0.1*$dx]
diff --git a/samples/tcl/snowflake.tcl b/samples/tcl/snowflake.tcl
index 94fef6a187..f29550823e 100644
--- a/samples/tcl/snowflake.tcl
+++ b/samples/tcl/snowflake.tcl
@@ -135,7 +135,7 @@ vfit
# add dimension:
# detect vertices extremal in X direction
-bounding -s snowflake -save x1 y1 z1 x2 y2 z2
+bounding snowflake -save x1 y1 z1 x2 y2 z2
plane f1 x1 0 0 1 0 0
plane f2 x2 0 0 1 0 0
mkface f1 f1
diff --git a/src/BRepTest/BRepTest_BasicCommands.cxx b/src/BRepTest/BRepTest_BasicCommands.cxx
index 87417ef84b..69f7d1f03a 100644
--- a/src/BRepTest/BRepTest_BasicCommands.cxx
+++ b/src/BRepTest/BRepTest_BasicCommands.cxx
@@ -66,6 +66,12 @@ Standard_IMPORT Draw_Viewer dout;
static void ConvertBndToShape(const Bnd_OBB& theBox,
const char* const theName)
{
+ if (theBox.IsVoid())
+ {
+ DBRep::Set (theName, TopoDS_Shape());
+ return;
+ }
+
const gp_Pnt &aBaryCenter = theBox.Center();
const gp_XYZ &aXDir = theBox.XDirection(),
&aYDir = theBox.YDirection(),
@@ -455,6 +461,29 @@ static Standard_Integer getcoords(Draw_Interpretor& di,Standard_Integer n,const
return 0;
}
+//! Parse 6 real values for defining AABB.
+static Standard_Boolean parseMinMax (const char** theArgVec, Bnd_Box& theBox)
+{
+ const TCollection_AsciiString aMin[3] = { theArgVec[0], theArgVec[1], theArgVec[2] };
+ const TCollection_AsciiString aMax[3] = { theArgVec[3], theArgVec[4], theArgVec[5] };
+ if (!aMin[0].IsRealValue()
+ || !aMin[1].IsRealValue()
+ || !aMin[2].IsRealValue()
+ || !aMax[0].IsRealValue()
+ || !aMax[1].IsRealValue()
+ || !aMax[2].IsRealValue())
+ {
+ return Standard_False;
+ }
+
+ const gp_Pnt aPntMin (aMin[0].RealValue(), aMin[1].RealValue(), aMin[2].RealValue());
+ const gp_Pnt aPntMax (aMax[0].RealValue(), aMax[1].RealValue(), aMax[2].RealValue());
+ theBox.SetVoid();
+ theBox.Add (aPntMin);
+ theBox.Add (aPntMax);
+ return Standard_True;
+}
+
//=======================================================================
//function : BoundBox
//purpose :
@@ -463,200 +492,132 @@ static Standard_Integer BoundBox(Draw_Interpretor& theDI,
Standard_Integer theNArg,
const char** theArgVal)
{
- if(theNArg < 2)
- {
- theDI << "Use: " << theArgVal[0] << " {-s shape | -c xmin ymin zmin xmax ymax zmax} "
- "[-obb]\n\t\t[-shape name] [-dump] [-notriangulation]\n\t\t"
- "[-perfmeter name NbIters] [-nodraw] [-optimal] [-exttoler]\n\t\t"
- "[-save xmin ymin zmin xmax ymax zmax]\n\n\n";
-
- theDI << "Computes a bounding box (BndBox). Two types of the source data are supported:\n";
- theDI << " * \"-s\"-option sets the shape, which will be circumscribed by the BndBox;\n";
- theDI << " * \"-c\"-option sets two opposite corners (having (xmin, ymin, zmin) and\n\t"
- "(xmax, ymax, zmax) coordinates) of the resulting\n\taxis-aligned BndBox (AABB).\n";
- theDI << "\nThe following options are supported:\n";
- theDI << " * \"-obb\". If it is switched on then the oriented BndBox (OBB) will "
- "be\n\tcreated. Otherwise, AABB will be created.\n";
- theDI << " * \"-shape\". If it is switched on then the resulting BndBox will be "
- "stored\n\tas a shape (solid) with specified name.\n";
- theDI << " * \"-nodraw\". If it is switched on then the resulting BndBox will not be\n\t"
- "drawn as DRAW-object.\n";
- theDI << " * \"-dump\". Prints the information about the created BndBox.\n";
- theDI << " * \"-notriangulation\". By default, AABB is built from existing mesh.\n\t"
- "This option allows ignoring triangulation.\n";
- theDI << " * \"-save\". Stores the information about created AABB in "
- "specified variables.\n";
- theDI << " * \"-optimal\". If it is switched on then the AABB will be optimal.\n\t"
- "This option is useful for OBB, too. It allows constructing\n\toptimal "
- "initial AABB.\n";
- theDI << " * \"-exttoler\". If it is switched on then the resulting box will be "
- "extended\n\ton the tolerance of the source shape.\n";
- theDI << " * \"-perfmeter\" - Auxiliary option. It provides compatibility "
- "with\n\tOCCT-test system. \"name\" is the counter name for "
- "\"chrono\"-TCL-command.\n\tNbIters is the number of iterations.\n";
- return 1;
- }
+ // 1. Parse arguments
TopoDS_Shape aShape;
-
+ Bnd_Box anAABB;
+
+ Standard_Boolean doPrint = Standard_False;
+ Standard_Boolean useOldSyntax = Standard_False;
Standard_Boolean isOBB = Standard_False;
- Standard_Boolean hasToPrint = Standard_False,
- isTriangulationReq = Standard_True,
- isOptimal = Standard_False,
- isTolerUsed = Standard_False,
- hasToDraw = Standard_True;
- Standard_Integer aNbIters = 1;
- Standard_Integer aStartIdxToSave = -1,
- aStartIdxToCreate = -1,
- aNameToShape = -1,
- anIdxCounterName = -1;
-
- for(Standard_Integer anAIdx = 1; anAIdx < theNArg; anAIdx++)
+ Standard_Boolean isTriangulationReq = Standard_True;
+ Standard_Boolean isOptimal = Standard_False;
+ Standard_Boolean isTolerUsed = Standard_False;
+ Standard_Boolean hasToDraw = Standard_True;
+
+ TCollection_AsciiString anOutVars[6];
+ TCollection_AsciiString aResShapeName;
+ for (Standard_Integer anArgIter = 1; anArgIter < theNArg; ++anArgIter)
{
- if(theArgVal[anAIdx][0] != '-')
- {
- theDI << "Error: Wrong option \"" << theArgVal[anAIdx] <<
- "\". Please use \'-\' symbol\n";
- return 1;
- }
-
- if(!strcmp(theArgVal[anAIdx], "-s"))
- {
- aShape = DBRep::Get(theArgVal[++anAIdx]);
- if(aShape.IsNull())
- {
- theDI << "Error: Argument " << theArgVal[anAIdx] << " is not a shape.\n";
- return 1;
- }
- }
- else if(!strcmp(theArgVal[anAIdx], "-c"))
- {
- aStartIdxToCreate = anAIdx + 1;
- anAIdx += 6;
- }
- else if(!strncmp(theArgVal[anAIdx], "-obb", 4))
+ TCollection_AsciiString anArgCase (theArgVal[anArgIter]);
+ anArgCase.LowerCase();
+ if (anArgCase == "-obb")
{
isOBB = Standard_True;
}
- else if(!strncmp(theArgVal[anAIdx], "-shape", 4))
+ else if (anArgCase == "-aabb")
{
- aNameToShape = ++anAIdx;
+ isOBB = Standard_False;
}
- else if(!strncmp(theArgVal[anAIdx], "-dump", 4))
+ else if (anArgCase == "-shape"
+ && anArgIter + 1 < theNArg
+ && aResShapeName.IsEmpty())
{
- hasToPrint = Standard_True;
+ aResShapeName = theArgVal[++anArgIter];
+ hasToDraw = Standard_False;
}
- else if(!strncmp(theArgVal[anAIdx], "-save", 4))
+ else if (anArgCase == "-dump"
+ || anArgCase == "-print")
{
- aStartIdxToSave = anAIdx+1;
- anAIdx += 6;
+ doPrint = Standard_True;
}
- else if(!strncmp(theArgVal[anAIdx], "-notriangulation", 9))
+ else if (anArgCase == "-save"
+ && anArgIter + 6 < theNArg
+ && anOutVars[0].IsEmpty())
+ {
+ for (int aCompIter = 0; aCompIter < 6; ++aCompIter)
+ {
+ anOutVars[aCompIter] = theArgVal[anArgIter + aCompIter + 1];
+ }
+ anArgIter += 6;
+ }
+ else if (anArgCase == "-notriangulation")
{
isTriangulationReq = Standard_False;
}
- else if(!strncmp(theArgVal[anAIdx], "-perfmeter", 8))
- {
- anIdxCounterName = ++anAIdx;
- aNbIters = Draw::Atoi(theArgVal[++anAIdx]);
- }
- else if(!strncmp(theArgVal[anAIdx], "-optimal", 4))
+ else if (anArgCase == "-optimal")
{
isOptimal = Standard_True;
}
- else if(!strcmp(theArgVal[anAIdx], "-exttoler"))
+ else if (anArgCase == "-exttoler")
{
isTolerUsed = Standard_True;
}
- else if(!strcmp(theArgVal[anAIdx], "-nodraw"))
+ else if (anArgCase == "-nodraw")
{
hasToDraw = Standard_False;
}
+ else if (aShape.IsNull()
+ && !DBRep::Get (theArgVal[anArgIter]).IsNull())
+ {
+ aShape = DBRep::Get (theArgVal[anArgIter]);
+ }
+ else if (anAABB.IsVoid()
+ && anArgIter + 5 < theNArg
+ && parseMinMax (theArgVal + anArgIter, anAABB))
+ {
+ anArgIter += 5;
+ }
else
{
- theDI << "Error: Unknown option \"" << theArgVal[anAIdx] << "\".\n";
+ std::cout << "Syntax error at argument '" << theArgVal[anArgIter] << "'.\n";
return 1;
}
}
- if(aShape.IsNull() && (aStartIdxToCreate < 0))
+ if (anAABB.IsVoid()
+ && aShape.IsNull())
{
- theDI << "Error: One of the options \'-s\' or \'-c\' must be set necessarily.\n";
+ std::cout << "Syntax error: input is not specified (neither shape nor coordinates)\n";
+ return 1;
+ }
+ else if (!anAABB.IsVoid()
+ && (isOBB || isOptimal || isTolerUsed))
+ {
+ std::cout << "Syntax error: Options -obb, -optimal and -extToler cannot be used for explicitly defined AABB.\n";
+ return 1;
+ }
+ else if (isOBB
+ && !anOutVars[0].IsEmpty())
+ {
+ std::cout << "Error: Option -save works only with axes-aligned boxes.\n";
return 1;
}
- if(aStartIdxToCreate > 0)
+ // enable printing (old syntax) if neither saving to shape nor to DRAW variables is requested
+ if (! doPrint && anOutVars[0].IsEmpty() && aResShapeName.IsEmpty())
{
- if(!aShape.IsNull())
- {
- theDI << "Error: Options \'-s\' and \'-c\' are fail for using simultaneously.\n";
- return 1;
- }
- else if(isOBB)
- {
- theDI << "Error: Options \'-c\' and \"-obb\" are fail for using simultaneously.\n";
- return 1;
- }
- }
-
- if(isOptimal)
- {
- if(aShape.IsNull())
- {
- theDI << "Error: Options \"-optimal\" is used without any shape. "
- "Use \'-s\'-option.\n";
- return 1;
- }
- }
-
- if(isTolerUsed)
- {
- if(aShape.IsNull())
- {
- theDI << "Error: Option \"-exttoler\" is used without any shape. "
- "Use \'-s\'-option.\n";
- return 1;
- }
+ doPrint = Standard_True;
+ useOldSyntax = Standard_True;
}
+ // 2. Compute box and save results
Handle(Draw_Box) aDB;
- OSD_Timer aTimer;
-
- if(isOBB)
+ if (isOBB)
{
- if(aStartIdxToSave > 0)
- {
- theDI << "Error: Option \"-save\" work only with axes-aligned boxes.\n";
- return 1;
- }
-
Bnd_OBB anOBB;
- Standard_Integer aN = aNbIters;
+ BRepBndLib::AddOBB(aShape, anOBB, isTriangulationReq, isOptimal, isTolerUsed);
- aTimer.Start();
- while(aN-- > 0)
- {
- anOBB.SetVoid();
- BRepBndLib::AddOBB(aShape, anOBB, isTriangulationReq, isOptimal, isTolerUsed);
- }
- aTimer.Stop();
-
- if(anOBB.IsVoid())
+ if (anOBB.IsVoid())
{
theDI << "Void box.\n";
- hasToPrint = Standard_False;
}
-
- const gp_Pnt &aBaryCenter= anOBB.Center();
- const gp_XYZ &aXDir = anOBB.XDirection(),
- &aYDir = anOBB.YDirection(),
- &aZDir = anOBB.ZDirection();
- Standard_Real aHalfX = anOBB.XHSize(),
- aHalfY = anOBB.YHSize(),
- aHalfZ = anOBB.ZHSize();
-
- if(hasToPrint)
+ else if (doPrint)
{
+ const gp_Pnt &aBaryCenter= anOBB.Center();
+ const gp_XYZ &aXDir = anOBB.XDirection(),
+ &aYDir = anOBB.YDirection(),
+ &aZDir = anOBB.ZDirection();
theDI << "Oriented bounding box\n";
theDI << "Center: " << aBaryCenter.X() << " " <<
aBaryCenter.Y() << " " <<
@@ -664,116 +625,92 @@ static Standard_Integer BoundBox(Draw_Interpretor& theDI,
theDI << "X-axis: " << aXDir.X() << " " << aXDir.Y() << " " << aXDir.Z() << "\n";
theDI << "Y-axis: " << aYDir.X() << " " << aYDir.Y() << " " << aYDir.Z() << "\n";
theDI << "Z-axis: " << aZDir.X() << " " << aZDir.Y() << " " << aZDir.Z() << "\n";
- theDI << "Half X: " << aHalfX << "\n" <<
- "Half Y: " << aHalfY << "\n" << "Half Z: " << aHalfZ << "\n";
+ theDI << "Half X: " << anOBB.XHSize() << "\n"
+ << "Half Y: " << anOBB.YHSize() << "\n"
+ << "Half Z: " << anOBB.ZHSize() << "\n";
}
-
- if(hasToDraw)
- aDB = new Draw_Box(anOBB, Draw_orange);
- if(aNameToShape > 0)
+ if (hasToDraw
+ && !anOBB.IsVoid())
{
- ConvertBndToShape(anOBB, theArgVal[aNameToShape]);
+ aDB = new Draw_Box (anOBB, Draw_orange);
+ }
+
+ if (!aResShapeName.IsEmpty())
+ {
+ ConvertBndToShape (anOBB, aResShapeName.ToCString());
}
}
else // if(!isOBB)
{
- Standard_Real aXmin = RealFirst(), aYmin = RealFirst(), aZmin = RealFirst(),
- aXMax = RealLast(), aYMax = RealLast(), aZMax = RealLast();
-
- Bnd_Box anAABB;
-
- if(aStartIdxToCreate < 0)
+ if (!aShape.IsNull())
{
- Standard_Integer aN = aNbIters;
+ anAABB.SetVoid ();
if(isOptimal)
{
- aTimer.Start();
- while(aN-- > 0)
- {
- anAABB.SetVoid();
- BRepBndLib::AddOptimal(aShape, anAABB, isTriangulationReq, isTolerUsed);
- }
- aTimer.Stop();
+ BRepBndLib::AddOptimal (aShape, anAABB, isTriangulationReq, isTolerUsed);
}
else
{
- aTimer.Start();
- while(aN-- > 0)
- {
- anAABB.SetVoid();
- BRepBndLib::Add(aShape, anAABB, isTriangulationReq);
- }
- aTimer.Stop();
+ BRepBndLib::Add (aShape, anAABB, isTriangulationReq);
}
}
+
+ if (anAABB.IsVoid())
+ {
+ theDI << "Void box.\n";
+ }
else
{
- if(anIdxCounterName > 0)
+ const gp_Pnt aMin = anAABB.CornerMin();
+ const gp_Pnt aMax = anAABB.CornerMax();
+
+ // print to DRAW
+ if (doPrint)
{
- theDI << "Error: Option \"-perfmeter\"does not work if the option \'-c\' "
- "is switched on.\n";
- return 1;
+ if (useOldSyntax)
+ {
+ theDI << aMin.X () << " " << aMin.Y () << " " << aMin.Z () << " "
+ << aMax.X () << " " << aMax.Y () << " " << aMax.Z () << "\n";
+ }
+ else
+ {
+ theDI << "Axes-aligned bounding box\n";
+ theDI << "X-range: " << aMin.X () << " " << aMax.X () << "\n" <<
+ "Y-range: " << aMin.Y() << " " << aMax.Y() << "\n" <<
+ "Z-range: " << aMin.Z () << " " << aMax.Z () << "\n";
+ }
}
- Standard_Integer anIdx = aStartIdxToCreate;
- aXmin = Draw::Atof(theArgVal[anIdx++]);
- aYmin = Draw::Atof(theArgVal[anIdx++]);
- aZmin = Draw::Atof(theArgVal[anIdx++]);
- aXMax = Draw::Atof(theArgVal[anIdx++]);
- aYMax = Draw::Atof(theArgVal[anIdx++]);
- aZMax = Draw::Atof(theArgVal[anIdx++]);
-
- anAABB.Add(gp_Pnt(aXmin, aYmin, aZmin));
- anAABB.Add(gp_Pnt(aXMax, aYMax, aZMax));
- }
-
- if(anAABB.IsVoid())
- {
- theDI << "Void box.\n";
- hasToPrint = Standard_False;
- }
-
- if(hasToPrint || (aStartIdxToSave>0))
- {
- anAABB.Get(aXmin, aYmin, aZmin, aXMax, aYMax, aZMax);
-
- if(hasToPrint)
+ // save DRAW variables
+ if (!anOutVars[0].IsEmpty())
{
- theDI << "Axes-aligned bounding box\n";
- theDI << "X-range: " << aXmin << " " << aXMax << "\n" <<
- "Y-range: " << aYmin << " " << aYMax << "\n" <<
- "Z-range: " << aZmin << " " << aZMax << "\n";
+ Draw::Set (anOutVars[0].ToCString(), aMin.X());
+ Draw::Set (anOutVars[1].ToCString(), aMin.Y());
+ Draw::Set (anOutVars[2].ToCString(), aMin.Z());
+ Draw::Set (anOutVars[3].ToCString(), aMax.X());
+ Draw::Set (anOutVars[4].ToCString(), aMax.Y());
+ Draw::Set (anOutVars[5].ToCString(), aMax.Z());
}
- if(aStartIdxToSave > 0)
+ // add presentation to DRAW viewer
+ if (hasToDraw)
{
- Draw::Set(theArgVal[aStartIdxToSave++], aXmin);
- Draw::Set(theArgVal[aStartIdxToSave++], aYmin);
- Draw::Set(theArgVal[aStartIdxToSave++], aZmin);
- Draw::Set(theArgVal[aStartIdxToSave++], aXMax);
- Draw::Set(theArgVal[aStartIdxToSave++], aYMax);
- Draw::Set(theArgVal[aStartIdxToSave++], aZMax);
+ aDB = new Draw_Box (anAABB, Draw_orange);
}
}
- if(hasToDraw)
- aDB = new Draw_Box(anAABB, Draw_orange);
-
- if(aNameToShape > 0)
+ // save as shape
+ if (!aResShapeName.IsEmpty())
{
- ConvertBndToShape(anAABB, theArgVal[aNameToShape]);
+ ConvertBndToShape (anAABB, aResShapeName.ToCString());
}
}
- if(hasToDraw)
- dout << aDB;
-
- if(anIdxCounterName > 0)
+ if (!aDB.IsNull())
{
- theDI << "COUNTER " << theArgVal[anIdxCounterName] << ": " << aTimer.ElapsedTime() << "\n";
+ dout << aDB;
}
-
return 0;
}
@@ -1514,7 +1451,30 @@ void BRepTest::BasicCommands(Draw_Interpretor& theCommands)
__FILE__,
getcoords,g);
- theCommands.Add("bounding", "enter the comand w/o any arguments to obtain the help.",
+ theCommands.Add ("bounding",
+ "bounding {shape | xmin ymin zmin xmax ymax zmax}"
+ "\n\t\t: [-obb] [-noTriangulation] [-optimal] [-extToler]"
+ "\n\t\t: [-dump] [-shape name] [-nodraw]"
+ "\n\t\t: [-save xmin ymin zmin xmax ymax zmax]"
+ "\n\t\t:"
+ "\n\t\t: Computes a bounding box. Two types of the source data are supported:"
+ "\n\t\t: a shape or AABB corners (xmin, ymin, zmin, xmax, ymax, zmax)."
+ "\n\t\t:"
+ "\n\t\t: Calculation options (applicable only if input is a shape):"
+ "\n\t\t: -obb Compute Oriented Bounding Box (OBB) instead of AABB."
+ "\n\t\t: -noTriangulation Force use of exact geometry for calculation"
+ "\n\t\t: even if triangulation is present."
+ "\n\t\t: -optimal Force calculation of optimal (more tight) AABB."
+ "\n\t\t: In case of OBB, applies to initial AABB used in OBB calculation."
+ "\n\t\t: -extToler Include tolerance of the shape in the resulting box."
+ "\n\t\t:"
+ "\n\t\t: Output options:"
+ "\n\t\t: -dump Prints the information about computed Bounding Box."
+ "\n\t\t: It is enabled by default (with plain old syntax for AABB)"
+ "\n\t\t: if neither -shape nor -save is specified."
+ "\n\t\t: -shape Stores computed box as solid in DRAW variable with specified name."
+ "\n\t\t: -save Stores min and max coordinates of AABB in specified variables."
+ "\n\t\t: -noDraw Avoid drawing resulting Bounding Box in DRAW viewer.",
__FILE__, BoundBox, g);
//
diff --git a/src/Bnd/Bnd_OBB.hxx b/src/Bnd/Bnd_OBB.hxx
index e5f43ad54c..474af04ed4 100644
--- a/src/Bnd/Bnd_OBB.hxx
+++ b/src/Bnd/Bnd_OBB.hxx
@@ -73,6 +73,13 @@ public:
//! Constructor to create OBB from AABB.
Bnd_OBB(const Bnd_Box& theBox) : myIsAABox(Standard_True)
{
+ if (theBox.IsVoid())
+ {
+ myHDims[0] = myHDims[1] = myHDims[2] = -1.0;
+ myIsAABox = Standard_False;
+ return;
+ }
+
Standard_Real aX1, aY1, aZ1, aX2, aY2, aZ2;
theBox.Get(aX1, aY1, aZ1, aX2, aY2, aZ2);
diff --git a/src/QABugs/QABugs_20.cxx b/src/QABugs/QABugs_20.cxx
index a9fcfa701d..33a58bf43f 100644
--- a/src/QABugs/QABugs_20.cxx
+++ b/src/QABugs/QABugs_20.cxx
@@ -64,6 +64,10 @@
#include <Standard_Failure.hxx>
+#include <Bnd_OBB.hxx>
+#include <BRepBndLib.hxx>
+#include <OSD_Timer.hxx>
+
#include <limits>
//=======================================================================
@@ -2990,6 +2994,36 @@ static Standard_Integer OCC29925 (Draw_Interpretor& theDI, Standard_Integer, con
return 0;
}
+//=======================================================================
+//function : OCC29311
+//purpose : check performance of OBB calculations
+//=======================================================================
+static Standard_Integer OCC29311 (Draw_Interpretor& theDI, Standard_Integer theArgc, const char** theArgv)
+{
+ if (theArgc < 4)
+ {
+ std::cerr << "Use: " << theArgv[0] << " shape counter_name nb_iterations" << std::endl;
+ return 1;
+ }
+
+ TopoDS_Shape aShape = DBRep::Get (theArgv[1]);
+ Standard_Integer aNbIter = Draw::Atoi (theArgv[3]);
+
+ Bnd_OBB anOBB;
+ OSD_Timer aTimer;
+ aTimer.Start ();
+ for (Standard_Integer aN = aNbIter; aN > 0; --aN)
+ {
+ anOBB.SetVoid ();
+ BRepBndLib::AddOBB (aShape, anOBB, Standard_False, Standard_False, Standard_False);
+ }
+ aTimer.Stop ();
+
+ theDI << "COUNTER " << theArgv[2] << ": " << aTimer.ElapsedTime() << "\n";
+
+ return 0;
+}
+
void QABugs::Commands_20(Draw_Interpretor& theCommands) {
const char *group = "QABugs";
@@ -3028,6 +3062,7 @@ void QABugs::Commands_20(Draw_Interpretor& theCommands) {
theCommands.Add ("OCC29064", "OCC29064: test memory usage by copying empty maps", __FILE__, OCC29064, group);
theCommands.Add ("OCC29925", "OCC29925: check safety of character classification functions", __FILE__, OCC29925, group);
theCommands.Add("OCC29807", "OCC29807 surface1 surface2 u1 v1 u2 v2", __FILE__, OCC29807, group);
+ theCommands.Add("OCC29311", "OCC29311 shape counter nbiter: check performance of OBB calculation", __FILE__, OCC29311, group);
return;
}
diff --git a/tests/bugs/modalg_1/buc60849 b/tests/bugs/modalg_1/buc60849
index 2311d4fb31..a2e40cb1dd 100755
--- a/tests/bugs/modalg_1/buc60849
+++ b/tests/bugs/modalg_1/buc60849
@@ -6,7 +6,7 @@ puts ""
restore [locate_data_file BUC60849.brep] result
checkshape result
-bounding -s result -save xmin ymin zmin xmax ymax zmax -dump
+bounding result -save xmin ymin zmin xmax ymax zmax -dump
smallview
fit
diff --git a/tests/bugs/modalg_1/bug108 b/tests/bugs/modalg_1/bug108
index 5ec0c836a3..fe699f3f20 100755
--- a/tests/bugs/modalg_1/bug108
+++ b/tests/bugs/modalg_1/bug108
@@ -10,7 +10,7 @@ puts ""
restore [locate_data_file bug61037.brep] sh1
checkshape sh1
-bounding -s sh1 -dump -shape result
+bounding sh1 -dump -shape result
checkprops result -v 5.78576e-005 -s 0.042162
smallview
diff --git a/tests/bugs/modalg_1/bug12661 b/tests/bugs/modalg_1/bug12661
index 5038fe8dcb..5d1d7bd909 100755
--- a/tests/bugs/modalg_1/bug12661
+++ b/tests/bugs/modalg_1/bug12661
@@ -9,7 +9,7 @@ puts ""
set BugNumber OCC12661
restore [locate_data_file OCC12661.brep] result
-bounding -s result -save x1 y1 z1 x2 y2 z2
+bounding result -save x1 y1 z1 x2 y2 z2
checkreal "x1" [dval x1] -6.3659273065258741 0 0.001
checkreal "y1" [dval y1] 0.7051405053395956 0 0.001
diff --git a/tests/bugs/modalg_4/bug6334 b/tests/bugs/modalg_4/bug6334
index 003551d4ea..16647b912e 100755
--- a/tests/bugs/modalg_4/bug6334
+++ b/tests/bugs/modalg_4/bug6334
@@ -16,7 +16,7 @@ offsetshape t b 10 b_1
checkshape t
-bounding -s t -save xt1 yy zz xt2 yy zz -dump
+bounding t -save xt1 yy zz xt2 yy zz -dump
set ori [lindex [dtyp t] 2]
puts "Orientation of thick solid is $ori"
@@ -28,7 +28,7 @@ if { [regexp {Faulty} $che] } {
puts "Faulty ${BugNumber} : checkshape is wrong for h"
}
-bounding -s h -save xh1 yy zz xh2 yy zz -dump
+bounding h -save xh1 yy zz xh2 yy zz -dump
renamevar h result
diff --git a/tests/bugs/modalg_6/bug27537 b/tests/bugs/modalg_6/bug27537
index a184a80d12..f04455bac8 100644
--- a/tests/bugs/modalg_6/bug27537
+++ b/tests/bugs/modalg_6/bug27537
@@ -9,7 +9,7 @@ puts ""
restore [locate_data_file bug27537.brep] result
incmesh result 0.2
-bounding -s result -save xMin yMin zMin xMax yMax zMax -dump
+bounding result -save xMin yMin zMin xMax yMax zMax -dump
mkcurve c result
bounds c u1 u2
diff --git a/tests/bugs/modalg_7/bug29311_1 b/tests/bugs/modalg_7/bug29311_1
index 889b431809..ab97c4f299 100644
--- a/tests/bugs/modalg_7/bug29311_1
+++ b/tests/bugs/modalg_7/bug29311_1
@@ -12,7 +12,7 @@ set step [expr 360.0/($NbIters-1) ]
restore [locate_data_file bug29237_no_overlap.lhs.brep] a
# Create AABB for a and put it into "r1" variable
-# Draw[]> bounding -s a -shape r1
+# Draw[]> bounding a -shape r1
# The volume of one AABB is
# Draw[]> vprops r1 1.0e-12 -full
# 32736000.276308119
@@ -22,7 +22,7 @@ set VMax 0
set MaxIteration 0
for {set i 1} { $i <= $NbIters} { incr i } {
- bounding -s a -obb -shape rr$i
+ bounding a -obb -shape rr$i
regexp {Mass +: +([-0-9.+eE]+)} [vprops rr$i 1.0e-12 -full] full Vreal
diff --git a/tests/bugs/modalg_7/bug29311_12 b/tests/bugs/modalg_7/bug29311_12
index 07b4a92dda..428effea59 100644
--- a/tests/bugs/modalg_7/bug29311_12
+++ b/tests/bugs/modalg_7/bug29311_12
@@ -10,5 +10,5 @@ line ll -5 3 8 -1 0 0
trim ll ll -100 100
mkedge result ll
-bounding -s result -obb
+bounding result -obb
diff --git a/tests/bugs/modalg_7/bug29311_13 b/tests/bugs/modalg_7/bug29311_13
index 2ef6810d6a..fa62c5f10c 100644
--- a/tests/bugs/modalg_7/bug29311_13
+++ b/tests/bugs/modalg_7/bug29311_13
@@ -12,7 +12,7 @@ compound result
# construct obb for each edge of the shape
foreach e [explode part e] {
- if [catch {bounding -s $e -obb}] {
+ if [catch {bounding $e -obb}] {
puts "Error with $e (exception)"
add $e result
} else {
diff --git a/tests/bugs/modalg_7/bug29311_14 b/tests/bugs/modalg_7/bug29311_14
index 508e7edc5a..2d3a27b760 100644
--- a/tests/bugs/modalg_7/bug29311_14
+++ b/tests/bugs/modalg_7/bug29311_14
@@ -12,7 +12,7 @@ compound result
# construct obb for each face of the shape
foreach f [explode part f] {
- if [catch {bounding -s $f -obb}] {
+ if [catch {bounding $f -obb}] {
puts "Error with $f (exception)"
add $f result
} else {
diff --git a/tests/bugs/modalg_7/bug29311_15 b/tests/bugs/modalg_7/bug29311_15
index 83090512ef..565a634561 100644
--- a/tests/bugs/modalg_7/bug29311_15
+++ b/tests/bugs/modalg_7/bug29311_15
@@ -11,7 +11,7 @@ set py 2
set pz 3
vertex vv $px $py $pz
-set log [bounding -s vv -obb -dump]
+set log [bounding vv -obb -dump]
if {![regexp {Center: +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $log full xc yc zc]} {
puts "Error in Dump."
diff --git a/tests/bugs/modalg_7/bug29311_16 b/tests/bugs/modalg_7/bug29311_16
index 136d0a8366..6a585b254e 100644
--- a/tests/bugs/modalg_7/bug29311_16
+++ b/tests/bugs/modalg_7/bug29311_16
@@ -22,7 +22,7 @@ set MaxIteration 0
set MinIteration 0
for {set i 1} { $i <= $NbIters} { incr i } {
- bounding -s a -obb -shape rr$i
+ bounding a -obb -shape rr$i
regexp {Mass +: +([-0-9.+eE]+)} [vprops rr$i 1.0e-12 -full] full Vreal
@@ -46,6 +46,6 @@ checkreal {Transformed BndBoxes} $VMax $VMin 0.0 0.001
puts "The box with maximal volume is achieved in $MaxIteration iteration. See \"amax\" shape."
puts "The box with minimal volume is achieved in $MinIteration iteration. See \"amin\" shape."
-bounding -s amax -obb -dump
-bounding -s amin -obb -dump
+bounding amax -obb -dump
+bounding amin -obb -dump
diff --git a/tests/bugs/modalg_7/bug29311_17 b/tests/bugs/modalg_7/bug29311_17
index 3582cdb232..0a457e9c29 100644
--- a/tests/bugs/modalg_7/bug29311_17
+++ b/tests/bugs/modalg_7/bug29311_17
@@ -22,7 +22,7 @@ set MaxIteration 0
set MinIteration 0
for {set i 1} { $i <= $NbIters} { incr i } {
- bounding -s a -obb -shape rr$i
+ bounding a -obb -shape rr$i
regexp {Mass +: +([-0-9.+eE]+)} [vprops rr$i 1.0e-12 -full] full Vreal
@@ -46,6 +46,6 @@ checkreal {Transformed BndBoxes} $VMax $VMin 0.0 0.3
puts "The box with maximal volume is achieved in $MaxIteration iteration. See \"amax\" shape."
puts "The box with minimal volume is achieved in $MinIteration iteration. See \"amin\" shape."
-bounding -s amax -obb -dump
-bounding -s amin -obb -dump
+bounding amax -obb -dump
+bounding amin -obb -dump
diff --git a/tests/bugs/modalg_7/bug29311_2 b/tests/bugs/modalg_7/bug29311_2
index 9b1735156c..719060bc10 100644
--- a/tests/bugs/modalg_7/bug29311_2
+++ b/tests/bugs/modalg_7/bug29311_2
@@ -12,7 +12,7 @@ set step [expr 360.0/($NbIters-1) ]
restore [locate_data_file bug29237_no_overlap.rhs.brep] a
# Create AABB for a and put it into "r1" variable
-# Draw[]> bounding -s a -shape r1
+# Draw[]> bounding a -shape r1
# The volume of one AABB is
# Draw[]> vprops r1 1.0e-12 -full
# 32736000.184203226
@@ -22,7 +22,7 @@ set VMax 0
set MaxIteration 0
for {set i 1} { $i <= $NbIters} { incr i } {
- bounding -s a -obb -shape rr$i
+ bounding a -obb -shape rr$i
regexp {Mass +: +([-0-9.+eE]+)} [vprops rr$i 1.0e-12 -full] full Vreal
diff --git a/tests/bugs/modalg_7/bug29311_3 b/tests/bugs/modalg_7/bug29311_3
index d27740c64d..8571c50b2c 100644
--- a/tests/bugs/modalg_7/bug29311_3
+++ b/tests/bugs/modalg_7/bug29311_3
@@ -6,5 +6,5 @@ puts ""
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
-bounding -c 50 100 30 180 200 100 -shape result
+bounding 50 100 30 180 200 100 -shape result
checkprops result -v 910000
diff --git a/tests/bugs/modalg_7/bug29311_4 b/tests/bugs/modalg_7/bug29311_4
index 730b4da527..19d210c31a 100644
--- a/tests/bugs/modalg_7/bug29311_4
+++ b/tests/bugs/modalg_7/bug29311_4
@@ -10,7 +10,7 @@ ptorus result 20 5
trotate result 5 10 15 1 1 1 28
puts "AABB"
-bounding -s result -shape ra -dump -save x1 y1 z1 x2 y2 z2
+bounding result -shape ra -dump -save x1 y1 z1 x2 y2 z2
dump x1 y1 z1 x2 y2 z2
@@ -19,7 +19,7 @@ set VaExp [ dval (x2-x1)*(y2-y1)*(z2-z1) ]
checkprops ra -v $VaExp
puts "OBB"
-bounding -s result -shape ro -dump -obb
+bounding result -shape ro -dump -obb
checkprops ro -v 28694.7
diff --git a/tests/bugs/moddata_1/bug15570 b/tests/bugs/moddata_1/bug15570
index 3ec05c5e44..d937e3096d 100755
--- a/tests/bugs/moddata_1/bug15570
+++ b/tests/bugs/moddata_1/bug15570
@@ -13,7 +13,7 @@ pload XDE
igesbrep [locate_data_file OCC15570.igs] a *
tpcompound result
-bounding -s result -save xmin ymin zmin xmax ymax zmax -nodraw
+bounding result -save xmin ymin zmin xmax ymax zmax -nodraw
checkreal "xmin" [dval xmin] -22.500000100000001 0 0.001
checkreal "ymin" [dval ymin] -88.366946209482094 0 0.001
diff --git a/tests/bugs/moddata_2/bug23165 b/tests/bugs/moddata_2/bug23165
index 92d0880072..7283fc9ebe 100755
--- a/tests/bugs/moddata_2/bug23165
+++ b/tests/bugs/moddata_2/bug23165
@@ -18,14 +18,14 @@ set exception_status 0
restore [locate_data_file OCC23165-edge1.brep] e1
donly e1
-catch { bounding -s e1 } msg
+catch { bounding e1 } msg
fit
set index [lsearch $msg exception]
if {$index > -1} {
set exception_status 1
} else {
- bounding -s e1 -save e1_x1 e1_y1 e1_z1 e1_x2 e1_y2 e1_z2
+ bounding e1 -save e1_x1 e1_y1 e1_z1 e1_x2 e1_y2 e1_z2
set e1_good_x1 -17.610622244944413
set e1_good_y1 -0.010622244944394899
@@ -47,7 +47,7 @@ restore [locate_data_file OCC23165-curve.rle] c
mkedge result c 20 36
donly result
-set res [bounding -s result -save x1 y1 z1 x2 y2 z2 ]
+set res [bounding result -save x1 y1 z1 x2 y2 z2 ]
fit
set good_x1 -17.6105835090592
diff --git a/tests/bugs/moddata_2/bug2442 b/tests/bugs/moddata_2/bug2442
index a57fe7ccc4..d66229392e 100755
--- a/tests/bugs/moddata_2/bug2442
+++ b/tests/bugs/moddata_2/bug2442
@@ -25,7 +25,7 @@ set tol_rel 1.e-7
checkreal "Distance 1 " ${dist1} ${good_dist} ${tol_abs} ${tol_rel}
checkreal "Distance 2 " ${dist2} ${good_dist} ${tol_abs} ${tol_rel}
-bounding -s a -save x0 y0 z0 x1 y1 z1 -nodraw
+bounding a -save x0 y0 z0 x1 y1 z1 -nodraw
ttranslate a -x0 -y0 -z0
ttranslate b -x0 -y0 -z0
diff --git a/tests/bugs/moddata_2/bug257 b/tests/bugs/moddata_2/bug257
index 6da9a5814e..1c5bcbca28 100755
--- a/tests/bugs/moddata_2/bug257
+++ b/tests/bugs/moddata_2/bug257
@@ -10,7 +10,7 @@ puts ""
restore [locate_data_file OCC257.brep] result
checkshape result
-bounding -s result -save x1 y1 z1 x2 y2 z2
+bounding result -save x1 y1 z1 x2 y2 z2
set len [ dval x2-x1]
set width [ dval y2-y1]
diff --git a/tests/bugs/moddata_2/bug566 b/tests/bugs/moddata_2/bug566
index 460b2076fc..2f39691e62 100755
--- a/tests/bugs/moddata_2/bug566
+++ b/tests/bugs/moddata_2/bug566
@@ -10,7 +10,7 @@ puts ""
restore [locate_data_file OCC566.brep] a
-bounding -s a -save v1_x v1_y v1_z v2_x v2_y v2_z -dump -shape result
+bounding a -save v1_x v1_y v1_z v2_x v2_y v2_z -dump -shape result
set err2 [OCC566 a]
regexp { *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+)} $err2 full v3_x v3_y v3_z v4_x v4_y v4_z
diff --git a/tests/bugs/moddata_2/bug6503 b/tests/bugs/moddata_2/bug6503
index b5ce418e42..3901535d7c 100755
--- a/tests/bugs/moddata_2/bug6503
+++ b/tests/bugs/moddata_2/bug6503
@@ -10,7 +10,7 @@ set BugNumber OCC6503
plane pl 0 0 0 0 0 1
mkface f pl
-set info_result [bounding -s f -save x1 y1 z1 x2 y2 z2]
+set info_result [bounding f -save x1 y1 z1 x2 y2 z2]
set good_x1 -1e+100
set good_y1 -1e+100
diff --git a/tests/bugs/moddata_3/bug23575 b/tests/bugs/moddata_3/bug23575
index 81f707ab8f..8b1d08a15c 100644
--- a/tests/bugs/moddata_3/bug23575
+++ b/tests/bugs/moddata_3/bug23575
@@ -8,7 +8,7 @@ puts ""
bsplinecurve c 3 2 0 4 1 4 0 0 0 1 0 1 0 1 1 1 0 1 1 0 0 1
mkedge e c
-bounding -s e -save Xmin Ymin Zmin Xmax Ymax Zmax
+bounding e -save Xmin Ymin Zmin Xmax Ymax Zmax
checkreal "Xmin" [dval Xmin] 0. 0.1 0.
checkreal "Ymin" [dval Ymin] 0. 0.1 0.
diff --git a/tests/bugs/moddata_3/bug25631 b/tests/bugs/moddata_3/bug25631
index a1d948c195..b3c8d48c1d 100755
--- a/tests/bugs/moddata_3/bug25631
+++ b/tests/bugs/moddata_3/bug25631
@@ -8,7 +8,7 @@ puts ""
restore [locate_data_file bug25631_fbx.brep] result
-bounding -s result -save Xmin Ymin Zmin Xmax Ymax Zmax
+bounding result -save Xmin Ymin Zmin Xmax Ymax Zmax
set tol_abs 1.0e-4
set tol_rel 1.0e-4
diff --git a/tests/bugs/moddata_3/bug26560 b/tests/bugs/moddata_3/bug26560
index 450c1d569e..2f0030d9d3 100755
--- a/tests/bugs/moddata_3/bug26560
+++ b/tests/bugs/moddata_3/bug26560
@@ -8,7 +8,7 @@ puts ""
restore [locate_data_file bug26560_planarspline.brep] result
-bounding -s result -save Xmin Ymin Zmin Xmax Ymax Zmax -shape resbox
+bounding result -save Xmin Ymin Zmin Xmax Ymax Zmax -shape resbox
set tol_abs 1.0e-4
set tol_rel 0.0001
diff --git a/tests/bugs/moddata_3/bug27261_1 b/tests/bugs/moddata_3/bug27261_1
index b3c077459b..f4ae1d625a 100644
--- a/tests/bugs/moddata_3/bug27261_1
+++ b/tests/bugs/moddata_3/bug27261_1
@@ -7,7 +7,7 @@ puts ""
##############################################################
restore [locate_data_file bug27261_f1.brep] result
-bounding -s result -dump
+bounding result -dump
# Visual check.
smallview
diff --git a/tests/bugs/moddata_3/bug27261_2 b/tests/bugs/moddata_3/bug27261_2
index 9820fc4f75..544633719e 100644
--- a/tests/bugs/moddata_3/bug27261_2
+++ b/tests/bugs/moddata_3/bug27261_2
@@ -7,7 +7,7 @@ puts ""
##############################################################
restore [locate_data_file bug27261_f2.brep] result
-bounding -s result -dump
+bounding result -dump
# Visual check.
smallview
diff --git a/tests/bugs/step/bug24595 b/tests/bugs/step/bug24595
index e5d6260691..f5588bdde3 100644
--- a/tests/bugs/step/bug24595
+++ b/tests/bugs/step/bug24595
@@ -11,7 +11,7 @@ explode a_1 f
checknbshapes a_1_3 -wire 1
-bounding -s a_1_3 -dump -save Xmin Ymin Zmin Xmax Ymax Zmax
+bounding a_1_3 -dump -save Xmin Ymin Zmin Xmax Ymax Zmax
checkreal "Xmin" [dval Xmin] -7.1677412321949925 0.1 0.
checkreal "Ymin" [dval Ymin] -8.0000000999999994 0.1 0.
diff --git a/tests/bugs/stlvrml/bug26338 b/tests/bugs/stlvrml/bug26338
index 2a1a0f1a4c..ff82376735 100644
--- a/tests/bugs/stlvrml/bug26338
+++ b/tests/bugs/stlvrml/bug26338
@@ -19,7 +19,7 @@ writestl comp $imagedir/${casename}.stl 1
readstl result $imagedir/${casename}.stl -brep
# check that bounding box is
-bounding -s result -save Xmin Ymin Zmin Xmax Ymax Zmax -nodraw
+bounding result -save Xmin Ymin Zmin Xmax Ymax Zmax -nodraw
checkreal "Xmin" [dval Xmin] 0.0 1e-5 0.
checkreal "Ymin" [dval Ymin] 0.0 1e-5 0.
diff --git a/tests/bugs/vis/buc60857 b/tests/bugs/vis/buc60857
index 007055a0c2..bb9bd1affd 100755
--- a/tests/bugs/vis/buc60857
+++ b/tests/bugs/vis/buc60857
@@ -15,9 +15,9 @@ set area_RED [lindex ${Property_RED} 2]
set Property_GREEN [sprops BUC60857_GREEN]
set area_GREEN [lindex ${Property_GREEN} 2]
-bounding -s BUC60857_BLUE -save xmin_BLUE ymin_BLUE zmin_BLUE xmax_BLUE ymax_BLUE zmax_BLUE -nodraw
-bounding -s BUC60857_RED -save xmin_RED ymin_RED zmin_RED xmax_RED ymax_RED zmax_RED -nodraw
-bounding -s BUC60857_GREEN -save xmin_GREEN ymin_GREEN zmin_GREEN xmax_GREEN ymax_GREEN zmax_GREEN -nodraw
+bounding BUC60857_BLUE -save xmin_BLUE ymin_BLUE zmin_BLUE xmax_BLUE ymax_BLUE zmax_BLUE -nodraw
+bounding BUC60857_RED -save xmin_RED ymin_RED zmin_RED xmax_RED ymax_RED zmax_RED -nodraw
+bounding BUC60857_GREEN -save xmin_GREEN ymin_GREEN zmin_GREEN xmax_GREEN ymax_GREEN zmax_GREEN -nodraw
set delta_area_GB [expr abs(${area_GREEN} - ${area_BLUE}) / ${area_BLUE} * 100]
set delta_area_BR [expr ${area_BLUE} / ${area_RED}]
diff --git a/tests/bugs/vis/bug27796 b/tests/bugs/vis/bug27796
index 10048590e2..0b195ae839 100644
--- a/tests/bugs/vis/bug27796
+++ b/tests/bugs/vis/bug27796
@@ -12,7 +12,7 @@ box b1 -100 -50 -2 200 100 1
# text label
text2brep t "texT | Text\ntexT | Text" -height 50
-bounding -s t -save xx yy zz aTX aTY zz
+bounding t -save xx yy zz aTX aTY zz
ttranslate t -0.5*aTX -0.5*aTY 1
# sphere
diff --git a/tests/bugs/xde/bug659 b/tests/bugs/xde/bug659
index 1a65ea5bfe..37c5226184 100755
--- a/tests/bugs/xde/bug659
+++ b/tests/bugs/xde/bug659
@@ -23,8 +23,8 @@ if [catch { igesbrep . a 6425 } res] {
renamevar a_1 a2
-set size1 [ bounding -s a1 -save x1_a1 yy zz x2_a1 yy zz ]
-set size2 [ bounding -s a2 -save x1_a2 yy zz x2_a2 yy zz ]
+set size1 [ bounding a1 -save x1_a1 yy zz x2_a1 yy zz ]
+set size2 [ bounding a2 -save x1_a2 yy zz x2_a2 yy zz ]
set dim2 [ dval x2_a2-x1_a2 ]
set dim1 [ dval x2_a1-x1_a1 ]
diff --git a/tests/caf/basic/K1 b/tests/caf/basic/K1
index e8866edf74..400f8f6a7f 100755
--- a/tests/caf/basic/K1
+++ b/tests/caf/basic/K1
@@ -18,7 +18,7 @@ set aSetDY1 200
set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
set aLabel 0:2
SetShape D ${aLabel} aBox1
@@ -40,7 +40,7 @@ Undo D
# Get a value of the attribute
GetShape D ${aLabel} aBox2
-bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { [dval X1_Box1] != [dval X1_Box2] ||
[dval Y1_Box1] != [dval Y1_Box2] ||
diff --git a/tests/caf/basic/K2 b/tests/caf/basic/K2
index 4865ff9a27..30dcaa6459 100755
--- a/tests/caf/basic/K2
+++ b/tests/caf/basic/K2
@@ -18,7 +18,7 @@ set aSetDY1 200
set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
set aLabel 0:2
SetShape D ${aLabel} aBox1
@@ -46,7 +46,7 @@ Undo D
# Get a value of the attribute
GetShape D ${aLabel} aBox4
-bounding -s aBox4 -save X1_Box4 Y1_Box4 Z1_Box4 X2_Box4 Y2_Box4 Z2_Box4
+bounding aBox4 -save X1_Box4 Y1_Box4 Z1_Box4 X2_Box4 Y2_Box4 Z2_Box4
if { [dval X1_Box1] != [dval X1_Box4] ||
[dval Y1_Box1] != [dval Y1_Box4] ||
[dval Z1_Box1] != [dval Z1_Box4] ||
diff --git a/tests/caf/basic/K3 b/tests/caf/basic/K3
index 1cc0570885..d0053a42df 100755
--- a/tests/caf/basic/K3
+++ b/tests/caf/basic/K3
@@ -19,7 +19,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
set aLabel 0:2
SetShape D ${aLabel} aBox1
@@ -49,7 +49,7 @@ if { ${IsDone} != 0 } {
return
}
-bounding -s aBox5 -save X1_Box5 Y1_Box5 Z1_Box5 X2_Box5 Y2_Box5 Z2_Box5
+bounding aBox5 -save X1_Box5 Y1_Box5 Z1_Box5 X2_Box5 Y2_Box5 Z2_Box5
if { [dval X1_Box1] != [dval X1_Box5] ||
[dval Y1_Box1] != [dval Y1_Box5] ||
diff --git a/tests/caf/bugs/B3 b/tests/caf/bugs/B3
index bed8ccc56d..845e26d482 100755
--- a/tests/caf/bugs/B3
+++ b/tests/caf/bugs/B3
@@ -31,7 +31,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
set aLabel 0:2
SetShape Doc ${aLabel} aBox1
@@ -61,7 +61,7 @@ if { ${IsDone} != 0 } {
puts "OCC1228: ERROR (case 2)"
}
-bounding -s aBox5 -save X1_Box5 Y1_Box5 Z1_Box5 X2_Box5 Y2_Box5 Z2_Box5
+bounding aBox5 -save X1_Box5 Y1_Box5 Z1_Box5 X2_Box5 Y2_Box5 Z2_Box5
if { [dval X1_Box1] != [dval X1_Box5] ||
[dval Y1_Box1] != [dval Y1_Box5] ||
diff --git a/tests/caf/bugs/B5 b/tests/caf/bugs/B5
index df1832792e..38c797c12e 100755
--- a/tests/caf/bugs/B5
+++ b/tests/caf/bugs/B5
@@ -30,7 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Create a label
set aLabel 0:2
@@ -67,7 +67,7 @@ if { ${IsDone} != 0 } {
puts "OCC1228: ERROR (case 2)"
}
-bounding -s aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
+bounding aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
if { [dval X1_Box1] != [dval X1_Box3] ||
[dval Y1_Box1] != [dval Y1_Box3] ||
diff --git a/tests/caf/bugs/B7 b/tests/caf/bugs/B7
index ce28085565..16db31dcb0 100755
--- a/tests/caf/bugs/B7
+++ b/tests/caf/bugs/B7
@@ -35,7 +35,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@@ -75,7 +75,7 @@ if { ${IsDone} != 0 } {
puts "OCC1228: ERROR (case 2)"
}
-bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { [dval X1_Box1] != [dval X1_Box2] ||
[dval Y1_Box1] != [dval Y1_Box2] ||
diff --git a/tests/caf/bugs/D2 b/tests/caf/bugs/D2
index b300c2073e..ef122e5b3a 100644
--- a/tests/caf/bugs/D2
+++ b/tests/caf/bugs/D2
@@ -173,7 +173,7 @@ if !$Create_Doc {
# NamedShape
eval box Box $test_boxXYZ $test_boxDX $test_boxDY $test_boxDZ
if [catch {GetShape D 0:1:6 b}] {puts "Error: NamedShape not found"
- } elseif {[bounding -s b -dump] != [bounding -s Box -dump]} {puts "Error: invalid NamedShape"
+ } elseif {[bounding b -dump] != [bounding Box -dump]} {puts "Error: invalid NamedShape"
} else {
checkshape b
checkprops b -l [expr $test_boxDX * 8 + $test_boxDY * 8 + $test_boxDZ * 8]
diff --git a/tests/caf/named_shape/A1 b/tests/caf/named_shape/A1
index 411cf45ad8..7e90dbd05c 100755
--- a/tests/caf/named_shape/A1
+++ b/tests/caf/named_shape/A1
@@ -18,7 +18,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Create a label
set aLabel 0:2
@@ -45,7 +45,7 @@ Redo D
# Get a shape from the label
GetShape D ${aLabel} aBox3
-bounding -s aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
+bounding aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
if { [dval X1_Box1] != [dval X1_Box3] ||
[dval Y1_Box1] != [dval Y1_Box3] ||
diff --git a/tests/caf/named_shape/B1 b/tests/caf/named_shape/B1
index bb14d464b5..825941e7ef 100755
--- a/tests/caf/named_shape/B1
+++ b/tests/caf/named_shape/B1
@@ -18,7 +18,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Create a label
set aLabel 0:2
@@ -45,7 +45,7 @@ Redo D
# Get a shape from the label
GetShape D ${aLabel} aBox3
-bounding -s aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
+bounding aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
if { [dval X1_Box1] != [dval X1_Box3] ||
[dval Y1_Box1] != [dval Y1_Box3] ||
diff --git a/tests/caf/named_shape/C1 b/tests/caf/named_shape/C1
index 9db94495e4..10082e143a 100755
--- a/tests/caf/named_shape/C1
+++ b/tests/caf/named_shape/C1
@@ -18,7 +18,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Create a label
set aLabel 0:2
@@ -55,7 +55,7 @@ if { ${IsDone} != 0 } {
return
}
-bounding -s aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
+bounding aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
if { [dval X1_Box1] != [dval X1_Box3] ||
[dval Y1_Box1] != [dval Y1_Box3] ||
diff --git a/tests/caf/named_shape/D1 b/tests/caf/named_shape/D1
index b84e674fc3..8fa211cb11 100755
--- a/tests/caf/named_shape/D1
+++ b/tests/caf/named_shape/D1
@@ -47,7 +47,7 @@ foreach S [directory [concat $aBox1$ter]] {
puts "SubShape=$S"
#Memorize a bounding box of the selected sub-shape
- bounding -s ${S} -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+ bounding ${S} -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Select a sub-shape
set LABEL [Label D 0:$iSubLabel]
@@ -60,7 +60,7 @@ foreach S [directory [concat $aBox1$ter]] {
GetShape D ${LABEL} aSubShape
# Get bounding box
- bounding -s aSubShape -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+ bounding aSubShape -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if {[dval X1_Box1] != [dval X1_Box2] || [dval Y1_Box1] != [dval Y1_Box2] || [dval Z1_Box1] != [dval Z1_Box2] || [dval X2_Box1] != [dval X2_Box2] || [dval Y2_Box1] != [dval Y2_Box2] || [dval Z2_Box1] != [dval Z2_Box2]} {
puts "SelectGeometry command (${i}): Error"
diff --git a/tests/caf/named_shape/D2 b/tests/caf/named_shape/D2
index 66c64d5b65..ff1799d46e 100755
--- a/tests/caf/named_shape/D2
+++ b/tests/caf/named_shape/D2
@@ -47,7 +47,7 @@ foreach S [directory [concat $aBox1$ter]] {
puts "SubShape=$S"
#Memorize a bounding box of the selected sub-shape
- bounding -s ${S} -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+ bounding ${S} -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Select a sub-shape
set LABEL [Label D 0:$iSubLabel]
@@ -60,7 +60,7 @@ foreach S [directory [concat $aBox1$ter]] {
GetShape D ${LABEL} aSubShape
# Get bounding box
- bounding -s aSubShape -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+ bounding aSubShape -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if {[dval X1_Box1] != [dval X1_Box2] || [dval Y1_Box1] != [dval Y1_Box2] || [dval Z1_Box1] != [dval Z1_Box2] || [dval X2_Box1] != [dval X2_Box2] || [dval Y2_Box1] != [dval Y2_Box2] || [dval Z2_Box1] != [dval Z2_Box2]} {
puts "SelectGeometry command (${i}): Error"
diff --git a/tests/caf/named_shape/D3 b/tests/caf/named_shape/D3
index b1276e6735..bf6d006d0d 100755
--- a/tests/caf/named_shape/D3
+++ b/tests/caf/named_shape/D3
@@ -47,7 +47,7 @@ foreach S [directory [concat $aBox1$ter]] {
puts "SubShape=$S"
#Memorize a bounding box of the selected sub-shape
- bounding -s ${S} -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+ bounding ${S} -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Select a sub-shape
set LABEL [Label D 0:$iSubLabel]
@@ -60,7 +60,7 @@ foreach S [directory [concat $aBox1$ter]] {
GetShape D ${LABEL} aSubShape
# Get bounding box
- bounding -s aSubShape -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+ bounding aSubShape -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if {[dval X1_Box1] != [dval X1_Box2] || [dval Y1_Box1] != [dval Y1_Box2] || [dval Z1_Box1] != [dval Z1_Box2] || [dval X2_Box1] != [dval X2_Box2] || [dval Y2_Box1] != [dval Y2_Box2] || [dval Z2_Box1] != [dval Z2_Box2]} {
puts "SelectGeometry command (${i}): Error"
diff --git a/tests/caf/xlink/A1 b/tests/caf/xlink/A1
index baaca396fc..46fb552e96 100755
--- a/tests/caf/xlink/A1
+++ b/tests/caf/xlink/A1
@@ -30,7 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@@ -57,7 +57,7 @@ Redo Doc1
# Get a shape from 'TLabel1'
GetShape Doc1 ${aLabel2} aBox2
-bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { [dval X1_Box1] != [dval X1_Box2] ||
[dval Y1_Box1] != [dval Y1_Box2] ||
diff --git a/tests/caf/xlink/A2 b/tests/caf/xlink/A2
index 8589d2b5fb..53539ae27a 100755
--- a/tests/caf/xlink/A2
+++ b/tests/caf/xlink/A2
@@ -30,7 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@@ -57,7 +57,7 @@ Redo Doc2
# Get a shape from 'TLabel1'
GetShape Doc2 ${aLabel2} aBox2
-bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { [dval X1_Box1] != [dval X1_Box2] ||
[dval Y1_Box1] != [dval Y1_Box2] ||
diff --git a/tests/caf/xlink/B1 b/tests/caf/xlink/B1
index dce34e06ff..728d94766f 100755
--- a/tests/caf/xlink/B1
+++ b/tests/caf/xlink/B1
@@ -30,7 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@@ -57,7 +57,7 @@ Redo Doc1
# Get a shape from 'TLabel1'
GetShape Doc1 ${aLabel2} aBox2
-bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { [dval X1_Box1] != [dval X1_Box2] ||
[dval Y1_Box1] != [dval Y1_Box2] ||
diff --git a/tests/caf/xlink/B2 b/tests/caf/xlink/B2
index 9faac9db6c..e39cabddcf 100755
--- a/tests/caf/xlink/B2
+++ b/tests/caf/xlink/B2
@@ -30,7 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@@ -62,7 +62,7 @@ Redo Doc1
# Get a shape from 'TLabel1'
GetShape Doc1 ${aLabel2} aBox2
-bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { [dval X1_Box1] != [dval X1_Box2] ||
[dval Y1_Box1] != [dval Y1_Box2] ||
diff --git a/tests/caf/xlink/B3 b/tests/caf/xlink/B3
index 3ade9a31bc..00925d4aaf 100755
--- a/tests/caf/xlink/B3
+++ b/tests/caf/xlink/B3
@@ -30,7 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@@ -70,7 +70,7 @@ if { ${IsDone} != 0 } {
return
}
-bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { [dval X1_Box1] != [dval X1_Box2] ||
[dval Y1_Box1] != [dval Y1_Box2] ||
diff --git a/tests/caf/xlink/B4 b/tests/caf/xlink/B4
index 65a5c7f3c9..ff834a567e 100755
--- a/tests/caf/xlink/B4
+++ b/tests/caf/xlink/B4
@@ -30,7 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@@ -57,7 +57,7 @@ Redo Doc2
# Get a shape from 'TLabel1'
GetShape Doc2 ${aLabel2} aBox2
-bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { [dval X1_Box1] != [dval X1_Box2] ||
[dval Y1_Box1] != [dval Y1_Box2] ||
diff --git a/tests/caf/xlink/B5 b/tests/caf/xlink/B5
index 0843d4be8d..0e76b638fb 100755
--- a/tests/caf/xlink/B5
+++ b/tests/caf/xlink/B5
@@ -30,7 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@@ -62,7 +62,7 @@ Redo Doc1
# Get a shape from 'TLabel1'
GetShape Doc2 ${aLabel2} aBox2
-bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { [dval X1_Box1] != [dval X1_Box2] ||
[dval Y1_Box1] != [dval Y1_Box2] ||
diff --git a/tests/caf/xlink/C1 b/tests/caf/xlink/C1
index 4907c23ed6..3e9fa5355f 100755
--- a/tests/caf/xlink/C1
+++ b/tests/caf/xlink/C1
@@ -30,7 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@@ -68,7 +68,7 @@ Redo Doc1
# 11. Get a shape from 'TLabel1'
GetShape Doc1 ${aLabel2} aBox2
-bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { [dval X1_Box1] == [dval X1_Box2] ||
[dval Y1_Box1] == [dval Y1_Box2] ||
diff --git a/tests/caf/xlink/D1 b/tests/caf/xlink/D1
index 70a731f85c..ea3f1da4aa 100755
--- a/tests/caf/xlink/D1
+++ b/tests/caf/xlink/D1
@@ -30,7 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@@ -68,7 +68,7 @@ Redo Doc2
# Get a shape from 'TLabel1'
GetShape Doc2 ${aLabel2} aBox2
-bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { [dval X1_Box1] == [dval X1_Box2] ||
[dval Y1_Box1] == [dval Y1_Box2] ||
diff --git a/tests/caf/xlink/D2 b/tests/caf/xlink/D2
index 3c3cc27b50..5a574c9ab3 100755
--- a/tests/caf/xlink/D2
+++ b/tests/caf/xlink/D2
@@ -30,7 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@@ -48,7 +48,7 @@ set aSetDZ12 2300
box aBox12 ${aSetX12} ${aSetY12} ${aSetZ12} ${aSetDX12} ${aSetDY12} ${aSetDZ12}
-bounding -s aBox12 -save X1_Box12 Y1_Box12 Z1_Box12 X2_Box12 Y2_Box12 Z2_Box12
+bounding aBox12 -save X1_Box12 Y1_Box12 Z1_Box12 X2_Box12 Y2_Box12 Z2_Box12
SetShape Doc1 ${aLabel12} aBox12
@@ -99,12 +99,12 @@ Redo Doc2
# Get a shape from 'TLabel1'
GetShape Doc2 ${aLabel2} aBox2
-bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
# Get a shape from 'T2Label1'
GetShape Doc2 ${aLabel22} aBox22
-bounding -s aBox22 -save X1_Box22 Y1_Box22 Z1_Box22 X2_Box22 Y2_Box22 Z2_Box22
+bounding aBox22 -save X1_Box22 Y1_Box22 Z1_Box22 X2_Box22 Y2_Box22 Z2_Box22
if { [dval X1_Box1] == [dval X1_Box2] ||
[dval Y1_Box1] == [dval Y1_Box2] ||
diff --git a/tests/chamfer/begin b/tests/chamfer/begin
index 35787411e7..38b2229946 100644
--- a/tests/chamfer/begin
+++ b/tests/chamfer/begin
@@ -37,7 +37,7 @@ proc get_element { type args } {
global $element
distmini dd ver $element
if { [string match "*$type*" [whatis $element]] } {
- set bbox [bounding -s $element -save xx1 yy1 zz1 xx2 yy2 zz2 ]
+ set bbox [bounding $element -save xx1 yy1 zz1 xx2 yy2 zz2 ]
# Get distance
set dv [lindex [dump dd_val] 5]
if {[expr {[dval xx1-1e-2] <= $x && $x <= [dval xx2+1e-2]
diff --git a/tests/demo/draw/binpersist_1 b/tests/demo/draw/binpersist_1
index 4faabfcc3b..a88cfa676d 100644
--- a/tests/demo/draw/binpersist_1
+++ b/tests/demo/draw/binpersist_1
@@ -12,7 +12,7 @@ if [regexp "Cannot write to the file $file" [binsave b $file]] {
puts "Error: binrestore"
} else {
file delete $file
- if {[bounding -s b -dump] != [bounding -s bb -dump]} {
+ if {[bounding b -dump] != [bounding bb -dump]} {
puts "Error: restored shape has another bounding box"
}
checkshape bb
diff --git a/tests/demo/draw/binpersist_2 b/tests/demo/draw/binpersist_2
index 0fe86e53ac..8d4f959502 100644
--- a/tests/demo/draw/binpersist_2
+++ b/tests/demo/draw/binpersist_2
@@ -12,7 +12,7 @@ if [regexp "Cannot write to the file $file" [binsave b $file]] {
puts "Error: binrestore"
} else {
file delete $file
- if {[bounding -s b -dump] != [bounding -s bb -dump]} {
+ if {[bounding b -dump] != [bounding bb -dump]} {
puts "Error: restored shape has another bounding box"
}
checkshape bb
diff --git a/tests/demo/draw/binpersist_3 b/tests/demo/draw/binpersist_3
index b047cec52d..16bbb4480f 100644
--- a/tests/demo/draw/binpersist_3
+++ b/tests/demo/draw/binpersist_3
@@ -12,7 +12,7 @@ if [regexp "Cannot write to the file $file" [binsave b $file]] {
puts "Error: binrestore"
} else {
file delete $file
- if {[bounding -s b -dump] != [bounding -s bb -dump]} {
+ if {[bounding b -dump] != [bounding bb -dump]} {
puts "Error: restored shape has another bounding box"
}
checkshape bb
diff --git a/tests/perf/modalg/bug29311 b/tests/perf/modalg/bug29311
index ad95d41dae..f2fb6220ad 100644
--- a/tests/perf/modalg/bug29311
+++ b/tests/perf/modalg/bug29311
@@ -6,17 +6,19 @@ puts ""
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
+pload QAcommands
+
set NbIters 101
set step [expr 360.0/($NbIters-1) ]
restore [locate_data_file bug29237_no_overlap.lhs.brep] a
for {set i 1} { $i <= $NbIters} { incr i } {
- bounding -s a -obb -perfmeter OBBL$i 5
+ OCC29311 a OBBL$i 5
if { $i != $NbIters } { trotate a 283 162 317 2 7 9 $step }
}
restore [locate_data_file bug29237_no_overlap.rhs.brep] a
for {set i 1} { $i <= $NbIters} { incr i } {
- bounding -s a -obb -perfmeter OBBR$i 5
+ OCC29311 a OBBR$i 5
if { $i != $NbIters } { trotate a 283 162 317 2 7 9 $step }
}
diff --git a/tests/xml/data/ocaf/B3 b/tests/xml/data/ocaf/B3
index c74849a829..77a27bec67 100644
--- a/tests/xml/data/ocaf/B3
+++ b/tests/xml/data/ocaf/B3
@@ -11,7 +11,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
set aLabel 0:2
SetShape D ${aLabel} aBox1
@@ -33,7 +33,7 @@ set IsDone [catch {GetShape DD ${aLabel} aBox5} aResult]
if { ${IsDone} != 0 } {
puts "Error : Get a value of TDataStd_Shape attribute from restoring document"
} else {
- bounding -s aBox5 -save X1_Box5 Y1_Box5 Z1_Box5 X2_Box5 Y2_Box5 Z2_Box5
+ bounding aBox5 -save X1_Box5 Y1_Box5 Z1_Box5 X2_Box5 Y2_Box5 Z2_Box5
if { [dval X1_Box1] != [dval X1_Box5] ||
[dval Y1_Box1] != [dval Y1_Box5] ||
diff --git a/tests/xml/data/ocaf/B5 b/tests/xml/data/ocaf/B5
index 802ada865b..54b389a719 100644
--- a/tests/xml/data/ocaf/B5
+++ b/tests/xml/data/ocaf/B5
@@ -11,7 +11,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Create a label
set aLabel 0:2
@@ -41,7 +41,7 @@ if { ${IsDone} != 0 } {
puts ${aResult}
puts "Error : Get a value of TNaming_NamedShape attribute from restoring document"
} else {
- bounding -s aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
+ bounding aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
if { [dval X1_Box1] != [dval X1_Box3] ||
[dval Y1_Box1] != [dval Y1_Box3] ||
diff --git a/tests/xml/data/ocaf/B7 b/tests/xml/data/ocaf/B7
index 8d95cf2d73..1d27abad19 100644
--- a/tests/xml/data/ocaf/B7
+++ b/tests/xml/data/ocaf/B7
@@ -27,7 +27,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
-bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
+bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@@ -59,7 +59,7 @@ set IsDone [catch {GetShape Doc2 ${aLabel2} aBox2} aResult]
if { ${IsDone} != 0 } {
puts "Error : Get a value of TNaming_NamedShape attribute from restoring document"
} else {
- bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
+ bounding aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { [dval X1_Box1] != [dval X1_Box2] ||
[dval Y1_Box1] != [dval Y1_Box2] ||