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

Last change on this file since 1026 was 951, checked in by Maciej Komosinski, 4 years ago

Fixed a bug in 3D orientation rotation (only concerns scripts)
  • Property svn:eol-style set to native
File size: 14.7 KB
Line 
1// This file is a part of Framsticks SDK.  http://www.framsticks.com/
2// Copyright (C) 1999-2018  Maciej Komosinski and Szymon Ulatowski.
3// See LICENSE.txt for details.
4
5#include <frams/util/3d.h>
6#include "3dobject.h"
7#include <frams/param/param.h>
8#include "collectionobj.h"
9
10ParamEntry* Pt3D_Ext::getStaticParamtab()
11{
12#define FIELDSTRUCT Pt3D_Ext
13        static ParamEntry paramtab[] =
14        {
15                { "XYZ", 1, 18, "XYZ", "3D vector" },
16
17                { "x", 0, PARAM_NOSTATIC, "x", "f", FIELD(p.x), },
18                { "y", 0, PARAM_NOSTATIC, "y", "f", FIELD(p.y), },
19                { "z", 0, PARAM_NOSTATIC, "z", "f", FIELD(p.z), },
20                { "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);", },
21                { "newFromVector", 0, 0, "create new XYZ object", "p oXYZ(oVector)", PROCEDURE(p_newFromVector), "used for deserialization" },
22                { "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)", },
23                { "set", 0, PARAM_NOSTATIC, "set (copy) coordinates from another XYZ object", "p(oXYZ)", PROCEDURE(p_set), },
24                { "set3", 0, PARAM_NOSTATIC, "set individual 3 coordinates", "p(f x,f y,f z)", PROCEDURE(p_set3), },
25                { "add", 0, PARAM_NOSTATIC, "add", "p(oXYZ)", PROCEDURE(p_addvec), "Note: it does not return a new object, just modifies the existing one" },
26                { "sub", 0, PARAM_NOSTATIC, "subtract", "p(oXYZ)", PROCEDURE(p_subvec), "Note: it does not return a new object, just modifies the existing one" },
27                { "scale", 0, PARAM_NOSTATIC, "multiply by scalar", "p(f)", PROCEDURE(p_scale), },
28                { "length", 0, PARAM_READONLY | PARAM_NOSTATIC, "length", "f", GETONLY(length), },
29                { "normalize", 0, PARAM_NOSTATIC, "normalize", "p()", PROCEDURE(p_normalize), "scales the vector length to 1.0" },
30                { "toString", 0, PARAM_READONLY | PARAM_NOSTATIC, "textual form", "s", GETONLY(toString), },
31                { "toVector", 0, PARAM_READONLY | PARAM_NOSTATIC, "vector of [x,y,z]", "oVector", GETONLY(toVector), },
32                { "rotate", 0, PARAM_NOSTATIC, "rotate using Orient object", "p(oOrient)", PROCEDURE(p_rotate), },
33                { "revRotate", 0, PARAM_NOSTATIC, "reverse rotate using Orient object", "p(oOrient)", PROCEDURE(p_revrotate), },
34                { "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)", },
35                { 0, 0, 0, },
36        };
37#undef FIELDSTRUCT
38        return paramtab;
39}
40
41void Pt3D_Ext::p_new(ExtValue *args, ExtValue *ret)
42{
43        *ret = makeDynamicObject(new Pt3D_Ext(args[2].getDouble(), args[1].getDouble(), args[0].getDouble()));
44}
45
46static double doubleFromVec(VectorObject *vec, int i)
47{
48        if (i >= vec->data.size()) return 0;
49        ExtValue *v = (ExtValue*)vec->data.get(i);
50        if (v)
51                return v->getDouble();
52        return 0;
53}
54
55static Pt3D pt3DFromVec(VectorObject* v, int offset = 0)
56{
57        return Pt3D(doubleFromVec(v, offset), doubleFromVec(v, offset + 1), doubleFromVec(v, offset + 2));
58}
59
60void Pt3D_Ext::p_newFromVector(ExtValue *args, ExtValue *ret)
61{
62        VectorObject *vec = VectorObject::fromObject(args->getObject());
63        if (vec)
64                *ret = makeDynamicObject(new Pt3D_Ext(pt3DFromVec(vec)));
65        else
66                ret->setEmpty();
67}
68
69void Pt3D_Ext::p_clone(ExtValue *args, ExtValue *ret)
70{
71        *ret = makeDynamicObject(new Pt3D_Ext(p.x, p.y, p.z));
72}
73
74void Pt3D_Ext::p_set3(ExtValue *args, ExtValue *ret)
75{
76        p.x = args[2].getDouble();
77        p.y = args[1].getDouble();
78        p.z = args[0].getDouble();
79        ret->setEmpty();
80}
81
82void Pt3D_Ext::p_set(ExtValue *args, ExtValue *ret)
83{
84        Pt3D_Ext *other = fromObject(args[0]);
85        if (other)
86                p = other->p;
87        ret->setEmpty();
88}
89
90void Pt3D_Ext::get_length(ExtValue *ret)
91{
92        ret->setDouble(p.length());
93}
94
95SString Pt3D_Ext::toString() const
96{
97        SString s = "(";
98        s += SString::valueOf(p.x);
99        s += ",";
100        s += SString::valueOf(p.y);
101        s += ",";
102        s += SString::valueOf(p.z);
103        s += ")";
104        return s;
105}
106
107void Pt3D_Ext::get_toString(ExtValue *ret)
108{
109        ret->setString(toString());
110}
111
112static void add3Coords(VectorObject* vec, const Pt3D& p)
113{
114        vec->data += new ExtValue(p.x);
115        vec->data += new ExtValue(p.y);
116        vec->data += new ExtValue(p.z);
117}
118
119void Pt3D_Ext::get_toVector(ExtValue *ret)
120{
121        VectorObject *vec = new VectorObject;
122        add3Coords(vec, p);
123        ret->setObject(ExtObject(&VectorObject::par, vec));
124}
125
126void Pt3D_Ext::p_addvec(ExtValue *args, ExtValue *ret)
127{
128        Pt3D_Ext *other = fromObject(args[0]);
129        if (other)
130                p += other->p;
131        ret->setEmpty();
132}
133
134void Pt3D_Ext::p_subvec(ExtValue *args, ExtValue *ret)
135{
136        Pt3D_Ext *other = fromObject(args[0]);
137        if (other)
138                p -= other->p;
139        ret->setEmpty();
140}
141
142void Pt3D_Ext::p_scale(ExtValue *args, ExtValue *ret)
143{
144        double d = args[0].getDouble();
145        p.x *= d; p.y *= d; p.z *= d;
146        ret->setEmpty();
147}
148
149void Pt3D_Ext::p_normalize(ExtValue *args, ExtValue *ret)
150{
151        p.normalize();
152        ret->setEmpty();
153}
154
155void Pt3D_Ext::p_rotate(ExtValue *args, ExtValue *ret)
156{
157        Orient_Ext *o = Orient_Ext::fromObject(args[0]);
158        if (o)
159        {
160                Pt3D tmp = p;
161                o->o.transform(p, tmp);
162        }
163        ret->setEmpty();
164}
165
166void Pt3D_Ext::p_revrotate(ExtValue *args, ExtValue *ret)
167{
168        Orient_Ext *o = Orient_Ext::fromObject(args[0]);
169        if (o)
170        {
171                Pt3D tmp = p;
172                o->o.revTransform(p, tmp);
173        }
174        ret->setEmpty();
175}
176
177void Pt3D_Ext::p_get(ExtValue *args, ExtValue *ret)
178{
179        int index = args->getInt();
180        if ((index < 0) || (index > 2))
181                ret->setEmpty();
182        else
183                ret->setDouble((&p.x)[index]);
184}
185
186Param& Pt3D_Ext::getStaticParam()
187{
188#ifdef __CODEGUARD__
189        static Pt3D_Ext static_pt3dobj;
190        static Param static_pt3dparam(getStaticParamtab(), &static_pt3dobj);
191#else
192        static Param static_pt3dparam(getStaticParamtab());
193#endif
194        return static_pt3dparam;
195}
196
197Pt3D_Ext* Pt3D_Ext::fromObject(const ExtValue& v, bool warn)
198{
199        return (Pt3D_Ext*)v.getObjectTarget(getStaticParam().getName(), warn);
200}
201
202ParamInterface* Pt3D_Ext::getInterface() { return &getStaticParam(); }
203
204ExtObject Pt3D_Ext::makeStaticObject(Pt3D* p)
205{
206        return ExtObject(&getStaticParam(), ((char*)p) + (((char*)&p->x) - ((char*)&((Pt3D_Ext*)p)->p.x)));
207}
208
209ExtObject Pt3D_Ext::makeDynamicObject(Pt3D_Ext* p)
210{
211        return ExtObject(&getStaticParam(), p);
212}
213
214ExtObject Pt3D_Ext::makeDynamicObject(const Pt3D& p)
215{
216        Pt3D_Ext *pe = new Pt3D_Ext(p);
217        return ExtObject(&getStaticParam(), pe);
218}
219
220//////////////////////////////////////
221
222ParamEntry* Orient_Ext::getStaticParamtab()
223{
224#define FIELDSTRUCT Orient_Ext
225        static ParamEntry paramtab[] =
226        {
227                { "Orient", 1, 29, "Orient", "3D orientation, stored as 3x3 matrix." },
228
229                { "xx", 1, PARAM_NOSTATIC, "orientation.x.x", "f", FIELD(o.x.x), },
230                { "xy", 1, PARAM_NOSTATIC, "orientation.x.y", "f", FIELD(o.x.y), },
231                { "xz", 1, PARAM_NOSTATIC, "orientation.x.z", "f", FIELD(o.x.z), },
232                { "yx", 1, PARAM_NOSTATIC, "orientation.y.x", "f", FIELD(o.y.x), },
233                { "yy", 1, PARAM_NOSTATIC, "orientation.y.y", "f", FIELD(o.y.y), },
234                { "yz", 1, PARAM_NOSTATIC, "orientation.y.z", "f", FIELD(o.y.z), },
235                { "zx", 1, PARAM_NOSTATIC, "orientation.z.x", "f", FIELD(o.z.x), },
236                { "zy", 1, PARAM_NOSTATIC, "orientation.z.y", "f", FIELD(o.z.y), },
237                { "zz", 1, PARAM_NOSTATIC, "orientation.z.z", "f", FIELD(o.z.z), },
238
239                { "x", 0, PARAM_NOSTATIC | PARAM_READONLY, "x vector", "oXYZ", GETONLY(x), },
240                { "y", 0, PARAM_NOSTATIC | PARAM_READONLY, "y vector", "oXYZ", GETONLY(y), },
241                { "z", 0, PARAM_NOSTATIC | PARAM_READONLY, "z vector", "oXYZ", GETONLY(z), },
242
243                { "new", 0, 0, "create new Orient object", "p oOrient()", PROCEDURE(p_new), },
244                { "newFromVector", 0, 0, "create new Orient object", "p oOrient(oVector)", PROCEDURE(p_newFromVector), },
245                { "toVector", 0, PARAM_READONLY | PARAM_NOSTATIC, "vector representation", "oVector", GETONLY(toVector), "for serialization" },
246                { "clone", 0, PARAM_NOSTATIC, "create new Orient object", "p oOrient()", PROCEDURE(p_clone), },
247                { "set", 0, PARAM_NOSTATIC, "copy from another Orient object", "p(oOrient)", PROCEDURE(p_set), },
248                { "reset", 0, PARAM_NOSTATIC, "set identity matrix", "p()", PROCEDURE(p_reset), },
249                { "rotate3", 0, PARAM_NOSTATIC, "rotate around 3 axes", "p(f x,f y,f z)", PROCEDURE(p_rotate3), },
250                { "rotate", 0, PARAM_NOSTATIC, "rotate using Orient object", "p(oOrient)", PROCEDURE(p_rotate), },
251                { "revRotate", 0, PARAM_NOSTATIC, "reverse rotate using Orient object", "p(oOrient)", PROCEDURE(p_revrotate), },
252                { "lookAt", 0, PARAM_NOSTATIC, "calculate rotation from 2 vectors", "p(oXYZ direction,oXYZ up)", PROCEDURE(p_lookat), },
253                { "normalize", 0, PARAM_NOSTATIC, "normalize", "p()", PROCEDURE(p_normalize), },
254                { "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"
255                "var o1=Orient.new(), o2=Orient.new(), o3=Orient.new();\n"
256                "o2.rotate3(0,Math.pi/2,0);\n"
257                "o3.between2(o1,o2,0); // o3 equals o2\n"
258                "o3.between2(o1,o2,1); // o3 equals o1\n"
259                "o3.between2(o1,o2,0.5); // o3 is halfway between o1 and o2\n" },
260                { "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"
261                "Example:\n"
262                "var o=Orient.new();\n"
263                "o.betweenOV(o,(0,1,0),1); //no change, o remains 100 010 001\n"
264                "o.betweenOV(o,(0,1,0),0.9); //o is slightly rotated towards (0,1,0)\n"
265                "o.betweenOV(o,(0,1,0),0); //o is completely transformed, o.x=(0,1,0)\n"
266                },
267                { "localToWorld", 0, PARAM_NOSTATIC, "transform coordinates", "p oXYZ(oXYZ point,oXYZ center)", PROCEDURE(p_localToWorld), },
268                { "worldToLocal", 0, PARAM_NOSTATIC, "transform coordinates", "p oXYZ(oXYZ point,oXYZ center)", PROCEDURE(p_worldToLocal), },
269                { "angles", 0, PARAM_READONLY | PARAM_NOSTATIC, "Euler angles representation", "oXYZ", GETONLY(angles), },
270                { "toString", 0, PARAM_READONLY | PARAM_NOSTATIC, "textual form", "s", GETONLY(toString), },
271                { 0, 0, 0, },
272        };
273#undef FIELDSTRUCT
274        return paramtab;
275}
276
277void Orient_Ext::p_new(ExtValue *args, ExtValue *ret)
278{
279        *ret = makeDynamicObject(new Orient_Ext());
280}
281
282void Orient_Ext::p_newFromVector(ExtValue *args, ExtValue *ret)
283{
284        VectorObject *vec = VectorObject::fromObject(args->getObject());
285        if (vec)
286                *ret = makeDynamicObject(new Orient_Ext(Orient(pt3DFromVec(vec, 0), pt3DFromVec(vec, 3), pt3DFromVec(vec, 6))));
287        else
288                ret->setEmpty();
289}
290
291void Orient_Ext::get_toVector(ExtValue *ret)
292{
293        VectorObject *vec = new VectorObject;
294        add3Coords(vec, o.x);
295        add3Coords(vec, o.y);
296        add3Coords(vec, o.z);
297        ret->setObject(ExtObject(&VectorObject::par, vec));
298}
299
300void Orient_Ext::p_clone(ExtValue *args, ExtValue *ret)
301{
302        *ret = makeDynamicObject(new Orient_Ext(o));
303}
304
305void Orient_Ext::p_set(ExtValue *args, ExtValue *ret)
306{
307        Orient_Ext *other = fromObject(args[0]);
308        if (other)
309                o = other->o;
310        ret->setEmpty();
311}
312
313void Orient_Ext::p_reset(ExtValue *args, ExtValue *ret)
314{
315        o = Orient_1;
316        ret->setEmpty();
317}
318
319void Orient_Ext::get_x(PARAMGETARGS)
320{
321        *ret = Pt3D_Ext::makeStaticObject(&o.x);
322}
323
324void Orient_Ext::get_y(PARAMGETARGS)
325{
326        *ret = Pt3D_Ext::makeStaticObject(&o.y);
327}
328
329void Orient_Ext::get_z(PARAMGETARGS)
330{
331        *ret = Pt3D_Ext::makeStaticObject(&o.z);
332}
333
334void Orient_Ext::p_lookat(ExtValue *args, ExtValue *ret)
335{
336        Pt3D_Ext *dir = Pt3D_Ext::fromObject(args[1]), *up = Pt3D_Ext::fromObject(args[0]);
337        if (dir&&up)
338                o.lookAt(dir->p, up->p);
339        ret->setEmpty();
340}
341
342void Orient_Ext::p_rotate3(ExtValue *args, ExtValue *ret)
343{
344        Pt3D p(args[2].getDouble(), args[1].getDouble(), args[0].getDouble());
345        o.rotate(p);
346        ret->setEmpty();
347}
348
349void Orient_Ext::p_rotate(ExtValue *args, ExtValue *ret)
350{
351        Orient_Ext *obj = Orient_Ext::fromObject(args[0]);
352        if (obj)
353        {
354                Orient tmp = o;
355                obj->o.transform(o, tmp);
356        }
357        ret->setEmpty();
358}
359
360void Orient_Ext::p_revrotate(ExtValue *args, ExtValue *ret)
361{
362        Orient_Ext *obj = Orient_Ext::fromObject(args[0]);
363        if (obj)
364        {
365                Orient tmp = o;
366                obj->o.revTransform(o, tmp);
367        }
368        ret->setEmpty();
369}
370
371void Orient_Ext::p_normalize(ExtValue *args, ExtValue *ret)
372{
373        o.normalize();
374        ret->setEmpty();
375}
376
377void Orient_Ext::p_between2(ExtValue *args, ExtValue *ret)
378{
379        Orient_Ext *o1 = Orient_Ext::fromObject(args[2]);
380        Orient_Ext *o2 = Orient_Ext::fromObject(args[1]);
381        if (o1&&o2)
382        {
383                double q1 = args[0].getDouble(), q2 = 1.0 - q1;
384                o.x.x = q1 * o1->o.x.x + q2 * o2->o.x.x;
385                o.x.y = q1 * o1->o.x.y + q2 * o2->o.x.y;
386                o.x.z = q1 * o1->o.x.z + q2 * o2->o.x.z;
387                o.y.x = q1 * o1->o.y.x + q2 * o2->o.y.x;
388                o.y.y = q1 * o1->o.y.y + q2 * o2->o.y.y;
389                o.y.z = q1 * o1->o.y.z + q2 * o2->o.y.z;
390                o.z.x = q1 * o1->o.z.x + q2 * o2->o.z.x;
391                o.z.y = q1 * o1->o.z.y + q2 * o2->o.z.y;
392                o.z.z = q1 * o1->o.z.z + q2 * o2->o.z.z;
393                o.normalize();
394        }
395        ret->setEmpty();
396}
397
398void Orient_Ext::p_betweenOV(ExtValue *args, ExtValue *ret)
399{
400        Orient_Ext *o1 = Orient_Ext::fromObject(args[2]);
401        Pt3D_Ext *p2 = Pt3D_Ext::fromObject(args[1]);
402        if (o1&&p2)
403        {
404                double q1 = args[0].getDouble(), q2 = 1.0 - q1;
405                o.x.x = q1 * o1->o.x.x + q2 * p2->p.x;
406                o.x.y = q1 * o1->o.x.y + q2 * p2->p.y;
407                o.x.z = q1 * o1->o.x.z + q2 * p2->p.z;
408                o.normalize();
409        }
410        ret->setEmpty();
411}
412
413void Orient_Ext::p_localToWorld(ExtValue *args, ExtValue *ret)
414{
415        Pt3D_Ext *center, *point;
416        point = Pt3D_Ext::fromObject(args[1]);
417        center = Pt3D_Ext::fromObject(args[0]);
418        if (center && point)
419        {
420                Pt3D d;
421                Pt3D src = point->p;
422                o.transform(d, src);
423                d += center->p;
424                *ret = Pt3D_Ext::makeDynamicObject(new Pt3D_Ext(d));
425        }
426        else
427                ret->setEmpty();
428}
429
430void Orient_Ext::p_worldToLocal(ExtValue *args, ExtValue *ret)
431{
432        Pt3D_Ext *center, *point;
433        point = Pt3D_Ext::fromObject(args[1]);
434        center = Pt3D_Ext::fromObject(args[0]);
435        if (center && point)
436        {
437                Pt3D d;
438                Pt3D src = point->p;
439                d -= center->p;
440                o.revTransform(d, src);
441                *ret = Pt3D_Ext::makeDynamicObject(new Pt3D_Ext(d));
442        }
443        else
444                ret->setEmpty();
445}
446
447void Orient_Ext::get_angles(ExtValue *ret)
448{
449        *ret = Pt3D_Ext::makeDynamicObject(new Pt3D_Ext(o.getAngles()));
450}
451
452void Orient_Ext::get_toString(ExtValue *ret)
453{
454        Pt3D_Ext a(o.getAngles());
455        ret->setString(SString("Orient@") + a.toString());
456}
457
458Param& Orient_Ext::getStaticParam()
459{
460#ifdef __CODEGUARD__
461        static Orient_Ext static_orientobj;
462        static Param static_orientparam(getStaticParamtab(), &static_orientobj);
463#else
464        static Param static_orientparam(getStaticParamtab());
465#endif
466        return static_orientparam;
467}
468
469Orient_Ext* Orient_Ext::fromObject(const ExtValue& v)
470{
471        return (Orient_Ext*)v.getObjectTarget(getStaticParam().getName());
472}
473
474ParamInterface* Orient_Ext::getInterface() { return &getStaticParam(); }
475
476ExtObject Orient_Ext::makeStaticObject(Orient* o)
477{
478        return ExtObject(&getStaticParam(), ((char*)o) + (((char*)&o->x) - ((char*)&((Orient_Ext*)o)->o.x)));
479}
480
481ExtObject Orient_Ext::makeDynamicObject(Orient_Ext* p)
482{
483        return ExtObject(&getStaticParam(), p);
484}
485
486/////////////
487
488REGISTER_DESERIALIZABLE(Pt3D_Ext)
489REGISTER_DESERIALIZABLE(Orient_Ext)
Note: See TracBrowser for help on using the repository browser.