blob: db51844981f61b5a64fb71e827fac6f2054e77a4 (
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
|
-- File: DsgPrs_ParalPresentation.cdl
-- Created: Tue Nov 28 10:13:06 1995
-- Author: Jean-Pierre COMBE
-- <jpi@pdalon>
---Copyright: Matra Datavision 1995
class ParalPresentation from DsgPrs
---Purpose: A framework to define display of relations of parallelism between shapes.
uses
Presentation from Prs3d,
Pnt from gp,
Dir from gp,
Drawer from Prs3d,
ArrowSide from DsgPrs,
ExtendedString from TCollection
is
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer: Drawer from Prs3d;
aText: ExtendedString from TCollection;
AttachmentPoint1: Pnt from gp;
AttachmentPoint2: Pnt from gp;
aDirection: Dir from gp;
OffsetPoint: Pnt from gp);
---Purpose: Defines the display of elements showing relations of
-- parallelism between shapes.
-- These include the two points of attachment
-- AttachmentPoint1 and AttachmentPoint1, the
-- direction aDirection, and the offset point OffsetPoint.
-- These arguments are added to the presentation
-- object aPresentation. Their display attributes are
-- defined by the attribute manager aDrawer.
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer: Drawer from Prs3d;
aText: ExtendedString from TCollection;
AttachmentPoint1: Pnt from gp;
AttachmentPoint2: Pnt from gp;
aDirection: Dir from gp;
OffsetPoint: Pnt from gp;
ArrowSide: ArrowSide from DsgPrs);
---Purpose: Defines the display of elements showing relations of
-- parallelism between shapes.
-- These include the two points of attachment
-- AttachmentPoint1 and AttachmentPoint1, the
-- direction aDirection, the offset point OffsetPoint and
-- the text aText.
-- These arguments are added to the presentation
-- object aPresentation. Their display attributes are
-- defined by the attribute manager aDrawer.
end ParalPresentation;
|
