mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08:00
145 lines
5.4 KiB
Plaintext
Executable File
145 lines
5.4 KiB
Plaintext
Executable File
-- Created on: 1993-01-11
|
|
-- Created by: CKY / Contract Toubro-Larsen ( Niraj RANGWALA )
|
|
-- Copyright (c) 1993-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 CircArraySubfigure from IGESDraw
|
|
|
|
inherits IGESEntity
|
|
|
|
---Purpose: Defines IGES Circular Array Subfigure Instance Entity,
|
|
-- Type <414> Form Number <0> in package IGESDraw
|
|
--
|
|
-- Used to produce copies of object called the base entity,
|
|
-- arranging them around the edge of an imaginary circle
|
|
-- whose center and radius are specified
|
|
|
|
uses
|
|
|
|
HArray1OfInteger from TColStd,
|
|
XYZ from gp,
|
|
Pnt from gp
|
|
|
|
raises OutOfRange
|
|
|
|
is
|
|
|
|
Create returns mutable CircArraySubfigure;
|
|
|
|
-- Specific Methods pertaining to the class
|
|
|
|
Init (me : mutable;
|
|
aBase : IGESEntity;
|
|
aNumLocs : Integer;
|
|
aCenter : XYZ;
|
|
aRadius : Real;
|
|
aStAngle : Real;
|
|
aDelAngle : Real;
|
|
aFlag : Integer;
|
|
allNumPos : HArray1OfInteger);
|
|
---Purpose : This method is used to set the fields of the class
|
|
-- CircArraySubfigure
|
|
-- - aBase : Base entity
|
|
-- - aNumLocs : Total number of possible instance locations
|
|
-- - aCenter : Coordinates of Center of imaginary circle
|
|
-- - aRadius : Radius of imaginary circle
|
|
-- - aStAngle : Start angle in radians
|
|
-- - aDelAngle : Delta angle in radians
|
|
-- - aFlag : DO-DON'T flag to control which portion to
|
|
-- display
|
|
-- - allNumPos : All position to be or not to be processed
|
|
|
|
BaseEntity (me) returns IGESEntity;
|
|
---Purpose : returns the base entity, copies of which are produced
|
|
|
|
NbLocations (me) returns Integer;
|
|
---Purpose : returns total number of possible instance locations
|
|
|
|
CenterPoint (me) returns Pnt;
|
|
---Purpose : returns the center of the imaginary circle
|
|
|
|
TransformedCenterPoint (me) returns Pnt;
|
|
---Purpose : returns the Transformed center of the imaginary circle
|
|
|
|
CircleRadius (me) returns Real;
|
|
---Purpose : returns the radius of the imaginary circle
|
|
|
|
StartAngle (me) returns Real;
|
|
---Purpose : returns the start angle in radians
|
|
|
|
DeltaAngle (me) returns Real;
|
|
---Purpose : returns the delta angle in radians
|
|
|
|
ListCount (me) returns Integer;
|
|
---Purpose : returns 0 if all elements to be displayed
|
|
|
|
DisplayFlag (me) returns Boolean;
|
|
---Purpose : returns True if (ListCount = 0) all elements are to be displayed
|
|
|
|
DoDontFlag (me) returns Boolean;
|
|
---Purpose : returns 0 if half or fewer of the elements of the array are defined
|
|
-- 1 if half or more of the elements are defined
|
|
|
|
PositionNum (me; Index : Integer) returns Boolean
|
|
raises OutOfRange;
|
|
---Purpose : returns whether Index is to be processed (DO)
|
|
-- or not to be processed(DON'T)
|
|
-- if (ListCount = 0) return theDoDontFlag
|
|
-- raises exception if Index <= 0 or Index > ListCount().
|
|
|
|
ListPosition (me; Index : Integer) returns Integer
|
|
raises OutOfRange;
|
|
---Purpose : returns the Index'th value position
|
|
-- raises exception if Index <= 0 or Index > ListCount().
|
|
|
|
fields
|
|
|
|
--
|
|
-- Class : IGESDraw_CircArraySubfigure
|
|
--
|
|
-- Purpose : Declaration of the variables specific to a CircArraySubfigure.
|
|
--
|
|
-- Reminder : A Circular Array Subfigure Instance is defined by :
|
|
-- - a base entity which is replicated
|
|
-- - total number of possible instance locations
|
|
-- - coordinates of Center of imaginary circle
|
|
-- - radius of imaginary circle
|
|
-- - start angle to govern the location of first instance
|
|
-- - delta angle to govern successive instances' distribution
|
|
-- - a DO-DON'T flag to control which portion to display
|
|
--
|
|
|
|
theBaseEntity : IGESEntity;
|
|
|
|
theNbLocations : Integer;
|
|
|
|
theCenter : XYZ;
|
|
|
|
theRadius : Real;
|
|
|
|
theStartAngle : Real;
|
|
|
|
theDeltaAngle : Real;
|
|
|
|
theDoDontFlag : Integer;
|
|
|
|
thePositions : HArray1OfInteger;
|
|
|
|
end CircArraySubfigure;
|