0023948: Wrong intersection between a surface of revolution and a plane.
[occt.git] / src / Vrml / Vrml_Scale.cxx
CommitLineData
973c2be1 1// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 2//
973c2be1 3// This file is part of Open CASCADE Technology software library.
b311480e 4//
d5f74e42 5// This library is free software; you can redistribute it and/or modify it under
6// the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1 7// by the Free Software Foundation, with special exception defined in the file
8// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9// distribution for complete text of the license and disclaimer of any warranty.
b311480e 10//
973c2be1 11// Alternatively, this file may be used under the terms of Open CASCADE
12// commercial license or contractual agreement.
b311480e 13
7fd59977 14#include <Vrml_Scale.ixx>
15
16Vrml_Scale::Vrml_Scale()
17{
18 gp_Vec tmpV(1,1,1);
19 myScaleFactor = tmpV;
20}
21
22Vrml_Scale::Vrml_Scale(const gp_Vec& aScaleFactor)
23{
24 myScaleFactor = aScaleFactor;
25}
26
27 void Vrml_Scale::SetScaleFactor(const gp_Vec& aScaleFactor)
28{
29 myScaleFactor = aScaleFactor;
30}
31
32 gp_Vec Vrml_Scale::ScaleFactor() const
33{
34 return myScaleFactor;
35}
36
37 Standard_OStream& Vrml_Scale::Print(Standard_OStream& anOStream) const
38{
39 anOStream << "Scale {" << endl;
40
41 if ( Abs(myScaleFactor.X() - 1) > 0.0001 ||
42 Abs(myScaleFactor.Y() - 1) > 0.0001 ||
43 Abs(myScaleFactor.Z() - 1) > 0.0001 )
44 {
45 anOStream << " scaleFactor" << '\t';
46 anOStream << myScaleFactor.X() << ' ' << myScaleFactor.Y() << ' ' << myScaleFactor.Z() << endl;
47 }
48
49 anOStream << '}' << endl;
50 return anOStream;
51}