src/ChFiDS/ChFiDS_Regul.cdl

   1 -- Created on: 1995-03-21
   2 -- Created by: Laurent BOURESCHE
   3 -- Copyright (c) 1995-1999 Matra Datavision
   4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
   5 --
   6 -- This file is part of Open CASCADE Technology software library.
   7 --
   8 -- This library is free software; you can redistribute it and/or modify it under
   9 -- the terms of the GNU Lesser General Public License version 2.1 as published
  10 -- by the Free Software Foundation, with special exception defined in the file
  11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  12 -- distribution for complete text of the license and disclaimer of any warranty.
  13 --
  14 -- Alternatively, this file may be used under the terms of Open CASCADE
  15 -- commercial license or contractual agreement.
  16
  17 class Regul from ChFiDS
  18
  19         ---Purpose: Storage of  a curve  and its 2 faces or surfaces of  support.
  20
  21 is
  22
  23     Create returns Regul from ChFiDS;
  24
  25     SetCurve(me : in out; IC : Integer from Standard)
  26     is static;
  27
  28     SetS1(me     : in out;
  29           IS1    : Integer from Standard;
  30           IsFace : Boolean from Standard = Standard_True)
  31     is static;
  32
  33     SetS2(me     : in out;
  34           IS2    : Integer from Standard;
  35           IsFace : Boolean from Standard = Standard_True)
  36     is static;
  37
  38     IsSurface1(me) returns Boolean from Standard is static;
  39
  40     IsSurface2(me) returns Boolean from Standard is static;
  41
  42     Curve(me) returns Integer from Standard is static;
  43
  44     S1(me) returns Integer from Standard is static;
  45
  46     S2(me) returns Integer from Standard is static;
  47
  48 fields
  49
  50     icurv : Integer from Standard;
  51     is1   : Integer from Standard;
  52     is2   : Integer from Standard;
  53
  54 end Regul;