source: cpp/frams/vm/classes/3dobject.cpp @ 1155

// This file is a part of Framsticks SDK.  http://www.framsticks.com/
// Copyright (C) 1999-2018  Maciej Komosinski and Szymon Ulatowski.
// See LICENSE.txt for details.

#include <frams/util/3d.h>
#include "3dobject.h"
#include <frams/param/param.h>
#include "collectionobj.h"

ParamEntry* Pt3D_Ext::getStaticParamtab()
{
#define FIELDSTRUCT Pt3D_Ext
        static ParamEntry paramtab[] =
        {
                { "XYZ", 1, 18, "XYZ", "3D vector" },

                { "x", 0, PARAM_NOSTATIC, "x", "f", FIELD(p.x), },
                { "y", 0, PARAM_NOSTATIC, "y", "f", FIELD(p.y), },
                { "z", 0, PARAM_NOSTATIC, "z", "f", FIELD(p.z), },
                { "new", 0, 0, "create new XYZ object", "p oXYZ(f x,f y,f z)", PROCEDURE(p_new), "3D vectors objects can be also created using the (x,y,z) notation, i.e. var v=(1,2,3) is the same as var v=XYZ.new(1,2,3);", },
                { "newFromVector", 0, 0, "create new XYZ object", "p oXYZ(oVector)", PROCEDURE(p_newFromVector), "used for deserialization" },
                { "clone", 0, PARAM_NOSTATIC, "create new XYZ object copying the coordinates", "p oXYZ()", PROCEDURE(p_clone), "Note: copying object references does not create new objects. Use clone() if a new object is needed.\n\nExample:\nvar o1=(1,2,3), o2=o1, o3=o1.clone();\no1.y=9999;\n//o2 is now (1,9999,3) but o3 is still (1,2,3)", },
                { "set", 0, PARAM_NOSTATIC, "set (copy) coordinates from another XYZ object", "p(oXYZ)", PROCEDURE(p_set), },
                { "set3", 0, PARAM_NOSTATIC, "set individual 3 coordinates", "p(f x,f y,f z)", PROCEDURE(p_set3), },
                { "add", 0, PARAM_NOSTATIC, "add", "p(oXYZ)", PROCEDURE(p_addvec), "Note: it does not return a new object, just modifies the existing one" },
                { "sub", 0, PARAM_NOSTATIC, "subtract", "p(oXYZ)", PROCEDURE(p_subvec), "Note: it does not return a new object, just modifies the existing one" },
                { "scale", 0, PARAM_NOSTATIC, "multiply by scalar", "p(f)", PROCEDURE(p_scale), },
                { "length", 0, PARAM_READONLY | PARAM_NOSTATIC, "length", "f", GETONLY(length), },
                { "normalize", 0, PARAM_NOSTATIC, "normalize", "p()", PROCEDURE(p_normalize), "scales the vector length to 1.0" },
                { "toString", 0, PARAM_READONLY | PARAM_NOSTATIC, "textual form", "s", GETONLY(toString), },
                { "toVector", 0, PARAM_READONLY | PARAM_NOSTATIC, "vector of [x,y,z]", "oVector", GETONLY(toVector), },
                { "rotate", 0, PARAM_NOSTATIC, "rotate using Orient object", "p(oOrient)", PROCEDURE(p_rotate), },
                { "revRotate", 0, PARAM_NOSTATIC, "reverse rotate using Orient object", "p(oOrient)", PROCEDURE(p_revrotate), },
                { "get", 0, PARAM_NOSTATIC, "get one of coordinates", "p f(d index)", PROCEDURE(p_get), "this function makes the XYZ objects \"indexable\" (so you can use [] for accessing subsequent fields, like in Vector)", },
                { 0, 0, 0, },
        };
#undef FIELDSTRUCT
        return paramtab;
}

void Pt3D_Ext::p_new(ExtValue *args, ExtValue *ret)
{
        *ret = makeDynamicObject(new Pt3D_Ext(args[2].getDouble(), args[1].getDouble(), args[0].getDouble()));
}

static double doubleFromVec(VectorObject *vec, int i)
{
        if (i >= vec->data.size()) return 0;
        ExtValue *v = (ExtValue*)vec->data.get(i);
        if (v)
                return v->getDouble();
        return 0;
}

static Pt3D pt3DFromVec(VectorObject* v, int offset = 0)
{
        return Pt3D(doubleFromVec(v, offset), doubleFromVec(v, offset + 1), doubleFromVec(v, offset + 2));
}

void Pt3D_Ext::p_newFromVector(ExtValue *args, ExtValue *ret)
{
        VectorObject *vec = VectorObject::fromObject(args->getObject());
        if (vec)
                *ret = makeDynamicObject(new Pt3D_Ext(pt3DFromVec(vec)));
        else
                ret->setEmpty();
}

void Pt3D_Ext::p_clone(ExtValue *args, ExtValue *ret)
{
        *ret = makeDynamicObject(new Pt3D_Ext(p.x, p.y, p.z));
}

void Pt3D_Ext::p_set3(ExtValue *args, ExtValue *ret)
{
        p.x = args[2].getDouble();
        p.y = args[1].getDouble();
        p.z = args[0].getDouble();
        ret->setEmpty();
}

void Pt3D_Ext::p_set(ExtValue *args, ExtValue *ret)
{
        Pt3D_Ext *other = fromObject(args[0]);
        if (other)
                p = other->p;
        ret->setEmpty();
}

void Pt3D_Ext::get_length(ExtValue *ret)
{
        ret->setDouble(p.length());
}

SString Pt3D_Ext::toString() const
{
        SString s = "(";
        s += SString::valueOf(p.x);
        s += ",";
        s += SString::valueOf(p.y);
        s += ",";
        s += SString::valueOf(p.z);
        s += ")";
        return s;
}

void Pt3D_Ext::get_toString(ExtValue *ret)
{
        ret->setString(toString());
}

static void add3Coords(VectorObject* vec, const Pt3D& p)
{
        vec->data += new ExtValue(p.x);
        vec->data += new ExtValue(p.y);
        vec->data += new ExtValue(p.z);
}

void Pt3D_Ext::get_toVector(ExtValue *ret)
{
        VectorObject *vec = new VectorObject;
        add3Coords(vec, p);
        ret->setObject(ExtObject(&VectorObject::par, vec));
}

void Pt3D_Ext::p_addvec(ExtValue *args, ExtValue *ret)
{
        Pt3D_Ext *other = fromObject(args[0]);
        if (other)
                p += other->p;
        ret->setEmpty();
}

void Pt3D_Ext::p_subvec(ExtValue *args, ExtValue *ret)
{
        Pt3D_Ext *other = fromObject(args[0]);
        if (other)
                p -= other->p;
        ret->setEmpty();
}

void Pt3D_Ext::p_scale(ExtValue *args, ExtValue *ret)
{
        double d = args[0].getDouble();
        p.x *= d; p.y *= d; p.z *= d;
        ret->setEmpty();
}

void Pt3D_Ext::p_normalize(ExtValue *args, ExtValue *ret)
{
        p.normalize();
        ret->setEmpty();
}

void Pt3D_Ext::p_rotate(ExtValue *args, ExtValue *ret)
{
        Orient_Ext *o = Orient_Ext::fromObject(args[0]);
        if (o)
        {
                Pt3D tmp = p;
                o->o.transform(p, tmp);
        }
        ret->setEmpty();
}

void Pt3D_Ext::p_revrotate(ExtValue *args, ExtValue *ret)
{
        Orient_Ext *o = Orient_Ext::fromObject(args[0]);
        if (o)
        {
                Pt3D tmp = p;
                o->o.revTransform(p, tmp);
        }
        ret->setEmpty();
}

void Pt3D_Ext::p_get(ExtValue *args, ExtValue *ret)
{
        int index = args->getInt();
        if ((index < 0) || (index > 2))
                ret->setEmpty();
        else
                ret->setDouble((&p.x)[index]);
}

Param& Pt3D_Ext::getStaticParam()
{
#ifdef __CODEGUARD__
        static Pt3D_Ext static_pt3dobj;
        static Param static_pt3dparam(getStaticParamtab(), &static_pt3dobj);
#else
        static Param static_pt3dparam(getStaticParamtab());
#endif
        return static_pt3dparam;
}

Pt3D_Ext* Pt3D_Ext::fromObject(const ExtValue& v, bool warn)
{
        return (Pt3D_Ext*)v.getObjectTarget(getStaticParam().getName(), warn);
}

ParamInterface* Pt3D_Ext::getInterface() { return &getStaticParam(); }

ExtObject Pt3D_Ext::makeStaticObject(Pt3D* p)
{
        return ExtObject(&getStaticParam(), ((char*)p) + (((char*)&p->x) - ((char*)&((Pt3D_Ext*)p)->p.x)));
}

ExtObject Pt3D_Ext::makeDynamicObject(Pt3D_Ext* p)
{
        return ExtObject(&getStaticParam(), p);
}

ExtObject Pt3D_Ext::makeDynamicObject(const Pt3D& p)
{
        Pt3D_Ext *pe = new Pt3D_Ext(p);
        return ExtObject(&getStaticParam(), pe);
}

//////////////////////////////////////

ParamEntry* Orient_Ext::getStaticParamtab()
{
#define FIELDSTRUCT Orient_Ext
        static ParamEntry paramtab[] =
        {
                { "Orient", 1, 29, "Orient", "3D orientation, stored as 3x3 matrix." },

                { "xx", 1, PARAM_NOSTATIC, "orientation.x.x", "f", FIELD(o.x.x), },
                { "xy", 1, PARAM_NOSTATIC, "orientation.x.y", "f", FIELD(o.x.y), },
                { "xz", 1, PARAM_NOSTATIC, "orientation.x.z", "f", FIELD(o.x.z), },
                { "yx", 1, PARAM_NOSTATIC, "orientation.y.x", "f", FIELD(o.y.x), },
                { "yy", 1, PARAM_NOSTATIC, "orientation.y.y", "f", FIELD(o.y.y), },
                { "yz", 1, PARAM_NOSTATIC, "orientation.y.z", "f", FIELD(o.y.z), },
                { "zx", 1, PARAM_NOSTATIC, "orientation.z.x", "f", FIELD(o.z.x), },
                { "zy", 1, PARAM_NOSTATIC, "orientation.z.y", "f", FIELD(o.z.y), },
                { "zz", 1, PARAM_NOSTATIC, "orientation.z.z", "f", FIELD(o.z.z), },

                { "x", 0, PARAM_NOSTATIC | PARAM_READONLY, "x vector", "oXYZ", GETONLY(x), },
                { "y", 0, PARAM_NOSTATIC | PARAM_READONLY, "y vector", "oXYZ", GETONLY(y), },
                { "z", 0, PARAM_NOSTATIC | PARAM_READONLY, "z vector", "oXYZ", GETONLY(z), },

                { "new", 0, 0, "create new Orient object", "p oOrient()", PROCEDURE(p_new), },
                { "newFromVector", 0, 0, "create new Orient object", "p oOrient(oVector)", PROCEDURE(p_newFromVector), },
                { "toVector", 0, PARAM_READONLY | PARAM_NOSTATIC, "vector representation", "oVector", GETONLY(toVector), "for serialization" },
                { "clone", 0, PARAM_NOSTATIC, "create new Orient object", "p oOrient()", PROCEDURE(p_clone), },
                { "set", 0, PARAM_NOSTATIC, "copy from another Orient object", "p(oOrient)", PROCEDURE(p_set), },
                { "reset", 0, PARAM_NOSTATIC, "set identity matrix", "p()", PROCEDURE(p_reset), },
                { "rotate3", 0, PARAM_NOSTATIC, "rotate around 3 axes", "p(f x,f y,f z)", PROCEDURE(p_rotate3), },
                { "rotate", 0, PARAM_NOSTATIC, "rotate using Orient object", "p(oOrient)", PROCEDURE(p_rotate), },
                { "revRotate", 0, PARAM_NOSTATIC, "reverse rotate using Orient object", "p(oOrient)", PROCEDURE(p_revrotate), },
                { "lookAt", 0, PARAM_NOSTATIC, "calculate rotation from 2 vectors", "p(oXYZ direction,oXYZ up)", PROCEDURE(p_lookat), },
                { "normalize", 0, PARAM_NOSTATIC, "normalize", "p()", PROCEDURE(p_normalize), },
                { "between2", 0, PARAM_NOSTATIC, "interpolate orientation", "p(oOrient,oOrient,f amount)", PROCEDURE(p_between2), "The calling Orient receives the orientation interpolated from 2 input orientations.\nExample:\n"
                "var o1=Orient.new(), o2=Orient.new(), o3=Orient.new();\n"
                "o2.rotate3(0,Math.pi/2,0);\n"
                "o3.between2(o1,o2,0); // o3 equals o2\n"
                "o3.between2(o1,o2,1); // o3 equals o1\n"
                "o3.between2(o1,o2,0.5); // o3 is halfway between o1 and o2\n" },
                { "betweenOV", 0, PARAM_NOSTATIC, "interpolate orientation", "p(oOrient,oXYZ,f amount)", PROCEDURE(p_betweenOV), "Like between2(), but the second Orient is composed of the supplied XYZ vector (X component) and Y Z vectors from the calling object.\n"
                "Example:\n"
                "var o=Orient.new();\n"
                "o.betweenOV(o,(0,1,0),1); //no change, o remains 100 010 001\n"
                "o.betweenOV(o,(0,1,0),0.9); //o is slightly rotated towards (0,1,0)\n"
                "o.betweenOV(o,(0,1,0),0); //o is completely transformed, o.x=(0,1,0)\n"
                },
                { "localToWorld", 0, PARAM_NOSTATIC, "transform coordinates", "p oXYZ(oXYZ point,oXYZ center)", PROCEDURE(p_localToWorld), },
                { "worldToLocal", 0, PARAM_NOSTATIC, "transform coordinates", "p oXYZ(oXYZ point,oXYZ center)", PROCEDURE(p_worldToLocal), },
                { "angles", 0, PARAM_READONLY | PARAM_NOSTATIC, "Euler angles representation", "oXYZ", GETONLY(angles), },
                { "toString", 0, PARAM_READONLY | PARAM_NOSTATIC, "textual form", "s", GETONLY(toString), },
                { 0, 0, 0, },
        };
#undef FIELDSTRUCT
        return paramtab;
}

void Orient_Ext::p_new(ExtValue *args, ExtValue *ret)
{
        *ret = makeDynamicObject(new Orient_Ext());
}

void Orient_Ext::p_newFromVector(ExtValue *args, ExtValue *ret)
{
        VectorObject *vec = VectorObject::fromObject(args->getObject());
        if (vec)
                *ret = makeDynamicObject(new Orient_Ext(Orient(pt3DFromVec(vec, 0), pt3DFromVec(vec, 3), pt3DFromVec(vec, 6))));
        else
                ret->setEmpty();
}

void Orient_Ext::get_toVector(ExtValue *ret)
{
        VectorObject *vec = new VectorObject;
        add3Coords(vec, o.x);
        add3Coords(vec, o.y);
        add3Coords(vec, o.z);
        ret->setObject(ExtObject(&VectorObject::par, vec));
}

void Orient_Ext::p_clone(ExtValue *args, ExtValue *ret)
{
        *ret = makeDynamicObject(new Orient_Ext(o));
}

void Orient_Ext::p_set(ExtValue *args, ExtValue *ret)
{
        Orient_Ext *other = fromObject(args[0]);
        if (other)
                o = other->o;
        ret->setEmpty();
}

void Orient_Ext::p_reset(ExtValue *args, ExtValue *ret)
{
        o = Orient_1;
        ret->setEmpty();
}

void Orient_Ext::get_x(PARAMGETARGS)
{
        *ret = Pt3D_Ext::makeStaticObject(&o.x);
}

void Orient_Ext::get_y(PARAMGETARGS)
{
        *ret = Pt3D_Ext::makeStaticObject(&o.y);
}

void Orient_Ext::get_z(PARAMGETARGS)
{
        *ret = Pt3D_Ext::makeStaticObject(&o.z);
}

void Orient_Ext::p_lookat(ExtValue *args, ExtValue *ret)
{
        Pt3D_Ext *dir = Pt3D_Ext::fromObject(args[1]), *up = Pt3D_Ext::fromObject(args[0]);
        if (dir&&up)
                o.lookAt(dir->p, up->p);
        ret->setEmpty();
}

void Orient_Ext::p_rotate3(ExtValue *args, ExtValue *ret)
{
        Pt3D p(args[2].getDouble(), args[1].getDouble(), args[0].getDouble());
        o.rotate(p);
        ret->setEmpty();
}

void Orient_Ext::p_rotate(ExtValue *args, ExtValue *ret)
{
        Orient_Ext *obj = Orient_Ext::fromObject(args[0]);
        if (obj)
        {
                Orient tmp = o;
                obj->o.transform(o, tmp);
        }
        ret->setEmpty();
}

void Orient_Ext::p_revrotate(ExtValue *args, ExtValue *ret)
{
        Orient_Ext *obj = Orient_Ext::fromObject(args[0]);
        if (obj)
        {
                Orient tmp = o;
                obj->o.revTransform(o, tmp);
        }
        ret->setEmpty();
}

void Orient_Ext::p_normalize(ExtValue *args, ExtValue *ret)
{
        o.normalize();
        ret->setEmpty();
}

void Orient_Ext::p_between2(ExtValue *args, ExtValue *ret)
{
        Orient_Ext *o1 = Orient_Ext::fromObject(args[2]);
        Orient_Ext *o2 = Orient_Ext::fromObject(args[1]);
        if (o1&&o2)
        {
                double q1 = args[0].getDouble(), q2 = 1.0 - q1;
                o.x.x = q1 * o1->o.x.x + q2 * o2->o.x.x;
                o.x.y = q1 * o1->o.x.y + q2 * o2->o.x.y;
                o.x.z = q1 * o1->o.x.z + q2 * o2->o.x.z;
                o.y.x = q1 * o1->o.y.x + q2 * o2->o.y.x;
                o.y.y = q1 * o1->o.y.y + q2 * o2->o.y.y;
                o.y.z = q1 * o1->o.y.z + q2 * o2->o.y.z;
                o.z.x = q1 * o1->o.z.x + q2 * o2->o.z.x;
                o.z.y = q1 * o1->o.z.y + q2 * o2->o.z.y;
                o.z.z = q1 * o1->o.z.z + q2 * o2->o.z.z;
                o.normalize();
        }
        ret->setEmpty();
}

void Orient_Ext::p_betweenOV(ExtValue *args, ExtValue *ret)
{
        Orient_Ext *o1 = Orient_Ext::fromObject(args[2]);
        Pt3D_Ext *p2 = Pt3D_Ext::fromObject(args[1]);
        if (o1&&p2)
        {
                double q1 = args[0].getDouble(), q2 = 1.0 - q1;
                o.x.x = q1 * o1->o.x.x + q2 * p2->p.x;
                o.x.y = q1 * o1->o.x.y + q2 * p2->p.y;
                o.x.z = q1 * o1->o.x.z + q2 * p2->p.z;
                o.normalize();
        }
        ret->setEmpty();
}

void Orient_Ext::p_localToWorld(ExtValue *args, ExtValue *ret)
{
        Pt3D_Ext *center, *point;
        point = Pt3D_Ext::fromObject(args[1]);
        center = Pt3D_Ext::fromObject(args[0]);
        if (center && point)
        {
                Pt3D d;
                Pt3D src = point->p;
                o.transform(d, src);
                d += center->p;
                *ret = Pt3D_Ext::makeDynamicObject(new Pt3D_Ext(d));
        }
        else
                ret->setEmpty();
}

void Orient_Ext::p_worldToLocal(ExtValue *args, ExtValue *ret)
{
        Pt3D_Ext *center, *point;
        point = Pt3D_Ext::fromObject(args[1]);
        center = Pt3D_Ext::fromObject(args[0]);
        if (center && point)
        {
                Pt3D d;
                Pt3D src = point->p;
                d -= center->p;
                o.revTransform(d, src);
                *ret = Pt3D_Ext::makeDynamicObject(new Pt3D_Ext(d));
        }
        else
                ret->setEmpty();
}

void Orient_Ext::get_angles(ExtValue *ret)
{
        *ret = Pt3D_Ext::makeDynamicObject(new Pt3D_Ext(o.getAngles()));
}

void Orient_Ext::get_toString(ExtValue *ret)
{
        Pt3D_Ext a(o.getAngles());
        ret->setString(SString("Orient@") + a.toString());
}

Param& Orient_Ext::getStaticParam()
{
#ifdef __CODEGUARD__
        static Orient_Ext static_orientobj;
        static Param static_orientparam(getStaticParamtab(), &static_orientobj);
#else
        static Param static_orientparam(getStaticParamtab());
#endif
        return static_orientparam;
}

Orient_Ext* Orient_Ext::fromObject(const ExtValue& v)
{
        return (Orient_Ext*)v.getObjectTarget(getStaticParam().getName());
}

ParamInterface* Orient_Ext::getInterface() { return &getStaticParam(); }

ExtObject Orient_Ext::makeStaticObject(Orient* o)
{
        return ExtObject(&getStaticParam(), ((char*)o) + (((char*)&o->x) - ((char*)&((Orient_Ext*)o)->o.x)));
}

ExtObject Orient_Ext::makeDynamicObject(Orient_Ext* p)
{
        return ExtObject(&getStaticParam(), p);
}

/////////////

REGISTER_DESERIALIZABLE(Pt3D_Ext)
REGISTER_DESERIALIZABLE(Orient_Ext)