-// Copyright (C) 2007-2008 CEA/DEN, EDF R&D, OPEN CASCADE
+// Copyright (C) 2007-2010 CEA/DEN, EDF R&D, OPEN CASCADE
//
// Copyright (C) 2003-2007 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
// CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
//
// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
//
+
#include <Standard_Stream.hxx>
#include <GEOMImpl_SphereDriver.hxx>
TopoDS_Shape aShape;
+ char aMsg[] = "Sphere creation aborted: radius value less than 1e-07 is not acceptable";
+
if (aType == SPHERE_R) {
- aShape = BRepPrimAPI_MakeSphere(aCI.GetR()).Shape();
+ double anR = aCI.GetR();
+ if (anR < Precision::Confusion())
+ Standard_ConstructionError::Raise(aMsg);
+
+ aShape = BRepPrimAPI_MakeSphere(anR).Shape();
}
else if (aType == SPHERE_PNT_R) {
+ double anR = aCI.GetR();
+ if (anR < Precision::Confusion())
+ Standard_ConstructionError::Raise(aMsg);
+
Handle(GEOM_Function) aRefPoint = aCI.GetPoint();
TopoDS_Shape aShapePnt = aRefPoint->GetValue();
- if (aShapePnt.ShapeType() == TopAbs_VERTEX) {
- gp_Pnt aP = BRep_Tool::Pnt(TopoDS::Vertex(aShapePnt));
- aShape = BRepPrimAPI_MakeSphere(aP, aCI.GetR()).Shape();
- }
+ if (aShapePnt.ShapeType() != TopAbs_VERTEX)
+ Standard_ConstructionError::Raise("Invalid shape given for sphere center: it must be a point");
+ gp_Pnt aP = BRep_Tool::Pnt(TopoDS::Vertex(aShapePnt));
+
+ aShape = BRepPrimAPI_MakeSphere(aP, anR).Shape();
}
else {
}
static Handle_Standard_Transient _Ancestors[]= {aType1,aType2,aType3,NULL};
static Handle_Standard_Type _aType = new Standard_Type("GEOMImpl_SphereDriver",
- sizeof(GEOMImpl_SphereDriver),
- 1,
- (Standard_Address)_Ancestors,
- (Standard_Address)NULL);
+ sizeof(GEOMImpl_SphereDriver),
+ 1,
+ (Standard_Address)_Ancestors,
+ (Standard_Address)NULL);
return _aType;
}