src/StlMesh/StlMesh_MeshExplorer.cdl

   1 -- File:        StlMesh_MeshExplorer.cdl
   2 -- Created:     Tue Sep 21 10:06:20 1995
   3 -- Author:      Philippe GIRODENGO
   4 ---Copyright:    Matra Datavision 1995
   5
   6
   7
   8 class MeshExplorer from StlMesh
   9
  10         ---Purpose: Provides  facilities to explore  the triangles  of
  11         --          each mesh domain.
  12         --
  13 uses
  14
  15     Mesh                   from StlMesh,
  16     SequenceOfMeshTriangle from StlMesh,
  17     SequenceOfXYZ          from TColgp
  18
  19 raises
  20
  21     OutOfRange   from Standard,
  22     NoMoreObject from Standard,
  23     NoSuchObject from Standard
  24
  25 is
  26
  27     Create (M : Mesh)  returns MeshExplorer;
  28
  29
  30     Deflection (me) returns Real is static;
  31         ---Purpose: Returns the mesh deflection of the current domain.
  32
  33     InitTriangle (me : in out; DomainIndex : Integer = 1)
  34         ---Purpose: Initializes the exploration  of the  triangles  of
  35         --          the mesh domain of range <DomainIndex>.
  36     raises OutOfRange
  37         ---Purpose: Raised if <DomainIndex> is lower than 1 or greater
  38         --          than the number of domains.
  39     is static;
  40
  41
  42     MoreTriangle (me) returns Boolean is static;
  43         ---C++: inline
  44
  45
  46     NextTriangle (me : in out)
  47     raises NoMoreObject
  48         ---Purpose: Raised if there is no more triangle in the current
  49         --          domain.
  50     is static;
  51
  52
  53     TriangleVertices (me; X1, Y1, Z1, X2, Y2, Z2, X3, Y3, Z3 : in out Real)
  54     raises NoSuchObject
  55         ---Purpose: Raised if there is no more triangle in the current
  56         --          domain.
  57     is static;
  58
  59
  60     TriangleOrientation (me; Xn, Yn, Zn : in out Real)
  61     raises NoSuchObject
  62         ---Purpose: Raised if there is no more triangle in the current
  63         --          domain.
  64     is static;
  65
  66
  67
  68 fields
  69
  70     mesh            : Mesh;
  71     xn, yn, zn      : Real;
  72     v1, v2, v3      : Integer;
  73     domainIndex     : Integer;
  74     nbTriangles     : Integer;
  75     triangleIndex   : Integer;
  76     trianglesVertex : SequenceOfXYZ;
  77     trianglesdef    : SequenceOfMeshTriangle;
  78
  79 end MeshExplorer;
  80
  81
  82
  83
  84
  85
  86