mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-01 10:26:12 +03:00
103 lines
3.9 KiB
Plaintext
Executable File
103 lines
3.9 KiB
Plaintext
Executable File
-- Created on: 1993-01-09
|
|
-- Created by: CKY / Contract Toubro-Larsen ( Arun MENON )
|
|
-- 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 Hierarchy from IGESBasic inherits IGESEntity
|
|
|
|
---Purpose: defines Hierarchy, Type <406> Form <10>
|
|
-- in package IGESBasic
|
|
-- Provides ability to control the hierarchy of each
|
|
-- directory entry attribute.
|
|
|
|
uses Integer -- no one specific type
|
|
|
|
is
|
|
|
|
Create returns mutable Hierarchy;
|
|
|
|
-- Specific Methods pertaining to the class
|
|
|
|
Init (me : mutable;
|
|
nbPropVal : Integer;
|
|
aLineFont : Integer;
|
|
aView : Integer;
|
|
anEntityLevel : Integer;
|
|
aBlankStatus : Integer;
|
|
aLineWt : Integer;
|
|
aColorNum : Integer);
|
|
---Purpose : This method is used to set the fields of the class
|
|
-- Hierarchy
|
|
-- - nbPropVal : Number of Property values = 6
|
|
-- - aLineFont : indicates the line font
|
|
-- - aView : indicates the view
|
|
-- - aEntityLevel : indicates the entity level
|
|
-- - aBlankStatus : indicates the blank status
|
|
-- - aLineWt : indicates the line weight
|
|
-- - aColorNum : indicates the color num
|
|
-- aLineFont, aView, aEntityLevel, aBlankStatus, aLineWt and
|
|
-- aColorNum can take 0 or 1.
|
|
-- 0 : The directory entry attribute will apply to entities
|
|
-- physically subordinate to this entity.
|
|
-- 1 : The directory entry attribute of this entity will not
|
|
-- apply to physically subordinate entities.
|
|
|
|
NbPropertyValues (me) returns Integer;
|
|
---Purpose : returns the number of property values, which should be 6
|
|
|
|
NewLineFont (me) returns Integer;
|
|
---Purpose : returns the line font
|
|
|
|
NewView (me) returns Integer;
|
|
---Purpose : returns the view
|
|
|
|
NewEntityLevel (me) returns Integer;
|
|
---Purpose : returns the entity level
|
|
|
|
NewBlankStatus (me) returns Integer;
|
|
---Purpose : returns the blank status
|
|
|
|
NewLineWeight (me) returns Integer;
|
|
---Purpose : returns the line weight
|
|
|
|
NewColorNum (me) returns Integer;
|
|
---Purpose : returns the color number
|
|
|
|
fields
|
|
|
|
--
|
|
-- Class : IGESBasic_Hierarchy
|
|
--
|
|
-- Purpose : Declaration of variables specific to the definition
|
|
-- of the Class Hierarchy.
|
|
--
|
|
-- Reminder : A Hierarchy instance is defined by :
|
|
-- - the line font, view, entity level, blank status, line wt
|
|
-- and the color number
|
|
|
|
theNbPropertyValues : Integer;
|
|
theLineFont : Integer;
|
|
theView : Integer;
|
|
theEntityLevel : Integer;
|
|
theBlankStatus : Integer;
|
|
theLineWeight : Integer;
|
|
theColorNum : Integer;
|
|
|
|
end Hierarchy;
|