blob: b568315e5781e40886a2bffda5bf85f4432c225f (
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
|
-- File: BezierCurve2d.cdl
-- Created: Fri May 22 10:45:54 1992
-- Author: Jean Claude VAUTHIER
-- <jcv@sdsun4>
---Copyright: Matra Datavision 1992
class BezierCurve2d
from DrawTrSurf
inherits Curve2d from DrawTrSurf
uses BezierCurve from Geom2d,
Color from Draw,
Display from Draw,
Drawable3D from Draw
is
Create (C : BezierCurve from Geom2d)
--- Purpose :
-- creates a drawable Bezier curve from a Bezier curve of
-- package Geom2d.
returns mutable BezierCurve2d from DrawTrSurf;
Create (C : BezierCurve from Geom2d;
CurvColor, PolesColor : Color from Draw;
ShowPoles : Boolean; Discret : Integer)
returns mutable BezierCurve2d from DrawTrSurf;
DrawOn (me; dis : in out Display from Draw)
is redefined static;
ShowPoles (me : mutable)
is static;
ClearPoles (me : mutable)
is static;
FindPole(me; X,Y : Real; D : Display from Draw; Prec : Real;
Index : in out Integer)
--- Purpose :
-- Returns in <Index> the index of the first pole of the
-- curve projected by the Display <D> at a distance lower
-- than <Prec> from <X,Y>. If no pole is found index is
-- set to 0, else index is always greater than the input
-- value of index.
is static;
SetPolesColor (me : mutable; aColor : Color from Draw)
---C++: inline
is static;
PolesColor (me) returns Color from Draw
---C++: inline
is static;
Copy(me) returns mutable Drawable3D from Draw
---Purpose: For variable copy.
is redefined;
fields
drawPoles : Boolean;
polesLook : Color from Draw;
end BezierCurve2d;
|
