blob: 586413a48058ef4a8039d2f8ea945e5470aa5685 (
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
|
-- File: AdvApprox_PrefCutting.cdl
-- Created: Fri Apr 5 17:15:04 1996
-- Author: Joelle CHAUVET
-- <jct@sgi38>
---Copyright: Matra Datavision 1996
--
---Purpose :
-- inherits class Cutting; contains a list of preferential points (di)i
-- if Cutting is necessary in [a,b], we cut at the di nearest from (a+b)/2.
class PrefCutting from AdvApprox inherits Cutting from AdvApprox
uses Array1OfReal from TColStd
is
Create(CutPnts : Array1OfReal) returns PrefCutting;
Value(me; a,b : Real;
cuttingvalue : out Real)
returns Boolean
is redefined;
fields
myPntOfCutting : Array1OfReal from TColStd;
end PrefCutting;
|