src/GeomToStep/GeomToStep_MakePolyline_gen.pxx


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

// File:	GeomToStep_MakePolyline_gen.gxx
// Created:	Mon Jul 12 17:37:27 1993
// Author:	Martine LANGLOIS
//		<mla@mastox>

  Standard_Integer                             N, i;
  Handle(StepGeom_HArray1OfCartesianPoint) aPoints;
  Handle(StepGeom_CartesianPoint)          P2;

  N = P.Length();
  aPoints = new StepGeom_HArray1OfCartesianPoint(1,N);
  for (i=P.Lower(); i<=P.Upper(); i++) {
    P1 = P.Value(i);
    GeomToStep_MakeCartesianPoint MkPoint(P1);
    P2 = MkPoint.Value();
    aPoints->SetValue(i,P2);
  }
  thePolyline = new StepGeom_Polyline;
  Handle(TCollection_HAsciiString) name = new TCollection_HAsciiString("");
  thePolyline->Init(name, aPoints);
  done = Standard_True;