1 -- Created on: 1995-03-01
2 -- Created by: Arnaud BOUZY
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 RadiusPresentation from DsgPrs
23 ---Purpose: A framework to define display of radii.
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 AttachmentPoint : Pnt from gp;
37 aCircle : Circ from gp;
40 drawFromCenter : Boolean = Standard_True;
41 reverseArrow : Boolean = Standard_False);
42 ---Purpose: Adds the point AttachmentPoint, the circle aCircle,
43 -- the text aText, and the parameters firstparam and
44 -- lastparam to the presentation object aPresentation.
45 -- The display attributes of these elements is defined by
46 -- the attribute manager aDrawer.
47 -- If the Boolean drawFromCenter is false, the
48 -- arrowhead will point towards the center of aCircle.
49 -- If the Boolean reverseArrow is true, the arrowhead
50 -- will point away from the attachment point.
52 Add( myclass; aPresentation: Presentation from Prs3d;
53 aDrawer: Drawer from Prs3d;
54 aText: ExtendedString from TCollection;
55 AttachmentPoint : Pnt from gp;
56 aCircle : Circ from gp;
59 ArrowSide: ArrowSide from DsgPrs;
60 drawFromCenter : Boolean = Standard_True;
61 reverseArrow : Boolean = Standard_False);
62 ---Purpose: Adds the point AttachmentPoint, the circle aCircle,
63 -- the text aText, and the parameters firstparam and
64 -- lastparam to the presentation object aPresentation.
65 -- The display attributes of these elements is defined by
66 -- the attribute manager aDrawer.
67 -- The value of the enumeration Arrowside determines
68 -- the type of arrow displayed: whether there will be
69 -- arrowheads at both ends or only one, for example.
70 -- If the Boolean drawFromCenter is false, the
71 -- arrowhead will point towards the center of aCircle.
72 -- If the Boolean reverseArrow is true, the arrowhead
73 -- will point away from the attachment point.
75 Add( myclass; aPresentation: Presentation from Prs3d;
76 aDrawer: Drawer from Prs3d;
77 aText: ExtendedString from TCollection;
78 AttachmentPoint : Pnt from gp;
80 EndOfArrow : Pnt from gp;
81 ArrowSide: ArrowSide from DsgPrs;
82 drawFromCenter : Boolean = Standard_True;
83 reverseArrow : Boolean = Standard_False);
84 ---Purpose: Adds the circle aCircle, the text aText, the points
85 -- AttachmentPoint, Center and EndOfArrow to the
86 -- presentation object aPresentation.
87 -- The display attributes of these elements is defined by
88 -- the attribute manager aDrawer.
89 -- The value of the enumeration Arrowside determines
90 -- the type of arrow displayed: whether there will be
91 -- arrowheads at both ends or only one, for example.
92 -- If the Boolean drawFromCenter is false, the
93 -- arrowhead will point towards the center of aCircle.
94 -- If the Boolean reverseArrow is true, the arrowhead
95 -- will point away from the attachment point.
98 end RadiusPresentation;