src/Convert/Convert_ConeToBSplineSurface.cdl

   1 -- File:         ConeToBSplineSurface.cdl
   2 -- Created:      Thu Oct 10 15:39:30 1991
   3 -- Author:       Jean Claude VAUTHIER
   4 ---Copyright:    Matra Datavision 1991, 1992
   5
   6 class ConeToBSplineSurface  from Convert
   7
   8         --- Purpose :
   9         --  This algorithm converts a bounded Cone into a rational
  10         --  B-spline  surface.
  11         --  The cone a Cone from package gp. Its parametrization is :
  12         --  P (U, V) =  Loc + V * Zdir +
  13         --              (R + V*Tan(Ang)) * (Cos(U)*Xdir + Sin(U)*Ydir)
  14         --  where Loc is the location point of the cone, Xdir, Ydir and Zdir
  15         --  are the normalized directions of the local cartesian coordinate
  16         --  system of the cone (Zdir is the direction of the Cone's axis) ,
  17         --  Ang is the cone semi-angle.  The U parametrization range is
  18         --  [0, 2PI].
  19         --- KeyWords :
  20         --  Convert, Cone, BSplineSurface.
  21
  22 inherits ElementarySurfaceToBSplineSurface
  23
  24 uses Cone from gp
  25
  26 raises DomainError from Standard
  27
  28 is
  29
  30   Create (C : Cone; U1, U2, V1, V2 : Real)  returns ConeToBSplineSurface
  31        --- Purpose :
  32        --  The equivalent B-spline surface as the same orientation as the
  33        --  Cone in the U and V parametric directions.
  34      raises DomainError;
  35         --- Purpose :
  36         --  Raised if U1 = U2 or U1 = U2 + 2.0 * Pi
  37         --  Raised if V1 = V2.
  38
  39
  40   Create (C : Cone; V1, V2 : Real)          returns ConeToBSplineSurface
  41        --- Purpose :
  42        --  The equivalent B-spline surface as the same orientation as the
  43        --  Cone in the U and V parametric directions.
  44      raises DomainError;
  45         --- Purpose :
  46         --  Raised if V1 = V2.
  47
  48
  49
  50 end ConeToBSplineSurface;
  51
  52
  53