1 -- Created on: 2000-10-20
2 -- Created by: Julia DOROVSKIKH
3 -- Copyright (c) 2000-2012 OPEN CASCADE SAS
5 -- The content of this file is subject to the Open CASCADE Technology Public
6 -- License Version 6.5 (the "License"). You may not use the content of this file
7 -- except in compliance with the License. Please obtain a copy of the License
8 -- at http://www.opencascade.org and read it completely before using this file.
10 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
11 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13 -- The Original Code and all software distributed under the License is
14 -- distributed on an "AS IS" basis, without warranty of any kind, and the
15 -- Initial Developer hereby disclaims all such warranties, including without
16 -- limitation, any warranties of merchantability, fitness for a particular
17 -- purpose or non-infringement. Please see the License for the specific terms
18 -- and conditions governing the rights and limitations under the License.
21 class MidPointPresentation from DsgPrs
24 Presentation from Prs3d,
33 Add( myclass; aPresentation: Presentation from Prs3d;
34 aDrawer : Drawer from Prs3d;
36 MidPoint : Pnt from gp;
37 Position : Pnt from gp;
38 AttachPoint : Pnt from gp;
39 first : Boolean from Standard);
40 ---Purpose: draws the representation of a MidPoint between
43 Add( myclass; aPresentation: Presentation from Prs3d;
44 aDrawer : Drawer from Prs3d;
46 MidPoint : Pnt from gp;
47 Position : Pnt from gp;
48 AttachPoint : Pnt from gp;
51 first : Boolean from Standard);
52 ---Purpose: draws the representation of a MidPoint between
53 -- two lines or linear segments.
55 Add( myclass; aPresentation: Presentation from Prs3d;
56 aDrawer : Drawer from Prs3d;
57 aCircle : Circ from gp;
58 MidPoint : Pnt from gp;
59 Position : Pnt from gp;
60 AttachPoint : Pnt from gp;
63 first : Boolean from Standard);
64 ---Purpose: draws the representation of a MidPoint between
65 -- two entire circles or two circular arcs.
67 Add( myclass; aPresentation: Presentation from Prs3d;
68 aDrawer : Drawer from Prs3d;
69 anElips : Elips from gp;
70 MidPoint : Pnt from gp;
71 Position : Pnt from gp;
72 AttachPoint : Pnt from gp;
75 first : Boolean from Standard);
76 ---Purpose: draws the representation of a MidPoint between
77 -- two entire ellipses or two elliptic arcs.
79 end MidPointPresentation;