7fd59977 |
1 | -- File: DsgPrs_IdenticPresentation.cdl |
2 | -- Created: Fri Jan 3 17:58:43 1997 |
3 | -- Author: Stagiaire Flore Lautheanne |
4 | -- <fla@chariox.paris1.matra-dtv.fr> |
5 | ---Copyright: Matra Datavision 1997 |
6 | |
7 | class IdenticPresentation from DsgPrs |
8 | |
9 | ---Purpose: |
10 | |
11 | uses |
12 | |
13 | Presentation from Prs3d, |
14 | Drawer from Prs3d, |
15 | ExtendedString from TCollection, |
16 | Pnt from gp, |
17 | Dir from gp, |
18 | Ax2 from gp, |
19 | Elips from gp -- jfa 10/10/2000 |
20 | |
21 | is |
22 | |
23 | Add( myclass; aPresentation: Presentation from Prs3d; |
24 | aDrawer: Drawer from Prs3d; |
25 | aText: ExtendedString from TCollection; |
26 | aPntAttach : Pnt from gp; |
27 | aPntOffset : Pnt from gp); |
28 | ---Purpose: draws a line between <aPntAttach> and |
29 | -- <aPntOffset>. |
30 | |
31 | |
32 | Add( myclass; aPresentation: Presentation from Prs3d; |
33 | aDrawer: Drawer from Prs3d; |
34 | aText: ExtendedString from TCollection; |
35 | aFAttach : Pnt from gp; |
36 | aSAttach : Pnt from gp; |
37 | aPntOffset : Pnt from gp); |
38 | ---Purpose: draws the 'identic' presentation by |
39 | -- drawing a line between <aFAttach> and |
40 | -- <aSAttach> , and a linkimg segment |
41 | -- between <aPntOffset> and its projection |
42 | -- on the precedent line. |
43 | |
44 | Add( myclass; aPresentation: Presentation from Prs3d; |
45 | aDrawer: Drawer from Prs3d; |
46 | aText: ExtendedString from TCollection; |
47 | aAx2 : Ax2 from gp; |
48 | aCenter : Pnt from gp; |
49 | aFAttach : Pnt from gp; |
50 | aSAttach : Pnt from gp; |
51 | aPntOffset : Pnt from gp); |
52 | ---Purpose: draws the 'identic' presentation in the case of |
53 | -- circles : draws an arc of circle between |
54 | -- <aFAttach> and <aSAttach> of center <aCenter> |
55 | -- and of radius dist(aCenter, aFAttach), and |
56 | -- draws a segment between <aPntOffset> and |
57 | -- its projection on the arc. |
58 | |
59 | -- jfa 16/10/2000 |
60 | Add( myclass; aPresentation: Presentation from Prs3d; |
61 | aDrawer: Drawer from Prs3d; |
62 | aText: ExtendedString from TCollection; |
63 | aAx2 : Ax2 from gp; |
64 | aCenter : Pnt from gp; |
65 | aFAttach : Pnt from gp; |
66 | aSAttach : Pnt from gp; |
67 | aPntOffset : Pnt from gp; |
68 | aPntOnCirc : Pnt from gp); |
69 | ---Purpose: draws the 'identic' presentation in the case of |
70 | -- circles : draws an arc of circle between |
71 | -- <aFAttach> and <aSAttach> of center <aCenter> |
72 | -- and of radius dist(aCenter, aFAttach), and |
73 | -- draws a segment between <aPntOffset> and <aPntOnCirc> |
74 | |
75 | -- jfa 16/10/2000 |
76 | |
77 | -- jfa 10/10/2000 for ellipses identity presentation |
78 | Add( myclass; aPresentation: Presentation from Prs3d; |
79 | aDrawer: Drawer from Prs3d; |
80 | aText: ExtendedString from TCollection; |
81 | anEllipse: Elips from gp; |
82 | aFAttach : Pnt from gp; |
83 | aSAttach : Pnt from gp; |
84 | aPntOffset : Pnt from gp; |
85 | aPntOnElli : Pnt from gp); |
86 | ---Purpose: draws the 'identic' presentation in the case of |
87 | -- ellipses: draws an arc of the anEllipse |
88 | -- between <aFAttach> and <aSAttach> and |
89 | -- draws a segment between <aPntOffset> and <aPntOnElli> |
90 | |
91 | -- jfa 10/10/2000 end |
92 | |
93 | end IdenticPresentation; |
94 | |