[occt.git] / src / GeomToStep / GeomToStep_MakeEllipse_gen.pxx

// Created on: 1994-09-02
// Created by: Frederic MAUPAS
// Copyright (c) 1994-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

Handle(StepGeom_Ellipse) EStep = new StepGeom_Ellipse;
  StepGeom_Axis2Placement Ax2;
  Handle(StepGeom_Axis2Placement3d) Ax2Step;
  Standard_Real majorR, minorR;
  
  GeomToStep_MakeAxis2Placement3d MkAxis2(E.Position());
  Ax2Step = MkAxis2.Value();
  majorR = E.MajorRadius();
  minorR = E.MinorRadius();
  Ax2.SetValue(Ax2Step);
  Handle(TCollection_HAsciiString) name = new TCollection_HAsciiString("");
  Standard_Real fact = UnitsMethods::LengthFactor();
  EStep->Init(name, Ax2,majorR/fact,minorR/fact);
  theEllipse = EStep;
  done = Standard_True;
Commit	Line	Data
b311480e	1	// Created on: 1994-09-02
	2	// Created by: Frederic MAUPAS
	3	// Copyright (c) 1994-1999 Matra Datavision
973c2be1	4	// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e	5	//
973c2be1	6	// This file is part of Open CASCADE Technology software library.
b311480e	7	//
d5f74e42	8	// This library is free software; you can redistribute it and/or modify it under
d5f74e42	9	// the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1	10	// by the Free Software Foundation, with special exception defined in the file
	11	// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
	12	// distribution for complete text of the license and disclaimer of any warranty.
b311480e	13	//
973c2be1	14	// Alternatively, this file may be used under the terms of Open CASCADE
973c2be1	15	// commercial license or contractual agreement.
b311480e	16
b311480e	17	Handle(StepGeom_Ellipse) EStep = new StepGeom_Ellipse;
7fd59977	18	StepGeom_Axis2Placement Ax2;
	19	Handle(StepGeom_Axis2Placement3d) Ax2Step;
	20	Standard_Real majorR, minorR;
	21
	22	GeomToStep_MakeAxis2Placement3d MkAxis2(E.Position());
	23	Ax2Step = MkAxis2.Value();
	24	majorR = E.MajorRadius();
	25	minorR = E.MinorRadius();
	26	Ax2.SetValue(Ax2Step);
	27	Handle(TCollection_HAsciiString) name = new TCollection_HAsciiString("");
	28	Standard_Real fact = UnitsMethods::LengthFactor();
	29	EStep->Init(name, Ax2,majorR/fact,minorR/fact);
	30	theEllipse = EStep;
	31	done = Standard_True;
	32