blob: 3ce458b54e649b62860de4f56b9ab6a5908a78dc (
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
-- File: MAT_Tool.cdl
-- Created: Wed Sep 23 16:38:49 1992
-- Author: Gilles DEBARBOUILLE
-- <gde@bravox>
---Copyright: Matra Datavision 1992
generic class Tool from MAT (Item as any)
--- Purpose : Set of the methods useful for the MAT's computation.
-- Warning : To use the algorithm MAT, it's necessary to use four
-- indexed sets (Array,Sequence ...)
-- One set contains the geometric definitions of
-- the simple composants of the Figure.
-- An other set contains the geometric definitions of
-- the bisectors.
-- An other set contains the geometric definitions of
-- the points created during the MAT's computation.
-- An other set contains the geometric definitions of
-- the Tangent Vectors to the edge's extremitis.
--
uses
Bisector from MAT
is
Create returns Tool from MAT;
NumberOfItems(me) returns Integer
--- Purpose : Returns the Number of Items .
is static;
ToleranceOfConfusion(me) returns Real
---Purpose: Returns tolerance to test the confusion of two points.
is static;
FirstPoint(me ; anitem : Integer;
dist : out Real ) returns Integer
--- Purpose : Creates the point at the origin of the bisector between
-- anitem and the previous item.
-- dist is the distance from the FirstPoint to <anitem>.
-- Returns an index.
is static;
TangentBefore(me ; anitem : Integer) returns Integer
--- Purpose : Create the Tangent at the end of the Item defined
-- by <anitem>. Returns the index of this vector in
-- <theGeomVecs>
is static;
TangentAfter(me ; anitem : Integer) returns Integer
--- Purpose : Create the Reversed Tangent at the origin of the Item
-- defined by <anitem>. Returns the index of this vector in
-- <theGeomVecs>
is static;
Tangent(me ; bisector : Integer ) returns Integer
--- Purpose : Create the Tangent at the end of the bisector defined
-- by <bisector>. Returns the index of this vector in
-- <theGeomVecs>
is static;
CreateBisector(me : in out ; abisector : mutable Bisector from MAT)
--- Purpose : Create the geometric bisector defined by <abisector>.
is static;
TrimBisector(me : in out ;
abisector : mutable Bisector from MAT)
--- Purpose : Trim the geometric bisector by the <firstparameter>
-- of <abisector>.
-- If the parameter is out of the bisector, Return False.
-- else Return True.
returns Boolean is static;
TrimBisector(me : in out ;
abisector : mutable Bisector from MAT ;
apoint : Integer)
--- Purpose : Trim the geometric bisector by the point of index
-- <apoint> in <theGeomPnts>.
-- If the point is out of the bisector, Return False
-- else Return True.
returns Boolean is static;
IntersectBisector(me : in out ;
bisectorone : mutable Bisector from MAT ;
bisectortwo : mutable Bisector from MAT ;
intpnt : in out Integer)
--- Purpose : Computes the point of intesection between the
-- bisectors defined by <bisectorone> and
-- <bisectortwo> .
-- If this point exists, <intpnt> is its index
-- in <theGeomPnts> and Return the distance of the point
-- from the edges separated by the bisectors else
-- Returns <RealLast>.
returns Real is static;
Distance(me;
abisector : Bisector from MAT;
param1 : Real;
param2 : Real)
---Purpose: Returns the distance between the two points designed
-- by their parameters on <abisector>.
returns Real is static;
Dump(me ;
bisector : Integer ;
erease : Integer)
--- Purpose : display informations about the bisector defined by
-- <bisector>.
is static;
end Tool;
|
