blob: 7c5d3a5be7c39ace694e68ff3e9b6a45935170b5 (
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
|
-- File: CylinderToBSplineSurface.cdl
-- Created: Thu Oct 10 15:14:38 1991
-- Author: Jean Claude VAUTHIER
---Copyright: Matra Datavision 1991, 1992
class CylinderToBSplineSurface from Convert
--- Purpose :
-- This algorithm converts a bounded cylinder into a rational
-- B-spline surface. The cylinder is a Cylinder from package gp.
-- The parametrization of the cylinder is :
-- P (U, V) = Loc + V * Zdir + Radius * (Xdir*Cos(U) + Ydir*Sin(U))
-- where Loc is the location point of the cylinder, Xdir, Ydir and
-- Zdir are the normalized directions of the local cartesian
-- coordinate system of the cylinder (Zdir is the direction of the
-- cylinder's axis). The U parametrization range is U [0, 2PI].
--- KeyWords :
-- Convert, Cylinder, BSplineSurface.
inherits ElementarySurfaceToBSplineSurface
uses Cylinder from gp
raises DomainError from Standard
is
Create (Cyl : Cylinder; U1, U2, V1, V2 : Real)
returns CylinderToBSplineSurface
--- Purpose :
-- The equivalent B-splineSurface as the same orientation as the
-- cylinder 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 (Cyl : Cylinder; V1, V2 : Real)
returns CylinderToBSplineSurface
--- Purpose :
-- The equivalent B-splineSurface as the same orientation as the
-- cylinder in the U and V parametric directions.
raises DomainError;
--- Purpose :
-- Raised if V1 = V2.
end CylinderToBSplineSurface;
|
