src/IGESBasic/IGESBasic_Hierarchy.cdl

   1 --
   2 -- File      :  Hierarchy.cdl
   3 -- Created   :  Sat 9 Jan 1993
   4 -- Author    : CKY / Contract Toubro-Larsen ( Arun MENON )
   5 --
   6 ---Copyright : MATRA-DATAVISION  1993
   7 --
   8
   9 class Hierarchy from IGESBasic  inherits IGESEntity
  10
  11         ---Purpose: defines Hierarchy, Type <406> Form <10>
  12         --          in package IGESBasic
  13         --          Provides ability to control the hierarchy of each
  14         --          directory entry attribute.
  15
  16 uses  Integer  -- no one specific type
  17
  18 is
  19
  20         Create returns mutable Hierarchy;
  21
  22         -- Specific Methods pertaining to the class
  23
  24         Init (me            : mutable;
  25               nbPropVal     : Integer;
  26               aLineFont     : Integer;
  27               aView         : Integer;
  28               anEntityLevel : Integer;
  29               aBlankStatus  : Integer;
  30               aLineWt       : Integer;
  31               aColorNum     : Integer);
  32         ---Purpose : This method is used to set the fields of the class
  33         --           Hierarchy
  34         --       - nbPropVal     : Number of Property values = 6
  35         --       - aLineFont     : indicates the line font
  36         --       - aView         : indicates the view
  37         --       - aEntityLevel  : indicates the entity level
  38         --       - aBlankStatus  : indicates the blank status
  39         --       - aLineWt       : indicates the line weight
  40         --       - aColorNum     : indicates the color num
  41         -- aLineFont, aView, aEntityLevel, aBlankStatus, aLineWt and
  42         -- aColorNum can take 0 or 1.
  43         -- 0 : The directory entry attribute will apply to entities
  44         -- physically subordinate to this entity.
  45         -- 1 : The directory entry attribute of this entity will not
  46         -- apply to physically subordinate entities.
  47
  48         NbPropertyValues (me)  returns Integer;
  49         ---Purpose : returns the number of property values, which should be 6
  50
  51         NewLineFont (me) returns Integer;
  52         ---Purpose : returns the line font
  53
  54         NewView (me) returns Integer;
  55         ---Purpose : returns the view
  56
  57         NewEntityLevel (me) returns Integer;
  58         ---Purpose : returns the entity level
  59
  60         NewBlankStatus (me) returns Integer;
  61         ---Purpose : returns the blank status
  62
  63         NewLineWeight (me) returns Integer;
  64         ---Purpose : returns the line weight
  65
  66         NewColorNum (me) returns Integer;
  67         ---Purpose : returns the color number
  68
  69 fields
  70
  71 --
  72 -- Class    : IGESBasic_Hierarchy
  73 --
  74 -- Purpose  : Declaration of variables specific to the definition
  75 --            of the Class Hierarchy.
  76 --
  77 -- Reminder : A Hierarchy instance is defined by :
  78 --            - the line font, view, entity level, blank status, line wt
  79 --              and the color number
  80
  81         theNbPropertyValues : Integer;
  82         theLineFont         : Integer;
  83         theView             : Integer;
  84         theEntityLevel      : Integer;
  85         theBlankStatus      : Integer;
  86         theLineWeight       : Integer;
  87         theColorNum         : Integer;
  88
  89 end Hierarchy;