diff tools/mb_c_source.m4 @ 100:1a1dda98730c

Fix the bug of order of cross & inner product of vectors
author Thinker K.F. Li <thinker@branda.to>
date Wed, 10 Sep 2008 10:02:31 +0800
parents 9b4a02bcaeb1
children 565b55508c8d
line wrap: on
line diff
--- a/tools/mb_c_source.m4	Tue Sep 09 22:17:17 2008 +0800
+++ b/tools/mb_c_source.m4	Wed Sep 10 10:02:31 2008 +0800
@@ -48,6 +48,7 @@
 define([PATH_HIDE],)
 define([COORD_TRANSLATE],)
 define([COORD_MATRIX],)
+define([SHAPE_TRANSLATE],)
 define([SHAPE_MATRIX],)
 divert[]])
 
@@ -155,6 +156,15 @@
     rdman_coord_changed(rdman, obj->$1);
 ]])
 
+define([S_SHAPE_TRANSLATE],[dnl
+[    memset(obj->$1->matrix, 0, sizeof(obj->$1->matrix));
+    obj->$1->matrix[0] = 1;
+    obj->$1->matrix[2] = $2;
+    obj->$1->matrix[4] = 1;
+    obj->$1->matrix[5] = $3;
+    rdman_coord_changed(rdman, obj->$1);
+]])
+
 define([S_SHAPE_MATRIX],[dnl
 [    obj->$1->matrix[0] = $2;
     obj->$1->matrix[3] = $3;
@@ -186,6 +196,7 @@
 SIMPORT([PATH_HIDE])
 SIMPORT([COORD_TRANSLATE])
 SIMPORT([COORD_MATRIX])
+SIMPORT([SHAPE_TRANSLATE])
 SIMPORT([SHAPE_MATRIX])
 divert[]])
 
@@ -242,6 +253,7 @@
 define([PATH_HIDE],)
 define([COORD_TRANSLATE],)
 define([COORD_MATRIX],)
+define([SHAPE_TRANSLATE],)
 define([SHAPE_MATRIX],)
 divert[]])