src/GProp/GProp_VelGProps.cdl

   1 -- File:        GProp_VelGProps.cdl
   2 -- Created:     Wed Dec  2 16:14:27 1992
   3 -- Author:      Isabelle GRIGNON
   4 --              <isg@sdsun2>
   5 ---Copyright:    Matra Datavision 1992
   6
   7
   8 class VelGProps from GProp  inherits GProps
   9
  10         --- Purpose :
  11         --  Computes the global properties of a geometric solid
  12         --  (3D closed region of space)
  13         --  The solid can be elementary(definition in the gp package)
  14
  15
  16 uses    Cone     from gp,
  17         Cylinder from gp,
  18         Pnt      from gp,
  19         Sphere   from gp,
  20         Torus    from gp
  21
  22
  23 is
  24
  25
  26   Create returns VelGProps;
  27
  28
  29   Create (S : Cylinder; Alpha1, Alpha2, Z1, Z2 : Real; VLocation : Pnt)
  30      returns VelGProps;
  31
  32
  33   Create (S : Cone; Alpha1, Alpha2, Z1, Z2 : Real; VLocation : Pnt)
  34      returns VelGProps;
  35
  36
  37   Create (S : Sphere; Teta1, Teta2, Alpha1, Alpha2 : Real; VLocation : Pnt)
  38      returns VelGProps;
  39
  40
  41   Create (S : Torus; Teta1, Teta2, Alpha1, Alpha2 : Real; VLocation : Pnt)
  42      returns VelGProps;
  43
  44
  45   SetLocation(me : in out ;VLocation :Pnt);
  46
  47   Perform(me : in out;S : Cylinder; Alpha1, Alpha2, Z1, Z2 : Real);
  48
  49   Perform(me : in out;S : Cone; Alpha1, Alpha2, Z1, Z2 : Real);
  50
  51   Perform(me : in out;S : Sphere; Teta1, Teta2, Alpha1, Alpha2 : Real);
  52
  53   Perform(me : in out;S : Torus; Teta1, Teta2, Alpha1, Alpha2 : Real);
  54
  55 end VelGProps;
  56