OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
Code Packages Releases Activity

0029311: Implementation of the Oriented Bounding Boxes (OBB) functionality

Browse Source 
1. The class Bnd_OBB has been created to describe the Oriented Bounding Box.

2. Several key methods have been implemented: Bnd_OBB::IsOut(...), Bnd_OBB::Add(...) and Bnd_OBB::Enlarge(...).

3. Interface of Bnd_Box class has changed. New methods have been created. See Bnd_Box.hxx for detailed information.

4. BRepBndLib and Draw_Box classes have been amended in order to provide correct work with Bnd_OBB class.

5. Interface of "bounding" DRAW-command has been changed. Please see help for detailed information.

6. New DRAW-command "isbbinterf" has been created. Please see help for detailed information.

7. "boundingstr" and "optbounding" DRAW-commands have been eliminated because their function can be made by "bounding" DRAW-command (e.g. see tests/bugs/vis/buc60857 or samples/tcl/snowflake.tcl test cases).

8. Documentation has been updated.
This commit is contained in:
nbv 2017-11-08 15:47:09 +03:00 committed by bugmaster
parent 8d1a539c4a
commit 1a0339b464
83 changed files with 3204 additions and 1087 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

136
dox/user_guides/draw_test_harness/draw_test_harness.md
View File

@ -7324,8 +7324,9 @@ buildevol
Analysis of shapes includes commands to compute length, area, volumes and inertial properties, as well as to compute some aspects impacting shape validity.
* Use **lprops**, **sprops**, **vprops** to compute integral properties.
* Use **bounding** to display the bounding box of a shape.
* Use **bounding** to compute and to display the bounding box of a shape.
* Use **distmini** to calculate the minimum distance between two shapes.
* Use **isbbinterf** to check if the two shapes are interfered by their bounding boxes.
* Use **xdistef**, **xdistcs**, **xdistcc**, **xdistc2dc2dss**, **xdistcc2ds** to check the distance between two objects on even grid.
* Use **checkshape** to check validity of the shape.
* Use **tolsphere** to see the tolerance spheres of all vertices in the shape.
@ -7378,20 +7379,135 @@ I.Z = 314159.265357595
Syntax:
~~~~~
bounding shape
bounding {-s shape | -c xmin ymin zmin xmax ymax zmax} [-obb] [-shape name] [-dump] [-notriangulation] [-perfmeter name NbIters] [-save xmin ymin zmin xmax ymax zmax] [-nodraw] [-optimal] [-exttoler]
~~~~~
Displays the bounding box of a shape. The bounding box is a cuboid created with faces parallel to the x, y, and z planes. The command returns the dimension values of the the box, *xmin ymin zmin xmax ymax zmax.*
Computes and displays the bounding box (BndBox) of a shape. The bounding box is a cuboid circumscribes the source shape.
Generaly, bounding boxes can be divided on two main types:
- axis-aligned BndBox (AABB). I.e. the box whose edges are parallel to the some axis of World Coordinate System (WCS);
- oriented BndBox (OBB). I.e. not AABB.
**Example:**
Detailed information about this command is availabe in DRAW help-system (enter "help bounding" in DRAW-application).
**Example 1: Creation of AABB with given corners**
~~~~~
# bounding box of a torus
bounding -c 50 100 30 180 200 100 -shape result
# look at the box
vdisplay result
vfit
vsetdispmode 1
~~~~~
**Example 2: Compare AABB and OBB**
~~~~~
# Create a torus and rotate it
ptorus t 20 5
bounding t
==-27.059805107309852 -27.059805107309852 -
5.0000001000000003
==27.059805107309852 27.059805107309852
5.0000001000000003
trotate t 5 10 15 1 1 1 28
# Create AABB from the torus
bounding -s t -shape ra -dump -save x1 y1 z1 x2 y2 z2
==Axes-aligned bounding box
==X-range: -26.888704600189307 23.007685197265488
==Y-range: -22.237699567214314 27.658690230240481
==Z-range: -13.813966507560762 12.273995247458407
# Obtain the boundaries
dump x1 y1 z1 x2 y2 z2
==*********** Dump of x1 *************
==-26.8887046001893
==*********** Dump of y1 *************
==-22.2376995672143
==*********** Dump of z1 *************
==-13.8139665075608
==*********** Dump of x2 *************
==23.0076851972655
==*********** Dump of y2 *************
==27.6586902302405
==*********** Dump of z2 *************
==12.2739952474584
# Compute the volume of AABB
vprops ra 1.0e-12
==Mass : 64949.9
# Let us check this value
dval (x2-x1)*(y2-y1)*(z2-z1)
==64949.886543606823
~~~~~
The same result is obtained.
~~~~~
# Create OBB from the torus
bounding -s t -shape ro -dump -obb
==Oriented bounding box
==Center: -1.9405097014619073 2.7104953315130857 -0.76998563005117782
==X-axis: 0.31006700219833244 -0.23203206410428409 0.9219650619059514
==Y-axis: 0.098302309139513336 -0.95673739537318336 -0.27384340837854165
==Z-axis: 0.94561890324040099 0.17554109923901748 -0.27384340837854493
==Half X: 5.0000002000000077
==Half Y: 26.783728747002169
==Half Z: 26.783728747002165
# Compute the volume of OBB
vprops ro 1.0e-12
==Mass : 28694.7
~~~~~
As we can see, the volume of OBB is significantly less than the volume of AABB.
@subsubsection occt_draw_7_9_2a isbbinterf
Syntax:
~~~~~
isbbinterf shape1 shape2 [-o]
~~~~~
Checks whether the bounding-boxes created from the given shapes are interfered. If "-o"-option is switched on then the oriented boxes will be checked. Otherwise, axes-aligned boxes will be checked.
**Example 1: Not interfered AABB**
~~~~~
box b1 100 60 140 20 10 80
box b2 210 200 80 120 60 90
isbbinterf b1 b2
==The shapes are NOT interfered by AABB.
~~~~~
**Example 2: Interfered AABB**
~~~~~
box b1 300 300 300
box b2 100 100 100 50 50 50
isbbinterf b1 b2
==The shapes are interfered by AABB.
~~~~~
**Example 3: Not interfered OBB**
~~~~~
box b1 100 150 200
copy b1 b2
trotate b1 -150 -150 -150 1 2 3 -40
trotate b2 -150 -150 -150 1 5 2 60
# Check of interference
isbbinterf b1 b2 -o
==The shapes are NOT interfered by OBB.
~~~~~
**Example 4: Interfered OBB**
~~~~~
box b1 100 150 200
copy b1 b2
trotate b1 -50 -50 -50 1 1 1 -40
trotate b2 -50 -50 -50 1 1 1 60
# Check of interference
isbbinterf b1 b2 -o
==The shapes are interfered by OBB.
~~~~~
@subsubsection occt_draw_7_9_3 distmini

BIN
dox/user_guides/modeling_data/images/modeling_data_image015.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 641 KiB

96
dox/user_guides/modeling_data/modeling_data.md
View File

@ -1294,3 +1294,99 @@ The following sample code reads a shape from ASCII file and writes it to a binar
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@section occt_modat_6 Bounding boxes
*Bounding box(es) (BndBox(es))* is used in many OCCT algorithms. In general, it is some filter to avoid check of excess interferences between pairs of shapes (check of interferences between BndBoxes is much simpler then between shapes and if BndBoxes do not interfere then there is no point in searching interferences between the corresponding shapes).
Generally, BndBoxes can be divided on two main types:
- axis-aligned BndBox (AABB). I.e. the box whose edges are parallel to the axes of World Coordinate System (WCS);
- oriented BndBox (OBB). I.e. not AABB.
In fact, every AABB is a specific case of OBB.<br>
The image below illustrates the example, when using OBB is better than AABB.
@figure{/user_guides/modeling_data/images/modeling_data_image015.png,"Illustrating the problem with AABB.",320}
AABBs in this picture are interfered. Therefore, many OCCT-algorithms will spend much time to interfere the shapes. However, if we check OBBs, which are not interfered, then searching of interferences between the shapes will not be necessary. At that, creation and analysis of OBBs takes significantly more time than the analogical operations with AABB.
Later in this section, the BndBox having the smallest surface area will be called as <b> optimal </b>.
In OCCT, BndBox(es) are described in Bnd package. In general, Bnd_Box class describes AABB, Bnd_OBB class describes OBB. These classes contain the following common methods (this list is not complete; please see the documentation about corresponding class for detailed information):
- SetVoid() and IsVoid(). SetVoid method clears the existing BndBox. IsVoid method indicates whether the BndBox is initialized.
- Enlarge(...). Extends the current BndBox.
- Add(...). Rebuilds the current BndBox in order to cover all previous objects (which it was created from) and the argument of the method.
- IsOut(...). Checks whether the argument is inside/outside of the current BndBox.
Also, BRepBndLib class contains methods to provide creation of BndBox (both AABB and OBB) from the complex shape.
@subsection occt_modat_6_1 Brief description of some algorithms working with OBB
@subsubsection occt_modat_6_1_1 Creation of OBB from set of points
The algorithm is described in <a href="http://www.idt.mdh.se/~tla/publ/FastOBBs.pdf">"Fast Computation of Tight Fitting Oriented Bounding Boxes" by Thomas Larsson and Linus Källberg</a>. It includes the following steps:
<span>1.</span> Choose \f$ N_{a} (N_{a} \geq 3) \f$ initial axes.<br>
<span>2.</span> Project every given point to the every chosen (in item 1) axis. At that, "minimal" and "maximal" points of every axis (i.e. point having minimal and maximal parameter (correspondingly) of the projection to this axis) are chosen. I.e. \f$ 2*N_{a} \f$ points will be held and this set can contain equal points. Later (unless otherwise specified) in this algorithm we will work with these \f$ 2*N_{a} \f$ points only.<br>
<span>3.</span> Choose one pair of points among all pairs of "minimal" and "maximal" points of every axis (from item 1), with two furthest points. Let \f$ p_{0} \f$ and \f$ p_{1} \f$ be the "minimal" and "maximal" point of this pair.<br>
<span>4.</span> Create an axis \f$ \mathbf{e_{0}}\left \{ \overrightarrow{p_{0}p_{1}} \right \} \f$ (i.e. having direction \f$ \overrightarrow{p_{0}p_{1}} \f$ ).<br>
<span>5.</span> Choose the point \f$ p_{2} \f$ (from the set defined in item 2) which is in the maximal distance from the infinite line directed along \f$ \mathbf{e_{0}} \f$ axis.<br>
Further, let us consider the triangle \f$ T_{0}\left \langle p_{0}, p_{1}, p_{2} \right \rangle \f$ (i.e. having vertices \f$ p_{0}, p_{1} \f$ and \f$ p_{2} \f$). Namely:
<span>6.</span> Create new axes: \f$ \mathbf{e_{1}}\left \{ \overrightarrow{p_{1}p_{2}} \right \} \f$, \f$ \mathbf{e_{2}}\left \{ \overrightarrow{p_{2}p_{0}} \right \} \f$, \f$ \mathbf{n}\left \{ \overrightarrow{\mathbf{e_{0}}} \times \overrightarrow{\mathbf{e_{1}}} \right \} \f$, \f$ \mathbf{m_{0}}\left \{ \overrightarrow{\mathbf{e_{0}}} \times \overrightarrow{\mathbf{n}} \right \} \f$, \f$ \mathbf{m_{1}}\left \{ \overrightarrow{\mathbf{e_{1}}} \times \overrightarrow{\mathbf{n}} \right \} \f$, \f$ \mathbf{m_{2}}\left \{ \overrightarrow{\mathbf{e_{2}}} \times \overrightarrow{\mathbf{n}} \right \} \f$.<br>
<span>7.</span> Create OBBs based on the following axis: \f$ \left \{ \mathbf{e_{0}} \vdots \mathbf{m_{0}} \vdots \mathbf{n} \right \} \f$, \f$ \left \{ \mathbf{e_{1}} \vdots \mathbf{m_{1}} \vdots \mathbf{n} \right \} \f$ and \f$ \left \{ \mathbf{e_{2}} \vdots \mathbf{m_{2}} \vdots \mathbf{n} \right \} \f$ . Choose optimal OBB.<br>
<span>8.</span> Choose the points \f$ q_{0} \f$ and \f$ q_{1} \f$ (from the set defined in item 2), which are in maximal distance from the plane of the triangle \f$ T_{0} \f$ (from both sides of this plane). At that, \f$ q_{0} \f$ has minimal coordinate along the axis \f$ \mathbf{n} \f$, \f$ q_{1} \f$ has a maximal coordinate.<br>
<span>9.</span> Repeat the step 6...7 for the triangles \f$ T_{1}\left \langle p_{0}, p_{1}, q_{0} \right \rangle \f$, \f$ T_{2}\left \langle p_{1}, p_{2}, q_{0} \right \rangle \f$, \f$ T_{3}\left \langle p_{0}, p_{2}, q_{0} \right \rangle \f$, \f$ T_{4}\left \langle p_{0}, p_{1}, q_{1} \right \rangle \f$, \f$ T_{5}\left \langle p_{1}, p_{2}, q_{1} \right \rangle \f$, \f$ T_{6}\left \langle p_{0}, p_{2}, q_{1} \right \rangle \f$.<br>
<span>10.</span> Compute the center of OBB and its half dimensions.<br>
<span>11.</span> Create OBB using the center, axes and half dimensions.<br>
This algorithm is realized in Bnd_OBB::ReBuild(...) method.
@subsubsection occt_modat_6_1_2 Creation of OBB based on Axes of inertia
The algorithm contains the following steps:
1. Calculate three inertia axes, which will be the axes of the OBB.
2. Transform the source object (TopoDS_Shape) into the local coordinate system based on the axes from item 1.
3. Create an AABB for the shape obtained in the item 2.
4. Compute the center of AABB and its half dimensions
5. Transform the center into the WCS
6. Create OBB using the center, axes and half dimensions.
@subsubsection occt_modat_6_1_3 Method IsOut for a point
1. Project the point to each axis.
2. Check, whether the absolute value of the projection parameter greater than the correspond half-dimension. In this case, IsOut method will return TRUE.
@subsubsection occt_modat_6_1_4 Method IsOut for another OBB
According to the <a href="http://www.jkh.me/files/tutorials/Separating%20Axis%20Theorem%20for%20Oriented%20Bounding%20Boxes.pdf">"Separating Axis Theorem for Oriented Bounding Boxes"</a>, it is necessary to check the 15 separating axes: 6 axes of the boxes and 9 are their cross products.<br>
The algorithm of analyzing axis \f$ \mathbf{l} \f$ is following:
1. Compute the "length" according to the formula: \f$ L_{j}=\sum_{i=0}^{2}{H_{i}\cdot \left | \overrightarrow{\mathbf{a_{i}}} \cdot \overrightarrow{\mathbf{l}} \right |} \f$. Here, \f$ \mathbf{a_{i}} \f$ is an i-th axis (X-axis, Y-axis, Z-axis) of j-th BndBox (j=1...2). \f$ H_{i} \f$ is a half-dimension along i-th axis.
2. If \f$ \left |\overrightarrow{C_{1}C_{2}} \cdot \overrightarrow{\mathbf{l}} \right | > L_{1}+L_{2} \f$ (where \f$ C_{j} \f$ is the center of j-th OBB) then the considered OBBs are not interfered in terms of the axis \f$ \mathbf{l} \f$.
If OBBs are not interfered in terms of at least one axis (of 15) then they are not interfered at all.
@subsubsection occt_modat_6_1_5 Method Add for point or another BndBox
Create new OBB (see the section @ref occt_modat_6_1_1) based on the source point and all vertices of the given BndBoxes.
@subsection occt_modat_6_2 Add a shape
Method BRepBndLib::AddOBB(...) allows creating BndBox from the complex object (TopoDS_Shape). This method uses both algorithms described in the sections @ref occt_modat_6_1_1 and sections @ref occt_modat_6_1_2.
The first algorithm is used if the shape outer shell can be represented by a set of points contained in the shape. Namely, only the following elements are the source of set of points:
- Nodes of triangulation;
- Nodes of Poly_Polygon3D;
- Vertices of edges with linear 3D-curve lying in the planar face;
- Vertices of edges with linear 3D-curve if the source shape does not contain more complex topological structure (e.g. the source shape is a compound of edges);
- Vertices if the source shape does not contain more complex topological structure (e.g. the source shape is a compound of vertices).
If required set of points cannot be extracted then the algorithm from section @ref occt_modat_6_1_2 is used for OBB creation.
The package BRepBndLib contains the methods BRepBndLib::Add(...), BRepBndLib::AddClose(...) and BRepBndLib::AddOptimal(...) for creation of AABB of a shape. Please see reference manual for detailed information.
@subsection occt_modat_6_3 Limitations of algorithm for OBB creation.
1. The algorithm described in the section @ref occt_modat_6_1_1 works significantly better (finds resulting OBB with less surface area) and faster than the algorithm from the section @ref occt_modat_6_1_2. Nevertheless, (in general) the result returned by both algorithms is not always optimal (i.e. sometimes another OBB exists having less surface area). Moreover, the first method does not allow computing OBB of shapes with complex geometry.
2. Currently, the algorithm of OBB creation is implemented for objects in 3D-space only.

10
samples/tcl/Penrose.tcl
View File

@ -41,11 +41,11 @@ tcopy bxx b10
# make some boxes hollow
for {set i 1} {$i <= 1} {incr i} {
set dim [boundingstr b$i]
set dx [expr [lindex $dim 3] - [lindex $dim 0]]
set x1 [expr [lindex $dim 0] + 0.1 * $dx]
set x2 [expr [lindex $dim 1] + 0.1 * $dx]
set x3 [expr [lindex $dim 2] + 0.1 * $dx]
set dim [bounding -s 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]
set x3 [dval zmin+0.1*$dx]
box bc $x1 $x2 $x3 0.8*$dx 0.8*$dx $dx
bcut bb b$i bc
tcopy bb b$i

2
samples/tcl/snowflake.tcl
View File

@ -135,7 +135,7 @@ vfit
# add dimension:
# detect vertices extremal in X direction
boundingstr snowflake x1 y1 z1 x2 y2 z2
bounding -s 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

20
src/BRepBndLib/BRepBndLib.hxx
View File

@ -24,6 +24,7 @@
#include <Standard_Boolean.hxx>
class TopoDS_Shape;
class Bnd_Box;
class Bnd_OBB;
//! This package provides the bounding boxes for curves
@ -82,6 +83,25 @@ public:
const Standard_Boolean useShapeTolerance = Standard_False);
//! Computes the Oriented Bounding box for the shape <theS>.
//! Two independent methods of computation are implemented:
//! first method based on set of points (so, it demands the
//! triangulated shape or shape with planar faces and linear edges).
//! The second method is based on use of inertia axes and is called
//! if use of the first method is impossible.
//! If theIsTriangulationUsed == FALSE then the triangulation will
//! be ignored at all.
//! If theIsShapeToleranceUsed == TRUE then resulting box will be
//! extended on the tolerance of the shape.
//! theIsOptimal flag defines the algorithm for construction of initial
//! Bnd_Box for the second method (if theIsOptimal == TRUE then
//! this box will be created by AddOptimal(...) method).
Standard_EXPORT static
void AddOBB(const TopoDS_Shape& theS,
Bnd_OBB& theOBB,
const Standard_Boolean theIsTriangulationUsed = Standard_True,
const Standard_Boolean theIsOptimal = Standard_False,
const Standard_Boolean theIsShapeToleranceUsed = Standard_True);
protected:

494
src/BRepBndLib/BRepBndLib_1.cxx Normal file
View File

@ -0,0 +1,494 @@
// Copyright (c) 1999-2017 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.
#include <Adaptor3d_HCurve.hxx>
#include <Adaptor3d_HSurface.hxx>
#include <GeomAdaptor_HCurve.hxx>
#include <BRepBndLib.hxx>
#include <GProp_GProps.hxx>
#include <TopoDS_Shape.hxx>
#include <BRep_Tool.hxx>
#include <TopoDS.hxx>
#include <Bnd_OBB.hxx>
#include <BRepGProp.hxx>
#include <TopExp_Explorer.hxx>
#include <GProp_PrincipalProps.hxx>
#include <gp_Ax3.hxx>
#include <BRepBuilderAPI_Transform.hxx>
#include <Bnd_Box.hxx>
#include <NCollection_List.hxx>
#include <TColgp_Array1OfPnt.hxx>
#include <TColStd_Array1OfReal.hxx>
#include <Geom_Plane.hxx>
#include <Geom_Line.hxx>
#include <TColStd_Array1OfInteger.hxx>
#include <BRepAdaptor_Curve.hxx>
#include <BRepAdaptor_HSurface.hxx>
#include <Geom_OffsetCurve.hxx>
#include <Geom_BSplineCurve.hxx>
#include <Geom_BezierCurve.hxx>
#include <Geom_BSplineSurface.hxx>
#include <Geom_BezierSurface.hxx>
//=======================================================================
// Function : IsLinear
// purpose : Returns TRUE if theC is line-like.
//=======================================================================
static Standard_Boolean IsLinear(const Adaptor3d_Curve& theC)
{
const GeomAbs_CurveType aCT = theC.GetType();
if(aCT == GeomAbs_OffsetCurve)
{
return IsLinear(GeomAdaptor_Curve(theC.OffsetCurve()->BasisCurve()));
}
if((aCT == GeomAbs_BSplineCurve) || (aCT == GeomAbs_BezierCurve))
{
// Indeed, curves with C0-continuity and degree==1, may be
// represented with set of points. It will be possible made
// in the future.
return ((theC.Degree() == 1) &&
(theC.Continuity() != GeomAbs_C0));
}
if(aCT == GeomAbs_Line)
{
return Standard_True;
}
return Standard_False;
}
//=======================================================================
// Function : IsPlanar
// purpose : Returns TRUE if theS is plane-like.
//=======================================================================
static Standard_Boolean IsPlanar(const Adaptor3d_Surface& theS)
{
const GeomAbs_SurfaceType aST = theS.GetType();
if(aST == GeomAbs_OffsetSurface)
{
return IsPlanar(theS.BasisSurface()->Surface());
}
if(aST == GeomAbs_SurfaceOfExtrusion)
{
return IsLinear(theS.BasisCurve()->Curve());
}
if((aST == GeomAbs_BSplineSurface) || (aST == GeomAbs_BezierSurface))
{
if((theS.UDegree() != 1) || (theS.VDegree() != 1))
return Standard_False;
// Indeed, surfaces with C0-continuity and degree==1, may be
// represented with set of points. It will be possible made
// in the future.
return ((theS.UContinuity() != GeomAbs_C0) && (theS.VContinuity() != GeomAbs_C0));
}
if(aST == GeomAbs_Plane)
{
return Standard_True;
}
return Standard_False;
}
//=======================================================================
// Function : PointsForOBB
// purpose : Returns number of points for array.
//
// Attention!!!
// 1. Start index for thePts must be 0 strictly.
// 2. Currently, infinite edges/faces (e.g. half-space) are not
// processed correctly because computation of UV-bounds is a costly operation.
//=======================================================================
static Standard_Integer PointsForOBB(const TopoDS_Shape& theS,
const Standard_Boolean theIsTriangulationUsed,
TColgp_Array1OfPnt* thePts = 0,
TColStd_Array1OfReal* theArrOfToler = 0)
{
Standard_Integer aRetVal = 0;
TopExp_Explorer anExpF, anExpE;
// get all vertices from the shape
for(anExpF.Init(theS, TopAbs_VERTEX); anExpF.More(); anExpF.Next())
{
const TopoDS_Vertex &aVert = TopoDS::Vertex(anExpF.Current());
if(thePts)
{
const gp_Pnt aP = BRep_Tool::Pnt(aVert);
(*thePts)(aRetVal) = aP;
}
if(theArrOfToler)
{
(*theArrOfToler) (aRetVal) = BRep_Tool::Tolerance(aVert);
}
++aRetVal;
}
if(aRetVal == 0)
return 0;
// analyze the faces of the shape on planarity and existence of triangulation
TopLoc_Location aLoc;
for(anExpF.Init(theS, TopAbs_FACE); anExpF.More(); anExpF.Next())
{
const TopoDS_Face &aF = TopoDS::Face(anExpF.Current());
const BRepAdaptor_Surface anAS(aF, Standard_False);
if (!IsPlanar(anAS.Surface()))
{
if (!theIsTriangulationUsed)
// not planar and triangulation usage disabled
return 0;
}
else
{
// planar face
for(anExpE.Init(aF, TopAbs_EDGE); anExpE.More(); anExpE.Next())
{
const TopoDS_Edge &anE = TopoDS::Edge(anExpE.Current());
const BRepAdaptor_Curve anAC(anE);
if (!IsLinear(anAC))
{
if (!theIsTriangulationUsed)
// not linear and triangulation usage disabled
return 0;
break;
}
}
if (!anExpE.More())
// skip planar face with linear edges as its vertices have already been added
continue;
}
// Use triangulation of the face
const Handle(Poly_Triangulation) &aTrng = BRep_Tool::Triangulation(aF, aLoc);
if (aTrng.IsNull())
// no triangulation on the face
return 0;
const Standard_Integer aCNode = aTrng->NbNodes();
const TColgp_Array1OfPnt& aNodesArr = aTrng->Nodes();
for (Standard_Integer i = 1; i <= aCNode; i++)
{
if (thePts)
{
const gp_Pnt aP = aLoc.IsIdentity() ? aNodesArr(i) :
aNodesArr(i).Transformed(aLoc);
(*thePts)(aRetVal) = aP;
}
if (theArrOfToler)
{
(*theArrOfToler) (aRetVal) = aTrng->Deflection();
}
++aRetVal;
}
}
// Consider edges without faces
for(anExpE.Init(theS, TopAbs_EDGE, TopAbs_FACE); anExpE.More(); anExpE.Next())
{
const TopoDS_Edge &anE = TopoDS::Edge(anExpE.Current());
const BRepAdaptor_Curve anAC(anE);
if (IsLinear(anAC))
// skip linear edge as its vertices have already been added
continue;
if (!theIsTriangulationUsed)
// not linear and triangulation usage disabled
return 0;
const Handle(Poly_Polygon3D) &aPolygon = BRep_Tool::Polygon3D(anE, aLoc);
if (aPolygon.IsNull())
return 0;
const Standard_Integer aCNode = aPolygon->NbNodes();
const TColgp_Array1OfPnt& aNodesArr = aPolygon->Nodes();
for (Standard_Integer i = 1; i <= aCNode; i++)
{
if (thePts)
{
const gp_Pnt aP = aLoc.IsIdentity() ? aNodesArr(i) :
aNodesArr(i).Transformed(aLoc);
(*thePts)(aRetVal) = aP;
}
if (theArrOfToler)
{
(*theArrOfToler) (aRetVal) = aPolygon->Deflection();
}
++aRetVal;
}
}
return aRetVal;
}
//=======================================================================
// Function : IsWCS
// purpose : Returns 0 if the theDir does not match any axis of WCS.
// Otherwise, returns the index of correspond axis.
//=======================================================================
static Standard_Integer IsWCS(const gp_Dir& theDir)
{
const Standard_Real aToler = Precision::Angular()*Precision::Angular();
const Standard_Real aX = theDir.X(),
aY = theDir.Y(),
aZ = theDir.Z();
const Standard_Real aVx = aY*aY + aZ*aZ,
aVy = aX*aX + aZ*aZ,
aVz = aX*aX + aY*aY;
if(aVz < aToler)
return 3; // Z-axis
if(aVy < aToler)
return 2; // Y-axis
if(aVx < aToler)
return 1; // X-axis
return 0;
}
//=======================================================================
// Function : CheckPoints
// purpose : Collects points for DiTO algorithm for OBB construction on
// linear/planar shapes and shapes having triangulation
// (http://www.idt.mdh.se/~tla/publ/FastOBBs.pdf).
//=======================================================================
static Standard_Boolean CheckPoints(const TopoDS_Shape& theS,
const Standard_Boolean theIsTriangulationUsed,
const Standard_Boolean theIsShapeToleranceUsed,
Bnd_OBB& theOBB)
{
const Standard_Integer aNbPnts = PointsForOBB(theS, theIsTriangulationUsed);
if(aNbPnts < 1)
return Standard_False;
TColgp_Array1OfPnt anArrPnts(0, theOBB.IsVoid() ? aNbPnts - 1 : aNbPnts + 7);
TColStd_Array1OfReal anArrOfTolerances;
if(theIsShapeToleranceUsed)
{
anArrOfTolerances.Resize(anArrPnts.Lower(), anArrPnts.Upper(), Standard_False);
anArrOfTolerances.Init(0.0);
}
TColStd_Array1OfReal *aPtrArrTol = theIsShapeToleranceUsed ? &anArrOfTolerances : 0;
PointsForOBB(theS, theIsTriangulationUsed, &anArrPnts, aPtrArrTol);
if(!theOBB.IsVoid())
{
// All points of old OBB have zero-tolerance
theOBB.GetVertex(&anArrPnts(aNbPnts));
}
#if 0
for(Standard_Integer i = anArrPnts.Lower(); i <= anArrPnts.Upper(); i++)
{
const gp_Pnt &aP = anArrPnts(i);
std::cout << "point p" << i << " " << aP.X() << ", " <<
aP.Y() << ", " <<
aP.Z() << ", "<< std::endl;
}
#endif
theOBB.ReBuild(anArrPnts, aPtrArrTol);
return (!theOBB.IsVoid());
}
//=======================================================================
// Function : ComputeProperties
// purpose : Computes properties of theS.
//=======================================================================
static void ComputeProperties(const TopoDS_Shape& theS,
GProp_GProps& theGCommon)
{
TopExp_Explorer anExp;
for(anExp.Init(theS, TopAbs_SOLID); anExp.More(); anExp.Next())
{
GProp_GProps aG;
BRepGProp::VolumeProperties(anExp.Current(), aG, Standard_True);
theGCommon.Add(aG);
}
for(anExp.Init(theS, TopAbs_FACE, TopAbs_SOLID); anExp.More(); anExp.Next())
{
GProp_GProps aG;
BRepGProp::SurfaceProperties(anExp.Current(), aG, Standard_True);
theGCommon.Add(aG);
}
for(anExp.Init(theS, TopAbs_EDGE, TopAbs_FACE); anExp.More(); anExp.Next())
{
GProp_GProps aG;
BRepGProp::LinearProperties(anExp.Current(), aG, Standard_True);
theGCommon.Add(aG);
}
for(anExp.Init(theS, TopAbs_VERTEX, TopAbs_EDGE); anExp.More(); anExp.Next())
{
GProp_GProps aG(BRep_Tool::Pnt(TopoDS::Vertex(anExp.Current())));
theGCommon.Add(aG);
}
}
//=======================================================================
// Function : ComputePCA
// purpose : Creates OBB with axes of inertia.
//=======================================================================
static void ComputePCA(const TopoDS_Shape& theS,
Bnd_OBB& theOBB,
const Standard_Boolean theIsTriangulationUsed,
const Standard_Boolean theIsOptimal,
const Standard_Boolean theIsShapeToleranceUsed)
{
// Compute the transformation matrix to obtain more tight bounding box
GProp_GProps aGCommon;
ComputeProperties(theS, aGCommon);
// Transform the shape to the local coordinate system
gp_Trsf aTrsf;
const Standard_Integer anIdx1 =
IsWCS(aGCommon.PrincipalProperties().FirstAxisOfInertia());
const Standard_Integer anIdx2 =
IsWCS(aGCommon.PrincipalProperties().SecondAxisOfInertia());
if((anIdx1 == 0) || (anIdx2 == 0))
{
// Coordinate system in which the shape will have the optimal bounding box
gp_Ax3 aLocCoordSys(aGCommon.CentreOfMass(),
aGCommon.PrincipalProperties().ThirdAxisOfInertia(),
aGCommon.PrincipalProperties().FirstAxisOfInertia());
aTrsf.SetTransformation(aLocCoordSys);
}
const TopoDS_Shape aST = (aTrsf.Form() == gp_Identity) ? theS :
theS.Moved(TopLoc_Location(aTrsf));
// Initial axis-aligned BndBox
Bnd_Box aShapeBox;
if(theIsOptimal)
{
BRepBndLib::AddOptimal(aST, aShapeBox, theIsTriangulationUsed, theIsShapeToleranceUsed);
}
else
{
BRepBndLib::Add(aST, aShapeBox);
}
gp_Pnt aPMin = aShapeBox.CornerMin();
gp_Pnt aPMax = aShapeBox.CornerMax();
gp_XYZ aXDir(1, 0, 0);
gp_XYZ aYDir(0, 1, 0);
gp_XYZ aZDir(0, 0, 1);
// Compute the center of the box
gp_XYZ aCenter = (aPMin.XYZ() + aPMax.XYZ()) / 2.;
// Compute the half diagonal size of the box.
// It takes into account the gap.
gp_XYZ anOBBHSize = (aPMax.XYZ() - aPMin.XYZ()) / 2.;
// Apply transformation if necessary
if(aTrsf.Form() != gp_Identity)
{
aTrsf.Invert();
aTrsf.Transforms(aCenter);
// Make transformation
const Standard_Real * aMat = &aTrsf.HVectorialPart().Value(1, 1);
// Compute axes directions of the box
aXDir = gp_XYZ(aMat[0], aMat[3], aMat[6]);
aYDir = gp_XYZ(aMat[1], aMat[4], aMat[7]);
aZDir = gp_XYZ(aMat[2], aMat[5], aMat[8]);
}
if(theOBB.IsVoid())
{
// Create the OBB box
// Set parameters to the OBB
theOBB.SetCenter(aCenter);
theOBB.SetXComponent(aXDir, anOBBHSize.X());
theOBB.SetYComponent(aYDir, anOBBHSize.Y());
theOBB.SetZComponent(aZDir, anOBBHSize.Z());
theOBB.SetAABox(aTrsf.Form() == gp_Identity);
}
else
{
// Recreate the OBB box
TColgp_Array1OfPnt aListOfPnts(0, 15);
theOBB.GetVertex(&aListOfPnts(0));
const Standard_Real aX = anOBBHSize.X();
const Standard_Real aY = anOBBHSize.Y();
const Standard_Real aZ = anOBBHSize.Z();
const gp_XYZ aXext = aX*aXDir,
aYext = aY*aYDir,
aZext = aZ*aZDir;
Standard_Integer aPntIdx = 8;
aListOfPnts(aPntIdx++) = aCenter - aXext - aYext - aZext;
aListOfPnts(aPntIdx++) = aCenter + aXext - aYext - aZext;
aListOfPnts(aPntIdx++) = aCenter - aXext + aYext - aZext;
aListOfPnts(aPntIdx++) = aCenter + aXext + aYext - aZext;
aListOfPnts(aPntIdx++) = aCenter - aXext - aYext + aZext;
aListOfPnts(aPntIdx++) = aCenter + aXext - aYext + aZext;
aListOfPnts(aPntIdx++) = aCenter - aXext + aYext + aZext;
aListOfPnts(aPntIdx++) = aCenter + aXext + aYext + aZext;
theOBB.ReBuild(aListOfPnts);
}
}
//=======================================================================
// Function : AddOBB
// purpose :
//=======================================================================
void BRepBndLib::AddOBB(const TopoDS_Shape& theS,
Bnd_OBB& theOBB,
const Standard_Boolean theIsTriangulationUsed,
const Standard_Boolean theIsOptimal,
const Standard_Boolean theIsShapeToleranceUsed)
{
if(CheckPoints(theS, theIsTriangulationUsed, theIsShapeToleranceUsed, theOBB))
return;
ComputePCA(theS, theOBB, theIsTriangulationUsed, theIsOptimal, theIsShapeToleranceUsed);
}

1
src/BRepBndLib/FILES
View File

@ -1,2 +1,3 @@
BRepBndLib.cxx
BRepBndLib.hxx
BRepBndLib_1.cxx

471
src/BRepTest/BRepTest_BasicCommands.cxx
View File

@ -50,15 +50,35 @@
#include <DrawTrSurf.hxx>
#include <Geom_Plane.hxx>
#include <OSD_Timer.hxx>
#include <Draw_Segment3D.hxx>
#include <Draw_Marker3D.hxx>
#include <Draw_MarkerShape.hxx>
#include <BRepPrimAPI_MakeBox.hxx>
#include <stdio.h>
Standard_IMPORT Draw_Viewer dout;
//=======================================================================
//function : ConvertBndToShape
//purpose : Creates TopoDS_Solid from theBox
//=======================================================================
static void ConvertBndToShape(const Bnd_OBB& theBox,
const char* const theName)
{
const gp_Pnt &aBaryCenter = theBox.Center();
const gp_XYZ &aXDir = theBox.XDirection(),
&aYDir = theBox.YDirection(),
&aZDir = theBox.ZDirection();
Standard_Real aHalfX = theBox.XHSize(),
aHalfY = theBox.YHSize(),
aHalfZ = theBox.ZHSize();
gp_Ax2 anAxes(aBaryCenter, aZDir, aXDir);
anAxes.SetLocation(aBaryCenter.XYZ() - aHalfX*aXDir - aHalfY*aYDir - aHalfZ*aZDir);
TopoDS_Solid aBox = BRepPrimAPI_MakeBox(anAxes, 2.0*aHalfX, 2.0*aHalfY, 2.0*aHalfZ);
DBRep::Set(theName, aBox);
}
//=======================================================================
// addpcurve
@ -400,31 +420,6 @@ static Standard_Integer orientsolid(Draw_Interpretor& ,Standard_Integer n,const
}
//=======================================================================
//function : boundingstr
//purpose :
//=======================================================================
static Standard_Integer boundingstr(Draw_Interpretor& di,Standard_Integer n,const char** a)
{
if (n < 2) return 1;
TopoDS_Shape S = DBRep::Get(a[1]);
if (S.IsNull()) return 1;
Bnd_Box B;
BRepBndLib::Add(S,B);
Standard_Real axmin,aymin,azmin,axmax,aymax,azmax;
B.Get(axmin,aymin,azmin,axmax,aymax,azmax);
di << axmin<<" "<< aymin<<" "<< azmin<<" "<< axmax<<" "<< aymax<<" "<< azmax;
if (n >= 8) {
Draw::Set(a[2],axmin) ;
Draw::Set(a[3],aymin) ;
Draw::Set(a[4],azmin) ;
Draw::Set(a[5],axmax) ;
Draw::Set(a[6],aymax) ;
Draw::Set(a[7],azmax) ;
}
return 0;
}
//=======================================================================
//function : getcoords
//purpose :
@ -454,76 +449,380 @@ static Standard_Integer getcoords(Draw_Interpretor& di,Standard_Integer n,const
}
//=======================================================================
//function : bounding
//function : BoundBox
//purpose :
//=======================================================================
static Standard_Integer bounding(Draw_Interpretor& di,Standard_Integer n,const char** a)
static Standard_Integer BoundBox(Draw_Interpretor& theDI,
Standard_Integer theNArg,
const char** theArgVal)
{
if (n < 2) return 1;
Standard_Real axmin,aymin,azmin,axmax,aymax,azmax;
Bnd_Box B; Handle(Draw_Box) DB;
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;
}
TopoDS_Shape aShape;
if (n == 2) {
TopoDS_Shape S = DBRep::Get(a[1]);
if (S.IsNull()) return 1;
BRepBndLib::Add(S,B);
B.Get(axmin,aymin,azmin,axmax,aymax,azmax);
DB = new Draw_Box(gp_Pnt(axmin,aymin,azmin),gp_Pnt(axmax,aymax,azmax),Draw_orange);
dout<<DB;
di << axmin<<" "<< aymin<<" "<< azmin<<" "<< axmax<<" "<< aymax<<" "<< azmax;
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++)
{
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))
{
isOBB = Standard_True;
}
else if(!strncmp(theArgVal[anAIdx], "-shape", 4))
{
aNameToShape = ++anAIdx;
}
else if(!strncmp(theArgVal[anAIdx], "-dump", 4))
{
hasToPrint = Standard_True;
}
else if(!strncmp(theArgVal[anAIdx], "-save", 4))
{
aStartIdxToSave = anAIdx+1;
anAIdx += 6;
}
else if(!strncmp(theArgVal[anAIdx], "-notriangulation", 9))
{
isTriangulationReq = Standard_False;
}
else if(!strncmp(theArgVal[anAIdx], "-perfmeter", 8))
{
anIdxCounterName = ++anAIdx;
aNbIters = Draw::Atoi(theArgVal[++anAIdx]);
}
else if(!strncmp(theArgVal[anAIdx], "-optimal", 4))
{
isOptimal = Standard_True;
}
else if(!strcmp(theArgVal[anAIdx], "-exttoler"))
{
isTolerUsed = Standard_True;
}
else if(!strcmp(theArgVal[anAIdx], "-nodraw"))
{
hasToDraw = Standard_False;
}
else
{
theDI << "Error: Unknown option \"" << theArgVal[anAIdx] << "\".\n";
return 1;
}
}
else if (n == 7) {
axmin=Draw::Atof(a[1]);
aymin=Draw::Atof(a[2]);
azmin=Draw::Atof(a[3]);
axmax=Draw::Atof(a[4]);
aymax=Draw::Atof(a[5]);
azmax=Draw::Atof(a[6]);
DB = new Draw_Box(gp_Pnt(axmin,aymin,azmin),gp_Pnt(axmax,aymax,azmax),Draw_orange);
dout<<DB;
if(aShape.IsNull() && (aStartIdxToCreate < 0))
{
theDI << "Error: One of the options \'-s\' or \'-c\' must be set necessarily.\n";
return 1;
}
if(aStartIdxToCreate > 0)
{
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;
}
}
Handle(Draw_Box) aDB;
OSD_Timer aTimer;
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;
aTimer.Start();
while(aN-- > 0)
{
anOBB.SetVoid();
BRepBndLib::AddOBB(aShape, anOBB, isTriangulationReq, isOptimal, isTolerUsed);
}
aTimer.Stop();
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)
{
theDI << "Oriented bounding box\n";
theDI << "Center: " << aBaryCenter.X() << " " <<
aBaryCenter.Y() << " " <<
aBaryCenter.Z() << "\n";
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";
}
if(hasToDraw)
aDB = new Draw_Box(anOBB, Draw_orange);
if(aNameToShape > 0)
{
ConvertBndToShape(anOBB, theArgVal[aNameToShape]);
}
}
else // if(!isOBB)
{
Standard_Real aXmin = RealFirst(), aYmin = RealFirst(), aZmin = RealFirst(),
aXMax = RealLast(), aYMax = RealLast(), aZMax = RealLast();
Bnd_Box anAABB;
if(aStartIdxToCreate < 0)
{
Standard_Integer aN = aNbIters;
if(isOptimal)
{
aTimer.Start();
while(aN-- > 0)
{
anAABB.SetVoid();
BRepBndLib::AddOptimal(aShape, anAABB, isTriangulationReq, isTolerUsed);
}
aTimer.Stop();
}
else
{
aTimer.Start();
while(aN-- > 0)
{
anAABB.SetVoid();
BRepBndLib::Add(aShape, anAABB, isTriangulationReq);
}
aTimer.Stop();
}
}
else
{
if(anIdxCounterName > 0)
{
theDI << "Error: Option \"-perfmeter\"does not work if the option \'-c\' "
"is switched on.\n";
return 1;
}
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)
{
theDI << "Axes-aligned bounding box\n";
theDI << "X-range: " << aXmin << " " << aXMax << "\n" <<
"Y-range: " << aYmin << " " << aYMax << "\n" <<
"Z-range: " << aZmin << " " << aZMax << "\n";
}
if(aStartIdxToSave > 0)
{
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);
}
}
if(hasToDraw)
aDB = new Draw_Box(anAABB, Draw_orange);
if(aNameToShape > 0)
{
ConvertBndToShape(anAABB, theArgVal[aNameToShape]);
}
}
if(hasToDraw)
dout << aDB;
if(anIdxCounterName > 0)
{
theDI << "COUNTER " << theArgVal[anIdxCounterName] << ": " << aTimer.ElapsedTime() << "\n";
}
return 0;
}
//=======================================================================
//function : optbounding
//function : IsBoxesInterfered
//purpose :
//=======================================================================
static Standard_Integer optbounding(Draw_Interpretor& di,Standard_Integer n,const char** a)
static Standard_Integer IsBoxesInterfered(Draw_Interpretor& theDI,
Standard_Integer theNArg,
const char** theArgVal)
{
if (n < 2)
if(theNArg < 2)
{
di << "Usage: optbounding shape [usetri [usetol]]\n";
di << "usetri and usetol can be 0 or 1, by default usetri = 1, usetol = 0\n";
theDI << "Use: isbbinterf shape1 shape2 [-o].\n";
return 1;
}
Standard_Real axmin,aymin,azmin,axmax,aymax,azmax;
Bnd_Box B; Handle(Draw_Box) DB;
TopoDS_Shape S = DBRep::Get(a[1]);
if (S.IsNull())
const TopoDS_Shape aShape1 = DBRep::Get(theArgVal[1]);
const TopoDS_Shape aShape2 = DBRep::Get(theArgVal[2]);
Standard_Boolean isOBB = (theNArg > 3) && (!strcmp(theArgVal[3], "-o"));
if(isOBB)
{
di << "Null shape\n";
return 1;
Bnd_OBB anOBB1, anOBB2;
BRepBndLib::AddOBB(aShape1, anOBB1);
BRepBndLib::AddOBB(aShape2, anOBB2);
if(anOBB1.IsOut(anOBB2))
{
theDI << "The shapes are NOT interfered by OBB.\n";
}
else
{
theDI << "The shapes are interfered by OBB.\n";
}
}
Standard_Boolean useTri = Standard_True;
Standard_Boolean useTol = Standard_False;
if(n > 2 )
else
{
Standard_Integer ii = atoi(a[2]);
useTri = ii > 0;
Bnd_Box anAABB1, anAABB2;
BRepBndLib::Add(aShape1, anAABB1);
BRepBndLib::Add(aShape2, anAABB2);
if(anAABB1.IsOut(anAABB2))
{
theDI << "The shapes are NOT interfered by AABB.\n";
}
else
{
theDI << "The shapes are interfered by AABB.\n";
}
}
if(n > 3 )
{
Standard_Integer ii = atoi(a[3]);
useTol = ii > 0;
}
BRepBndLib::AddOptimal(S, B, useTri, useTol);
B.Get(axmin, aymin, azmin, axmax, aymax, azmax);
DB = new Draw_Box(gp_Pnt(axmin,aymin,azmin),gp_Pnt(axmax,aymax,azmax),Draw_vert);
dout<<DB;
di << axmin<<" "<< aymin<<" "<< azmin<<" "<< axmax<<" "<< aymax<<" "<< azmax;
return 0;
}
//=======================================================================
//function : gbounding
//purpose :
@ -600,7 +899,7 @@ static Standard_Integer gbounding(Draw_Interpretor& di,Standard_Integer n,const
if (Is3d)
{
B.Get(axmin,aymin,azmin,axmax,aymax,azmax);
DB = new Draw_Box(gp_Pnt(axmin,aymin,azmin),gp_Pnt(axmax,aymax,azmax),Draw_vert);
DB = new Draw_Box(B, Draw_vert);
dout<<DB;
di << axmin<<" "<< aymin<<" "<< azmin<<" "<< axmax<<" "<< aymax<<" "<< azmax;
}
@ -1208,25 +1507,21 @@ void BRepTest::BasicCommands(Draw_Interpretor& theCommands)
__FILE__,
getcoords,g);
theCommands.Add("bounding",
"bounding shape [ xmin ymin zmin xmax ymax zmax] ; draw bounds",
__FILE__,
bounding,g);
theCommands.Add("bounding", "enter the comand w/o any arguments to obtain the help.",
__FILE__, BoundBox, g);
theCommands.Add("optbounding",
"optbounding shape [usetri (0/1) [usetol (0/1)]] ; ",
__FILE__,
optbounding,g);
//
theCommands.Add("gbounding",
"gbounding surf/curve/curve2d [-o] ",
__FILE__,
gbounding,g);
theCommands.Add("boundingstr",
"boundingstr shape [ xmin ymin zmin xmax ymax zmax] ; print bounding box",
__FILE__,
boundingstr,g);
theCommands.Add("isbbinterf", "isbbinterf shape1 shape2 [-o]\n"
"Checks whether the bounding-boxes created from "
"the given shapes are interfered. If \"-o\"-option "
"is switched on then the oriented boxes will be checked. "
"Otherwise, axes-aligned boxes will be checked.",
__FILE__, IsBoxesInterfered, g);
theCommands.Add("nurbsconvert",
"nurbsconvert result name [result name]",

679
src/Bnd/Bnd_OBB.cxx Normal file
View File

@ -0,0 +1,679 @@
// Created by: Eugeny MALTCHIKOV
// Copyright (c) 2017 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.
#include <Bnd_OBB.hxx>
#include <Bnd_B3d.hxx>
#include <NCollection_Array1.hxx>
#include <Precision.hxx>
#include <TColStd_Array1OfReal.hxx>
class OBBTool
{
public:
//! Constructor. theL - list of points.
//! theLT is a pointer to the list of tolerances
//! (i-th element of this array is a tolerance
//! of i-th point in theL). If theLT is empty
//! then the tolerance of every point is equal to 0.
//! Attention! The objects, which theL and theLT links on,
//! must be available during all time of OBB creation
//! (i.e. while the object of OBBTool exists).
OBBTool(const TColgp_Array1OfPnt& theL,
const TColStd_Array1OfReal *theLT = 0);
//! DiTO algorithm for OBB construction
//! (http://www.idt.mdh.se/~tla/publ/FastOBBs.pdf)
void ProcessDiTetrahedron();
//! Creates OBB with already computed parameters
void BuildBox(Bnd_OBB& theBox);
protected:
//! Works with the triangle set by the points in myTriIdx.
//! If theIsBuiltTrg == TRUE, new set of triangles will be
//! recomputed.
void ProcessTriangle(const Standard_Integer theIdx1,
const Standard_Integer theIdx2,
const Standard_Integer theIdx3,
const Standard_Boolean theIsBuiltTrg);
//! Computes myTriIdx[2]
void FillToTriangle3();
//! Computes myTriIdx[3] and myTriIdx[4]
void FillToTriangle5(const gp_XYZ& theNormal,
const gp_XYZ& theBarryCenter);
//! Returns half of the Surface area of the box
static Standard_Real ComputeQuality(const Standard_Real* const thePrmArr)
{
const Standard_Real aDX = thePrmArr[1] - thePrmArr[0],
aDY = thePrmArr[3] - thePrmArr[2],
aDZ = thePrmArr[5] - thePrmArr[4];
return (aDX*aDY + aDY*aDZ + aDX*aDZ);
}
protected:
//! Assignment operator is forbidden
OBBTool& operator=(const OBBTool&);
private:
//! Number of the initial axes.
static const Standard_Integer myNbInitAxes = 7;
//! Number of extremal points
static const Standard_Integer myNbExtremalPoints = 2 * myNbInitAxes;
//! The source list of points
const TColgp_Array1OfPnt& myPntsList;
//! Pointer to the array of tolerances
const TColStd_Array1OfReal *myListOfTolers;
//! Points of ditetrahedron
//! given by their indices in myLExtremalPoints.
Standard_Integer myTriIdx[5];
//! List of extremal points
gp_XYZ myLExtremalPoints[myNbExtremalPoints];
//! The axes of the box (always normalized or
//! can be null-vector)
gp_XYZ myAxes[3];
//! The surface area of the OBB
Standard_Real myQualityCriterion;
};
//=======================================================================
// Function : SetMinMax
// purpose :
// ATTENTION!!! thePrmArr must be initialized before this method calling.
//=======================================================================
static inline void SetMinMax(Standard_Real* const thePrmArr,
const Standard_Real theNewParam)
{
if(theNewParam < thePrmArr[0])
{
thePrmArr[0] = theNewParam;
}
else if(theNewParam > thePrmArr[1])
{
thePrmArr[1] = theNewParam;
}
}
//=======================================================================
// Function : Constructor
// purpose :
//=======================================================================
OBBTool::
OBBTool(const TColgp_Array1OfPnt& theL,
const TColStd_Array1OfReal *theLT) :myPntsList(theL),
myListOfTolers(theLT),
myQualityCriterion(RealLast())
{
const Standard_Real aSqrt3 = Sqrt(3);
// Origin of all initial axis is (0,0,0).
// All axes must be normalized.
const gp_XYZ anInitialAxesArray[myNbInitAxes] = {gp_XYZ(1.0, 0.0, 0.0),
gp_XYZ(0.0, 1.0, 0.0),
gp_XYZ(0.0, 0.0, 1.0),
gp_XYZ(1.0, 1.0, 1.0) / aSqrt3,
gp_XYZ(1.0, 1.0, -1.0) / aSqrt3,
gp_XYZ(1.0, -1.0, 1.0) / aSqrt3,
gp_XYZ(1.0, -1.0, -1.0) / aSqrt3};
// Minimal and maximal point on every axis
const Standard_Integer aNbPoints = 2 * myNbInitAxes;
for(Standard_Integer i = 0; i < 5; i++)
{
myTriIdx[i] = INT_MAX;
}
// Min and Max parameter
Standard_Real aParams[aNbPoints];
for(Standard_Integer i = 0; i < aNbPoints; i += 2)
{
aParams[i] = RealLast();
aParams[i + 1] = RealFirst();
}
// Look for the extremal points (myLExtremalPoints)
for(Standard_Integer i = myPntsList.Lower() ; i <= myPntsList.Upper(); i++)
{
const gp_XYZ &aCurrPoint = myPntsList(i).XYZ();
for(Standard_Integer anAxeInd = 0, aPrmInd = 0; anAxeInd < myNbInitAxes; anAxeInd++, aPrmInd++)
{
const Standard_Real aParam = aCurrPoint.Dot(anInitialAxesArray[anAxeInd]);
if(aParam < aParams[aPrmInd])
{
myLExtremalPoints[aPrmInd] = aCurrPoint;
aParams[aPrmInd] = aParam;
}
aPrmInd++;
if(aParam > aParams[aPrmInd])
{
myLExtremalPoints[aPrmInd] = aCurrPoint;
aParams[aPrmInd] = aParam;
}
}
}
// Compute myTriIdx[0] and myTriIdx[1].
Standard_Real aMaxSqDist = -1.0;
for(Standard_Integer aPrmInd = 0; aPrmInd < aNbPoints; aPrmInd += 2)
{
const gp_Pnt &aP1 = myLExtremalPoints[aPrmInd],
&aP2 = myLExtremalPoints[aPrmInd + 1];
const Standard_Real aSqDist = aP1.SquareDistance(aP2);
if(aSqDist > aMaxSqDist)
{
aMaxSqDist = aSqDist;
myTriIdx[0] = aPrmInd;
myTriIdx[1] = aPrmInd + 1;
}
}
FillToTriangle3();
}
//=======================================================================
// Function : FillToTriangle3
// purpose : Two value of myTriIdx array is known. Let us find myTriIdx[2].
// It must be in maximal distance from the infinite axis going
// through the points with indexes myTriIdx[0] and myTriIdx[1].
//=======================================================================
void OBBTool::FillToTriangle3()
{
const gp_XYZ &aP0 = myLExtremalPoints[myTriIdx[0]];
const gp_XYZ anAxis = myLExtremalPoints[myTriIdx[1]] - aP0;
Standard_Real aMaxSqDist = -1.0;
for(Standard_Integer i = 0; i < myNbExtremalPoints; i++)
{
if((i == myTriIdx[0]) || (i == myTriIdx[1]))
continue;
const gp_XYZ &aP = myLExtremalPoints[i];
const Standard_Real aDistToAxe = anAxis.CrossSquareMagnitude(aP - aP0);
if(aDistToAxe > aMaxSqDist)
{
myTriIdx[2] = i;
aMaxSqDist = aDistToAxe;
}
}
}
//=======================================================================
// Function : FillToTriangle5
// purpose : Three value of myTriIdx array is known.
// Let us find myTriIdx[3] and myTriIdx[4].
// They must be in the different sides of the plane of
// triangle set by points myTriIdx[0], myTriIdx[1] and
// myTriIdx[2]. Moreover, the distance from these points
// to the triangle plane must be maximal.
//=======================================================================
void OBBTool::FillToTriangle5(const gp_XYZ& theNormal,
const gp_XYZ& theBarryCenter)
{
Standard_Real aParams[2] = {0.0, 0.0};
for(Standard_Integer aPtIdx = 0; aPtIdx < myNbExtremalPoints; aPtIdx++)
{
if((aPtIdx == myTriIdx[0]) || (aPtIdx == myTriIdx[1]) || (aPtIdx == myTriIdx[2]))
continue;
const gp_XYZ &aCurrPoint = myLExtremalPoints[aPtIdx];
const Standard_Real aParam = theNormal.Dot(aCurrPoint - theBarryCenter);
if(aParam < aParams[0])
{
myTriIdx[3] = aPtIdx;
aParams[0] = aParam;
}
else if(aParam > aParams[1])
{
myTriIdx[4] = aPtIdx;
aParams[1] = aParam;
}
}
// The points must be in the different sides of the triangle plane.
if(aParams[0] > -Precision::Confusion())
{
myTriIdx[3] = INT_MAX;
}
if(aParams[1] < Precision::Confusion())
{
myTriIdx[4] = INT_MAX;
}
}
//=======================================================================
// Function : ProcessTriangle
// purpose : Choose the optimal box with triple axes containing normal
// to the triangle and some edge of the triangle (3rd axis is
// computed from these two ones).
//=======================================================================
void OBBTool::ProcessTriangle(const Standard_Integer theIdx1,
const Standard_Integer theIdx2,
const Standard_Integer theIdx3,
const Standard_Boolean theIsBuiltTrg)
{
const Standard_Integer aNbAxes = 3;
//Some vertex of the triangle
const gp_XYZ aP0 = myLExtremalPoints[theIdx1];
// All axes must be normalized in order to provide correct area computation
// (see ComputeQuality(...) method).
gp_XYZ aYAxis[aNbAxes] = {(myLExtremalPoints[theIdx2] - myLExtremalPoints[theIdx1]),
(myLExtremalPoints[theIdx3] - myLExtremalPoints[theIdx2]),
(myLExtremalPoints[theIdx1] - myLExtremalPoints[theIdx3])};
// Normal to the triangle plane
gp_XYZ aZAxis = aYAxis[0].Crossed(aYAxis[1]);
Standard_Real aSqMod = aZAxis.SquareModulus();
if(aSqMod < Precision::SquareConfusion())
return;
aZAxis /= Sqrt(aSqMod);
gp_XYZ aXAxis[aNbAxes];
for(Standard_Integer i = 0; i < aNbAxes; i++)
{
aXAxis[i] = aYAxis[i].Crossed(aZAxis).Normalized();
aYAxis[i].Normalize();
}
if(theIsBuiltTrg)
FillToTriangle5(aZAxis, aP0);
// Min and Max parameter
const Standard_Integer aNbPoints = 2 * aNbAxes;
Standard_Integer aMinIdx = -1;
for(Standard_Integer anAxeInd = 0; anAxeInd < aNbAxes; anAxeInd++)
{
const gp_XYZ &aAX = aXAxis[anAxeInd],
&aAY = aYAxis[anAxeInd];
Standard_Real aParams[aNbPoints] = {0.0, 0.0, 0.0,
0.0, 0.0, 0.0};
for(Standard_Integer aPtIdx = 0; aPtIdx < myNbExtremalPoints; aPtIdx++)
{
if(aPtIdx == theIdx1)
continue;
const gp_XYZ aCurrPoint = myLExtremalPoints[aPtIdx] - aP0;
SetMinMax(&aParams[0], aAX.Dot(aCurrPoint));
SetMinMax(&aParams[2], aAY.Dot(aCurrPoint));
SetMinMax(&aParams[4], aZAxis.Dot(aCurrPoint));
}
const Standard_Real anArea = ComputeQuality(aParams);
if(anArea < myQualityCriterion)
{
myQualityCriterion = anArea;
aMinIdx = anAxeInd;
}
}
if(aMinIdx < 0)
return;
myAxes[0] = aXAxis[aMinIdx];
myAxes[1] = aYAxis[aMinIdx];
myAxes[2] = aZAxis;
}
//=======================================================================
// Function : ProcessDiTetrahedron
// purpose : DiTo-algorithm (http://www.idt.mdh.se/~tla/publ/FastOBBs.pdf)
//=======================================================================
void OBBTool::ProcessDiTetrahedron()
{
ProcessTriangle(myTriIdx[0], myTriIdx[1], myTriIdx[2], Standard_True);
if(myTriIdx[3] <= myNbExtremalPoints)
{
ProcessTriangle(myTriIdx[0], myTriIdx[1], myTriIdx[3], Standard_False);
ProcessTriangle(myTriIdx[1], myTriIdx[2], myTriIdx[3], Standard_False);
ProcessTriangle(myTriIdx[0], myTriIdx[2], myTriIdx[3], Standard_False);
}
if(myTriIdx[4] <= myNbExtremalPoints)
{
ProcessTriangle(myTriIdx[0], myTriIdx[1], myTriIdx[4], Standard_False);
ProcessTriangle(myTriIdx[1], myTriIdx[2], myTriIdx[4], Standard_False);
ProcessTriangle(myTriIdx[0], myTriIdx[2], myTriIdx[4], Standard_False);
}
}
//=======================================================================
// Function : BuildBox
// purpose :
//=======================================================================
void OBBTool::BuildBox(Bnd_OBB& theBox)
{
theBox.SetVoid();
// In fact, use Precision::SquareConfusion().
const Standard_Boolean isOBB = myAxes[0].SquareModulus()*
myAxes[1].SquareModulus()*
myAxes[2].SquareModulus() > 1.0e-14;
const gp_Dir aXDir = isOBB ? myAxes[0] : gp_Dir(1, 0, 0);
const gp_Dir aYDir = isOBB ? myAxes[1] : gp_Dir(0, 1, 0);
const gp_Dir aZDir = isOBB ? myAxes[2] : gp_Dir(0, 0, 1);
const Standard_Integer aNbPoints = 6;
Standard_Real aParams[aNbPoints];
gp_XYZ aFCurrPoint = myPntsList.First().XYZ();
aParams[0] = aParams[1] = aFCurrPoint.Dot(aXDir.XYZ());
aParams[2] = aParams[3] = aFCurrPoint.Dot(aYDir.XYZ());
aParams[4] = aParams[5] = aFCurrPoint.Dot(aZDir.XYZ());
if(myListOfTolers != 0)
{
const Standard_Real aTol = myListOfTolers->First();
aParams[0] -= aTol;
aParams[1] += aTol;
aParams[2] -= aTol;
aParams[3] += aTol;
aParams[4] -= aTol;
aParams[5] += aTol;
}
for(Standard_Integer i = myPntsList.Lower() + 1; i <= myPntsList.Upper(); i++)
{
const gp_XYZ &aCurrPoint = myPntsList(i).XYZ();
const Standard_Real aDx = aCurrPoint.Dot(aXDir.XYZ()),
aDy = aCurrPoint.Dot(aYDir.XYZ()),
aDz = aCurrPoint.Dot(aZDir.XYZ());
if(myListOfTolers == 0)
{
SetMinMax(&aParams[0], aDx);
SetMinMax(&aParams[2], aDy);
SetMinMax(&aParams[4], aDz);
}
else
{
const Standard_Real aTol = myListOfTolers->Value(i);
aParams[0] = Min(aParams[0], aDx - aTol);
aParams[1] = Max(aParams[1], aDx + aTol);
aParams[2] = Min(aParams[2], aDy - aTol);
aParams[3] = Max(aParams[3], aDy + aTol);
aParams[4] = Min(aParams[4], aDz - aTol);
aParams[5] = Max(aParams[5], aDz + aTol);
}
}
//Half-sizes
const Standard_Real aHX = 0.5*(aParams[1] - aParams[0]);
const Standard_Real aHY = 0.5*(aParams[3] - aParams[2]);
const Standard_Real aHZ = 0.5*(aParams[5] - aParams[4]);
const gp_XYZ aCenter = 0.5*((aParams[1] + aParams[0])*aXDir.XYZ() +
(aParams[3] + aParams[2])*aYDir.XYZ() +
(aParams[5] + aParams[4])*aZDir.XYZ());
theBox.SetCenter(aCenter);
theBox.SetXComponent(aXDir, aHX);
theBox.SetYComponent(aYDir, aHY);
theBox.SetZComponent(aZDir, aHZ);
theBox.SetAABox(!isOBB);
}
// =======================================================================
// function : ReBuild
// purpose : http://www.idt.mdh.se/~tla/publ/
// =======================================================================
void Bnd_OBB::ReBuild(const TColgp_Array1OfPnt& theListOfPoints,
const TColStd_Array1OfReal *theListOfTolerances)
{
switch(theListOfPoints.Length())
{
case 1:
ProcessOnePoint(theListOfPoints.First());
if(theListOfTolerances)
Enlarge(theListOfTolerances->First());
return;
case 2:
{
const Standard_Real aTol1 = (theListOfTolerances == 0) ? 0.0 :
theListOfTolerances->First();
const Standard_Real aTol2 = (theListOfTolerances == 0) ? 0.0 :
theListOfTolerances->Last();
const gp_XYZ &aP1 = theListOfPoints.First().XYZ(),
&aP2 = theListOfPoints.Last().XYZ();
const gp_XYZ aDP = aP2 - aP1;
const Standard_Real aDPm = aDP.Modulus();
myIsAABox = Standard_False;
myHDims[1] = myHDims[2] = Max(aTol1, aTol2);
if(aDPm < Precision::Confusion())
{
ProcessOnePoint(aP1);
Enlarge(myHDims[1] + Precision::Confusion());
return;
}
myHDims[0] = 0.5*(aDPm+aTol1+aTol2);
myAxes[0] = aDP/aDPm;
if(Abs(myAxes[0].X()) > Abs(myAxes[0].Y()))
{
// Z-coord. is maximal or X-coord. is maximal
myAxes[1].SetCoord(-myAxes[0].Z(), 0.0, myAxes[0].X());
}
else
{
// Z-coord. is maximal or Y-coord. is maximal
myAxes[1].SetCoord(0.0, -myAxes[0].Z(), myAxes[0].Y());
}
myAxes[2] = myAxes[0].Crossed(myAxes[1]).Normalized();
myCenter = aP1 + 0.5*(aDPm - aTol1 + aTol2)*myAxes[0];
}
return;
default:
break;
}
OBBTool aTool(theListOfPoints, theListOfTolerances);
aTool.ProcessDiTetrahedron();
aTool.BuildBox(*this);
}
// =======================================================================
// function : IsOut
// purpose :
// =======================================================================
Standard_Boolean Bnd_OBB::IsOut(const Bnd_OBB& theOther) const
{
if (IsVoid() || theOther.IsVoid())
return Standard_True;
if (myIsAABox && theOther.myIsAABox)
{
return ((Abs(theOther.myCenter.X() - myCenter.X()) > theOther.myHDims[0] + myHDims[0]) ||
(Abs(theOther.myCenter.Y() - myCenter.Y()) > theOther.myHDims[1] + myHDims[1]) ||
(Abs(theOther.myCenter.Z() - myCenter.Z()) > theOther.myHDims[2] + myHDims[2]));
}
// According to the Separating Axis Theorem for Oriented Bounding Boxes
// it is necessary to check the 15 separating axes (Ls):
// - 6 axes of the boxes;
// - 9 cross products of the axes of the boxes.
// If any of these axes is valid, the boxes do not interfere.
// The algorithm is following:
// 1. Compute the "length" for j-th BndBox (j=1...2) according to the formula:
// L(j)=Sum(myHDims[i]*Abs(myAxes[i].Dot(Ls)))
// 2. If (theCenter2 - theCenter1).Dot(Ls) > (L(1) + L(2))
// then the considered OBBs are not interfered in terms of the axis Ls.
//
// If OBBs are not interfered in terms of at least one axis (of 15) then
// they are not interfered at all.
// Precomputed difference between centers
gp_XYZ D = theOther.myCenter - myCenter;
// Check the axes of the this box, i.e. L is one of myAxes
// Since the Dot product of two of these directions is null, it could be skipped:
// myXDirection.Dot(myYDirection) = 0
for(Standard_Integer i = 0; i < 3; ++i)
{
// Length of the second segment
Standard_Real aLSegm2 = 0;
for(Standard_Integer j = 0; j < 3; ++j)
aLSegm2 += theOther.myHDims[j] * Abs(theOther.myAxes[j].Dot(myAxes[i]));
// Distance between projected centers
Standard_Real aDistCC = Abs(D.Dot(myAxes[i]));
if(aDistCC > myHDims[i] + aLSegm2)
return Standard_True;
}
// Check the axes of the Other box, i.e. L is one of theOther.myAxes
for(Standard_Integer i = 0; i < 3; ++i)
{
// Length of the first segment
Standard_Real aLSegm1 = 0.;
for(Standard_Integer j = 0; j < 3; ++j)
aLSegm1 += myHDims[j] * Abs(myAxes[j].Dot(theOther.myAxes[i]));
// Distance between projected centers
Standard_Real aDistCC = Abs(D.Dot(theOther.myAxes[i]));
if(aDistCC > aLSegm1 + theOther.myHDims[i])
return Standard_True;
}
const Standard_Real aTolNull = Epsilon(1.0);
// Check the axes produced by the cross products
for(Standard_Integer i = 0; i < 3; ++i)
{
for(Standard_Integer j = 0; j < 3; ++j)
{
// Separating axis
gp_XYZ aLAxe = myAxes[i].Crossed(theOther.myAxes[j]);
const Standard_Real aNorm = aLAxe.Modulus();
if(aNorm < aTolNull)
continue;
aLAxe /= aNorm;
// Length of the first segment
Standard_Real aLSegm1 = 0.;
for(Standard_Integer k = 0; k < 3; ++k)
aLSegm1 += myHDims[k] * Abs(myAxes[k].Dot(aLAxe));
// Length of the second segment
Standard_Real aLSegm2 = 0.;
for(Standard_Integer k = 0; k < 3; ++k)
aLSegm2 += theOther.myHDims[k] * Abs(theOther.myAxes[k].Dot(aLAxe));
// Distance between projected centers
Standard_Real aDistCC = Abs(D.Dot(aLAxe));
if(aDistCC > aLSegm1 + aLSegm2)
return Standard_True;
}
}
return Standard_False;
}
// =======================================================================
// function : IsOut
// purpose :
// =======================================================================
Standard_Boolean Bnd_OBB::IsOut(const gp_Pnt& theP) const
{
// 1. Project the point to myAxes[i] (i=0...2).
// 2. Check, whether the absolute value of the correspond
// projection parameter is greater than myHDims[i].
// In this case, IsOut method will return TRUE.
const gp_XYZ aRV = theP.XYZ() - myCenter;
return ((Abs(myAxes[0].Dot(aRV)) > myHDims[0]) ||
(Abs(myAxes[1].Dot(aRV)) > myHDims[1]) ||
(Abs(myAxes[2].Dot(aRV)) > myHDims[2]));
}
// =======================================================================
// function : IsCompletelyInside
// purpose : Checks if every vertex of theOther is completely inside *this
// =======================================================================
Standard_Boolean Bnd_OBB::IsCompletelyInside(const Bnd_OBB& theOther) const
{
if(IsVoid() || theOther.IsVoid())
return Standard_False;
gp_Pnt aVert[8];
theOther.GetVertex(aVert);
for(Standard_Integer i = 0; i < 8; i++)
{
if(IsOut(aVert[i]))
return Standard_False;
}
return Standard_True;
}
// =======================================================================
// function : Add
// purpose :
// =======================================================================
void Bnd_OBB::Add(const gp_Pnt& theP)
{
gp_Pnt aList[9];
GetVertex(aList);
aList[8] = theP;
ReBuild(TColgp_Array1OfPnt(aList[0], 0, 8));
}
// =======================================================================
// function : Add
// purpose :
// =======================================================================
void Bnd_OBB::Add(const Bnd_OBB& theOther)
{
gp_Pnt aList[16];
GetVertex(&aList[0]);
theOther.GetVertex(&aList[8]);
ReBuild(TColgp_Array1OfPnt(aList[0], 0, 15));
}

290
src/Bnd/Bnd_OBB.hxx Normal file
View File

@ -0,0 +1,290 @@
// Created by: Eugeny MALTCHIKOV
// Copyright (c) 2017 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.
#ifndef _Bnd_OBB_HeaderFile
#define _Bnd_OBB_HeaderFile
#include <Standard.hxx>
#include <Standard_DefineAlloc.hxx>
#include <Standard_Handle.hxx>
#include <Standard_Real.hxx>
#include <Standard_Boolean.hxx>
#include <Bnd_Box.hxx>
#include <gp_Dir.hxx>
#include <gp_Pnt.hxx>
#include <gp_XYZ.hxx>
#include <TColgp_Array1OfPnt.hxx>
#include <TColStd_Array1OfReal.hxx>
//! The class describes the Oriented Bounding Box (OBB),
//! much tighter enclosing volume for the shape than the
//! Axis Aligned Bounding Box (AABB).
//! The OBB is defined by a center of the box, the axes and the halves
//! of its three dimensions.
//! The OBB can be used more effectively than AABB as a rejection mechanism
//! for non-interfering objects.
class Bnd_OBB
{
public:
DEFINE_STANDARD_ALLOC
//! Empty constructor
Bnd_OBB() :myIsAABox(Standard_False)
{
myHDims[0] = myHDims[1] = myHDims[2] = -1.0;
}
//! Constructor taking all defining parameters
Bnd_OBB(const gp_Pnt& theCenter,
const gp_Dir& theXDirection,
const gp_Dir& theYDirection,
const gp_Dir& theZDirection,
const Standard_Real theHXSize,
const Standard_Real theHYSize,
const Standard_Real theHZSize) :myCenter (theCenter.XYZ()),
myIsAABox(Standard_False)
{
myAxes[0] = theXDirection.XYZ();
myAxes[1] = theYDirection.XYZ();
myAxes[2] = theZDirection.XYZ();
Standard_ASSERT_VOID(theHXSize >= 0.0, "Negative value of X-size");
Standard_ASSERT_VOID(theHYSize >= 0.0, "Negative value of Y-size");
Standard_ASSERT_VOID(theHZSize >= 0.0, "Negative value of Z-size");
myHDims[0] = theHXSize;
myHDims[1] = theHYSize;
myHDims[2] = theHZSize;
}
//! Constructor to create OBB from AABB.
Bnd_OBB(const Bnd_Box& theBox) : myIsAABox(Standard_True)
{
Standard_Real aX1, aY1, aZ1, aX2, aY2, aZ2;
theBox.Get(aX1, aY1, aZ1, aX2, aY2, aZ2);
myAxes[0].SetCoord(1.0, 0.0, 0.0);
myAxes[1].SetCoord(0.0, 1.0, 0.0);
myAxes[2].SetCoord(0.0, 0.0, 1.0);
myHDims[0] = 0.5*(aX2 - aX1);
myHDims[1] = 0.5*(aY2 - aY1);
myHDims[2] = 0.5*(aZ2 - aZ1);
myCenter.SetCoord(0.5*(aX2 + aX1), 0.5*(aY2 + aY1), 0.5*(aZ2 + aZ1));
}
//! Created new OBB covering every point in theListOfPoints.
//! Tolerance of every such point is set by *theListOfTolerances array.
//! If this array is not void (not null-pointer) then the resulted Bnd_OBB
//! will be enlarged using tolerances of points lying on the box surface.
Standard_EXPORT void ReBuild(const TColgp_Array1OfPnt& theListOfPoints,
const TColStd_Array1OfReal *theListOfTolerances = 0);
//! Sets the center of OBB
void SetCenter(const gp_Pnt& theCenter)
{
myCenter = theCenter.XYZ();
}
//! Sets the X component of OBB - direction and size
void SetXComponent(const gp_Dir& theXDirection,
const Standard_Real theHXSize)
{
Standard_ASSERT_VOID(theHXSize >= 0.0, "Negative value of X-size");
myAxes[0] = theXDirection.XYZ();
myHDims[0] = theHXSize;
}
//! Sets the Y component of OBB - direction and size
void SetYComponent(const gp_Dir& theYDirection,
const Standard_Real theHYSize)
{
Standard_ASSERT_VOID(theHYSize >= 0.0, "Negative value of Y-size");
myAxes[1] = theYDirection.XYZ();
myHDims[1] = theHYSize;
}
//! Sets the Z component of OBB - direction and size
void SetZComponent(const gp_Dir& theZDirection,
const Standard_Real theHZSize)
{
Standard_ASSERT_VOID(theHZSize >= 0.0, "Negative value of Z-size");
myAxes[2] = theZDirection.XYZ();
myHDims[2] = theHZSize;
}
//! Returns the center of OBB
const gp_XYZ& Center() const
{
return myCenter;
}
//! Returns the X Direction of OBB
const gp_XYZ& XDirection() const
{
return myAxes[0];
}
//! Returns the Y Direction of OBB
const gp_XYZ& YDirection() const
{
return myAxes[1];
}
//! Returns the Z Direction of OBB
const gp_XYZ& ZDirection() const
{
return myAxes[2];
}
//! Returns the X Dimension of OBB
Standard_Real XHSize() const
{
return myHDims[0];
}
//! Returns the Y Dimension of OBB
Standard_Real YHSize() const
{
return myHDims[1];
}
//! Returns the Z Dimension of OBB
Standard_Real ZHSize() const
{
return myHDims[2];
}
//! Checks if the box is empty.
Standard_Boolean IsVoid() const
{
return ((myHDims[0] < 0.0) || (myHDims[1] < 0.0) || (myHDims[2] < 0.0));
}
//! Clears this box
void SetVoid()
{
myHDims[0] = myHDims[1] = myHDims[2] = -1.0;
myCenter = myAxes[0] = myAxes[1] = myAxes[2] = gp_XYZ();
myIsAABox = Standard_False;
}
//! Sets the flag for axes aligned box
void SetAABox(const Standard_Boolean& theFlag)
{
myIsAABox = theFlag;
}
//! Returns TRUE if the box is axes aligned
Standard_Boolean IsAABox() const
{
return myIsAABox;
}
//! Enlarges the box with the given value
void Enlarge(const Standard_Real theGapAdd)
{
const Standard_Real aGap = Abs(theGapAdd);
myHDims[0] += aGap;
myHDims[1] += aGap;
myHDims[2] += aGap;
}
//! Returns the array of vertices in <this>.
//! The local coordinate of the vertex depending on the
//! index of the array are follow:
//! Index == 0: (-XHSize(), -YHSize(), -ZHSize())
//! Index == 1: ( XHSize(), -YHSize(), -ZHSize())
//! Index == 2: (-XHSize(), YHSize(), -ZHSize())
//! Index == 3: ( XHSize(), YHSize(), -ZHSize())
//! Index == 4: (-XHSize(), -YHSize(), ZHSize())
//! Index == 5: ( XHSize(), -YHSize(), ZHSize())
//! Index == 6: (-XHSize(), YHSize(), ZHSize())
//! Index == 7: ( XHSize(), YHSize(), ZHSize()).
Standard_Boolean GetVertex(gp_Pnt theP[8]) const
{
if(IsVoid())
return Standard_False;
theP[0].SetXYZ(myCenter - myHDims[0]*myAxes[0] - myHDims[1]*myAxes[1] - myHDims[2]*myAxes[2]);
theP[1].SetXYZ(myCenter + myHDims[0]*myAxes[0] - myHDims[1]*myAxes[1] - myHDims[2]*myAxes[2]);
theP[2].SetXYZ(myCenter - myHDims[0]*myAxes[0] + myHDims[1]*myAxes[1] - myHDims[2]*myAxes[2]);
theP[3].SetXYZ(myCenter + myHDims[0]*myAxes[0] + myHDims[1]*myAxes[1] - myHDims[2]*myAxes[2]);
theP[4].SetXYZ(myCenter - myHDims[0]*myAxes[0] - myHDims[1]*myAxes[1] + myHDims[2]*myAxes[2]);
theP[5].SetXYZ(myCenter + myHDims[0]*myAxes[0] - myHDims[1]*myAxes[1] + myHDims[2]*myAxes[2]);
theP[6].SetXYZ(myCenter - myHDims[0]*myAxes[0] + myHDims[1]*myAxes[1] + myHDims[2]*myAxes[2]);
theP[7].SetXYZ(myCenter + myHDims[0]*myAxes[0] + myHDims[1]*myAxes[1] + myHDims[2]*myAxes[2]);
return Standard_True;
}
//! Returns square diagonal of this box
Standard_Real SquareExtent() const
{
return (4.0*myHDims[0] * myHDims[0] +
myHDims[1] * myHDims[1] +
myHDims[1] * myHDims[1]);
}
//! Check if the box do not interfere the other box.
Standard_EXPORT Standard_Boolean IsOut(const Bnd_OBB& theOther) const;
//! Check if the point is inside of <this>.
Standard_EXPORT Standard_Boolean IsOut(const gp_Pnt& theP) const;
//! Check if the theOther is completely inside *this.
Standard_EXPORT Standard_Boolean IsCompletelyInside(const Bnd_OBB& theOther) const;
//! Rebuilds this in order to include all previous objects
//! (which it was created from) and theOther.
Standard_EXPORT void Add(const Bnd_OBB& theOther);
//! Rebuilds this in order to include all previous objects
//! (which it was created from) and theP.
Standard_EXPORT void Add(const gp_Pnt& theP);
protected:
void ProcessOnePoint(const gp_Pnt& theP)
{
myIsAABox = Standard_True;
myHDims[0] = myHDims[1] = myHDims[2] = 0.0;
myAxes[0].SetCoord(1.0, 0.0, 0.0);
myAxes[1].SetCoord(0.0, 1.0, 0.0);
myAxes[2].SetCoord(0.0, 0.0, 1.0);
myCenter = theP.XYZ();
}
private:
//! Center of the OBB
gp_XYZ myCenter;
//! Directions of the box's axes
//! (all vectors are already normalized)
gp_XYZ myAxes[3];
//! Half-size dimensions of the OBB
Standard_Real myHDims[3];
//! To be set if the OBB is axis aligned box;
Standard_Boolean myIsAABox;
};
#endif

2
src/Bnd/FILES
View File

@ -24,6 +24,8 @@ Bnd_Box2d.hxx
Bnd_HArray1OfBox.hxx
Bnd_HArray1OfBox2d.hxx
Bnd_HArray1OfSphere.hxx
Bnd_OBB.cxx
Bnd_OBB.hxx
Bnd_Range.cxx
Bnd_Range.hxx
Bnd_SeqOfBox.hxx

191
src/Draw/Draw_Box.cxx
View File

@ -24,116 +24,111 @@
IMPLEMENT_STANDARD_RTTIEXT(Draw_Box,Draw_Drawable3D)
//=======================================================================
//function : Draw_Box
//function : Constructor
//purpose :
//=======================================================================
Draw_Box::Draw_Box(const gp_Pnt& p1, const gp_Pnt& p2, const Draw_Color& col) :
myFirst(p1), myLast(p2),myColor(col)
Draw_Box::Draw_Box(const Bnd_OBB& theOBB,
const Draw_Color& theColor) :myOBB(theOBB), myColor(theColor)
{
Standard_Real t;
if (myLast.X() < myFirst.X()) {
t = myFirst.X();
myFirst.SetX(myLast.X());
myLast.SetX(t);
}
if (myLast.Y() < myFirst.Y()) {
t = myFirst.Y();
myFirst.SetY(myLast.Y());
myLast.SetY(t);
}
if (myLast.Z() < myFirst.Z()) {
t = myFirst.Z();
myFirst.SetZ(myLast.Z());
myLast.SetZ(t);
}
}
//=======================================================================
//function : ToWCS
//purpose :
//=======================================================================
void Draw_Box::ToWCS(const Standard_Real theX,
const Standard_Real theY,
const Standard_Real theZ,
gp_Pnt& theP) const
{
const gp_XYZ & aC = myOBB.Center();
const gp_XYZ aXDir = myOBB.XDirection(),
aYDir = myOBB.YDirection(),
aZDir = myOBB.ZDirection();
theP.SetXYZ(aC + theX*aXDir + theY*aYDir + theZ*aZDir);
}
//=======================================================================
//function : MoveX
//purpose :
//=======================================================================
void Draw_Box::MoveX(const Standard_Real theShift, gp_Pnt& thePt) const
{
const gp_XYZ aXDir = myOBB.XDirection();
thePt.SetXYZ(thePt.XYZ() + theShift*aXDir);
}
//=======================================================================
//function : MoveY
//purpose :
//=======================================================================
void Draw_Box::MoveY(const Standard_Real theShift, gp_Pnt& thePt) const
{
const gp_XYZ aYDir = myOBB.YDirection();
thePt.SetXYZ(thePt.XYZ() + theShift*aYDir);
}
//=======================================================================
//function : MoveZ
//purpose :
//=======================================================================
void Draw_Box::MoveZ(const Standard_Real theShift, gp_Pnt& thePt) const
{
const gp_XYZ aZDir = myOBB.ZDirection();
thePt.SetXYZ(thePt.XYZ() + theShift*aZDir);
}
//=======================================================================
//function : DrawOn
//purpose :
//=======================================================================
void Draw_Box::DrawOn(Draw_Display& dis) const
void Draw_Box::DrawOn(Draw_Display& theDIS) const
{
dis.SetColor(myColor);
gp_Pnt P = myFirst;
if(myOBB.IsVoid())
{
return;
}
dis.MoveTo(P);
P.SetX(myLast.X());
dis.DrawTo(P);
P.SetY(myLast.Y());
dis.DrawTo(P);
P.SetZ(myLast.Z());
dis.DrawTo(P);
P.SetX(myFirst.X());
dis.DrawTo(P);
P.SetY(myFirst.Y());
dis.DrawTo(P);
P.SetZ(myFirst.Z());
dis.DrawTo(P);
P.SetX(myLast.X());
dis.MoveTo(P);
P.SetZ(myLast.Z());
dis.DrawTo(P);
P.SetX(myFirst.X());
dis.DrawTo(P);
theDIS.SetColor(myColor);
P.SetX(myLast.X());
dis.MoveTo(P);
P.SetY(myLast.Y());
dis.DrawTo(P);
const Standard_Real aHx = myOBB.XHSize(),
aHy = myOBB.YHSize(),
aHz = myOBB.ZHSize();
gp_Pnt aP;
ToWCS(-aHx, -aHy, -aHz, aP);
theDIS.MoveTo(aP);
for(Standard_Integer i = 0; i<2; i++)
{
MoveX(2.0*aHx, aP);
theDIS.DrawTo(aP);
MoveY(2.0*aHy, aP);
theDIS.DrawTo(aP);
MoveX(-2.0*aHx, aP);
theDIS.DrawTo(aP);
MoveY(-2.0*aHy, aP);
theDIS.DrawTo(aP);
ToWCS(-aHx, -aHy, aHz, aP);
theDIS.MoveTo(aP);
}
P.SetX(myFirst.X());
dis.MoveTo(P);
P.SetZ(myFirst.Z());
dis.DrawTo(P);
P.SetY(myFirst.Y());
dis.DrawTo(P);
P.SetY(myLast.Y());
dis.MoveTo(P);
P.SetX(myLast.X());
dis.DrawTo(P);
}
//=======================================================================
//function : First
//purpose :
//=======================================================================
const gp_Pnt& Draw_Box::First() const
{
return myFirst;
}
//=======================================================================
//function : First
//purpose :
//=======================================================================
void Draw_Box::First(const gp_Pnt& P)
{
myFirst = P;
}
//=======================================================================
//function : Last
//purpose :
//=======================================================================
const gp_Pnt& Draw_Box::Last() const
{
return myLast;
}
//=======================================================================
//function : Last
//purpose :
//=======================================================================
void Draw_Box::Last(const gp_Pnt& P)
{
myLast = P;
for(Standard_Integer i = 0; i < 4; i++)
{
switch(i)
{
case 0: ToWCS(-aHx, -aHy, -aHz, aP); break;
case 1: ToWCS(aHx, -aHy, -aHz, aP); break;
case 2: ToWCS(aHx, aHy, -aHz, aP); break;
case 3: ToWCS(-aHx, aHy, -aHz, aP); break;
default: break;
}
theDIS.MoveTo(aP);
MoveZ(2.0*aHz, aP);
theDIS.DrawTo(aP);
}
}

50
src/Draw/Draw_Box.hxx
View File

@ -20,10 +20,9 @@
#include <Standard.hxx>
#include <Standard_Type.hxx>
#include <gp_Pnt.hxx>
#include <Bnd_OBB.hxx>
#include <Draw_Color.hxx>
#include <Draw_Drawable3D.hxx>
class gp_Pnt;
class Draw_Color;
class Draw_Display;
@ -34,46 +33,41 @@ DEFINE_STANDARD_HANDLE(Draw_Box, Draw_Drawable3D)
//! a 3d box
class Draw_Box : public Draw_Drawable3D
{
public:
//! Constructor
Standard_EXPORT Draw_Box(const Bnd_OBB& theOBB,
const Draw_Color& theColor);
//! Draws myOBB
Standard_EXPORT void DrawOn (Draw_Display& theDis) const Standard_OVERRIDE;
Standard_EXPORT Draw_Box(const gp_Pnt& p1, const gp_Pnt& p2, const Draw_Color& col);
Standard_EXPORT void DrawOn (Draw_Display& dis) const Standard_OVERRIDE;
Standard_EXPORT const gp_Pnt& First() const;
Standard_EXPORT void First (const gp_Pnt& P);
Standard_EXPORT const gp_Pnt& Last() const;
Standard_EXPORT void Last (const gp_Pnt& P);
DEFINE_STANDARD_RTTIEXT(Draw_Box,Draw_Drawable3D)
protected:
//! Converts the point (theX, theY, theZ) in local coordinate system to WCS.
void ToWCS(const Standard_Real theX,
const Standard_Real theY,
const Standard_Real theZ,
gp_Pnt& theP) const;
//! Moves the point thePt along X-direction of myOBB on the distance theShift.
void MoveX(const Standard_Real theShift, gp_Pnt& thePt) const;
//! Moves the point thePt along Y-direction of myOBB on the distance theShift.
void MoveY(const Standard_Real theShift, gp_Pnt& thePt) const;
//! Moves the point thePt along Z-direction of myOBB on the distance theShift.
void MoveZ(const Standard_Real theShift, gp_Pnt& thePt) const;
private:
//! Oriented bounding box
Bnd_OBB myOBB;
gp_Pnt myFirst;
gp_Pnt myLast;
//! Color value
Draw_Color myColor;
};
#endif // _Draw_Box_HeaderFile

11
tests/bugs/modalg_1/buc60849
View File

@ -1,4 +1,3 @@
puts "============"
puts "BUC60849"
puts "============"
@ -7,14 +6,18 @@ puts ""
restore [locate_data_file BUC60849.brep] result
checkshape result
set bndb [ lindex [bounding result] 3 ]
bounding -s result -save xmin ymin zmin xmax ymax zmax -dump
if { $bndb > 100.000001 } {
smallview
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
if { [dval zmin] > 100.000001 } {
puts "Faulty BUC60849 : Bounding box of spherical surface is created wroughly."
} else {
puts "BUC60849 OK :Bounding box of spherical surface is created properly."
}
checkprops result -s 125663
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png

23
tests/bugs/modalg_1/bug108
View File

@ -1,4 +1,3 @@
puts "================"
puts "BUC61037"
puts "OCC108"
@ -11,20 +10,10 @@ puts ""
restore [locate_data_file bug61037.brep] sh1
checkshape sh1
set rr [bounding sh1]
regexp { *([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $rr full v1_x v1_y v1_z v2_x v2_y v2_z
vertex v1 $v1_x $v1_y $v1_z
vertex v2 $v2_x $v2_y $v2_z
edge result v1 v2
regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full dis
if { [expr $dis < 0.201357] } {
puts "Faulty BUC61037: Planar circle and bounded face a returns too small bounding box"
} else {
puts "OCC134 OK: bounding box is correct"
}
checkprops result -l 0.201357
checkshape result
checksection result
checkview -display result -2d -path ${imagedir}/${test_image}.png
bounding -s sh1 -dump -shape result
checkprops result -v 5.78576e-005 -s 0.042162
smallview
don sh1 result
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png

21
tests/bugs/modalg_1/bug12661
View File

@ -9,21 +9,14 @@ puts ""
set BugNumber OCC12661
restore [locate_data_file OCC12661.brep] result
set res [bounding result]
bounding -s result -save x1 y1 z1 x2 y2 z2
set x1 [lindex ${res} 0]
set y1 [lindex ${res} 1]
set z1 [lindex ${res} 2]
set x2 [lindex ${res} 3]
set y2 [lindex ${res} 4]
set z2 [lindex ${res} 5]
checkreal "x1" ${x1} -6.3659273065258741 0 0.001
checkreal "y1" ${y1} 0.7051405053395956 0 0.001
checkreal "z1" ${z1} -2.5792617865186296 0 0.001
checkreal "x2" ${x2} 6.3659273065258795 0 0.001
checkreal "y2" ${y2} 7.6599592236605769 0 0.001
checkreal "z2" ${z2} 3.0815250146676485 0 0.001
checkreal "x1" [dval x1] -6.3659273065258741 0 0.001
checkreal "y1" [dval y1] 0.7051405053395956 0 0.001
checkreal "z1" [dval z1] -2.5792617865186296 0 0.001
checkreal "x2" [dval x2] 6.3659273065258795 0 0.001
checkreal "y2" [dval y2] 7.6599592236605769 0 0.001
checkreal "z2" [dval z2] 3.0815250146676485 0 0.001
checkview -display result -2d -path ${imagedir}/${test_image}.png

8
tests/bugs/modalg_4/bug6334
View File

@ -16,7 +16,7 @@ offsetshape t b 10 b_1
checkshape t
set bnd_t [bounding t]
bounding -s 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"
}
set bnd_h [bounding h]
bounding -s h -save xh1 yy zz xh2 yy zz -dump
renamevar h result
@ -38,8 +38,8 @@ checkshape result
checknbshapes result -vertex 30 -edge 51 -wire 27 -face 24 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 135
# 4. Check thickness of box and hole
set dx_t [expr [lindex $bnd_t 3] - [lindex $bnd_t 0]]
set dx_h [expr [lindex $bnd_h 3] - [lindex $bnd_h 0]]
set dx_t [ dval xt2-xt1 ]
set dx_h [ dval xh2-xh1 ]
if { [expr abs($dx_h - $dx_t)] > 1e-5 } {
puts "Thickness of solid = $dx_t"

10
tests/bugs/modalg_6/bug27537
View File

@ -9,13 +9,7 @@ puts ""
restore [locate_data_file bug27537.brep] result
incmesh result 0.2
set bndbox [bounding result]
set xMin [lindex $bndbox 0]
set yMin [lindex $bndbox 1]
set zMin [lindex $bndbox 2]
set xMax [lindex $bndbox 3]
set yMax [lindex $bndbox 4]
set zMax [lindex $bndbox 5]
bounding -s result -save xMin yMin zMin xMax yMax zMax -dump
mkcurve c result
bounds c u1 u2
@ -41,7 +35,7 @@ for {set i 0} {$i <= $nbSamples} {incr i} {
set x [dval cx]
set y [dval cy]
set z [dval cz]
if {$x < $xMin || $x > $xMax || $y < $yMin || $y > $yMax || $z < $zMin || $z > $zMax} {
if {$x < [dval xMin] || $x > [dval xMax] || $y < [dval yMin] || $y > [dval yMax] || $z < [dval zMin] || $z > [dval zMax] } {
puts "ERROR: point ($x; $y; $z) is out of bounding box"
set isOk false
}

49
tests/bugs/modalg_7/bug29311_1 Normal file
View File

@ -0,0 +1,49 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
set NbIters 101
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
# The volume of one AABB is
# Draw[]> vprops r1 1.0e-12 -full
# 32736000.276308119
set Vexp 32736000.276308119
set VMax 0
set MaxIteration 0
for {set i 1} { $i <= $NbIters} { incr i } {
bounding -s a -obb -shape rr$i
regexp {Mass +: +([-0-9.+eE]+)} [vprops rr$i 1.0e-12 -full] full Vreal
if { $Vreal > $VMax } {
set VMax $Vreal
set MaxIteration $i
copy a amax
}
if { $i != $NbIters } { trotate a 283 162 317 2 7 9 $step }
}
set aDeltaMax [ expr 100.0*abs($VMax/$Vexp - 1.0) ]
puts "Delta of computation not greater than $aDeltaMax %. Maximal delta is achieved in $MaxIteration iteration. See \"amax\" shape."
if { $aDeltaMax > 0.1 } {
puts "Error: The obtained OBB(s) is not precise."
}
axo
donly amax rr${MaxIteration}
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png

26
tests/bugs/modalg_7/bug29311_10 Normal file
View File

@ -0,0 +1,26 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
# Interferences of OBB
box b1 100 150 200
copy b1 b2
trotate b1 -50 -50 -50 1 1 1 -40
trotate b2 -50 -50 -50 1 1 1 60
if { [regexp {NOT interfered by OBB} [ isbbinterf b1 b2 -o ] ] } {
puts "Error : Wrong check of OBBs interferences"
} else {
puts "OK : check of OBBs interferences"
}
if { [regexp {NOT interfered by OBB} [ isbbinterf b2 b1 -o ] ] } {
puts "Error : Wrong check of OBBs interferences"
} else {
puts "OK : check of OBBs interferences"
}

37
tests/bugs/modalg_7/bug29311_11 Normal file
View File

@ -0,0 +1,37 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
# Interfered by AABB but not interfered by OBB
box b1 300 100 100
trotate b1 0 0 0 0 1 0 -30
box b2 200 0 50 50 50 50
if { [regexp {NOT interfered by AABB} [ isbbinterf b1 b2 ] ] } {
puts "Error : Wrong check of AABBs interferences"
} else {
puts "OK : check of AABBs interferences"
}
if { [regexp {NOT interfered by AABB} [ isbbinterf b2 b1 ] ] } {
puts "Error : Wrong check of AABBs interferences"
} else {
puts "OK : check of AABBs interferences"
}
if { ![regexp {NOT interfered by OBB} [ isbbinterf b1 b2 -o ] ] } {
puts "Error : Wrong check of OBBs interferences"
} else {
puts "OK : check of OBBs interferences"
}
if { ![regexp {NOT interfered by OBB} [ isbbinterf b2 b1 -o ] ] } {
puts "Error : Wrong check of OBBs interferences"
} else {
puts "OK : check of OBBs interferences"
}

14
tests/bugs/modalg_7/bug29311_12 Normal file
View File

@ -0,0 +1,14 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
line ll -5 3 8 -1 0 0
trim ll ll -100 100
mkedge result ll
bounding -s result -obb

23
tests/bugs/modalg_7/bug29311_13 Normal file
View File

@ -0,0 +1,23 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
restore [locate_data_file CTO900_cts19474part.rle] part
compound result
# construct obb for each edge of the shape
foreach e [explode part e] {
if [catch {bounding -s $e -obb}] {
puts "Error with $e (exception)"
add $e result
} else {
puts "$e OK"
}
}
checknbshapes result -edge 0

23
tests/bugs/modalg_7/bug29311_14 Normal file
View File

@ -0,0 +1,23 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
restore [locate_data_file CTO900_cts19474part.rle] part
compound result
# construct obb for each face of the shape
foreach f [explode part f] {
if [catch {bounding -s $f -obb}] {
puts "Error with $f (exception)"
add $f result
} else {
puts "$f OK"
}
}
checknbshapes result -face 0

22
tests/bugs/modalg_7/bug29311_15 Normal file
View File

@ -0,0 +1,22 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
set px 1
set py 2
set pz 3
vertex vv $px $py $pz
set log [bounding -s vv -obb -dump]
if {![regexp {Center: +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $log full xc yc zc]} {
puts "Error in Dump."
}
checkreal "XC" $xc $px 1.0e-7 0.0
checkreal "YC" $yc $py 1.0e-7 0.0
checkreal "ZC" $zc $pz 1.0e-7 0.0

51
tests/bugs/modalg_7/bug29311_16 Normal file
View File

@ -0,0 +1,51 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
set NbIters 31
set step [expr 360.0/($NbIters-1) ]
restore [locate_data_file OCC26443-shell_2.brep] a
# Check PCA-algorithm
tclean a
set VMax -1.0e200
set VMin 1.0e200
set MaxIteration 0
set MinIteration 0
for {set i 1} { $i <= $NbIters} { incr i } {
bounding -s a -obb -shape rr$i
regexp {Mass +: +([-0-9.+eE]+)} [vprops rr$i 1.0e-12 -full] full Vreal
if { $Vreal > $VMax } {
set VMax $Vreal
set MaxIteration $i
copy a amax
}
if { $Vreal < $VMin } {
set VMin $Vreal
set MinIteration $i
copy a amin
}
if { $i != $NbIters } { trotate a 283 162 317 2 7 9 $step }
}
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

51
tests/bugs/modalg_7/bug29311_17 Normal file
View File

@ -0,0 +1,51 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
set NbIters 31
set step [expr 360.0/($NbIters-1) ]
restore [locate_data_file OCC26443-shell_2.brep] a
# Check DiTo-algorithm
incmesh a 0.01
set VMax -1.0e200
set VMin 1.0e200
set MaxIteration 0
set MinIteration 0
for {set i 1} { $i <= $NbIters} { incr i } {
bounding -s a -obb -shape rr$i
regexp {Mass +: +([-0-9.+eE]+)} [vprops rr$i 1.0e-12 -full] full Vreal
if { $Vreal > $VMax } {
set VMax $Vreal
set MaxIteration $i
copy a amax
}
if { $Vreal < $VMin } {
set VMin $Vreal
set MinIteration $i
copy a amin
}
if { $i != $NbIters } { trotate a 283 162 317 2 7 9 $step }
}
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

49
tests/bugs/modalg_7/bug29311_2 Normal file
View File

@ -0,0 +1,49 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
set NbIters 101
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
# The volume of one AABB is
# Draw[]> vprops r1 1.0e-12 -full
# 32736000.184203226
set Vexp 32736000.184203226
set VMax 0
set MaxIteration 0
for {set i 1} { $i <= $NbIters} { incr i } {
bounding -s a -obb -shape rr$i
regexp {Mass +: +([-0-9.+eE]+)} [vprops rr$i 1.0e-12 -full] full Vreal
if { $Vreal > $VMax } {
set VMax $Vreal
set MaxIteration $i
copy a amax
}
if { $i != $NbIters } { trotate a 283 162 317 2 7 9 $step }
}
set aDeltaMax [ expr 100.0*abs($VMax/$Vexp - 1.0) ]
puts "Delta of computation not greater than $aDeltaMax %. Maximal delta is achieved in $MaxIteration iteration. See \"amax\" shape."
if { $aDeltaMax > 30 } {
puts "Error: The obtained OBB(s) is not precise."
}
axo
donly amax rr${MaxIteration}
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png

10
tests/bugs/modalg_7/bug29311_3 Normal file
View File

@ -0,0 +1,10 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
bounding -c 50 100 30 180 200 100 -shape result
checkprops result -v 910000

28
tests/bugs/modalg_7/bug29311_4 Normal file
View File

@ -0,0 +1,28 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
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
dump x1 y1 z1 x2 y2 z2
set VaExp [ dval (x2-x1)*(y2-y1)*(z2-z1) ]
checkprops ra -v $VaExp
puts "OBB"
bounding -s result -shape ro -dump -obb
checkprops ro -v 28694.7
smallview
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png

24
tests/bugs/modalg_7/bug29311_5 Normal file
View File

@ -0,0 +1,24 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
# Interferences of AABB
box b1 100 60 140 20 10 80
box b2 210 200 80 120 60 90
if { ![regexp {NOT interfered by AABB} [ isbbinterf b1 b2 ] ] } {
puts "Error : Wrong check of AABBs interferences"
} else {
puts "OK : check of AABBs interferences"
}
if { ![regexp {NOT interfered by AABB} [ isbbinterf b2 b1 ] ] } {
puts "Error : Wrong check of AABBs interferences"
} else {
puts "OK : check of AABBs interferences"
}

24
tests/bugs/modalg_7/bug29311_6 Normal file
View File

@ -0,0 +1,24 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
# Interferences of AABB
box b1 300 300 300
box b2 100 100 100 50 50 50
if { [regexp {NOT interfered by AABB} [ isbbinterf b1 b2 ] ] } {
puts "Error : Wrong check of AABBs interferences"
} else {
puts "OK : check of AABBs interferences"
}
if { [regexp {NOT interfered by AABB} [ isbbinterf b2 b1 ] ] } {
puts "Error : Wrong check of AABBs interferences"
} else {
puts "OK : check of AABBs interferences"
}

24
tests/bugs/modalg_7/bug29311_7 Normal file
View File

@ -0,0 +1,24 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
# Interferences of AABB
box b1 300 300 300
box b2 200 200 200 111 222 333
if { [regexp {NOT interfered by AABB} [ isbbinterf b1 b2 ] ] } {
puts "Error : Wrong check of AABBs interferences"
} else {
puts "OK : check of AABBs interferences"
}
if { [regexp {NOT interfered by AABB} [ isbbinterf b2 b1 ] ] } {
puts "Error : Wrong check of AABBs interferences"
} else {
puts "OK : check of AABBs interferences"
}

26
tests/bugs/modalg_7/bug29311_8 Normal file
View File

@ -0,0 +1,26 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
# Interferences of OBB
box b1 100 150 200
copy b1 b2
trotate b1 -150 -150 -150 1 2 3 -40
trotate b2 -150 -150 -150 1 5 2 60
if { ![regexp {NOT interfered by OBB} [ isbbinterf b1 b2 -o ] ] } {
puts "Error : Wrong check of OBBs interferences"
} else {
puts "OK : check of OBBs interferences"
}
if { ![regexp {NOT interfered by OBB} [ isbbinterf b2 b1 -o ] ] } {
puts "Error : Wrong check of OBBs interferences"
} else {
puts "OK : check of OBBs interferences"
}

26
tests/bugs/modalg_7/bug29311_9 Normal file
View File

@ -0,0 +1,26 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
# Interferences of OBB
box b1 -300 -300 -300 600 600 600
box b2 100 100 100
trotate b1 0 0 0 1 2 3 -28
trotate b2 0 0 0 5 6 7 34
if { [regexp {NOT interfered by OBB} [ isbbinterf b1 b2 -o ] ] } {
puts "Error : Wrong check of OBBs interferences"
} else {
puts "OK : check of OBBs interferences"
}
if { [regexp {NOT interfered by OBB} [ isbbinterf b2 b1 -o ] ] } {
puts "Error : Wrong check of OBBs interferences"
} else {
puts "OK : check of OBBs interferences"
}

20
tests/bugs/moddata_1/bug15570
View File

@ -13,19 +13,13 @@ pload XDE
igesbrep [locate_data_file OCC15570.igs] a *
tpcompound result
set BoundList [boundingstr result]
set xmin [lindex ${BoundList} 0]
set ymin [lindex ${BoundList} 1]
set zmin [lindex ${BoundList} 2]
set xmax [lindex ${BoundList} 3]
set ymax [lindex ${BoundList} 4]
set zmax [lindex ${BoundList} 5]
bounding -s result -save xmin ymin zmin xmax ymax zmax -nodraw
checkreal "xmin" ${xmin} -22.500000100000001 0 0.001
checkreal "ymin" ${ymin} -88.366946209482094 0 0.001
checkreal "zmin" ${zmin} -1.0000002775557561e-07 0 0.001
checkreal "xmax" ${xmax} 22.500000100000001 0 0.001
checkreal "ymax" ${ymax} 22.776076069021901 0 0.001
checkreal "zmax" ${zmax} 86.12676222997429 0 0.001
checkreal "xmin" [dval xmin] -22.500000100000001 0 0.001
checkreal "ymin" [dval ymin] -88.366946209482094 0 0.001
checkreal "zmin" [dval zmin] -1.0000002775557561e-07 0 0.001
checkreal "xmax" [dval xmax] 22.500000100000001 0 0.001
checkreal "ymax" [dval ymax] 22.776076069021901 0 0.001
checkreal "zmax" [dval zmax] 86.12676222997429 0 0.001
checkview -display result -2d -path ${imagedir}/${test_image}.png

44
tests/bugs/moddata_2/bug23165
View File

@ -18,21 +18,14 @@ set exception_status 0
restore [locate_data_file OCC23165-edge1.brep] e1
donly e1
catch { bounding e1 } msg
catch { bounding -s e1 } msg
fit
set index [lsearch $msg exception]
if {$index > -1} {
set exception_status 1
} else {
set e1_result [bounding e1]
set e1_x1 [lindex ${e1_result} 0]
set e1_y1 [lindex ${e1_result} 1]
set e1_z1 [lindex ${e1_result} 2]
set e1_x2 [lindex ${e1_result} 3]
set e1_y2 [lindex ${e1_result} 4]
set e1_z2 [lindex ${e1_result} 5]
bounding -s 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
@ -41,12 +34,12 @@ if {$index > -1} {
set e1_good_y2 5.700038816113608
set e1_good_z2 -1.6251884728673096
checkreal "e1_x1" ${e1_x1} ${e1_good_x1} 0 0.001
checkreal "e1_y1" ${e1_y1} ${e1_good_y1} 0 0.001
checkreal "e1_z1" ${e1_z1} ${e1_good_z1} 0 0.001
checkreal "e1_x2" ${e1_x2} ${e1_good_x2} 0 0.001
checkreal "e1_y2" ${e1_y2} ${e1_good_y2} 0 0.001
checkreal "e1_z2" ${e1_z2} ${e1_good_z2} 0 0.001
checkreal "e1_x1" [dval e1_x1] ${e1_good_x1} 0 0.001
checkreal "e1_y1" [dval e1_y1] ${e1_good_y1} 0 0.001
checkreal "e1_z1" [dval e1_z1] ${e1_good_z1} 0 0.001
checkreal "e1_x2" [dval e1_x2] ${e1_good_x2} 0 0.001
checkreal "e1_y2" [dval e1_y2] ${e1_good_y2} 0 0.001
checkreal "e1_z2" [dval e1_z2] ${e1_good_z2} 0 0.001
}
# 2 step
@ -54,16 +47,9 @@ restore [locate_data_file OCC23165-curve.rle] c
mkedge result c 20 36
donly result
set res [bounding result]
set res [bounding -s result -save x1 y1 z1 x2 y2 z2 ]
fit
set x1 [lindex ${res} 0]
set y1 [lindex ${res} 1]
set z1 [lindex ${res} 2]
set x2 [lindex ${res} 3]
set y2 [lindex ${res} 4]
set z2 [lindex ${res} 5]
set good_x1 -17.6105835090592
set good_y1 -4.7133570660117909
set good_z1 -4.3679100133425806
@ -71,12 +57,12 @@ set good_x2 -17.589416490940806
set good_y2 5.7000000802283299
set good_z2 -1.6252272087525899
checkreal "x1" ${x1} ${good_x1} 0 0.001
checkreal "y1" ${y1} ${good_y1} 0 0.001
checkreal "z1" ${z1} ${good_z1} 0 0.001
checkreal "x2" ${x2} ${good_x2} 0 0.001
checkreal "y2" ${y2} ${good_y2} 0 0.001
checkreal "z2" ${z2} ${good_z2} 0 0.001
checkreal "x1" [dval x1] ${good_x1} 0 0.001
checkreal "y1" [dval y1] ${good_y1} 0 0.001
checkreal "z1" [dval z1] ${good_z1} 0 0.001
checkreal "x2" [dval x2] ${good_x2} 0 0.001
checkreal "y2" [dval y2] ${good_y2} 0 0.001
checkreal "z2" [dval z2] ${good_z2} 0 0.001
if { ${exception_status} == 0 } {
puts "${BugNumber}: OK"

9
tests/bugs/moddata_2/bug2442
View File

@ -25,11 +25,8 @@ 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}
set boundbox [boundingstr a]
set x0 [lindex $boundbox 0]
set y0 [lindex $boundbox 1]
set z0 [lindex $boundbox 2]
ttranslate a [expr -1 * $x0] [expr -1 * $y0] [expr -1 * $z0]
ttranslate b [expr -1 * $x0] [expr -1 * $y0] [expr -1 * $z0]
bounding -s a -save x0 y0 z0 x1 y1 z1 -nodraw
ttranslate a -x0 -y0 -z0
ttranslate b -x0 -y0 -z0
checkview -display a -with b -2d -path ${imagedir}/${test_image}.png

21
tests/bugs/moddata_2/bug257
View File

@ -10,24 +10,11 @@ puts ""
restore [locate_data_file OCC257.brep] result
checkshape result
set bb [bounding result]
bounding -s result -save x1 y1 z1 x2 y2 z2
set list [split ${bb}]
set listLength [llength ${list}]
if { ${listLength} < 6 } {
puts "Error : listLength = ${listLength}"
}
set x1 [lindex ${list} 0]
set y1 [lindex ${list} 1]
set z1 [lindex ${list} 2]
set x2 [lindex ${list} 3]
set y2 [lindex ${list} 4]
set z2 [lindex ${list} 5]
set len [expr ${x2} - ${x1}]
set width [expr ${y2} - ${y1}]
set height [expr ${z2} - ${z1}]
set len [ dval x2-x1]
set width [ dval y2-y1]
set height [ dval z2-z1]
set R 180

9
tests/bugs/moddata_2/bug566
View File

@ -10,14 +10,13 @@ puts ""
restore [locate_data_file OCC566.brep] a
set err1 [bounding a]
bounding -s 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]+)} $err1 full v1_x v1_y v1_z v2_x v2_y v2_z
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
vertex v1 $v1_x $v1_y $v1_z
vertex v2 $v2_x $v2_y $v2_z
vertex v1 v1_x v1_y v1_z
vertex v2 v2_x v2_y v2_z
vertex v3 $v3_x $v3_y $v3_z
vertex v4 $v4_x $v4_y $v4_z
@ -40,4 +39,4 @@ if {$err > 1.0} {
puts " OCC566 OK"
}
checkview -display result -2d -path ${imagedir}/${test_image}.png
checkview -display a -with result -2d -path ${imagedir}/${test_image}.png

21
tests/bugs/moddata_2/bug6503
View File

@ -10,14 +10,7 @@ set BugNumber OCC6503
plane pl 0 0 0 0 0 1
mkface f pl
set info_result [bounding f]
set x1 [lindex ${info_result} 0]
set y1 [lindex ${info_result} 1]
set z1 [lindex ${info_result} 2]
set x2 [lindex ${info_result} 3]
set y2 [lindex ${info_result} 4]
set z2 [lindex ${info_result} 5]
set info_result [bounding -s f -save x1 y1 z1 x2 y2 z2]
set good_x1 -1e+100
set good_y1 -1e+100
@ -26,9 +19,9 @@ set good_x2 1e+100
set good_y2 1e+100
set good_z2 9.9999999999999995e-08
checkreal "x1" ${x1} ${good_x1} 0 0.001
checkreal "y1" ${y1} ${good_y1} 0 0.001
checkreal "z1" ${z1} ${good_z1} 0 0.001
checkreal "x2" ${x2} ${good_x2} 0 0.001
checkreal "y2" ${y2} ${good_y2} 0 0.001
checkreal "z2" ${z2} ${good_z2} 0 0.001
checkreal "x1" [dval x1] ${good_x1} 0 0.001
checkreal "y1" [dval y1] ${good_y1} 0 0.001
checkreal "z1" [dval z1] ${good_z1} 0 0.001
checkreal "x2" [dval x2] ${good_x2} 0 0.001
checkreal "y2" [dval y2] ${good_y2} 0 0.001
checkreal "z2" [dval z2] ${good_z2} 0 0.001

14
tests/bugs/moddata_3/bug23575
View File

@ -8,11 +8,11 @@ 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
set boundResult [bounding e]
bounding -s e -save Xmin Ymin Zmin Xmax Ymax Zmax
checkreal Xmin [lindex $boundResult 0] 0. 0.1 0.
checkreal Ymin [lindex $boundResult 1] 0. 0.1 0.
checkreal Zmin [lindex $boundResult 2] 0. 0.1 0.
checkreal Xmax [lindex $boundResult 3] 1. 0.1 0.
checkreal Ymax [lindex $boundResult 4] 1. 0.1 0.
checkreal Zmax [lindex $boundResult 5] 0. 0.1 0.
checkreal "Xmin" [dval Xmin] 0. 0.1 0.
checkreal "Ymin" [dval Ymin] 0. 0.1 0.
checkreal "Zmin" [dval Zmin] 0. 0.1 0.
checkreal "Xmax" [dval Xmax] 1. 0.1 0.
checkreal "Ymax" [dval Ymax] 1. 0.1 0.
checkreal "Zmax" [dval Zmax] 0. 0.1 0.

30
tests/bugs/moddata_3/bug25631
View File

@ -6,31 +6,19 @@ puts ""
## Bounding box is too big for the face.
#####################################################################
restore [locate_data_file bug25631_fbx.brep] sh1
restore [locate_data_file bug25631_fbx.brep] result
set rr [bounding sh1]
regexp { *([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $rr full v1_x v1_y v1_z v2_x v2_y v2_z
bounding -s result -save Xmin Ymin Zmin Xmax Ymax Zmax
set tol_abs 1.0e-4
set tol_rel 0.0001
set tol_rel 1.0e-4
set expected_v1_x 102.04999989999993
checkreal "v1_x" ${v1_x} ${expected_v1_x} ${tol_abs} ${tol_rel}
set expected_v1_y -12.576503364721431
checkreal "v1_y" ${v1_y} ${expected_v1_y} ${tol_abs} ${tol_rel}
set expected_v1_z -12.267407382031644
checkreal "v1_z" ${v1_z} ${expected_v1_z} ${tol_abs} ${tol_rel}
set expected_v2_x 145.65000009999983
checkreal "v2_x" ${v2_x} ${expected_v2_x} ${tol_abs} ${tol_rel}
set expected_v2_y 1.0883692081680807
checkreal "v2_y" ${v2_y} ${expected_v2_y} ${tol_abs} ${tol_rel}
set expected_v2_z 1.4146362604116396
checkreal "v2_z" ${v2_z} ${expected_v2_z} ${tol_abs} ${tol_rel}
checkreal "Xmin" [dval Xmin] 102.04999989999993 ${tol_abs} ${tol_rel}
checkreal "Ymin" [dval Ymin] -12.576503364721431 ${tol_abs} ${tol_rel}
checkreal "Zmin" [dval Zmin] -12.267407382031644 ${tol_abs} ${tol_rel}
checkreal "Xmax" [dval Xmax] 145.65000009999983 ${tol_abs} ${tol_rel}
checkreal "Ymax" [dval Ymax] 1.0883692081680807 ${tol_abs} ${tol_rel}
checkreal "Zmax" [dval Zmax] 1.4146362604116396 ${tol_abs} ${tol_rel}
smallview
fit

31
tests/bugs/moddata_3/bug26560
View File

@ -6,32 +6,21 @@ puts ""
## BRepBndLib build too large bounding box in Z direction for planar spline edge.
#####################################################################
restore [locate_data_file bug26560_planarspline.brep] b1
restore [locate_data_file bug26560_planarspline.brep] result
set rr [bounding b1]
regexp { *([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $rr full v1_x v1_y v1_z v2_x v2_y v2_z
bounding -s result -save Xmin Ymin Zmin Xmax Ymax Zmax -shape resbox
set tol_abs 1.0e-4
set tol_rel 0.0001
set expected_v1_x -277.03883383200952
checkreal "v1_x" ${v1_x} ${expected_v1_x} ${tol_abs} ${tol_rel}
set expected_v1_y -562.56241861670651
checkreal "v1_y" ${v1_y} ${expected_v1_y} ${tol_abs} ${tol_rel}
set expected_v1_z -9.9999999999999995e-08
checkreal "v1_z" ${v1_z} ${expected_v1_z} ${tol_abs} ${tol_rel}
set expected_v2_x 20.000000100000001
checkreal "v2_x" ${v2_x} ${expected_v2_x} ${tol_abs} ${tol_rel}
set expected_v2_y -221.27317426638498
checkreal "v2_y" ${v2_y} ${expected_v2_y} ${tol_abs} ${tol_rel}
set expected_v2_z 9.9999999999999995e-08
checkreal "v2_z" ${v2_z} ${expected_v2_z} ${tol_abs} ${tol_rel}
checkreal "Xmin" [dval Xmin] -277.03883383200952 ${tol_abs} ${tol_rel}
checkreal "Ymin" [dval Ymin] -562.56241861670651 ${tol_abs} ${tol_rel}
checkreal "Zmin" [dval Zmin] -9.9999999999999995e-08 ${tol_abs} ${tol_rel}
checkreal "Xmax" [dval Xmax] 20.000000100000001 ${tol_abs} ${tol_rel}
checkreal "Ymax" [dval Ymax] -221.27317426638498 ${tol_abs} ${tol_rel}
checkreal "Zmax" [dval Zmax] 9.9999999999999995e-08 ${tol_abs} ${tol_rel}
smallview
don result resbox
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
checkview -screenshot -2d -path ${imagedir}/${test_image}.png

4
tests/bugs/moddata_3/bug27261_1
View File

@ -6,8 +6,8 @@ puts ""
# Incorrect bounding box is created for the face
##############################################################
restore [locate_data_file bug27261_f1.brep] f1
bounding f1
restore [locate_data_file bug27261_f1.brep] result
bounding -s result -dump
# Visual check.
smallview

4
tests/bugs/moddata_3/bug27261_2
View File

@ -6,8 +6,8 @@ puts ""
# Incorrect bounding box is created for the face
##############################################################
restore [locate_data_file bug27261_f2.brep] f2
bounding f2
restore [locate_data_file bug27261_f2.brep] result
bounding -s result -dump
# Visual check.
smallview

25
tests/bugs/step/bug24595
View File

@ -6,24 +6,17 @@ puts ""
# STEP import missing surfaces
#######################################################################################
set BugNumber OCC24595
stepread [locate_data_file bug24595_281390.stp] a *
explode a_1 f
set mlog [nbshapes a_1_3]
set status 1
checknbshapes a_1_3 -wire 1
if (![regexp {WIRE[ ]+: 1} $mlog]) {
set status 0
}
bounding -s 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.
checkreal "Zmin" [dval Zmin] -150.00000009999999 0.1 0.
checkreal "Xmax" [dval Xmax] 7.1677412321949898 0.1 0.
checkreal "Ymax" [dval Ymax] 8.0000000999999994 0.1 0.
checkreal "Zmax" [dval Zmax] -141.99999990000001 0.1 0.
set mlog [bounding a_1_3]
if (![regexp {(-7.1677412321949925) (-8.0000000999999994) (-150.00000009999999) (7.1677412321949898) (8.0000000999999994) (-141.99999990000001)} $mlog]) {
set status 0
}
if {$status == 1} {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"
}

15
tests/bugs/stlvrml/bug26338
View File

@ -19,10 +19,11 @@ writestl comp $imagedir/${casename}.stl 1
readstl result $imagedir/${casename}.stl
# check that bounding box is
set bnd [boundingstr result]
checkreal "XMin" [lindex $bnd 0] 0. 1e-5 0.
checkreal "YMin" [lindex $bnd 1] 0. 1e-5 0.
checkreal "ZMin" [lindex $bnd 2] 0. 1e-5 0.
checkreal "XMax" [lindex $bnd 3] 15. 1e-5 0.
checkreal "YMax" [lindex $bnd 4] 15. 1e-5 0.
checkreal "ZMax" [lindex $bnd 5] 15. 1e-5 0.
bounding -s 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.
checkreal "Zmin" [dval Zmin] 0.0 1e-5 0.
checkreal "Xmax" [dval Xmax] 15. 1e-5 0.
checkreal "Ymax" [dval Ymax] 15. 1e-5 0.
checkreal "Zmax" [dval Zmax] 15. 1e-5 0.

6
tests/bugs/vis/buc60857
View File

@ -15,9 +15,9 @@ set area_RED [lindex ${Property_RED} 2]
set Property_GREEN [sprops BUC60857_GREEN]
set area_GREEN [lindex ${Property_GREEN} 2]
boundingstr BUC60857_BLUE xmin_BLUE ymin_BLUE zmin_BLUE xmax_BLUE ymax_BLUE zmax_BLUE
boundingstr BUC60857_RED xmin_RED ymin_RED zmin_RED xmax_RED ymax_RED zmax_RED
boundingstr BUC60857_GREEN xmin_GREEN ymin_GREEN zmin_GREEN xmax_GREEN ymax_GREEN zmax_GREEN
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
set delta_area_GB [expr abs(${area_GREEN} - ${area_BLUE}) / ${area_BLUE} * 100]
set delta_area_BR [expr ${area_BLUE} / ${area_RED}]

6
tests/bugs/vis/bug27796
View File

@ -12,10 +12,8 @@ box b1 -100 -50 -2 200 100 1
# text label
text2brep t "texT | Text\ntexT | Text" -height 50
set aTB [bounding t]
set aTX [expr [lindex $aTB 3] * -0.5]
set aTY [expr [lindex $aTB 4] * -0.5]
ttranslate t $aTX $aTY 1
bounding -s t -save xx yy zz aTX aTY zz
ttranslate t -0.5*aTX -0.5*aTY 1
# sphere
psphere s 50

14
tests/bugs/xde/bug659
View File

@ -23,17 +23,11 @@ if [catch { igesbrep . a 6425 } res] {
renamevar a_1 a2
set size1 [ bounding a1 ]
set size2 [ bounding 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 x1_a1 [ lindex $size1 0 ]
set x2_a1 [ lindex $size1 3 ]
set x1_a2 [ lindex $size2 0 ]
set x2_a2 [ lindex $size2 3 ]
set dim2 [ expr $x2_a2 - $x1_a2 ]
set dim1 [ expr $x2_a1 - $x1_a1 ]
set dim2 [ dval x2_a2-x1_a2 ]
set dim1 [ dval x2_a1-x1_a1 ]
set siz [expr ${dim1} / ${dim2}]
if { $siz > 25} {

41
tests/caf/basic/K1
View File

@ -18,14 +18,7 @@ set aSetDY1 200
set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
set aLabel 0:2
SetShape D ${aLabel} aBox1
@ -47,26 +40,20 @@ Undo D
# Get a value of the attribute
GetShape D ${aLabel} aBox2
set aBoundingBox2 [bounding aBox2]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { ${X1_Box1} != ${X1_Box2} ||
${Y1_Box1} != ${Y1_Box2} ||
${Z1_Box1} != ${Z1_Box2} ||
${X2_Box1} != ${X2_Box2} ||
${Y2_Box1} != ${Y2_Box2} ||
${Z2_Box1} != ${Z2_Box2} } {
puts "X1_Box1=${X1_Box1} X1_Box2=${X1_Box2}"
puts "Y1_Box1=${Y1_Box1} Y1_Box2=${Y1_Box2}"
puts "Z1_Box1=${Z1_Box1} Z1_Box2=${Z1_Box2}"
puts "X2_Box1=${X2_Box1} X2_Box2=${X2_Box2}"
puts "Y2_Box1=${Y2_Box1} Y2_Box2=${Y2_Box2}"
puts "Z2_Box1=${Z2_Box1} Z2_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 "X1_Box1=[dval X1_Box1] X1_Box2=[dval X1_Box2]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box2=[dval Y1_Box2]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box2=[dval Z1_Box2]"
puts "X2_Box1=[dval X2_Box1] X2_Box2=[dval X2_Box2]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box2=[dval Y2_Box2]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box2=[dval Z2_Box2]"
puts "Add TDataStd_Shape attribute: Error"
return
}

42
tests/caf/basic/K2
View File

@ -18,14 +18,7 @@ set aSetDY1 200
set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
set aLabel 0:2
SetShape D ${aLabel} aBox1
@ -53,26 +46,19 @@ Undo D
# Get a value of the attribute
GetShape D ${aLabel} aBox4
set aBoundingBox4 [bounding aBox4]
set X1_Box4 [lindex ${aBoundingBox4} 0]
set Y1_Box4 [lindex ${aBoundingBox4} 1]
set Z1_Box4 [lindex ${aBoundingBox4} 2]
set X2_Box4 [lindex ${aBoundingBox4} 3]
set Y2_Box4 [lindex ${aBoundingBox4} 4]
set Z2_Box4 [lindex ${aBoundingBox4} 5]
if { ${X1_Box1} != ${X1_Box4} ||
${Y1_Box1} != ${Y1_Box4} ||
${Z1_Box1} != ${Z1_Box4} ||
${X2_Box1} != ${X2_Box4} ||
${Y2_Box1} != ${Y2_Box4} ||
${Z2_Box1} != ${Z2_Box4} } {
puts "X1_Box1=${X1_Box1} X1_Box4=${X1_Box4}"
puts "Y1_Box1=${Y1_Box1} Y1_Box4=${Y1_Box4}"
puts "Z1_Box1=${Z1_Box1} Z1_Box4=${Z1_Box4}"
puts "X2_Box1=${X2_Box1} X2_Box4=${X2_Box4}"
puts "Y2_Box1=${Y2_Box1} Y2_Box4=${Y2_Box4}"
puts "Z2_Box1=${Z2_Box1} Z2_Box4=${Z2_Box4}"
bounding -s 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] ||
[dval X2_Box1] != [dval X2_Box4] ||
[dval Y2_Box1] != [dval Y2_Box4] ||
[dval Z2_Box1] != [dval Z2_Box4] } {
puts "X1_Box1=[dval X1_Box1] X1_Box4=[dval X1_Box4]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box4=[dval Y1_Box4]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box4=[dval Z1_Box4]"
puts "X2_Box1=[dval X2_Box1] X2_Box4=[dval X2_Box4]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box4=[dval Y2_Box4]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box4=[dval Z2_Box4]"
puts "Set a value of TDataStd_Shape attribute: Error"
return
}

40
tests/caf/basic/K3
View File

@ -19,13 +19,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
set aLabel 0:2
SetShape D ${aLabel} aBox1
@ -55,26 +49,20 @@ if { ${IsDone} != 0 } {
return
}
set aBoundingBox5 [bounding aBox5]
set X1_Box5 [lindex ${aBoundingBox5} 0]
set Y1_Box5 [lindex ${aBoundingBox5} 1]
set Z1_Box5 [lindex ${aBoundingBox5} 2]
set X2_Box5 [lindex ${aBoundingBox5} 3]
set Y2_Box5 [lindex ${aBoundingBox5} 4]
set Z2_Box5 [lindex ${aBoundingBox5} 5]
bounding -s aBox5 -save X1_Box5 Y1_Box5 Z1_Box5 X2_Box5 Y2_Box5 Z2_Box5
if { ${X1_Box1} != ${X1_Box5} ||
${Y1_Box1} != ${Y1_Box5} ||
${Z1_Box1} != ${Z1_Box5} ||
${X2_Box1} != ${X2_Box5} ||
${Y2_Box1} != ${Y2_Box5} ||
${Z2_Box1} != ${Z2_Box5} } {
puts "X1_Box1=${X1_Box1} X1_Box5=${X1_Box5}"
puts "Y1_Box1=${Y1_Box1} Y1_Box5=${Y1_Box5}"
puts "Z1_Box1=${Z1_Box1} Z1_Box5=${Z1_Box5}"
puts "X2_Box1=${X2_Box1} X2_Box5=${X2_Box5}"
puts "Y2_Box1=${Y2_Box1} Y2_Box5=${Y2_Box5}"
puts "Z2_Box1=${Z2_Box1} Z2_Box5=${Z2_Box5}"
if { [dval X1_Box1] != [dval X1_Box5] ||
[dval Y1_Box1] != [dval Y1_Box5] ||
[dval Z1_Box1] != [dval Z1_Box5] ||
[dval X2_Box1] != [dval X2_Box5] ||
[dval Y2_Box1] != [dval Y2_Box5] ||
[dval Z2_Box1] != [dval Z2_Box5] } {
puts "X1_Box1=[dval X1_Box1] X1_Box5=[dval X1_Box5]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box5=[dval Y1_Box5]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box5=[dval Z1_Box5]"
puts "X2_Box1=[dval X2_Box1] X2_Box5=[dval X2_Box5]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box5=[dval Y2_Box5]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box5=[dval Z2_Box5]"
puts "Get a value of TDataStd_Shape attribute from restoring document: Error"
return
}

46
tests/caf/bugs/B3
View File

@ -31,13 +31,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
set aLabel 0:2
SetShape Doc ${aLabel} aBox1
@ -67,32 +61,20 @@ if { ${IsDone} != 0 } {
puts "OCC1228: ERROR (case 2)"
}
catch {set aBoundingBox5 [bounding aBox5]}
set X1_Box5 0
set Y1_Box5 0
set Z1_Box5 0
set X2_Box5 0
set Y2_Box5 0
set Z2_Box5 0
catch {set X1_Box5 [lindex ${aBoundingBox5} 0]}
catch {set Y1_Box5 [lindex ${aBoundingBox5} 1]}
catch {set Z1_Box5 [lindex ${aBoundingBox5} 2]}
catch {set X2_Box5 [lindex ${aBoundingBox5} 3]}
catch {set Y2_Box5 [lindex ${aBoundingBox5} 4]}
catch {set Z2_Box5 [lindex ${aBoundingBox5} 5]}
bounding -s aBox5 -save X1_Box5 Y1_Box5 Z1_Box5 X2_Box5 Y2_Box5 Z2_Box5
if { ${X1_Box1} != ${X1_Box5} ||
${Y1_Box1} != ${Y1_Box5} ||
${Z1_Box1} != ${Z1_Box5} ||
${X2_Box1} != ${X2_Box5} ||
${Y2_Box1} != ${Y2_Box5} ||
${Z2_Box1} != ${Z2_Box5} } {
puts "X1_Box1=${X1_Box1} X1_Box5=${X1_Box5}"
puts "Y1_Box1=${Y1_Box1} Y1_Box5=${Y1_Box5}"
puts "Z1_Box1=${Z1_Box1} Z1_Box5=${Z1_Box5}"
puts "X2_Box1=${X2_Box1} X2_Box5=${X2_Box5}"
puts "Y2_Box1=${Y2_Box1} Y2_Box5=${Y2_Box5}"
puts "Z2_Box1=${Z2_Box1} Z2_Box5=${Z2_Box5}"
if { [dval X1_Box1] != [dval X1_Box5] ||
[dval Y1_Box1] != [dval Y1_Box5] ||
[dval Z1_Box1] != [dval Z1_Box5] ||
[dval X2_Box1] != [dval X2_Box5] ||
[dval Y2_Box1] != [dval Y2_Box5] ||
[dval Z2_Box1] != [dval Z2_Box5] } {
puts "X1_Box1=[dval X1_Box1] X1_Box5=[dval X1_Box5]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box5=[dval Y1_Box5]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box5=[dval Z1_Box5]"
puts "X2_Box1=[dval X2_Box1] X2_Box5=[dval X2_Box5]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box5=[dval Y2_Box5]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box5=[dval Z2_Box5]"
puts "Get a value of TDataStd_Shape attribute from restoring document: Error"
puts "OCC1228: ERROR (case 3)"
} else {

46
tests/caf/bugs/B5
View File

@ -30,13 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Create a label
set aLabel 0:2
@ -73,32 +67,20 @@ if { ${IsDone} != 0 } {
puts "OCC1228: ERROR (case 2)"
}
catch {set aBoundingBox3 [bounding aBox3]}
set X1_Box3 0
set Y1_Box3 0
set Z1_Box3 0
set X2_Box3 0
set Y2_Box3 0
set Z2_Box3 0
catch {set X1_Box3 [lindex ${aBoundingBox3} 0]}
catch {set Y1_Box3 [lindex ${aBoundingBox3} 1]}
catch {set Z1_Box3 [lindex ${aBoundingBox3} 2]}
catch {set X2_Box3 [lindex ${aBoundingBox3} 3]}
catch {set Y2_Box3 [lindex ${aBoundingBox3} 4]}
catch {set Z2_Box3 [lindex ${aBoundingBox3} 5]}
bounding -s aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
if { ${X1_Box1} != ${X1_Box3} ||
${Y1_Box1} != ${Y1_Box3} ||
${Z1_Box1} != ${Z1_Box3} ||
${X2_Box1} != ${X2_Box3} ||
${Y2_Box1} != ${Y2_Box3} ||
${Z2_Box1} != ${Z2_Box3} } {
puts "X1_Box1=${X1_Box1} X1_Box3=${X1_Box3}"
puts "Y1_Box1=${Y1_Box1} Y1_Box3=${Y1_Box3}"
puts "Z1_Box1=${Z1_Box1} Z1_Box3=${Z1_Box3}"
puts "X2_Box1=${X2_Box1} X2_Box3=${X2_Box3}"
puts "Y2_Box1=${Y2_Box1} Y2_Box3=${Y2_Box3}"
puts "Z2_Box1=${Z2_Box1} Z2_Box3=${Z2_Box3}"
if { [dval X1_Box1] != [dval X1_Box3] ||
[dval Y1_Box1] != [dval Y1_Box3] ||
[dval Z1_Box1] != [dval Z1_Box3] ||
[dval X2_Box1] != [dval X2_Box3] ||
[dval Y2_Box1] != [dval Y2_Box3] ||
[dval Z2_Box1] != [dval Z2_Box3] } {
puts "X1_Box1=[dval X1_Box1] X1_Box3=[dval X1_Box3]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box3=[dval Y1_Box3]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box3=[dval Z1_Box3]"
puts "X2_Box1=[dval X2_Box1] X2_Box3=[dval X2_Box3]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box3=[dval Y2_Box3]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box3=[dval Z2_Box3]"
puts "Get a value of TNaming_NamedShape attribute from restoring document: Error"
puts "OCC1228: ERROR (case 3)"
} else {

42
tests/caf/bugs/B7
View File

@ -35,13 +35,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@ -81,28 +75,20 @@ if { ${IsDone} != 0 } {
puts "OCC1228: ERROR (case 2)"
}
catch {set aBoundingBox2 [bounding aBox2]}
set X1_Box2 0
set Y1_Box2 0
set Z1_Box2 0
set X2_Box2 0
set Y2_Box2 0
set Z2_Box2 0
catch {set X1_Box2 [lindex ${aBoundingBox2} 0]}
catch {set Y1_Box2 [lindex ${aBoundingBox2} 1]}
catch {set Z1_Box2 [lindex ${aBoundingBox2} 2]}
catch {set X2_Box2 [lindex ${aBoundingBox2} 3]}
catch {set Y2_Box2 [lindex ${aBoundingBox2} 4]}
catch {set Z2_Box2 [lindex ${aBoundingBox2} 5]}
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { ${X1_Box1} != ${X1_Box2} ||
${Y1_Box1} != ${Y1_Box2} ||
${Z1_Box1} != ${Z1_Box2} ||
${X2_Box1} != ${X2_Box2} ||
${Y2_Box1} != ${Y2_Box2} ||
${Z2_Box1} != ${Z2_Box2} } {
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_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 "X1_Box1=[dval X1_Box1] X1_Box2=[dval X1_Box2]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box2=[dval Y1_Box2]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box2=[dval Z1_Box2]"
puts "X2_Box1=[dval X2_Box1] X2_Box2=[dval X2_Box2]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box2=[dval Y2_Box2]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box2=[dval Z2_Box2]"
puts "Get a link between attributes of the same document from restoring document: Error"
puts "OCC1228: ERROR (case 3)"
} else {

2
tests/caf/bugs/D2
View File

@ -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 b] != [bounding Box]} {puts "Error: invalid NamedShape"
} elseif {[bounding -s b -dump] != [bounding -s Box -dump]} {puts "Error: invalid NamedShape"
} else {
checkshape b
checkprops b -l [expr $test_boxDX * 8 + $test_boxDY * 8 + $test_boxDZ * 8]

41
tests/caf/named_shape/A1
View File

@ -18,13 +18,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Create a label
set aLabel 0:2
@ -51,27 +45,20 @@ Redo D
# Get a shape from the label
GetShape D ${aLabel} aBox3
set aBoundingBox3 [bounding aBox3]
set X1_Box3 [lindex ${aBoundingBox3} 0]
set Y1_Box3 [lindex ${aBoundingBox3} 1]
set Z1_Box3 [lindex ${aBoundingBox3} 2]
set X2_Box3 [lindex ${aBoundingBox3} 3]
set Y2_Box3 [lindex ${aBoundingBox3} 4]
set Z2_Box3 [lindex ${aBoundingBox3} 5]
bounding -s aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
if { ${X1_Box1} != ${X1_Box3} ||
${Y1_Box1} != ${Y1_Box3} ||
${Z1_Box1} != ${Z1_Box3} ||
${X2_Box1} != ${X2_Box3} ||
${Y2_Box1} != ${Y2_Box3} ||
${Z2_Box1} != ${Z2_Box3} ||
[info exists aBox2] } {
puts "X1_Box1=${X1_Box1} X1_Box3=${X1_Box3}"
puts "Y1_Box1=${Y1_Box1} Y1_Box3=${Y1_Box3}"
puts "Z1_Box1=${Z1_Box1} Z1_Box3=${Z1_Box3}"
puts "X2_Box1=${X2_Box1} X2_Box3=${X2_Box3}"
puts "Y2_Box1=${Y2_Box1} Y2_Box3=${Y2_Box3}"
puts "Z2_Box1=${Z2_Box1} Z2_Box3=${Z2_Box3}"
if { [dval X1_Box1] != [dval X1_Box3] ||
[dval Y1_Box1] != [dval Y1_Box3] ||
[dval Z1_Box1] != [dval Z1_Box3] ||
[dval X2_Box1] != [dval X2_Box3] ||
[dval Y2_Box1] != [dval Y2_Box3] ||
[dval Z2_Box1] != [dval Z2_Box3] } {
puts "X1_Box1=[dval X1_Box1] X1_Box3=[dval X1_Box3]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box3=[dval Y1_Box3]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box3=[dval Z1_Box3]"
puts "X2_Box1=[dval X2_Box1] X2_Box3=[dval X2_Box3]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box3=[dval Y2_Box3]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box3=[dval Z2_Box3]"
puts "SetShape command: Error"
return
}

41
tests/caf/named_shape/B1
View File

@ -18,13 +18,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Create a label
set aLabel 0:2
@ -51,27 +45,20 @@ Redo D
# Get a shape from the label
GetShape D ${aLabel} aBox3
set aBoundingBox3 [bounding aBox3]
set X1_Box3 [lindex ${aBoundingBox3} 0]
set Y1_Box3 [lindex ${aBoundingBox3} 1]
set Z1_Box3 [lindex ${aBoundingBox3} 2]
set X2_Box3 [lindex ${aBoundingBox3} 3]
set Y2_Box3 [lindex ${aBoundingBox3} 4]
set Z2_Box3 [lindex ${aBoundingBox3} 5]
bounding -s aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
if { ${X1_Box1} != ${X1_Box3} ||
${Y1_Box1} != ${Y1_Box3} ||
${Z1_Box1} != ${Z1_Box3} ||
${X2_Box1} != ${X2_Box3} ||
${Y2_Box1} != ${Y2_Box3} ||
${Z2_Box1} != ${Z2_Box3} ||
[info exists aBox2] } {
puts "X1_Box1=${X1_Box1} X1_Box3=${X1_Box3}"
puts "Y1_Box1=${Y1_Box1} Y1_Box3=${Y1_Box3}"
puts "Z1_Box1=${Z1_Box1} Z1_Box3=${Z1_Box3}"
puts "X2_Box1=${X2_Box1} X2_Box3=${X2_Box3}"
puts "Y2_Box1=${Y2_Box1} Y2_Box3=${Y2_Box3}"
puts "Z2_Box1=${Z2_Box1} Z2_Box3=${Z2_Box3}"
if { [dval X1_Box1] != [dval X1_Box3] ||
[dval Y1_Box1] != [dval Y1_Box3] ||
[dval Z1_Box1] != [dval Z1_Box3] ||
[dval X2_Box1] != [dval X2_Box3] ||
[dval Y2_Box1] != [dval Y2_Box3] ||
[dval Z2_Box1] != [dval Z2_Box3] } {
puts "X1_Box1=[dval X1_Box1] X1_Box3=[dval X1_Box3]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box3=[dval Y1_Box3]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box3=[dval Z1_Box3]"
puts "X2_Box1=[dval X2_Box1] X2_Box3=[dval X2_Box3]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box3=[dval Y2_Box3]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box3=[dval Z2_Box3]"
puts "NewShape command: Error"
return
}

40
tests/caf/named_shape/C1
View File

@ -18,13 +18,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Create a label
set aLabel 0:2
@ -61,26 +55,20 @@ if { ${IsDone} != 0 } {
return
}
set aBoundingBox3 [bounding aBox3]
set X1_Box3 [lindex ${aBoundingBox3} 0]
set Y1_Box3 [lindex ${aBoundingBox3} 1]
set Z1_Box3 [lindex ${aBoundingBox3} 2]
set X2_Box3 [lindex ${aBoundingBox3} 3]
set Y2_Box3 [lindex ${aBoundingBox3} 4]
set Z2_Box3 [lindex ${aBoundingBox3} 5]
bounding -s aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
if { ${X1_Box1} != ${X1_Box3} ||
${Y1_Box1} != ${Y1_Box3} ||
${Z1_Box1} != ${Z1_Box3} ||
${X2_Box1} != ${X2_Box3} ||
${Y2_Box1} != ${Y2_Box3} ||
${Z2_Box1} != ${Z2_Box3} } {
puts "X1_Box1=${X1_Box1} X1_Box3=${X1_Box3}"
puts "Y1_Box1=${Y1_Box1} Y1_Box3=${Y1_Box3}"
puts "Z1_Box1=${Z1_Box1} Z1_Box3=${Z1_Box3}"
puts "X2_Box1=${X2_Box1} X2_Box3=${X2_Box3}"
puts "Y2_Box1=${Y2_Box1} Y2_Box3=${Y2_Box3}"
puts "Z2_Box1=${Z2_Box1} Z2_Box3=${Z2_Box3}"
if { [dval X1_Box1] != [dval X1_Box3] ||
[dval Y1_Box1] != [dval Y1_Box3] ||
[dval Z1_Box1] != [dval Z1_Box3] ||
[dval X2_Box1] != [dval X2_Box3] ||
[dval Y2_Box1] != [dval Y2_Box3] ||
[dval Z2_Box1] != [dval Z2_Box3] } {
puts "X1_Box1=[dval X1_Box1] X1_Box3=[dval X1_Box3]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box3=[dval Y1_Box3]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box3=[dval Z1_Box3]"
puts "X2_Box1=[dval X2_Box1] X2_Box3=[dval X2_Box3]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box3=[dval Y2_Box3]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box3=[dval Z2_Box3]"
puts "Get a value of TNaming_NamedShape attribute from restoring document: Error"
return
}

18
tests/caf/named_shape/D1
View File

@ -47,13 +47,7 @@ foreach S [directory [concat $aBox1$ter]] {
puts "SubShape=$S"
#Memorize a bounding box of the selected sub-shape
set aBoundingBox1 [bounding ${S}]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s ${S} -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Select a sub-shape
set LABEL [Label D 0:$iSubLabel]
@ -66,15 +60,9 @@ foreach S [directory [concat $aBox1$ter]] {
GetShape D ${LABEL} aSubShape
# Get bounding box
set aBoundingBox2 [bounding aSubShape]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aSubShape -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if {${X1_Box1} != ${X1_Box2} || ${Y1_Box1} != ${Y1_Box2} || ${Z1_Box1} != ${Z1_Box2} || ${X2_Box1} != ${X2_Box2} || ${Y2_Box1} != ${Y2_Box2} || ${Z2_Box1} != ${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"
}
}

18
tests/caf/named_shape/D2
View File

@ -47,13 +47,7 @@ foreach S [directory [concat $aBox1$ter]] {
puts "SubShape=$S"
#Memorize a bounding box of the selected sub-shape
set aBoundingBox1 [bounding ${S}]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s ${S} -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Select a sub-shape
set LABEL [Label D 0:$iSubLabel]
@ -66,15 +60,9 @@ foreach S [directory [concat $aBox1$ter]] {
GetShape D ${LABEL} aSubShape
# Get bounding box
set aBoundingBox2 [bounding aSubShape]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aSubShape -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if {${X1_Box1} != ${X1_Box2} || ${Y1_Box1} != ${Y1_Box2} || ${Z1_Box1} != ${Z1_Box2} || ${X2_Box1} != ${X2_Box2} || ${Y2_Box1} != ${Y2_Box2} || ${Z2_Box1} != ${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"
}
}

18
tests/caf/named_shape/D3
View File

@ -47,13 +47,7 @@ foreach S [directory [concat $aBox1$ter]] {
puts "SubShape=$S"
#Memorize a bounding box of the selected sub-shape
set aBoundingBox1 [bounding ${S}]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s ${S} -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Select a sub-shape
set LABEL [Label D 0:$iSubLabel]
@ -66,15 +60,9 @@ foreach S [directory [concat $aBox1$ter]] {
GetShape D ${LABEL} aSubShape
# Get bounding box
set aBoundingBox2 [bounding aSubShape]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aSubShape -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if {${X1_Box1} != ${X1_Box2} || ${Y1_Box1} != ${Y1_Box2} || ${Z1_Box1} != ${Z1_Box2} || ${X2_Box1} != ${X2_Box2} || ${Y2_Box1} != ${Y2_Box2} || ${Z2_Box1} != ${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"
}
}

36
tests/caf/xlink/A1
View File

@ -30,13 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@ -63,22 +57,20 @@ Redo Doc1
# Get a shape from 'TLabel1'
GetShape Doc1 ${aLabel2} aBox2
set aBoundingBox2 [bounding aBox2]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { ${X1_Box1} != ${X1_Box2} ||
${Y1_Box1} != ${Y1_Box2} ||
${Z1_Box1} != ${Z1_Box2} ||
${X2_Box1} != ${X2_Box2} ||
${Y2_Box1} != ${Y2_Box2} ||
${Z2_Box1} != ${Z2_Box2} } {
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_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 "X1_Box1=[dval X1_Box1] X1_Box2=[dval X1_Box2]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box2=[dval Y1_Box2]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box2=[dval Z1_Box2]"
puts "X2_Box1=[dval X2_Box1] X2_Box2=[dval X2_Box2]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box2=[dval Y2_Box2]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box2=[dval Z2_Box2]"
puts "Copy attributes of the same document: Error"
return
}

36
tests/caf/xlink/A2
View File

@ -30,13 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@ -63,22 +57,20 @@ Redo Doc2
# Get a shape from 'TLabel1'
GetShape Doc2 ${aLabel2} aBox2
set aBoundingBox2 [bounding aBox2]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { ${X1_Box1} != ${X1_Box2} ||
${Y1_Box1} != ${Y1_Box2} ||
${Z1_Box1} != ${Z1_Box2} ||
${X2_Box1} != ${X2_Box2} ||
${Y2_Box1} != ${Y2_Box2} ||
${Z2_Box1} != ${Z2_Box2} } {
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_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 "X1_Box1=[dval X1_Box1] X1_Box2=[dval X1_Box2]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box2=[dval Y1_Box2]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box2=[dval Z1_Box2]"
puts "X2_Box1=[dval X2_Box1] X2_Box2=[dval X2_Box2]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box2=[dval Y2_Box2]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box2=[dval Z2_Box2]"
puts "Copy attributes to another document: Error"
return
}

36
tests/caf/xlink/B1
View File

@ -30,13 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@ -63,22 +57,20 @@ Redo Doc1
# Get a shape from 'TLabel1'
GetShape Doc1 ${aLabel2} aBox2
set aBoundingBox2 [bounding aBox2]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { ${X1_Box1} != ${X1_Box2} ||
${Y1_Box1} != ${Y1_Box2} ||
${Z1_Box1} != ${Z1_Box2} ||
${X2_Box1} != ${X2_Box2} ||
${Y2_Box1} != ${Y2_Box2} ||
${Z2_Box1} != ${Z2_Box2} } {
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_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 "X1_Box1=[dval X1_Box1] X1_Box2=[dval X1_Box2]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box2=[dval Y1_Box2]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box2=[dval Z1_Box2]"
puts "X2_Box1=[dval X2_Box1] X2_Box2=[dval X2_Box2]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box2=[dval Y2_Box2]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box2=[dval Z2_Box2]"
puts "Set a link between attributes of the same document: Error"
return
}

36
tests/caf/xlink/B2
View File

@ -30,13 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@ -68,22 +62,20 @@ Redo Doc1
# Get a shape from 'TLabel1'
GetShape Doc1 ${aLabel2} aBox2
set aBoundingBox2 [bounding aBox2]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { ${X1_Box1} != ${X1_Box2} ||
${Y1_Box1} != ${Y1_Box2} ||
${Z1_Box1} != ${Z1_Box2} ||
${X2_Box1} != ${X2_Box2} ||
${Y2_Box1} != ${Y2_Box2} ||
${Z2_Box1} != ${Z2_Box2} } {
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_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 "X1_Box1=[dval X1_Box1] X1_Box2=[dval X1_Box2]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box2=[dval Y1_Box2]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box2=[dval Z1_Box2]"
puts "X2_Box1=[dval X2_Box1] X2_Box2=[dval X2_Box2]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box2=[dval Y2_Box2]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box2=[dval Z2_Box2]"
puts "Set a link between attributes of the same document: Error"
return
}

36
tests/caf/xlink/B3
View File

@ -30,13 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@ -76,22 +70,20 @@ if { ${IsDone} != 0 } {
return
}
set aBoundingBox2 [bounding aBox2]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { ${X1_Box1} != ${X1_Box2} ||
${Y1_Box1} != ${Y1_Box2} ||
${Z1_Box1} != ${Z1_Box2} ||
${X2_Box1} != ${X2_Box2} ||
${Y2_Box1} != ${Y2_Box2} ||
${Z2_Box1} != ${Z2_Box2} } {
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_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 "X1_Box1=[dval X1_Box1] X1_Box2=[dval X1_Box2]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box2=[dval Y1_Box2]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box2=[dval Z1_Box2]"
puts "X2_Box1=[dval X2_Box1] X2_Box2=[dval X2_Box2]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box2=[dval Y2_Box2]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box2=[dval Z2_Box2]"
puts "Get a link between attributes of the same document from restoring document: Error"
return
}

36
tests/caf/xlink/B4
View File

@ -30,13 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@ -63,22 +57,20 @@ Redo Doc2
# Get a shape from 'TLabel1'
GetShape Doc2 ${aLabel2} aBox2
set aBoundingBox2 [bounding aBox2]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { ${X1_Box1} != ${X1_Box2} ||
${Y1_Box1} != ${Y1_Box2} ||
${Z1_Box1} != ${Z1_Box2} ||
${X2_Box1} != ${X2_Box2} ||
${Y2_Box1} != ${Y2_Box2} ||
${Z2_Box1} != ${Z2_Box2} } {
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_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 "X1_Box1=[dval X1_Box1] X1_Box2=[dval X1_Box2]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box2=[dval Y1_Box2]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box2=[dval Z1_Box2]"
puts "X2_Box1=[dval X2_Box1] X2_Box2=[dval X2_Box2]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box2=[dval Y2_Box2]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box2=[dval Z2_Box2]"
puts "Set a link between attributes of another document: Error"
return
}

36
tests/caf/xlink/B5
View File

@ -30,13 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@ -68,22 +62,20 @@ Redo Doc1
# Get a shape from 'TLabel1'
GetShape Doc2 ${aLabel2} aBox2
set aBoundingBox2 [bounding aBox2]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { ${X1_Box1} != ${X1_Box2} ||
${Y1_Box1} != ${Y1_Box2} ||
${Z1_Box1} != ${Z1_Box2} ||
${X2_Box1} != ${X2_Box2} ||
${Y2_Box1} != ${Y2_Box2} ||
${Z2_Box1} != ${Z2_Box2} } {
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_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 "X1_Box1=[dval X1_Box1] X1_Box2=[dval X1_Box2]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box2=[dval Y1_Box2]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box2=[dval Z1_Box2]"
puts "X2_Box1=[dval X2_Box1] X2_Box2=[dval X2_Box2]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box2=[dval Y2_Box2]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box2=[dval Z2_Box2]"
puts "Set a link between attributes of the same document: Error"
return
}

36
tests/caf/xlink/C1
View File

@ -30,13 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@ -74,22 +68,20 @@ Redo Doc1
# 11. Get a shape from 'TLabel1'
GetShape Doc1 ${aLabel2} aBox2
set aBoundingBox2 [bounding aBox2]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { ${X1_Box1} == ${X1_Box2} ||
${Y1_Box1} == ${Y1_Box2} ||
${Z1_Box1} == ${Z1_Box2} ||
${X2_Box1} == ${X2_Box2} ||
${Y2_Box1} == ${Y2_Box2} ||
${Z2_Box1} == ${Z2_Box2} } {
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_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 "X1_Box1=[dval X1_Box1] X1_Box2=[dval X1_Box2]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box2=[dval Y1_Box2]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box2=[dval Z1_Box2]"
puts "X2_Box1=[dval X2_Box1] X2_Box2=[dval X2_Box2]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box2=[dval Y2_Box2]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box2=[dval Z2_Box2]"
puts "Updating a link between attributes of the same document: Error"
return
}

36
tests/caf/xlink/D1
View File

@ -30,13 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@ -74,22 +68,20 @@ Redo Doc2
# Get a shape from 'TLabel1'
GetShape Doc2 ${aLabel2} aBox2
set aBoundingBox2 [bounding aBox2]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { ${X1_Box1} == ${X1_Box2} ||
${Y1_Box1} == ${Y1_Box2} ||
${Z1_Box1} == ${Z1_Box2} ||
${X2_Box1} == ${X2_Box2} ||
${Y2_Box1} == ${Y2_Box2} ||
${Z2_Box1} == ${Z2_Box2} } {
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_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 "X1_Box1=[dval X1_Box1] X1_Box2=[dval X1_Box2]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box2=[dval Y1_Box2]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box2=[dval Z1_Box2]"
puts "X2_Box1=[dval X2_Box1] X2_Box2=[dval X2_Box2]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box2=[dval Y2_Box2]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box2=[dval Z2_Box2]"
puts "Updating a link between attributes of the same document: Error"
return
}

76
tests/caf/xlink/D2
View File

@ -30,13 +30,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@ -54,13 +48,7 @@ set aSetDZ12 2300
box aBox12 ${aSetX12} ${aSetY12} ${aSetZ12} ${aSetDX12} ${aSetDY12} ${aSetDZ12}
set aBoundingBox12 [bounding aBox12]
set X1_Box12 [lindex ${aBoundingBox12} 0]
set Y1_Box12 [lindex ${aBoundingBox12} 1]
set Z1_Box12 [lindex ${aBoundingBox12} 2]
set X2_Box12 [lindex ${aBoundingBox12} 3]
set Y2_Box12 [lindex ${aBoundingBox12} 4]
set Z2_Box12 [lindex ${aBoundingBox12} 5]
bounding -s aBox12 -save X1_Box12 Y1_Box12 Z1_Box12 X2_Box12 Y2_Box12 Z2_Box12
SetShape Doc1 ${aLabel12} aBox12
@ -111,50 +99,38 @@ Redo Doc2
# Get a shape from 'TLabel1'
GetShape Doc2 ${aLabel2} aBox2
set aBoundingBox2 [bounding aBox2]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
# Get a shape from 'T2Label1'
GetShape Doc2 ${aLabel22} aBox22
set aBoundingBox22 [bounding aBox22]
set X1_Box22 [lindex ${aBoundingBox22} 0]
set Y1_Box22 [lindex ${aBoundingBox22} 1]
set Z1_Box22 [lindex ${aBoundingBox22} 2]
set X2_Box22 [lindex ${aBoundingBox22} 3]
set Y2_Box22 [lindex ${aBoundingBox22} 4]
set Z2_Box22 [lindex ${aBoundingBox22} 5]
bounding -s aBox22 -save X1_Box22 Y1_Box22 Z1_Box22 X2_Box22 Y2_Box22 Z2_Box22
if { ${X1_Box1} == ${X1_Box2} ||
${Y1_Box1} == ${Y1_Box2} ||
${Z1_Box1} == ${Z1_Box2} ||
${X2_Box1} == ${X2_Box2} ||
${Y2_Box1} == ${Y2_Box2} ||
${Z2_Box1} == ${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] ||
${X1_Box12} == ${X1_Box22} ||
${Y1_Box12} == ${Y1_Box22} ||
${Z1_Box12} == ${Z1_Box22} ||
${X2_Box12} == ${X2_Box22} ||
${Y2_Box12} == ${Y2_Box22} ||
${Z2_Box12} == ${Z2_Box22} ||
[dval X1_Box12] == [dval X1_Box22] ||
[dval Y1_Box12] == [dval Y1_Box22] ||
[dval Z1_Box12] == [dval Z1_Box22] ||
[dval X2_Box12] == [dval X2_Box22] ||
[dval Y2_Box12] == [dval Y2_Box22] ||
[dval Z2_Box12] == [dval Z2_Box22] ||
${X1_Box2} == ${X1_Box22} ||
${Y1_Box2} == ${Y1_Box22} ||
${Z1_Box2} == ${Z1_Box22} ||
${X2_Box2} == ${X2_Box22} ||
${Y2_Box2} == ${Y2_Box22} ||
${Z2_Box2} == ${Z2_Box22} } {
[dval X1_Box2] == [dval X1_Box22] ||
[dval Y1_Box2] == [dval Y1_Box22] ||
[dval Z1_Box2] == [dval Z1_Box22] ||
[dval X2_Box2] == [dval X2_Box22] ||
[dval Y2_Box2] == [dval Y2_Box22] ||
[dval Z2_Box2] == [dval Z2_Box22] } {
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_Box2=${Z2_Box2}"
puts "X1_Box12=${X1_Box12} Y1_Box12=${Y1_Box12} Z1_Box12=${Z1_Box12} X2_Box12=${X2_Box12} Y2_Box12=${Y2_Box12} Z2_Box12=${Z2_Box12}"
puts "X1_Box22=${X1_Box22} Y1_Box22=${Y1_Box22} Z1_Box22=${Z1_Box22} X2_Box22=${X2_Box22} Y2_Box22=${Y2_Box22} Z2_Box22=${Z2_Box22}"
puts "X1_Box1=[dval X1_Box1] Y1_Box1=[dval Y1_Box1] Z1_Box1=[dval Z1_Box1] X2_Box1=[dval X2_Box1] Y2_Box1=[dval Y2_Box1] Z2_Box1=[dval Z2_Box1]"
puts "X1_Box2=[dval X1_Box2] Y1_Box2=[dval Y1_Box2] Z1_Box2=[dval Z1_Box2] X2_Box2=[dval X2_Box2] Y2_Box2=[dval Y2_Box2] Z2_Box2=[dval Z2_Box2]"
puts "X1_Box12=[dval X1_Box12] Y1_Box12=[dval Y1_Box12] Z1_Box12=[dval Z1_Box12] X2_Box12=[dval X2_Box12] Y2_Box12=[dval Y2_Box12] Z2_Box12=[dval Z2_Box12]"
puts "X1_Box22=[dval X1_Box22] Y1_Box22=[dval Y1_Box22] Z1_Box22=[dval Z1_Box22] X2_Box22=[dval X2_Box22] Y2_Box22=[dval Y2_Box22] Z2_Box22=[dval Z2_Box22]"
puts "Updating all links between attributes of the same document: Error"
return
}

17
tests/chamfer/begin
View File

@ -37,16 +37,15 @@ proc get_element { type args } {
global $element
distmini dd ver $element
if { [string match "*$type*" [whatis $element]] } {
set bbox [bounding $element]
set bbox [bounding -s $element -save xx1 yy1 zz1 xx2 yy2 zz2 ]
# Get distance
set dv [lindex [dump dd_val] 5]
if { [expr {
[lindex $bbox 0] - 1e-2 <= $x && $x <= [lindex $bbox 3] + 1e-2
&& [lindex $bbox 1] - 1e-2 <= $y && $y <= [lindex $bbox 4] + 1e-2
&& [lindex $bbox 2] - 1e-2 <= $z && $z <= [lindex $bbox 5] + 1e-2
&& [lindex $bbox 0] - 1e-2 <= $x1 && $x1 <= [lindex $bbox 3] + 1e-2
&& [lindex $bbox 1] - 1e-2 <= $y1 && $y1 <= [lindex $bbox 4] + 1e-2
&& [lindex $bbox 2] - 1e-2 <= $z1 && $z1 <= [lindex $bbox 5] + 1e-2
set dv [lindex [dump dd_val] 5]
if {[expr {[dval xx1-1e-2] <= $x && $x <= [dval xx2+1e-2]
&& [dval yy1-1e-2] <= $y && $y <= [dval yy2+1e-2]
&& [dval zz1-1e-2] <= $z && $z <= [dval zz2+1e-2]
&& [dval xx1-1e-2] <= $x1 && $x1 <= [dval xx2+1e-2]
&& [dval yy1-1e-2] <= $y1 && $y1 <= [dval yy2+1e-2]
&& [dval zz1-1e-2] <= $z1 && $z1 <= [dval zz2+1e-2]
}]
} {
if { [llength $res] == 0 } {

2
tests/demo/draw/binpersist_1
View File

@ -12,7 +12,7 @@ if [regexp "Cannot write to the file $file" [binsave b $file]] {
puts "Error: binrestore"
} else {
file delete $file
if {[bounding b] != [bounding bb]} {
if {[bounding -s b -dump] != [bounding -s bb -dump]} {
puts "Error: restored shape has another bounding box"
}
checkshape bb

2
tests/demo/draw/binpersist_2
View File

@ -12,7 +12,7 @@ if [regexp "Cannot write to the file $file" [binsave b $file]] {
puts "Error: binrestore"
} else {
file delete $file
if {[bounding b] != [bounding bb]} {
if {[bounding -s b -dump] != [bounding -s bb -dump]} {
puts "Error: restored shape has another bounding box"
}
checkshape bb

2
tests/demo/draw/binpersist_3
View File

@ -12,7 +12,7 @@ if [regexp "Cannot write to the file $file" [binsave b $file]] {
puts "Error: binrestore"
} else {
file delete $file
if {[bounding b] != [bounding bb]} {
if {[bounding -s b -dump] != [bounding -s bb -dump]} {
puts "Error: restored shape has another bounding box"
}
checkshape bb

22
tests/perf/modalg/bug29311 Normal file
View File

@ -0,0 +1,22 @@
puts "========"
puts "OCC29311"
puts "========"
puts ""
#################################################
# Implementation of the Oriented Bounding Boxes (OBB) functionality
#################################################
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
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
if { $i != $NbIters } { trotate a 283 162 317 2 7 9 $step }
}

40
tests/xml/data/ocaf/B3
View File

@ -11,13 +11,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
set aLabel 0:2
SetShape D ${aLabel} aBox1
@ -39,26 +33,20 @@ set IsDone [catch {GetShape DD ${aLabel} aBox5} aResult]
if { ${IsDone} != 0 } {
puts "Error : Get a value of TDataStd_Shape attribute from restoring document"
} else {
set aBoundingBox5 [bounding aBox5]
set X1_Box5 [lindex ${aBoundingBox5} 0]
set Y1_Box5 [lindex ${aBoundingBox5} 1]
set Z1_Box5 [lindex ${aBoundingBox5} 2]
set X2_Box5 [lindex ${aBoundingBox5} 3]
set Y2_Box5 [lindex ${aBoundingBox5} 4]
set Z2_Box5 [lindex ${aBoundingBox5} 5]
bounding -s aBox5 -save X1_Box5 Y1_Box5 Z1_Box5 X2_Box5 Y2_Box5 Z2_Box5
if { ${X1_Box1} != ${X1_Box5} ||
${Y1_Box1} != ${Y1_Box5} ||
${Z1_Box1} != ${Z1_Box5} ||
${X2_Box1} != ${X2_Box5} ||
${Y2_Box1} != ${Y2_Box5} ||
${Z2_Box1} != ${Z2_Box5} } {
puts "X1_Box1=${X1_Box1} X1_Box5=${X1_Box5}"
puts "Y1_Box1=${Y1_Box1} Y1_Box5=${Y1_Box5}"
puts "Z1_Box1=${Z1_Box1} Z1_Box5=${Z1_Box5}"
puts "X2_Box1=${X2_Box1} X2_Box5=${X2_Box5}"
puts "Y2_Box1=${Y2_Box1} Y2_Box5=${Y2_Box5}"
puts "Z2_Box1=${Z2_Box1} Z2_Box5=${Z2_Box5}"
if { [dval X1_Box1] != [dval X1_Box5] ||
[dval Y1_Box1] != [dval Y1_Box5] ||
[dval Z1_Box1] != [dval Z1_Box5] ||
[dval X2_Box1] != [dval X2_Box5] ||
[dval Y2_Box1] != [dval Y2_Box5] ||
[dval Z2_Box1] != [dval Z2_Box5] } {
puts "X1_Box1=[dval X1_Box1] X1_Box5=[dval X1_Box5]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box5=[dval Y1_Box5]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box5=[dval Z1_Box5]"
puts "X2_Box1=[dval X2_Box1] X2_Box5=[dval X2_Box5]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box5=[dval Y2_Box5]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box5=[dval Z2_Box5]"
puts "Error : et a value of TDataStd_Shape attribute from restoring document"
}
}

40
tests/xml/data/ocaf/B5
View File

@ -11,13 +11,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
# Create a label
set aLabel 0:2
@ -47,26 +41,20 @@ if { ${IsDone} != 0 } {
puts ${aResult}
puts "Error : Get a value of TNaming_NamedShape attribute from restoring document"
} else {
set aBoundingBox3 [bounding aBox3]
set X1_Box3 [lindex ${aBoundingBox3} 0]
set Y1_Box3 [lindex ${aBoundingBox3} 1]
set Z1_Box3 [lindex ${aBoundingBox3} 2]
set X2_Box3 [lindex ${aBoundingBox3} 3]
set Y2_Box3 [lindex ${aBoundingBox3} 4]
set Z2_Box3 [lindex ${aBoundingBox3} 5]
bounding -s aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
if { ${X1_Box1} != ${X1_Box3} ||
${Y1_Box1} != ${Y1_Box3} ||
${Z1_Box1} != ${Z1_Box3} ||
${X2_Box1} != ${X2_Box3} ||
${Y2_Box1} != ${Y2_Box3} ||
${Z2_Box1} != ${Z2_Box3} } {
puts "X1_Box1=${X1_Box1} X1_Box3=${X1_Box3}"
puts "Y1_Box1=${Y1_Box1} Y1_Box3=${Y1_Box3}"
puts "Z1_Box1=${Z1_Box1} Z1_Box3=${Z1_Box3}"
puts "X2_Box1=${X2_Box1} X2_Box3=${X2_Box3}"
puts "Y2_Box1=${Y2_Box1} Y2_Box3=${Y2_Box3}"
puts "Z2_Box1=${Z2_Box1} Z2_Box3=${Z2_Box3}"
if { [dval X1_Box1] != [dval X1_Box3] ||
[dval Y1_Box1] != [dval Y1_Box3] ||
[dval Z1_Box1] != [dval Z1_Box3] ||
[dval X2_Box1] != [dval X2_Box3] ||
[dval Y2_Box1] != [dval Y2_Box3] ||
[dval Z2_Box1] != [dval Z2_Box3] } {
puts "X1_Box1=[dval X1_Box1] X1_Box3=[dval X1_Box3]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box3=[dval Y1_Box3]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box3=[dval Z1_Box3]"
puts "X2_Box1=[dval X2_Box1] X2_Box3=[dval X2_Box3]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box3=[dval Y2_Box3]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box3=[dval Z2_Box3]"
puts "Error : Get a value of TNaming_NamedShape attribute from restoring document"
}
}

36
tests/xml/data/ocaf/B7
View File

@ -27,13 +27,7 @@ set aSetDZ1 300
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
set aBoundingBox1 [bounding aBox1]
set X1_Box1 [lindex ${aBoundingBox1} 0]
set Y1_Box1 [lindex ${aBoundingBox1} 1]
set Z1_Box1 [lindex ${aBoundingBox1} 2]
set X2_Box1 [lindex ${aBoundingBox1} 3]
set Y2_Box1 [lindex ${aBoundingBox1} 4]
set Z2_Box1 [lindex ${aBoundingBox1} 5]
bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
SetShape Doc1 ${aLabel1} aBox1
@ -65,22 +59,20 @@ set IsDone [catch {GetShape Doc2 ${aLabel2} aBox2} aResult]
if { ${IsDone} != 0 } {
puts "Error : Get a value of TNaming_NamedShape attribute from restoring document"
} else {
set aBoundingBox2 [bounding aBox2]
set X1_Box2 [lindex ${aBoundingBox2} 0]
set Y1_Box2 [lindex ${aBoundingBox2} 1]
set Z1_Box2 [lindex ${aBoundingBox2} 2]
set X2_Box2 [lindex ${aBoundingBox2} 3]
set Y2_Box2 [lindex ${aBoundingBox2} 4]
set Z2_Box2 [lindex ${aBoundingBox2} 5]
bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
if { ${X1_Box1} != ${X1_Box2} ||
${Y1_Box1} != ${Y1_Box2} ||
${Z1_Box1} != ${Z1_Box2} ||
${X2_Box1} != ${X2_Box2} ||
${Y2_Box1} != ${Y2_Box2} ||
${Z2_Box1} != ${Z2_Box2} } {
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_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 "X1_Box1=[dval X1_Box1] X1_Box2=[dval X1_Box2]"
puts "Y1_Box1=[dval Y1_Box1] Y1_Box2=[dval Y1_Box2]"
puts "Z1_Box1=[dval Z1_Box1] Z1_Box2=[dval Z1_Box2]"
puts "X2_Box1=[dval X2_Box1] X2_Box2=[dval X2_Box2]"
puts "Y2_Box1=[dval Y2_Box1] Y2_Box2=[dval Y2_Box2]"
puts "Z2_Box1=[dval Z2_Box1] Z2_Box2=[dval Z2_Box2]"
puts "Error : Get a link between attributes of the same document from restoring document"
}
}