Changeset 485 for trunk/thune/math.c

Timestamp:

10/14/07 05:15:23 (13 months ago)

Author:

krobillard

Message:

Math operators work on coord!.
GL - Added 'point-in.

Files:

• trunk/thune/math.c (modified) (3 diffs)

trunk/thune/math.c

@@ -37 +37 @@
 
 
-#define MJ_INT_INT      0
-#define MJ_INT_DEC      1
-#define MJ_DEC_INT      2
-#define MJ_DEC_DEC      3
-#define MJ_VEC3_DEC     4
-#define MJ_DEC_VEC3     5
-#define MJ_VEC3_VEC3    6
-#define MJ_INT_BIG      7
-#define MJ_BIG_INT      8
-#define MJ_DEC_BIG      9
-#define MJ_BIG_DEC      10
-#define MJ_BIG_BIG      11
-#define MJ_NAN          12
+enum MathJumpPair
+{
+    MJ_INT_INT,
+    MJ_INT_DEC,
+    MJ_DEC_INT,
+    MJ_DEC_DEC,
+    MJ_VEC3_DEC,
+    MJ_DEC_VEC3,
+    MJ_VEC3_VEC3,
+    MJ_COORD_INT,
+    MJ_COORD_COORD,
+    MJ_INT_BIG,
+    MJ_BIG_INT,
+    MJ_DEC_BIG,
+    MJ_BIG_DEC,
+    MJ_BIG_BIG,
+    MJ_NAN
+};
 
 static int _mathJumpIndex( const UCell* a, const UCell* b )
@@ -88 +93 @@
         if( ur_is(b, UT_BIGNUM) )
             return MJ_BIG_BIG;
+    }
+    else if( ur_is(a, UT_COORD) )
+    {
+        if( ur_is(b, UT_INT) )
+            return MJ_COORD_INT;
+        if( ur_is(b, UT_COORD) )
+            return MJ_COORD_COORD;
     }
 
@@ -215 +227 @@
             res->vec3.xyz[1] = res->vec3.xyz[1] OP tos->vec3.xyz[1]; \
             res->vec3.xyz[2] = res->vec3.xyz[2] OP tos->vec3.xyz[2]; \
-            break;
+            break; \
+        case MJ_COORD_INT: \
+        {   int i, count = res->coord.len; \
+            for( i = 0; i < count; ++i ) \
+                res->coord.elem[i] = res->coord.elem[i] OP ur_int(tos); \
+        }   break; \
+        case MJ_COORD_COORD: \
+        {   int i, count = res->coord.len; \
+            if( tos->coord.len < count ) \
+                count = tos->coord.len; \
+            for( i = 0; i < count; ++i ) \
+                res->coord.elem[i] = res->coord.elem[i] OP tos->coord.elem[i];\
+        }   break;
+
 
 #define MATH_OPERATION_END \