Changeset 394 for branches/thune

Timestamp:

05/20/07 01:05:39 (18 months ago)

Author:

krobillard

Message:

Thune - Added 'set-stride.

Location:

branches/thune/thread_safe

Files:

• math.c (modified) (1 diff)
• math3d.c (modified) (1 diff)

branches/thune/thread_safe/math.c

@@ -966 +966 @@
     { uc_dot,          "dot" },
     { uc_cross,        "cross" },
-    { uc_normalize,    "normalize" }
+    { uc_normalize,    "normalize" },
+    { uc_set_stride,   "set-stride" }
 #endif
 };

branches/thune/thread_safe/math3d.c

@@ -415 +415 @@
 
 
+// (vector n -- vector)
+UR_CALL( uc_set_stride )
+{
+    UCell* prev = ur_s_prev(tos);
+    UR_CALL_UNUSED_TH
+    if( ur_is(tos, UT_INT) && ur_is(prev, UT_VECTOR) )
+    {
+        ur_vectorStride(prev) = ur_int(tos);
+        UR_S_DROP;
+        return;
+    }
+    ur_throwErr( UR_ERR_DATATYPE, "set-stride expected vector! int!" );
+}
+
+
 /* EOF */