src/GeomToStep/GeomToStep_MakeVector_gen.pxx

   1 // File:        GeomToStep_MakeVector.gxx
   2 // Created:     Tue Jun 22 18:37:37 1993
   3 // Author:      Martine LANGLOIS
   4 //              <mla@mastox>
   5
   6
   7   Handle(StepGeom_Vector) Vect = new StepGeom_Vector;
   8   Handle(StepGeom_Direction) aDirection;
   9   Standard_Real aMagnitude;
  10
  11   GeomToStep_MakeDirection MkDir(D);
  12   aDirection = MkDir.Value();
  13   aMagnitude = V.Magnitude();
  14   Handle(TCollection_HAsciiString) name = new TCollection_HAsciiString("");
  15   Vect->Init(name, aDirection, aMagnitude / lFactor);
  16   theVector = Vect;
  17   done = Standard_True;