Changeset 485 for trunk/thune/gl/gx.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/gl/gx.c (modified) (2 diffs)

trunk/thune/gl/gx.c

@@ -1488 +1488 @@
 
 
+#define ur_setLogic(c,b)      ur_initType(c,UT_LOGIC); ur_logic(c) = b
+
+// (rect pnt -- logic)
+UR_CALL( uc_point_in )
+{
+    UCell* res = ur_s_prev(tos);
+    if( ur_is(tos, UT_COORD) && ur_is(res, UT_COORD) )
+    {
+        int inside;
+        int16_t* pnt  = tos->coord.elem;
+        int16_t* rect = res->coord.elem;
+        if( pnt[0] < rect[0] ||
+            pnt[1] < rect[1] ||
+            pnt[0] > (rect[0] + rect[2]) ||
+            pnt[1] > (rect[1] + rect[3]) )
+            inside = 0;
+        else
+            inside = 1;
+        ur_setLogic(res, inside);
+        UR_S_DROP;
+        return;
+    }
+    ur_throwErr( UR_ERR_DATATYPE, "point-in expected 2 coord! values" );
+}
+
+
 // Should 'gl-extensions, etc. be replaced with a single 'gl-info call that
 // returns a context holding version, extensions, max-textures, etc.?
@@ -1702 +1728 @@
     { uc_curve_value,    "curve-value" },
     { uc_animate,        "animate" },
+    { uc_point_in,       "point-in" },
     { uc_gl_extensions,  "gl-extensions" },
     { uc_gl_max_textures,"gl-max-textures" },