src/PGeom/PGeom_SurfaceOfRevolution.cdl

   1 -- Created on: 1993-03-02
   2 -- Created by: Philippe DAUTRY
   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 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 SurfaceOfRevolution from PGeom inherits SweptSurface from PGeom
  18
  19         ---Purpose :  This  class defines    a   complete   surface of
  20         --         revolution.  The surface is  obtained by rotating a
  21         --         curve  a  complete revolution  about an axis.   The
  22         --         curve and the axis must be in the same plane.
  23         --
  24         ---See Also : SurfaceOfRevolution from Geom.
  25
  26 uses Dir         from gp,
  27      Pnt         from gp,
  28      Curve       from PGeom,
  29      SurfaceForm from GeomAbs,
  30      Shape       from GeomAbs
  31
  32 is
  33
  34
  35   Create returns SurfaceOfRevolution from PGeom;
  36         ---Purpose: Creates a SurfaceOfRevolution with default values.
  37         ---Level: Internal
  38
  39
  40   Create (
  41             aBasisCurve : Curve from PGeom;
  42             aDirection  : Dir from gp;
  43             aLocation   : Pnt from gp)
  44      returns SurfaceOfRevolution from PGeom;
  45         ---Purpose: Creates a SurfaceOfRevolution with these values.
  46         ---Level: Internal
  47
  48
  49   Location (me : mutable; aLocation : Pnt from gp);
  50         ---Purpose : Set the value of the field location with <aLocation>.
  51         ---Level: Internal
  52
  53
  54   Location (me) returns Pnt from gp;
  55         ---Purpose : Returns the value of the field location.
  56         ---Level: Internal
  57
  58
  59 fields
  60
  61   location  : Pnt from gp;
  62
  63 end;