1 -- Created on: 1995-11-28
2 -- Created by: Jean-Pierre COMBE
3 -- Copyright (c) 1995-1999 Matra Datavision
4 -- Copyright (c) 1999-2012 OPEN CASCADE SAS
6 -- The content of this file is subject to the Open CASCADE Technology Public
7 -- License Version 6.5 (the "License"). You may not use the content of this file
8 -- except in compliance with the License. Please obtain a copy of the License
9 -- at http://www.opencascade.org and read it completely before using this file.
11 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
14 -- The Original Code and all software distributed under the License is
15 -- distributed on an "AS IS" basis, without warranty of any kind, and the
16 -- Initial Developer hereby disclaims all such warranties, including without
17 -- limitation, any warranties of merchantability, fitness for a particular
18 -- purpose or non-infringement. Please see the License for the specific terms
19 -- and conditions governing the rights and limitations under the License.
22 class ParalPresentation from DsgPrs
23 ---Purpose: A framework to define display of relations of parallelism between shapes.
25 Presentation from Prs3d,
29 ArrowSide from DsgPrs,
30 ExtendedString from TCollection
33 Add( myclass; aPresentation: Presentation from Prs3d;
34 aDrawer: Drawer from Prs3d;
35 aText: ExtendedString from TCollection;
36 AttachmentPoint1: Pnt from gp;
37 AttachmentPoint2: Pnt from gp;
38 aDirection: Dir from gp;
39 OffsetPoint: Pnt from gp);
40 ---Purpose: Defines the display of elements showing relations of
41 -- parallelism between shapes.
42 -- These include the two points of attachment
43 -- AttachmentPoint1 and AttachmentPoint1, the
44 -- direction aDirection, and the offset point OffsetPoint.
45 -- These arguments are added to the presentation
46 -- object aPresentation. Their display attributes are
47 -- defined by the attribute manager aDrawer.
49 Add( myclass; aPresentation: Presentation from Prs3d;
50 aDrawer: Drawer from Prs3d;
51 aText: ExtendedString from TCollection;
52 AttachmentPoint1: Pnt from gp;
53 AttachmentPoint2: Pnt from gp;
54 aDirection: Dir from gp;
55 OffsetPoint: Pnt from gp;
56 ArrowSide: ArrowSide from DsgPrs);
57 ---Purpose: Defines the display of elements showing relations of
58 -- parallelism between shapes.
59 -- These include the two points of attachment
60 -- AttachmentPoint1 and AttachmentPoint1, the
61 -- direction aDirection, the offset point OffsetPoint and
63 -- These arguments are added to the presentation
64 -- object aPresentation. Their display attributes are
65 -- defined by the attribute manager aDrawer.
67 end ParalPresentation;