-- Created on: 1998-01-22 -- Created by: Sergey ZARITCHNY -- Copyright (c) 1998-1999 Matra Datavision -- Copyright (c) 1999-2012 OPEN CASCADE SAS -- -- The content of this file is subject to the Open CASCADE Technology Public -- License Version 6.5 (the "License"). You may not use the content of this file -- except in compliance with the License. Please obtain a copy of the License -- at http://www.opencascade.org and read it completely before using this file. -- -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France. -- -- The Original Code and all software distributed under the License is -- distributed on an "AS IS" basis, without warranty of any kind, and the -- Initial Developer hereby disclaims all such warranties, including without -- limitation, any warranties of merchantability, fitness for a particular -- purpose or non-infringement. Please see the License for the specific terms -- and conditions governing the rights and limitations under the License. class MaxRadiusDimension from AIS inherits EllipseRadiusDimension from AIS ---Purpose: -- Ellipse Max radius dimension of a Shape which can be Edge -- or Face (planar or cylindrical(surface of extrusion or -- surface of offset)) uses Shape from TopoDS, Elips from gp, Pnt from gp, Pln from gp, Ellipse from Geom, OffsetCurve from Geom, Plane from Geom, Surface from Geom, Presentation from Prs3d, PresentationManager3d from PrsMgr, Selection from SelectMgr, Projector from Prs3d, Transformation from Geom, ExtendedString from TCollection, ArrowSide from DsgPrs, KindOfSurface from AIS, KindOfDimension from AIS raises ConstructionError from Standard is Create (aShape : Shape from TopoDS; aVal : Real from Standard; aText : ExtendedString from TCollection) ---Purpose: Max Ellipse radius dimension -- Shape can be edge , planar face or cylindrical face -- returns mutable MaxRadiusDimension from AIS; Create (aShape : Shape from TopoDS; aVal : Real from Standard; aText : ExtendedString from TCollection; aPosition : Pnt from gp; aSymbolPrs : ArrowSide from DsgPrs; anArrowSize : Real from Standard = 0.0) ---Purpose: Max Ellipse radius dimension with position -- Shape can be edge , planar face or cylindrical face -- returns mutable MaxRadiusDimension from AIS; -- Methods from PresentableObject Compute(me : mutable; aPresentationManager: PresentationManager3d from PrsMgr; aPresentation : mutable Presentation from Prs3d; aMode : Integer from Standard= 0) is redefined private; Compute(me:mutable; aProjector: Projector from Prs3d; aPresentation: mutable Presentation from Prs3d) is redefined static private; Compute(me : mutable; aProjector : Projector from Prs3d; aTrsf : Transformation from Geom; aPresentation : mutable Presentation from Prs3d) is redefined; ---Purpose: computes the presentation according to a point of view -- given by . -- To be Used when the associated degenerated Presentations -- have been transformed by which is not a Pure -- Translation. The HLR Prs can't be deducted automatically -- WARNING : must be applied -- to the object to display before computation !!! -- Methods from SelectableObject ComputeSelection(me : mutable; aSelection : mutable Selection from SelectMgr; aMode : Integer from Standard) is redefined private; -- -- Computation private methods -- ComputeEllipse(me: mutable; aPresentation : mutable Presentation from Prs3d) is private; ComputeArcOfEllipse(me: mutable; aPresentation : mutable Presentation from Prs3d ) is private; fields myApexP : Pnt from gp; myApexN : Pnt from gp; myEndOfArrow : Pnt from gp; end MaxRadiusDimension;