b311480e |
1 | -- Created on: 1993-01-09 |
2 | -- Created by: CKY / Contract Toubro-Larsen (Kiran) |
3 | -- Copyright (c) 1993-1999 Matra Datavision |
973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |
7fd59977 |
5 | -- |
973c2be1 |
6 | -- This file is part of Open CASCADE Technology software library. |
7fd59977 |
7 | -- |
d5f74e42 |
8 | -- This library is free software; you can redistribute it and/or modify it under |
9 | -- the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
10 | -- by the Free Software Foundation, with special exception defined in the file |
11 | -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
12 | -- distribution for complete text of the license and disclaimer of any warranty. |
7fd59977 |
13 | -- |
973c2be1 |
14 | -- Alternatively, this file may be used under the terms of Open CASCADE |
15 | -- commercial license or contractual agreement. |
7fd59977 |
16 | |
17 | class Boundary from IGESGeom inherits IGESEntity |
18 | |
19 | ---Purpose: defines IGESBoundary, Type <141> Form <0> |
20 | -- in package IGESGeom |
21 | -- A boundary entity identifies a surface boundary consisting |
22 | -- of a set of curves lying on the surface |
23 | |
24 | uses |
25 | |
26 | HArray1OfInteger from TColStd, |
27 | HArray1OfIGESEntity from IGESData, |
28 | HArray1OfHArray1OfIGESEntity from IGESBasic |
29 | |
30 | raises DimensionMismatch, OutOfRange |
31 | |
32 | is |
33 | |
6e33d3ce |
34 | Create returns Boundary; |
7fd59977 |
35 | |
36 | -- Specific Methods pertaining to the class |
37 | |
38 | Init (me : mutable; |
39 | aType : Integer; |
40 | aPreference : Integer; |
41 | aSurface : IGESEntity; |
42 | allModelCurves : HArray1OfIGESEntity; |
43 | allSenses : HArray1OfInteger; |
44 | allParameterCurves : HArray1OfHArray1OfIGESEntity) |
45 | raises DimensionMismatch; |
46 | ---Purpose : This method is used to set the fields of the class |
47 | -- Boundary |
48 | -- - aType : Type of bounded surface representation |
49 | -- - aPreference : Preferred representation of |
50 | -- Trimming Curve |
51 | -- - aSurface : Untrimmed surface to be bounded |
52 | -- - allModelCurves : Model Space Curves |
53 | -- - allSenses : Orientation flags of all Model Space |
54 | -- Curves |
55 | -- - allParameterCurves : Parameter Space Curves |
56 | -- raises exception if allSenses, allModelCurves and |
57 | -- allParameterCurves do not have same dimensions |
58 | |
59 | BoundaryType (me) returns Integer; |
60 | ---Purpose : returns type of bounded surface representation |
61 | -- 0 = Boundary entities may only reference model space trimming |
62 | -- curves. Associated surface representation may be parametric |
63 | -- 1 = Boundary entities must reference model space curves and |
64 | -- associated parameter space curve collections. Associated |
65 | -- surface must be a parametric representation |
66 | |
67 | PreferenceType (me) returns Integer; |
68 | ---Purpose : returns preferred representation of trimming curves |
69 | -- 0 = Unspecified |
70 | -- 1 = Model space |
71 | -- 2 = Parameter space |
72 | -- 3 = Representations are of equal preference |
73 | |
74 | Surface (me) returns IGESEntity; |
75 | ---Purpose : returns the surface to be bounded |
76 | |
77 | NbModelSpaceCurves (me) returns Integer; |
78 | ---Purpose : returns the number of model space curves |
79 | |
80 | ModelSpaceCurve (me; Index : Integer) returns IGESEntity |
81 | raises OutOfRange; |
82 | ---Purpose : returns Model Space Curve |
83 | -- raises exception if Index <= 0 or Index > NbModelSpaceCurves() |
84 | |
85 | Sense(me; Index: Integer) returns Integer |
86 | raises OutOfRange; |
87 | ---Purpose : returns the sense of a particular model space curve |
88 | -- 1 = model curve direction does not need reversal |
89 | -- 2 = model curve direction needs to be reversed |
90 | -- raises exception if Index <= 0 or Index > NbModelSpaceCurves() |
91 | |
92 | NbParameterCurves (me; Index : Integer) returns Integer |
93 | raises OutOfRange; |
94 | ---Purpose : returns the number of parameter curves associated with one |
95 | -- model space curve referred to by Index |
96 | -- raises exception if Index <= 0 or Index > NbModelSpaceCurves() |
97 | |
98 | ParameterCurves (me; Index : Integer) returns HArray1OfIGESEntity |
99 | raises OutOfRange; |
100 | ---Purpose : returns an array of parameter space curves associated with |
101 | -- a model space curve referred to by the Index |
102 | -- raises exception if Index <= 0 or Index > NbModelSpaceCurves() |
103 | |
6e33d3ce |
104 | ParameterCurve (me; Index, Num: Integer) returns IGESEntity |
7fd59977 |
105 | raises OutOfRange; |
106 | ---Purpose : returns an individual parameter curve |
107 | -- raises exception if Index or Num is out of range |
108 | |
109 | fields |
110 | |
111 | -- |
112 | -- Class : IGESGeom_Boundary |
113 | -- |
114 | -- Purpose : Declaration of variables specific to the definition |
115 | -- of the Class Boundary. |
116 | -- |
117 | -- Reminder : A Boundary instance is defined by : |
118 | -- A surface boundary consisting of a set of curves lying |
119 | -- on the surface |
120 | |
121 | theType : Integer; |
122 | thePreference : Integer; |
123 | theSurface : IGESEntity; |
124 | theModelCurves : HArray1OfIGESEntity; |
125 | theSenses : HArray1OfInteger; |
126 | theParameterCurves : HArray1OfHArray1OfIGESEntity; |
127 | |
128 | end Boundary; |