1 -- File: GProp_SelGProps.cdl
2 -- Created: Wed Dec 2 15:46:16 1992
3 -- Author: Isabelle GRIGNON
5 ---Copyright: Matra Datavision 1992
8 class SelGProps from GProp inherits GProps
11 -- Computes the global properties of an elementary
12 -- surface (surface of the gp package)
14 uses Cylinder from gp,
22 Create returns SelGProps;
24 Create (S : Cylinder; Alpha1, Alpha2, Z1, Z2 : Real; SLocation : Pnt)
28 Create (S : Cone; Alpha1, Alpha2, Z1, Z2 : Real; SLocation : Pnt)
32 Create (S : Sphere from gp; Teta1, Teta2, Alpha1, Alpha2 : Real;
37 Create (S : Torus from gp; Teta1, Teta2, Alpha1, Alpha2 : Real;
41 SetLocation(me : in out ;SLocation :Pnt);
43 Perform(me : in out;S : Cylinder; Alpha1, Alpha2, Z1, Z2 : Real);
45 Perform(me : in out;S : Cone; Alpha1, Alpha2, Z1, Z2 : Real);
47 Perform(me : in out;S : Sphere; Teta1, Teta2, Alpha1, Alpha2 : Real);
49 Perform(me : in out;S : Torus; Teta1, Teta2, Alpha1, Alpha2 : Real);