1 -- SMESH SMDS : implementaion of Salome mesh data structure
3 -- Copyright (C) 2003 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 -- CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
6 -- This library is free software; you can redistribute it and/or
7 -- modify it under the terms of the GNU Lesser General Public
8 -- License as published by the Free Software Foundation; either
9 -- version 2.1 of the License.
11 -- This library is distributed in the hope that it will be useful,
12 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
13 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 -- Lesser General Public License for more details.
16 -- You should have received a copy of the GNU Lesser General Public
17 -- License along with this library; if not, write to the Free Software
18 -- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 -- See http://www.opencascade.org/SALOME/ or email : webmaster.salome@opencascade.org
24 -- File : SMDS_MeshTetrahedron.cdl
25 -- Author : Jean-Michel BOULCOURT
28 class MeshTetrahedron from SMDS inherits MeshVolume from SMDS
36 ConstructionError from Standard
40 Create (ID, idnode1,idnode2,idnode3,idnode4: Integer) returns mutable MeshTetrahedron;
41 ---Purpose: constructor for a tetrahedra
43 GetFaceDefinedByNodes(me; rank: Integer; idnode : Address; nb: out Integer)
45 ---Purpose: returns the idnodes of the ith face (rank) of the volume
46 -- rank must be comprised between 1 and myNbConnections included.
48 GetEdgeDefinedByNodes(me; rank: Integer; idnode1 : out Integer; idnode2: out Integer)
50 ---Purpose: returns the idnodes of the ith edge (rank) of the volume
51 -- rank must be comprised between 1 and myNbConnections included.
54 ComputeKey(me: mutable) is redefined static;
55 ---Purpose: compute the ID of the volume based on the id's of its
59 SetConnections(me: mutable; idnode1,idnode2,idnode3,idnode4: Integer) is private;
62 GetConnections(me) returns Address is redefined static;
65 GetConnection(me; rank: Integer) returns Integer is redefined static;
68 NbEdges(me) returns Integer
72 NbFaces(me) returns Integer
76 NodesOfFace(myclass; rankface,ranknode: Integer)
78 ---Purpose: returns the rank node in mynodes. Useful to extract faces from volume
81 NodesOfEdge(me; rankedge: Integer; ranknode: Integer) returns Integer;
85 myNodes : Integer [4];