blob: ff180d02f843fcf9dd6485a94548061992807816 (
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
|
-- File: DsgPrs_IdenticPresentation.cdl
-- Created: Fri Jan 3 17:58:43 1997
-- Author: Stagiaire Flore Lautheanne
-- <fla@chariox.paris1.matra-dtv.fr>
---Copyright: Matra Datavision 1997
class IdenticPresentation from DsgPrs
---Purpose:
uses
Presentation from Prs3d,
Drawer from Prs3d,
ExtendedString from TCollection,
Pnt from gp,
Dir from gp,
Ax2 from gp,
Elips from gp -- jfa 10/10/2000
is
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer: Drawer from Prs3d;
aText: ExtendedString from TCollection;
aPntAttach : Pnt from gp;
aPntOffset : Pnt from gp);
---Purpose: draws a line between <aPntAttach> and
-- <aPntOffset>.
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer: Drawer from Prs3d;
aText: ExtendedString from TCollection;
aFAttach : Pnt from gp;
aSAttach : Pnt from gp;
aPntOffset : Pnt from gp);
---Purpose: draws the 'identic' presentation by
-- drawing a line between <aFAttach> and
-- <aSAttach> , and a linkimg segment
-- between <aPntOffset> and its projection
-- on the precedent line.
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer: Drawer from Prs3d;
aText: ExtendedString from TCollection;
aAx2 : Ax2 from gp;
aCenter : Pnt from gp;
aFAttach : Pnt from gp;
aSAttach : Pnt from gp;
aPntOffset : Pnt from gp);
---Purpose: draws the 'identic' presentation in the case of
-- circles : draws an arc of circle between
-- <aFAttach> and <aSAttach> of center <aCenter>
-- and of radius dist(aCenter, aFAttach), and
-- draws a segment between <aPntOffset> and
-- its projection on the arc.
-- jfa 16/10/2000
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer: Drawer from Prs3d;
aText: ExtendedString from TCollection;
aAx2 : Ax2 from gp;
aCenter : Pnt from gp;
aFAttach : Pnt from gp;
aSAttach : Pnt from gp;
aPntOffset : Pnt from gp;
aPntOnCirc : Pnt from gp);
---Purpose: draws the 'identic' presentation in the case of
-- circles : draws an arc of circle between
-- <aFAttach> and <aSAttach> of center <aCenter>
-- and of radius dist(aCenter, aFAttach), and
-- draws a segment between <aPntOffset> and <aPntOnCirc>
-- jfa 16/10/2000
-- jfa 10/10/2000 for ellipses identity presentation
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer: Drawer from Prs3d;
aText: ExtendedString from TCollection;
anEllipse: Elips from gp;
aFAttach : Pnt from gp;
aSAttach : Pnt from gp;
aPntOffset : Pnt from gp;
aPntOnElli : Pnt from gp);
---Purpose: draws the 'identic' presentation in the case of
-- ellipses: draws an arc of the anEllipse
-- between <aFAttach> and <aSAttach> and
-- draws a segment between <aPntOffset> and <aPntOnElli>
-- jfa 10/10/2000 end
end IdenticPresentation;
|
