source: cpp/frams/model/modelobj.cpp @ 1232

#include "modelobj.h"
#include <frams/vm/classes/genoobj.h>
#include <frams/util/extvalue.h>
#include <frams/vm/classes/3dobject.h>

#define FIELDSTRUCT ModelObj
ParamEntry modelobj_paramtab[] =
{
        { "Model", 1, 21, "Model", },
        { "se", 0, PARAM_NOSTATIC, "startenergy", "f", FIELD(startenergy), },
        { "Vstyle", 0, PARAM_NOSTATIC, "Visual style", "s", FIELD(vis_style), "See the \"Visual style definition\" context for more information"},

        { "geno", 0, PARAM_NOSTATIC | PARAM_READONLY, "Geno", "oGeno", GETONLY(geno), },
        { "newFromString", 0, 0, "Create a new object", "p oModel(s genotype)", PROCEDURE(p_newfromstring), },
        { "newFromGeno", 0, 0, "Create a new object", "p oModel(oGeno)", PROCEDURE(p_newfromgeno), },
        { "newWithCheckpoints", 0, 0, "Create a new object", "p oModel(x Geno object or string genotype)", PROCEDURE(p_newwithcheckpoints), "Creates a Model with the \"Checkpoints\" option enabled. Genotype converters supporting Checkpoints provide a sequence of Models that reflects development stages of the creature (this sequence is used purely for debugging and visualization of phenotype growth/development). Checkpoint Models can be accessed using getCheckpoint(i) for i ranging from 0 to numcheckpoints-1. Models created without the Checkpoint option and Models coming from unsupported converters have numcheckpoints=0." },

        { "numparts", 0, PARAM_DONTSAVE | PARAM_NOSTATIC | PARAM_READONLY, "Number of parts", "d", GETONLY(numparts), },
        { "numjoints", 0, PARAM_DONTSAVE | PARAM_NOSTATIC | PARAM_READONLY, "Number of joints", "d", GETONLY(numjoints), },
        { "numneurons", 0, PARAM_DONTSAVE | PARAM_NOSTATIC | PARAM_READONLY, "Number of neurons", "d", GETONLY(numneurons), },
        { "numconnections", 0, PARAM_DONTSAVE | PARAM_NOSTATIC | PARAM_READONLY, "Number of neuron connections", "d", GETONLY(numconnections), },

        { "getPart", 0, PARAM_READONLY | PARAM_USERHIDDEN | PARAM_NOSTATIC, "getPart (static model information)", "p oPart(d index)", PROCEDURE(p_getpart), },
        { "getJoint", 0, PARAM_READONLY | PARAM_USERHIDDEN | PARAM_NOSTATIC, "getJoint (static model information)", "p oJoint(d index)", PROCEDURE(p_getjoint), },
        { "getNeuroDef", 0, PARAM_READONLY | PARAM_USERHIDDEN | PARAM_NOSTATIC, "getNeuroDef", "p oNeuroDef(d index)", PROCEDURE(p_getneuro), },

        { "size_x", 0, PARAM_READONLY | PARAM_NOSTATIC | PARAM_DEPRECATED, "Bounding box x size", "f", FIELD(size.x), "(size_x,size_y,size_z) are dimensions of the axis-aligned bounding box of the creature, including imaginary Part sizes (Part.s, usually 1.0). A creature consisting of a single default part has the size of (2.0,2.0,2.0) - twice the Part.s value (like a sphere diameter is twice its radius).\nSee also: Creature.moveAbs" },
        { "size_y", 0, PARAM_READONLY | PARAM_NOSTATIC | PARAM_DEPRECATED, "Bounding box y size", "f", FIELD(size.y), "See Model.size_x" },
        { "size_z", 0, PARAM_READONLY | PARAM_NOSTATIC | PARAM_DEPRECATED, "Bounding box z size", "f", FIELD(size.z), "See Model.size_x" },
        { "bboxSize", 0, PARAM_READONLY | PARAM_NOSTATIC, "Bounding box size", "oXYZ", GETONLY(bboxsize) },
        { "numcheckpoints", 0, PARAM_DONTSAVE | PARAM_READONLY | PARAM_NOSTATIC, "Number of checkpoints", "d", GETONLY(numcheckpoints) },
        { "getCheckpoint", 0, PARAM_READONLY | PARAM_USERHIDDEN | PARAM_NOSTATIC, "getCheckpoint", "p oModel(d index)", PROCEDURE(p_getcheckpoint),
        "Checkpoint Model objects are only valid as long as the parent Model object exists.\n"
        "See also: Model.newWithCheckpoints()\n\n"
        "// incorrect usage - calling getCheckpoint() on a temporary object:\n"
        "var c=Model.newWithCheckpoints(\"XXX\").getCheckpoint(1).genotype.geno;\n\n"
        "// correct usage - keeping the parent Model reference in 'm':\n"
        "var m=Model.newWithCheckpoints(\"XXX\");\n"
        "var c=m.getCheckpoint(1).genotype.geno;\n"
        },
        { "shape_type", 0, PARAM_DONTSAVE | PARAM_NOSTATIC | PARAM_READONLY, "Shape type", "d 0 3 ~Unknown~Illegal~Ball-and-stick~Solids", GETONLY(shape_type) },
        { "solid_model", 0, PARAM_DONTSAVE | PARAM_NOSTATIC | PARAM_READONLY, "Solid shapes model", "oModel", GETONLY(solid_model), "Conversion of this Model to solid shapes. Note! Only available when this Model has shape_type==2 (Ball-and-stick)." },

        { 0, 0, 0, },
};
#undef FIELDSTRUCT

void ModelObj::get_geno(ExtValue *ret)
{
        Geno *g;
        if ((!geno.isValid()) && isValid())
                g = new Geno(getF0Geno());
        else
                g = new Geno(geno);
        ret->setObject(GenoObj::makeDynamicObjectAndDecRef(g));
}

void ModelObj::p_newfromstring(ExtValue *args, ExtValue *ret)
{
        *ret = makeDynamicObject(new Model(Geno(args[0].getString()), Model::SHAPETYPE_UNKNOWN));
}

void ModelObj::p_newfromgeno(ExtValue *args, ExtValue *ret)
{
        Geno *g = GenoObj::fromObject(args[0].getObject());
        if (g)
                *ret = makeDynamicObject(new Model(*g, Model::SHAPETYPE_UNKNOWN));
        else
                ret->setEmpty();
}

void ModelObj::p_newwithcheckpoints(ExtValue *args, ExtValue *ret)
{
        Model *m = NULL;
        if (args[0].getType() == TString)
                m = new Model(Geno(args[0].getString()), Model::SHAPETYPE_UNKNOWN, false, true);
        else
        {
                Geno *g = GenoObj::fromObject(args[0].getObject(), false);
                if (g)
                        m = new Model(*g, Model::SHAPETYPE_UNKNOWN, false, true);
                else
                        logPrintf("Model", "newWithCheckpoints", LOG_ERROR, "Geno or string expected, %s found", args[0].typeDescription().c_str());
        }

        if (m != NULL)
                *ret = makeDynamicObject(m);
        else
                ret->setEmpty();
}

Param& ModelObj::getStaticParam()
{
#ifdef __CODEGUARD__
        static ModelObj static_modelobj;
        static Param static_modelparam(modelobj_paramtab, &static_modelobj);
#else
        static Param static_modelparam(modelobj_paramtab);
#endif
        return static_modelparam;
}

Param& ModelObj::getDynamicParam()
{
        static Param dynamic_modelparam(modelobj_paramtab);
        return dynamic_modelparam;
}

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

ExtObject ModelObj::makeStaticObject(Model* m)
{
        return ExtObject(&getStaticParam(), (void*)m);
}

ExtObject ModelObj::makeDynamicObject(Model* m)
{
        return ExtObject(&getDynamicParam(), (DestrBase*)m);
}

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

void ModelObj::p_getpart(PARAMPROCARGS)
{
        int i = args->getInt();
        if ((i < 0) || (i >= getPartCount()))
        {
                ret->setEmpty();
                return;
        }
        ret->setObject(ExtObject(&Part::getStaticParam(), getPart(i)));
}

void ModelObj::p_getjoint(PARAMPROCARGS)
{
        int i = args->getInt();
        if ((i < 0) || (i >= getJointCount()))
        {
                ret->setEmpty();
                return;
        }
        ret->setObject(ExtObject(&Joint::getStaticParam(), getJoint(i)));
}

void ModelObj::p_getneuro(PARAMPROCARGS)
{
        int i = args->getInt();
        if ((i < 0) || (i >= getNeuroCount()))
        {
                ret->setEmpty();
                return;
        }
        ret->setObject(ExtObject(&Neuro::getStaticParam(), getNeuro(i)));
}

void ModelObj::get_bboxsize(ExtValue *ret)
{
        *ret = Pt3D_Ext::makeDynamicObject(new Pt3D_Ext(size));
}

void ModelObj::p_getcheckpoint(PARAMPROCARGS)
{
        int i = args->getInt();
        if ((i < 0) || (i >= getCheckpointCount()))
        {
                ret->setEmpty();
                return;
        }
        ret->setObject(makeStaticObject(getCheckpoint(i)));
}

void ModelObj::get_solid_model(ExtValue *ret)
{
        if (getShapeType() != Model::SHAPETYPE_BALL_AND_STICK)
                ret->setEmpty();
        Model *m = new Model;
        m->open();
        m->buildUsingSolidShapeTypes(*this);
        m->close();
        *ret = makeDynamicObject(m);
}

void ModelObj::get_shape_type(ExtValue *ret)
{
        ret->setInt(getShapeType());
}