// SPDX-License-Identifier: LGPL-2.1-or-later

/***************************************************************************
 *   Copyright (c) 2007 Werner Mayer <wmayer[at]users.sourceforge.net>     *
 *                                                                         *
 *   This file is part of the FreeCAD CAx development system.              *
 *                                                                         *
 *   This library is free software; you can redistribute it and/or         *
 *   modify it under the terms of the GNU Library General Public           *
 *   License as published by the Free Software Foundation; either          *
 *   version 2 of the License, or (at your option) any later version.      *
 *                                                                         *
 *   This library  is distributed in the hope that it will be useful,      *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   GNU Library General Public License for more details.                  *
 *                                                                         *
 *   You should have received a copy of the GNU Library General Public     *
 *   License along with this library; see the file COPYING.LIB. If not,    *
 *   write to the Free Software Foundation, Inc., 59 Temple Place,         *
 *   Suite 330, Boston, MA  02111-1307, USA                                *
 *                                                                         *
 ***************************************************************************/

#include <limits>

#include <BRepBuilderAPI_GTransform.hxx>
#include <BRepBuilderAPI_MakeEdge.hxx>
#include <BRepBuilderAPI_MakeFace.hxx>
#include <BRepBuilderAPI_MakeVertex.hxx>
#include <BRepBuilderAPI_MakeSolid.hxx>
#include <BRepBuilderAPI_MakePolygon.hxx>
#include <BRepGProp.hxx>
#include <BRepPrim_Cylinder.hxx>
#include <BRepPrim_Wedge.hxx>
#include <BRepPrimAPI_MakeCone.hxx>
#include <BRepPrimAPI_MakeCylinder.hxx>
#include <BRepPrimAPI_MakeSphere.hxx>
#include <Geom_Plane.hxx>
#include <gp_Elips.hxx>
#include <gp_GTrsf.hxx>
#include <Precision.hxx>
#include <Standard_Real.hxx>
#include <Standard_Version.hxx>
#include <TopoDS.hxx>
#include <TopoDS_Vertex.hxx>

#include <App/FeaturePythonPyImp.h>
#include <Base/Reader.h>
#include <Base/Tools.h>

#include "PrimitiveFeature.h"
#include "PartFeaturePy.h"

namespace Part
{
const App::PropertyQuantityConstraint::Constraints apexRange = {-89.9, 89.9, 0.1};
const App::PropertyQuantityConstraint::Constraints torusRangeV = {-180.0, 180.0, 1.0};
const App::PropertyQuantityConstraint::Constraints angleRangeU = {0.0, 360.0, 1.0};
const App::PropertyQuantityConstraint::Constraints angleRangeV = {-90.0, 90.0, 1.0};
const App::PropertyQuantityConstraint::Constraints quantityRange
    = {0.0, std::numeric_limits<float>::max(), 0.1};
}  // namespace Part

using namespace Part;


PROPERTY_SOURCE_ABSTRACT_WITH_EXTENSIONS(Part::Primitive, Part::Feature)

Primitive::Primitive()
{
    AttachExtension::initExtension(this);
    touch();
}

Primitive::~Primitive() = default;

short Primitive::mustExecute() const
{
    return Feature::mustExecute();
}

App::DocumentObjectExecReturn* Primitive::execute()
{
    return Part::Feature::execute();
}

// suppress warning about tp_print for Py3.8
#if defined(__clang__)
# pragma clang diagnostic push
# pragma clang diagnostic ignored "-Wmissing-field-initializers"
#endif

namespace Part
{
PYTHON_TYPE_DEF(PrimitivePy, PartFeaturePy)
PYTHON_TYPE_IMP(PrimitivePy, PartFeaturePy)
}  // namespace Part

#if defined(__clang__)
# pragma clang diagnostic pop
#endif

PyObject* Primitive::getPyObject()
{
    if (PythonObject.is(Py::_None())) {
        // ref counter is set to 1
        PythonObject = Py::Object(new PrimitivePy(this), true);
    }
    return Py::new_reference_to(PythonObject);
}

void Primitive::Restore(Base::XMLReader& reader)
{
    Part::Feature::Restore(reader);
}

void Primitive::handleChangedPropertyType(
    Base::XMLReader& reader,
    const char* TypeName,
    App::Property* prop
)
{
    // For #0001652 the property types of many primitive features have changed
    // from PropertyFloat or PropertyFloatConstraint to a more meaningful type.
    // In order to load older project files there must be checked in case the
    // types don't match if both inherit from PropertyFloat because all derived
    // classes do not re-implement the Save/Restore methods.
    Base::Type inputType = Base::Type::fromName(TypeName);
    if (prop->isDerivedFrom<App::PropertyFloat>()
        && inputType.isDerivedFrom(App::PropertyFloat::getClassTypeId())) {
        // Do not directly call the property's Restore method in case the implementation
        // has changed. So, create a temporary PropertyFloat object and assign the value.
        App::PropertyFloat floatProp;
        floatProp.Restore(reader);
        static_cast<App::PropertyFloat*>(prop)->setValue(floatProp.getValue());
    }
    else {
        Part::Feature::handleChangedPropertyType(reader, TypeName, prop);
    }
}

void Primitive::onChanged(const App::Property* prop)
{
    if (!isRestoring()) {
        // Do not support sphere, ellipsoid and torus because the creation
        // takes too long and thus is not feasible
        std::string grp = (prop->getGroup() ? prop->getGroup() : "");
        if (grp == "Plane" || grp == "Cylinder" || grp == "Cone") {
            try {
                App::DocumentObjectExecReturn* ret = recompute();
                delete ret;
            }
            catch (...) {
            }
        }
    }
    Part::Feature::onChanged(prop);
}

PROPERTY_SOURCE(Part::Vertex, Part::Primitive)

Vertex::Vertex()
{
    ADD_PROPERTY(X, (0.0f));
    ADD_PROPERTY(Y, (0.0f));
    ADD_PROPERTY(Z, (0.0f));
}

Vertex::~Vertex() = default;

short Vertex::mustExecute() const
{
    if (X.isTouched() || Y.isTouched() || Z.isTouched()) {
        return 1;
    }
    return Part::Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Vertex::execute()
{
    gp_Pnt point;
    point.SetX(this->X.getValue());
    point.SetY(this->Y.getValue());
    point.SetZ(this->Z.getValue());

    BRepBuilderAPI_MakeVertex MakeVertex(point);
    const TopoDS_Vertex& vertex = MakeVertex.Vertex();
    this->Shape.setValue(vertex);

    return Primitive::execute();
}


void Vertex::onChanged(const App::Property* prop)
{
    if (!isRestoring()) {
        if (prop == &X || prop == &Y || prop == &Z) {
            try {
                App::DocumentObjectExecReturn* ret = recompute();
                delete ret;
            }
            catch (...) {
            }
        }
    }
    Part::Primitive::onChanged(prop);
}

PROPERTY_SOURCE(Part::Line, Part::Primitive)

Line::Line()
{
    ADD_PROPERTY_TYPE(X1, (0.0), "Vertex 1 - Start", App::Prop_None, "X value of the start vertex");
    ADD_PROPERTY_TYPE(Y1, (0.0), "Vertex 1 - Start", App::Prop_None, "Y value of the start vertex");
    ADD_PROPERTY_TYPE(Z1, (0.0), "Vertex 1 - Start", App::Prop_None, "Z value of the start vertex");
    ADD_PROPERTY_TYPE(X2, (0.0), "Vertex 2 - Finish", App::Prop_None, "X value of the finish vertex");
    ADD_PROPERTY_TYPE(Y2, (0.0), "Vertex 2 - Finish", App::Prop_None, "Y value of the finish vertex");
    ADD_PROPERTY_TYPE(Z2, (1.0), "Vertex 2 - Finish", App::Prop_None, "Z value of the finish vertex");
}

Line::~Line() = default;

short Line::mustExecute() const
{
    if (X1.isTouched() || Y1.isTouched() || Z1.isTouched() || X2.isTouched() || Y2.isTouched()
        || Z2.isTouched()) {
        return 1;
    }
    return Part::Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Line::execute()
{
    gp_Pnt point1;
    point1.SetX(this->X1.getValue());
    point1.SetY(this->Y1.getValue());
    point1.SetZ(this->Z1.getValue());

    gp_Pnt point2;
    point2.SetX(this->X2.getValue());
    point2.SetY(this->Y2.getValue());
    point2.SetZ(this->Z2.getValue());

    BRepBuilderAPI_MakeEdge mkEdge(point1, point2);
    if (!mkEdge.IsDone()) {
        return new App::DocumentObjectExecReturn("Failed to create edge");
    }
    const TopoDS_Edge& edge = mkEdge.Edge();
    this->Shape.setValue(edge);

    return Primitive::execute();
}

void Line::onChanged(const App::Property* prop)
{
    if (!isRestoring()) {
        if (prop == &X1 || prop == &Y1 || prop == &Z1 || prop == &X2 || prop == &Y2 || prop == &Z2) {
            try {
                App::DocumentObjectExecReturn* ret = recompute();
                delete ret;
            }
            catch (...) {
            }
        }
    }
    Part::Primitive::onChanged(prop);
}

PROPERTY_SOURCE(Part::Plane, Part::Primitive)

Plane::Plane()
{
    ADD_PROPERTY_TYPE(Length, (100.0f), "Plane", App::Prop_None, "The length of the plane");
    ADD_PROPERTY_TYPE(Width, (100.0f), "Plane", App::Prop_None, "The width of the plane");
}

short Plane::mustExecute() const
{
    if (Length.isTouched() || Width.isTouched()) {
        return 1;
    }
    return Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Plane::execute()
{
    double L = this->Length.getValue();
    double W = this->Width.getValue();

    if (L < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Length of plane too small");
    }
    if (W < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Width of plane too small");
    }

    gp_Pnt pnt(0.0, 0.0, 0.0);
    gp_Dir dir(0.0, 0.0, 1.0);
    Handle(Geom_Plane) aPlane = new Geom_Plane(pnt, dir);
    BRepBuilderAPI_MakeFace mkFace(aPlane, 0.0, L, 0.0, W, Precision::Confusion());

    const char* error = nullptr;
    switch (mkFace.Error()) {
        case BRepBuilderAPI_FaceDone:
            break;  // ok
        case BRepBuilderAPI_NoFace:
            error = "no face";
            break;
        case BRepBuilderAPI_NotPlanar:
            error = "not planar";
            break;
        case BRepBuilderAPI_CurveProjectionFailed:
            break;
        case BRepBuilderAPI_ParametersOutOfRange:
            error = "parameters out of range";
            break;
        default:
            error = "unknown error";
            break;
    }
    // Error ?
    if (error) {
        return new App::DocumentObjectExecReturn(error);
    }

    TopoDS_Shape ResultShape = mkFace.Shape();
    this->Shape.setValue(ResultShape);

    return Primitive::execute();
}

PROPERTY_SOURCE(Part::Sphere, Part::Primitive)

Sphere::Sphere()
{
    ADD_PROPERTY_TYPE(Radius, (5.0), "Sphere", App::Prop_None, "The radius of the sphere");
    Radius.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(Angle1, (-90.0f), "Sphere", App::Prop_None, "The angle of the sphere");
    Angle1.setConstraints(&angleRangeV);
    ADD_PROPERTY_TYPE(Angle2, (90.0f), "Sphere", App::Prop_None, "The angle of the sphere");
    Angle2.setConstraints(&angleRangeV);
    ADD_PROPERTY_TYPE(Angle3, (360.0f), "Sphere", App::Prop_None, "The angle of the sphere");
    Angle3.setConstraints(&angleRangeU);
}

short Sphere::mustExecute() const
{
    if (Radius.isTouched()) {
        return 1;
    }
    if (Angle1.isTouched()) {
        return 1;
    }
    if (Angle2.isTouched()) {
        return 1;
    }
    if (Angle3.isTouched()) {
        return 1;
    }
    return Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Sphere::execute()
{
    // Build a sphere
    if (Radius.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Radius of sphere too small");
    }
    try {
        BRepPrimAPI_MakeSphere mkSphere(
            Radius.getValue(),
            Base::toRadians<double>(Angle1.getValue()),
            Base::toRadians<double>(Angle2.getValue()),
            Base::toRadians<double>(Angle3.getValue())
        );
        TopoDS_Shape ResultShape = mkSphere.Shape();
        this->Shape.setValue(ResultShape);
    }
    catch (Standard_Failure& e) {

        return new App::DocumentObjectExecReturn(e.GetMessageString());
    }

    return Primitive::execute();
}

PROPERTY_SOURCE(Part::Ellipsoid, Part::Primitive)

Ellipsoid::Ellipsoid()
{
    ADD_PROPERTY_TYPE(Radius1, (2.0), "Ellipsoid", App::Prop_None, "The radius of the ellipsoid");
    Radius1.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(Radius2, (4.0), "Ellipsoid", App::Prop_None, "The radius of the ellipsoid");
    Radius2.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(Radius3, (0.0), "Ellipsoid", App::Prop_None, "The radius of the ellipsoid");
    Radius3.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(Angle1, (-90.0f), "Ellipsoid", App::Prop_None, "The angle of the ellipsoid");
    Angle1.setConstraints(&angleRangeV);
    ADD_PROPERTY_TYPE(Angle2, (90.0f), "Ellipsoid", App::Prop_None, "The angle of the ellipsoid");
    Angle2.setConstraints(&angleRangeV);
    ADD_PROPERTY_TYPE(Angle3, (360.0f), "Ellipsoid", App::Prop_None, "The angle of the ellipsoid");
    Angle3.setConstraints(&angleRangeU);
}

short Ellipsoid::mustExecute() const
{
    if (Radius1.isTouched()) {
        return 1;
    }
    if (Radius2.isTouched()) {
        return 1;
    }
    if (Radius3.isTouched()) {
        return 1;
    }
    if (Angle1.isTouched()) {
        return 1;
    }
    if (Angle2.isTouched()) {
        return 1;
    }
    if (Angle3.isTouched()) {
        return 1;
    }
    return Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Ellipsoid::execute()
{
    // Build a sphere
    if (Radius1.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Radius of ellipsoid too small");
    }
    if (Radius2.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Radius of ellipsoid too small");
    }

    try {
        gp_Pnt pnt(0.0, 0.0, 0.0);
        gp_Dir dir(0.0, 0.0, 1.0);
        gp_Ax2 ax2(pnt, dir);
        BRepPrimAPI_MakeSphere mkSphere(
            ax2,
            Radius2.getValue(),
            Base::toRadians<double>(Angle1.getValue()),
            Base::toRadians<double>(Angle2.getValue()),
            Base::toRadians<double>(Angle3.getValue())
        );
        Standard_Real scaleX = 1.0;
        Standard_Real scaleZ = Radius1.getValue() / Radius2.getValue();
        // issue #1798: A third radius has been introduced. To be backward
        // compatible if Radius3 is 0.0 (default) it's handled to be the same
        // as Radius2
        Standard_Real scaleY = 1.0;
        if (Radius3.getValue() >= Precision::Confusion()) {
            scaleY = Radius3.getValue() / Radius2.getValue();
        }
        gp_GTrsf mat;
        mat.SetValue(1, 1, scaleX);
        mat.SetValue(2, 1, 0.0);
        mat.SetValue(3, 1, 0.0);
        mat.SetValue(1, 2, 0.0);
        mat.SetValue(2, 2, scaleY);
        mat.SetValue(3, 2, 0.0);
        mat.SetValue(1, 3, 0.0);
        mat.SetValue(2, 3, 0.0);
        mat.SetValue(3, 3, scaleZ);
        BRepBuilderAPI_GTransform mkTrsf(mkSphere.Shape(), mat);
        TopoDS_Shape ResultShape = mkTrsf.Shape();
        this->Shape.setValue(ResultShape);
    }
    catch (Standard_Failure& e) {

        return new App::DocumentObjectExecReturn(e.GetMessageString());
    }

    return Primitive::execute();
}

PROPERTY_SOURCE(Part::Cylinder, Part::Primitive)

Cylinder::Cylinder()
{
    ADD_PROPERTY_TYPE(Radius, (2.0), "Cylinder", App::Prop_None, "The radius of the cylinder");
    ADD_PROPERTY_TYPE(Height, (10.0f), "Cylinder", App::Prop_None, "The height of the cylinder");
    ADD_PROPERTY_TYPE(Angle, (360.0f), "Cylinder", App::Prop_None, "The rotation angle of the cylinder");
    Angle.setConstraints(&angleRangeU);

    PrismExtension::initExtension(this);
}

short Cylinder::mustExecute() const
{
    if (Radius.isTouched()) {
        return 1;
    }
    if (Height.isTouched()) {
        return 1;
    }
    if (Angle.isTouched()) {
        return 1;
    }
    return Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Cylinder::execute()
{
    // Build a cylinder
    if (Radius.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Radius of cylinder too small");
    }
    if (Height.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Height of cylinder too small");
    }
    if (Angle.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Rotation angle of cylinder too small");
    }
    try {
        BRepPrimAPI_MakeCylinder mkCylr(
            Radius.getValue(),
            Height.getValue(),
            Base::toRadians<double>(Angle.getValue())
        );
        // the direction vector for the prism is the height for z and the given angle
        BRepPrim_Cylinder prim = mkCylr.Cylinder();
        TopoDS_Shape ResultShape = makePrism(Height.getValue(), prim.BottomFace());
        this->Shape.setValue(ResultShape);
    }
    catch (Standard_Failure& e) {

        return new App::DocumentObjectExecReturn(e.GetMessageString());
    }

    return Primitive::execute();
}

App::PropertyIntegerConstraint::Constraints Prism::polygonRange = {3, INT_MAX, 1};

PROPERTY_SOURCE(Part::Prism, Part::Primitive)

Prism::Prism()
{
    ADD_PROPERTY_TYPE(
        Polygon,
        (6.0),
        "Prism",
        App::Prop_None,
        "Number of sides in the polygon, of the prism"
    );
    ADD_PROPERTY_TYPE(
        Circumradius,
        (2.0),
        "Prism",
        App::Prop_None,
        "Circumradius (centre to vertex) of the polygon, of the prism"
    );
    ADD_PROPERTY_TYPE(Height, (10.0f), "Prism", App::Prop_None, "The height of the prism");
    Polygon.setConstraints(&polygonRange);

    PrismExtension::initExtension(this);
}

short Prism::mustExecute() const
{
    if (Polygon.isTouched()) {
        return 1;
    }
    if (Circumradius.isTouched()) {
        return 1;
    }
    if (Height.isTouched()) {
        return 1;
    }
    return Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Prism::execute()
{
    // Build a prism
    if (Polygon.getValue() < 3) {
        return new App::DocumentObjectExecReturn(
            "Polygon of prism is invalid, must have 3 or more sides"
        );
    }
    if (Circumradius.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn(
            "Circumradius of the polygon, of the prism, is too small"
        );
    }
    if (Height.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Height of prism is too small");
    }
    try {
        long nodes = Polygon.getValue();

        Base::Matrix4D mat;
        mat.rotZ(Base::toRadians(360.0 / nodes));

        // create polygon
        BRepBuilderAPI_MakePolygon mkPoly;
        Base::Vector3d v(Circumradius.getValue(), 0, 0);
        for (long i = 0; i < nodes; i++) {
            mkPoly.Add(gp_Pnt(v.x, v.y, v.z));
            v = mat * v;
        }
        mkPoly.Add(gp_Pnt(v.x, v.y, v.z));
        BRepBuilderAPI_MakeFace mkFace(mkPoly.Wire());
        // the direction vector for the prism is the height for z and the given angle
        this->Shape.setValue(makePrism(Height.getValue(), mkFace.Face()));
    }
    catch (Standard_Failure& e) {
        return new App::DocumentObjectExecReturn(e.GetMessageString());
    }

    return Primitive::execute();
}

App::PropertyIntegerConstraint::Constraints RegularPolygon::polygon = {3, INT_MAX, 1};

PROPERTY_SOURCE(Part::RegularPolygon, Part::Primitive)

RegularPolygon::RegularPolygon()
{
    ADD_PROPERTY_TYPE(
        Polygon,
        (6.0),
        "RegularPolygon",
        App::Prop_None,
        "Number of sides in the regular polygon"
    );
    ADD_PROPERTY_TYPE(
        Circumradius,
        (2.0),
        "RegularPolygon",
        App::Prop_None,
        "Circumradius (centre to vertex) of the polygon"
    );
    Polygon.setConstraints(&polygon);
}

short RegularPolygon::mustExecute() const
{
    if (Polygon.isTouched()) {
        return 1;
    }
    if (Circumradius.isTouched()) {
        return 1;
    }
    return Primitive::mustExecute();
}

App::DocumentObjectExecReturn* RegularPolygon::execute()
{
    // Build a regular polygon
    if (Polygon.getValue() < 3) {
        return new App::DocumentObjectExecReturn("the polygon is invalid, must have 3 or more sides");
    }
    if (Circumradius.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Circumradius of the polygon is too small");
    }

    try {
        long nodes = Polygon.getValue();

        Base::Matrix4D mat;
        mat.rotZ(Base::toRadians(360.0 / nodes));

        // create polygon
        BRepBuilderAPI_MakePolygon mkPoly;
        Base::Vector3d v(Circumradius.getValue(), 0, 0);
        for (long i = 0; i < nodes; i++) {
            mkPoly.Add(gp_Pnt(v.x, v.y, v.z));
            v = mat * v;
        }
        mkPoly.Add(gp_Pnt(v.x, v.y, v.z));
        this->Shape.setValue(mkPoly.Shape());
    }
    catch (Standard_Failure& e) {

        return new App::DocumentObjectExecReturn(e.GetMessageString());
    }

    return Primitive::execute();
}


PROPERTY_SOURCE(Part::Cone, Part::Primitive)

Cone::Cone()
{
    ADD_PROPERTY_TYPE(Radius1, (2.0), "Cone", App::Prop_None, "The radius of the cone");
    ADD_PROPERTY_TYPE(Radius2, (4.0), "Cone", App::Prop_None, "The radius of the cone");
    ADD_PROPERTY_TYPE(Height, (10.0), "Cone", App::Prop_None, "The height of the cone");
    ADD_PROPERTY_TYPE(Angle, (360.0), "Cone", App::Prop_None, "The angle of the cone");
    Angle.setConstraints(&angleRangeU);
}

short Cone::mustExecute() const
{
    if (Radius1.isTouched()) {
        return 1;
    }
    if (Radius2.isTouched()) {
        return 1;
    }
    if (Height.isTouched()) {
        return 1;
    }
    if (Angle.isTouched()) {
        return 1;
    }
    return Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Cone::execute()
{
    if (Radius1.getValue() < 0) {
        return new App::DocumentObjectExecReturn("Radius of cone too small");
    }
    if (Radius2.getValue() < 0) {
        return new App::DocumentObjectExecReturn("Radius of cone too small");
    }
    if (Height.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Height of cone too small");
    }
    try {
        TopoDS_Shape ResultShape;
        if (std::abs(Radius1.getValue() - Radius2.getValue()) < Precision::Confusion()) {
            // Build a cylinder
            BRepPrimAPI_MakeCylinder mkCylr(
                Radius1.getValue(),
                Height.getValue(),
                Base::toRadians<double>(Angle.getValue())
            );
            ResultShape = mkCylr.Shape();
        }
        else {
            // Build a cone
            BRepPrimAPI_MakeCone mkCone(
                Radius1.getValue(),
                Radius2.getValue(),
                Height.getValue(),
                Base::toRadians<double>(Angle.getValue())
            );
            ResultShape = mkCone.Shape();
        }
        this->Shape.setValue(ResultShape);
    }
    catch (Standard_Failure& e) {

        return new App::DocumentObjectExecReturn(e.GetMessageString());
    }

    return Primitive::execute();
}

PROPERTY_SOURCE(Part::Torus, Part::Primitive)

Torus::Torus()
{
    ADD_PROPERTY_TYPE(Radius1, (10.0), "Torus", App::Prop_None, "The radius of the torus");
    Radius1.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(Radius2, (2.0), "Torus", App::Prop_None, "The radius of the torus");
    Radius2.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(Angle1, (-180.0), "Torus", App::Prop_None, "The angle of the torus");
    Angle1.setConstraints(&torusRangeV);
    ADD_PROPERTY_TYPE(Angle2, (180.0), "Torus", App::Prop_None, "The angle of the torus");
    Angle2.setConstraints(&torusRangeV);
    ADD_PROPERTY_TYPE(Angle3, (360.0), "Torus", App::Prop_None, "The angle of the torus");
    Angle3.setConstraints(&angleRangeU);
}

short Torus::mustExecute() const
{
    if (Radius1.isTouched()) {
        return 1;
    }
    if (Radius2.isTouched()) {
        return 1;
    }
    if (Angle1.isTouched()) {
        return 1;
    }
    if (Angle2.isTouched()) {
        return 1;
    }
    if (Angle3.isTouched()) {
        return 1;
    }
    return Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Torus::execute()
{
    if (Radius1.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Radius of torus too small");
    }
    if (Radius2.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Radius of torus too small");
    }
    try {
        TopoShape shape;
        this->Shape.setValue(shape.makeTorus(
            Radius1.getValue(),
            Radius2.getValue(),
            Angle1.getValue(),
            Angle2.getValue(),
            Angle3.getValue()
        ));
    }
    catch (Standard_Failure& e) {
        return new App::DocumentObjectExecReturn(e.GetMessageString());
    }

    return Primitive::execute();
}

PROPERTY_SOURCE(Part::Helix, Part::Primitive)

const char* Part::Helix::LocalCSEnums[] = {"Right-handed", "Left-handed", nullptr};
const char* Part::Helix::StyleEnums[] = {"Old style", "New style", nullptr};

Helix::Helix()
{
    ADD_PROPERTY_TYPE(Pitch, (1.0), "Helix", App::Prop_None, "The pitch of the helix");
    Pitch.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(Height, (2.0), "Helix", App::Prop_None, "The height of the helix");
    Height.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(Radius, (1.0), "Helix", App::Prop_None, "The radius of the helix");
    Radius.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(
        SegmentLength,
        (0.0),
        "Helix",
        App::Prop_None,
        "The number of turns per helix subdivision"
    );
    SegmentLength.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(
        Angle,
        (0.0),
        "Helix",
        App::Prop_None,
        "If angle is != 0 a conical otherwise a cylindircal surface is used"
    );
    Angle.setConstraints(&apexRange);
    ADD_PROPERTY_TYPE(
        LocalCoord,
        (long(0)),
        "Coordinate System",
        App::Prop_None,
        "Orientation of the local coordinate system of the helix"
    );
    LocalCoord.setEnums(LocalCSEnums);
    ADD_PROPERTY_TYPE(
        Style,
        (long(0)),
        "Helix style",
        App::Prop_Hidden,
        "Old style creates incorrect and new style create correct helices"
    );
    Style.setEnums(StyleEnums);
    ADD_PROPERTY_TYPE(Length, (1.0), "Helix", App::Prop_None, "The length of the helix");
    Length.setReadOnly(true);
}

void Helix::onChanged(const App::Property* prop)
{
    if (!isRestoring()) {
        if (prop == &Pitch || prop == &Height || prop == &Radius || prop == &Angle
            || prop == &LocalCoord || prop == &Style || prop == &SegmentLength) {
            try {
                App::DocumentObjectExecReturn* ret = recompute();
                delete ret;
            }
            catch (...) {
            }
        }
    }
    Part::Primitive::onChanged(prop);
}

short Helix::mustExecute() const
{
    if (Pitch.isTouched()) {
        return 1;
    }
    if (Height.isTouched()) {
        return 1;
    }
    if (Radius.isTouched()) {
        return 1;
    }
    if (Angle.isTouched()) {
        return 1;
    }
    if (LocalCoord.isTouched()) {
        return 1;
    }
    if (Style.isTouched()) {
        return 1;
    }
    return Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Helix::execute()
{
    try {
        Standard_Real myPitch = Pitch.getValue();
        Standard_Real myHeight = Height.getValue();
        Standard_Real myRadius = Radius.getValue();
        Standard_Real myAngle = Angle.getValue();
        Standard_Boolean myLocalCS = LocalCoord.getValue() ? Standard_True : Standard_False;
        Standard_Real mySegLen = SegmentLength.getValue();
        if (myPitch < Precision::Confusion()) {
            Standard_Failure::Raise("Pitch too small");
        }
        Standard_Real nbTurns = myHeight / myPitch;
        if (nbTurns > 1e4) {
            Standard_Failure::Raise("Number of turns too high (> 1e4)");
        }
        Standard_Real myRadiusTop = myRadius + myHeight * tan(Base::toRadians<double>(myAngle));

        this->Shape.setValue(
            TopoShape().makeSpiralHelix(myRadius, myRadiusTop, myHeight, nbTurns, mySegLen, myLocalCS)
        );
        // props.Mass() may seem a strange way to get the Length, but
        // https://dev.opencascade.org/doc/refman/html/class_b_rep_g_prop.html#ab1d4bacc290bfaa8df13dd99ae7b8e70
        // confirms this.
        GProp_GProps props;
        BRepGProp::LinearProperties(Shape.getShape().getShape(), props);
        Length.setValue(props.Mass());
    }
    catch (Standard_Failure& e) {

        return new App::DocumentObjectExecReturn(e.GetMessageString());
    }

    return Primitive::execute();
}

PROPERTY_SOURCE(Part::Spiral, Part::Primitive)

Spiral::Spiral()
{
    ADD_PROPERTY_TYPE(Growth, (1.0), "Spiral", App::Prop_None, "The growth of the spiral per rotation");
    Growth.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(Radius, (1.0), "Spiral", App::Prop_None, "The radius of the spiral");
    Radius.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(Rotations, (2.0), "Spiral", App::Prop_None, "The number of rotations");
    Rotations.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(
        SegmentLength,
        (1.0),
        "Spiral",
        App::Prop_None,
        "The number of turns per spiral subdivision"
    );
    SegmentLength.setConstraints(&quantityRange);
    ADD_PROPERTY_TYPE(Length, (1.0), "Spiral", App::Prop_None, "The length of the spiral");
    Length.setReadOnly(true);
}

void Spiral::onChanged(const App::Property* prop)
{
    if (!isRestoring()) {
        if (prop == &Growth || prop == &Rotations || prop == &Radius || prop == &SegmentLength) {
            try {
                App::DocumentObjectExecReturn* ret = recompute();
                delete ret;
            }
            catch (...) {
            }
        }
    }
    Part::Primitive::onChanged(prop);
}

short Spiral::mustExecute() const
{
    if (Growth.isTouched()) {
        return 1;
    }
    if (Rotations.isTouched()) {
        return 1;
    }
    if (Radius.isTouched()) {
        return 1;
    }
    return Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Spiral::execute()
{
    try {
        Standard_Real myNumRot = Rotations.getValue();
        Standard_Real myRadius = Radius.getValue();
        Standard_Real myGrowth = Growth.getValue();
        Standard_Real myRadiusTop = myRadius + myGrowth * myNumRot;
        Standard_Real mySegLen = SegmentLength.getValue();

        if (myNumRot < Precision::Confusion()) {
            Standard_Failure::Raise("Number of rotations too small");
        }

        this->Shape.setValue(
            TopoShape().makeSpiralHelix(myRadius, myRadiusTop, 0, myNumRot, mySegLen, Standard_False)
        );
        GProp_GProps props;
        BRepGProp::LinearProperties(Shape.getShape().getShape(), props);
        Length.setValue(props.Mass());
        return Primitive::execute();
    }
    catch (Standard_Failure& e) {
        return new App::DocumentObjectExecReturn(e.GetMessageString());
    }
}

PROPERTY_SOURCE(Part::Wedge, Part::Primitive)

Wedge::Wedge()
{
    ADD_PROPERTY_TYPE(Xmin, (0.0f), "Wedge", App::Prop_None, "Xmin of the wedge");
    ADD_PROPERTY_TYPE(Ymin, (0.0f), "Wedge", App::Prop_None, "Ymin of the wedge");
    ADD_PROPERTY_TYPE(Zmin, (0.0f), "Wedge", App::Prop_None, "Zmin of the wedge");
    ADD_PROPERTY_TYPE(X2min, (2.0f), "Wedge", App::Prop_None, "X2min of the wedge");
    ADD_PROPERTY_TYPE(Z2min, (2.0f), "Wedge", App::Prop_None, "Z2min of the wedge");
    ADD_PROPERTY_TYPE(Xmax, (10.0f), "Wedge", App::Prop_None, "Xmax of the wedge");
    ADD_PROPERTY_TYPE(Ymax, (10.0f), "Wedge", App::Prop_None, "Ymax of the wedge");
    ADD_PROPERTY_TYPE(Zmax, (10.0f), "Wedge", App::Prop_None, "Zmax of the wedge");
    ADD_PROPERTY_TYPE(X2max, (8.0f), "Wedge", App::Prop_None, "X2max of the wedge");
    ADD_PROPERTY_TYPE(Z2max, (8.0f), "Wedge", App::Prop_None, "Z2max of the wedge");
}

short Wedge::mustExecute() const
{
    if (Xmin.isTouched() || Ymin.isTouched() || Zmin.isTouched() || X2min.isTouched()
        || Z2min.isTouched() || Xmax.isTouched() || Ymax.isTouched() || Zmax.isTouched()
        || X2max.isTouched() || Z2max.isTouched()) {
        return 1;
    }
    return Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Wedge::execute()
{
    double xmin = Xmin.getValue();
    double ymin = Ymin.getValue();
    double zmin = Zmin.getValue();
    double z2min = Z2min.getValue();
    double x2min = X2min.getValue();
    double xmax = Xmax.getValue();
    double ymax = Ymax.getValue();
    double zmax = Zmax.getValue();
    double z2max = Z2max.getValue();
    double x2max = X2max.getValue();


    double dx = xmax - xmin;
    double dy = ymax - ymin;
    double dz = zmax - zmin;
    double dz2 = z2max - z2min;
    double dx2 = x2max - x2min;

    if (dx < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("delta x of wedge too small");
    }

    if (dy < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("delta y of wedge too small");
    }

    if (dz < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("delta z of wedge too small");
    }

    if (dz2 < 0) {
        return new App::DocumentObjectExecReturn("delta z2 of wedge is negative");
    }

    if (dx2 < 0) {
        return new App::DocumentObjectExecReturn("delta x2 of wedge is negative");
    }

    try {
        gp_Pnt pnt(0.0, 0.0, 0.0);
        gp_Dir dir(0.0, 0.0, 1.0);
        BRepPrim_Wedge
            mkWedge(gp_Ax2(pnt, dir), xmin, ymin, zmin, z2min, x2min, xmax, ymax, zmax, z2max, x2max);
        BRepBuilderAPI_MakeSolid mkSolid;
        mkSolid.Add(mkWedge.Shell());
        this->Shape.setValue(mkSolid.Solid());
    }
    catch (Standard_Failure& e) {
        return new App::DocumentObjectExecReturn(e.GetMessageString());
    }

    return Primitive::execute();
}

void Wedge::onChanged(const App::Property* prop)
{
    if (prop == &Xmin || prop == &Ymin || prop == &Zmin || prop == &X2min || prop == &Z2min
        || prop == &Xmax || prop == &Ymax || prop == &Zmax || prop == &X2max || prop == &Z2max) {
        if (!isRestoring()) {
            App::DocumentObjectExecReturn* ret = recompute();
            delete ret;
        }
    }
    Part::Primitive::onChanged(prop);
}

App::PropertyQuantityConstraint::Constraints Ellipse::angleRange = {0.0, 360.0, 1.0};

PROPERTY_SOURCE(Part::Ellipse, Part::Primitive)


Ellipse::Ellipse()
{
    ADD_PROPERTY(MajorRadius, (4.0f));
    ADD_PROPERTY(MinorRadius, (4.0f));
    ADD_PROPERTY(Angle1, (0.0f));
    Angle1.setConstraints(&angleRange);
    ADD_PROPERTY(Angle2, (360.0f));
    Angle2.setConstraints(&angleRange);
}

Ellipse::~Ellipse() = default;

short Ellipse::mustExecute() const
{
    if (Angle1.isTouched() || Angle2.isTouched() || MajorRadius.isTouched()
        || MinorRadius.isTouched()) {
        return 1;
    }
    return Part::Primitive::mustExecute();
}

App::DocumentObjectExecReturn* Ellipse::execute()
{
    if (this->MinorRadius.getValue() > this->MajorRadius.getValue()) {
        return new App::DocumentObjectExecReturn("Minor radius greater than major radius");
    }
    if (this->MinorRadius.getValue() < Precision::Confusion()) {
        return new App::DocumentObjectExecReturn("Minor radius of ellipse too small");
    }

    gp_Elips ellipse;
    ellipse.SetMajorRadius(this->MajorRadius.getValue());
    ellipse.SetMinorRadius(this->MinorRadius.getValue());

    BRepBuilderAPI_MakeEdge clMakeEdge(
        ellipse,
        Base::toRadians<double>(this->Angle1.getValue()),
        Base::toRadians<double>(this->Angle2.getValue())
    );
    const TopoDS_Edge& edge = clMakeEdge.Edge();
    this->Shape.setValue(edge);

    return Primitive::execute();
}

void Ellipse::onChanged(const App::Property* prop)
{
    if (!isRestoring()) {
        if (prop == &MajorRadius || prop == &MinorRadius || prop == &Angle1 || prop == &Angle2) {
            try {
                App::DocumentObjectExecReturn* ret = recompute();
                delete ret;
            }
            catch (...) {
            }
        }
    }
    Part::Primitive::onChanged(prop);
}

void Ellipse::Restore(Base::XMLReader& reader)
{
    Base::ObjectStatusLocker<App::Property::Status, App::Property> lock(
        App::Property::User1,
        &Angle2,
        false
    );
    Primitive::Restore(reader);

    if (Angle2.testStatus(App::Property::User1)) {
        double tmp = Angle1.getValue();
        Angle1.setValue(Angle2.getValue());
        Angle2.setValue(tmp);
    }
}

void Ellipse::handleChangedPropertyName(Base::XMLReader& reader, const char* TypeName, const char* PropName)
{
    Base::Type type = Base::Type::fromName(TypeName);
    if (Angle2.getTypeId() == type && strcmp(PropName, "Angle0") == 0) {
        Angle2.Restore(reader);
        // set the flag to swap Angle1/Angle2 afterwards
        Angle2.setStatus(App::Property::User1, true);
    }
    else {
        Primitive::handleChangedPropertyName(reader, TypeName, PropName);
    }
}