blob: 3bf6454581f083ecdf0fb027390b51a15b91fb80 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
-- File: Plate_LinearScalarConstraint.cdl
-- Created: Mon Mar 23 17:40:14 1998
-- Author: # Andre LIEUTIER
-- <alr@sgi63>
---Copyright: Matra Datavision 1998
class LinearScalarConstraint from Plate
---Purpose : define on or several constraints as linear combination of
-- the X,Y and Z components of a set of PinPointConstraint
--
uses
XY from gp,
XYZ from gp,
PinpointConstraint from Plate,
HArray1OfPinpointConstraint from Plate,
HArray2OfXYZ from TColgp,
Array1OfPinpointConstraint from Plate,
Array2OfXYZ from TColgp,
Array1OfXYZ from TColgp
raises
DimensionMismatch from Standard,
OutOfRange from Standard
is
Create
returns LinearScalarConstraint;
Create (ppc1 : PinpointConstraint; coeff : XYZ )
returns LinearScalarConstraint;
Create (ppc : Array1OfPinpointConstraint; coeff : Array1OfXYZ )
returns LinearScalarConstraint
raises DimensionMismatch from Standard;
-- ppc and coeff have to be of the same length
Create (ppc : Array1OfPinpointConstraint; coeff : Array2OfXYZ )
returns LinearScalarConstraint
raises DimensionMismatch from Standard;
-- the length of ppc have to be the Row lentgth of coeff
Create (ColLen,RowLen : Integer )
-- initialize with 0 valued ppc and Coeffs
returns LinearScalarConstraint;
-- Accessors :
GetPPC(me) returns Array1OfPinpointConstraint;
---C++: inline
---C++: return const &
Coeff(me) returns Array2OfXYZ;
---C++: inline
---C++: return const &
SetPPC (me : in out;
Index: Integer from Standard;
Value: PinpointConstraint)
---Purpose: Sets the PinPointConstraint of index Index to
-- Value raise if Index is greater than the length of
-- ppc or the Row length of coeff or lower than 1
raises OutOfRange from Standard;
SetCoeff (me : in out;
Row, Col: Integer from Standard;
Value: XYZ)
---Purpose: Sets the coeff of index (Row,Col) to Value
-- raise if Row (respectively Col) is greater than the
-- Row (respectively Column) length of coeff
raises OutOfRange from Standard;
fields
myPPC : HArray1OfPinpointConstraint;
myCoef : HArray2OfXYZ;
end;
|
