mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-26 10:19:45 +03:00
6e33d3ced2
Redundant keyword 'mutable' removed in CDL files. In IGESConvGeom_GeomBuilder, unused methods MakeXY() and MakeXYZ() removed. Method StepAP214_AutoDesignGroupAssignment::Init() replicating same method of the base class is removed as it causes CDL extraction error after above (seemingly irrelevant) changes.
98 lines
3.5 KiB
Plaintext
98 lines
3.5 KiB
Plaintext
-- Created on: 1993-01-09
|
|
-- Created by: CKY / Contract Toubro-Larsen ( Arun MENON )
|
|
-- Copyright (c) 1993-1999 Matra Datavision
|
|
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
|
|
--
|
|
-- This file is part of Open CASCADE Technology software library.
|
|
--
|
|
-- This library is free software; you can redistribute it and/or modify it under
|
|
-- the terms of the GNU Lesser General Public License version 2.1 as published
|
|
-- by the Free Software Foundation, with special exception defined in the file
|
|
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
|
|
-- distribution for complete text of the license and disclaimer of any warranty.
|
|
--
|
|
-- Alternatively, this file may be used under the terms of Open CASCADE
|
|
-- commercial license or contractual agreement.
|
|
|
|
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 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;
|