src/IntPatch/IntPatch_PolyArc.cdl

   1 -- Created on: 1993-01-27
   2 -- Created by: Isabelle GRIGNON
   3 -- Copyright (c) 1993-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
   9 -- under the terms of the GNU Lesser General Public 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 PolyArc from IntPatch
  18
  19 inherits Polygo from IntPatch
  20
  21 uses Box2d         from Bnd,
  22      Pnt2d         from gp,
  23      Array1OfPnt2d from TColgp,
  24      Array1OfReal  from TColStd,
  25      HCurve2d from Adaptor2d
  26
  27 raises ConstructionError from Standard
  28
  29 is
  30
  31     Create(A: HCurve2d from Adaptor2d; NbSample: Integer from Standard;
  32            Pfirst,Plast : Real from Standard;
  33            BoxOtherPolygon: Box2d from Bnd)
  34
  35         ---Purpose: Creates the polygon of the arc A on the surface S.
  36         --          The arc is limited by the parameters Pfirst and Plast.
  37         --          None of these parameters can be infinite.
  38
  39         returns PolyArc from IntPatch
  40
  41         raises ConstructionError from Standard;
  42         --- This exception is raised if Pfirst=RealFirst or Plast=RealLast or
  43         --  NbSample<=1.
  44
  45     Closed(me)                   returns Boolean from Standard is redefined virtual;
  46
  47     NbPoints(me)                 returns Integer;
  48
  49     Point(me; Index : Integer)   returns Pnt2d from gp;
  50
  51     Parameter(me ; Index : Integer) returns Real from Standard;
  52
  53     SetOffset(me:in out;  OffsetX,OffsetY: Real from Standard);
  54
  55
  56 fields
  57
  58     brise  : Array1OfPnt2d from TColgp;
  59     param  : Array1OfReal  from TColStd;
  60     offsetx: Real          from Standard;
  61     offsety: Real          from Standard;
  62     ferme  : Boolean       from Standard;
  63
  64 end PolyArc;