src/StepShape/StepShape_Subedge.cdl

   1 -- Created on: 2002-01-04
   2 -- Created by: data exchange team
   3 -- Copyright (c) 2002-2014 OPEN CASCADE SAS
   4 --
   5 -- This file is part of Open CASCADE Technology software library.
   6 --
   7 -- This library is free software; you can redistribute it and/or modify it under
   8 -- the terms of the GNU Lesser General Public License version 2.1 as published
   9 -- by the Free Software Foundation, with special exception defined in the file
  10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  11 -- distribution for complete text of the license and disclaimer of any warranty.
  12 --
  13 -- Alternatively, this file may be used under the terms of Open CASCADE
  14 -- commercial license or contractual agreement.
  15
  16 -- Generator:   ExpToCas (EXPRESS -> CASCADE/XSTEP Translator) V1.1
  17
  18 class Subedge from StepShape
  19 inherits Edge from StepShape
  20
  21     ---Purpose: Representation of STEP entity Subedge
  22
  23 uses
  24     HAsciiString from TCollection,
  25     Vertex from StepShape,
  26     Edge from StepShape
  27
  28 is
  29     Create returns Subedge from StepShape;
  30         ---Purpose: Empty constructor
  31
  32     Init (me: mutable; aRepresentationItem_Name: HAsciiString from TCollection;
  33                        aEdge_EdgeStart: Vertex from StepShape;
  34                        aEdge_EdgeEnd: Vertex from StepShape;
  35                        aParentEdge: Edge from StepShape);
  36         ---Purpose: Initialize all fields (own and inherited)
  37
  38     ParentEdge (me) returns Edge from StepShape;
  39         ---Purpose: Returns field ParentEdge
  40     SetParentEdge (me: mutable; ParentEdge: Edge from StepShape);
  41         ---Purpose: Set field ParentEdge
  42
  43 fields
  44     theParentEdge: Edge from StepShape;
  45
  46 end Subedge;