blob: a14363983c78bc5a95ab5e7345807aa939ec8f2e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
-- File: SphereToBSplineSurface.cdl
-- Created: Thu Oct 10 15:43:43 1991
-- Author: Jean Claude VAUTHIER
---Copyright: Matra Datavision 1991, 1992
class SphereToBSplineSurface from Convert
--- Purpose :
-- This algorithm converts a bounded Sphere into a rational
-- B-spline surface. The sphere is a Sphere from package gp.
-- The parametrization of the sphere is
-- P (U, V) = Loc + Radius * Sin(V) * Zdir +
-- Radius * Cos(V) * (Cos(U)*Xdir + Sin(U)*Ydir)
-- where Loc is the center of the sphere Xdir, Ydir and Zdir are the
-- normalized directions of the local cartesian coordinate system of
-- the sphere. The parametrization range is U [0, 2PI] and
-- V [-PI/2, PI/2].
--- KeyWords :
-- Convert, Sphere, BSplineSurface.
inherits ElementarySurfaceToBSplineSurface
uses Sphere from gp
raises DomainError from Standard
is
Create (Sph : Sphere; U1, U2, V1, V2 : Real) returns SphereToBSplineSurface
--- Purpose :
-- The equivalent B-spline surface as the same orientation as the
-- sphere in the U and V parametric directions.
raises DomainError;
--- Purpose :
-- Raised if U1 = U2 or U1 = U2 + 2.0 * Pi
-- Raised if V1 = V2.
Create (Sph : Sphere;
Param1, Param2 : Real;
UTrim : Boolean = Standard_True)
returns SphereToBSplineSurface
--- Purpose :
-- The equivalent B-spline surface as the same orientation
-- as the sphere in the U and V parametric directions.
raises DomainError;
--- Purpose :
-- Raised if UTrim = True and Param1 = Param2 or
-- Param1 = Param2 + 2.0 * Pi
-- Raised if UTrim = False and Param1 = Param2
Create (Sph : Sphere) returns SphereToBSplineSurface;
--- Purpose :
-- The equivalent B-spline surface as the same orientation
-- as the sphere in the U and V parametric directions.
end SphereToBSplineSurface;
|
