aboutsummaryrefslogtreecommitdiffstats
path: root/test/ccured_olden/voronoi/vector.c
diff options
context:
space:
mode:
authorxleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2010-02-17 13:44:32 +0000
committerxleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2010-02-17 13:44:32 +0000
commit6224148fdd809170d138216d72b8e6180d626aec (patch)
treef67127b4ab6026f5e29d0b6aa69bec4f8a223fb2 /test/ccured_olden/voronoi/vector.c
parentf9ebf19ba3ca4c3ee67cc88bbea407d4dd734249 (diff)
downloadcompcert-6224148fdd809170d138216d72b8e6180d626aec.tar.gz
compcert-6224148fdd809170d138216d72b8e6180d626aec.zip
Reorganization test directory
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1253 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'test/ccured_olden/voronoi/vector.c')
-rw-r--r--test/ccured_olden/voronoi/vector.c80
1 files changed, 0 insertions, 80 deletions
diff --git a/test/ccured_olden/voronoi/vector.c b/test/ccured_olden/voronoi/vector.c
deleted file mode 100644
index 1a288d7b..00000000
--- a/test/ccured_olden/voronoi/vector.c
+++ /dev/null
@@ -1,80 +0,0 @@
-/* For copyright information, see olden_v1.0/COPYRIGHT */
-
-#include "defines.h"
-
-/****************************************************************/
-/* Vector Routines. */
-/* From CMU vision library. */
-/* They are used only for the VD, not the DT. */
-/* They are slow because of large call-by-value parameters.*/
-/****************************************************************/
-
-/* V2_cprod: forms triple scalar product of [u,v,k], where k = u cross v */
-/* (returns the magnitude of u cross v in space)*/
-
-double V2_cprod(u,v)
- struct VEC2 u,v;
-{
- return(u.x * v.y - u.y * v.x);
-}
-
-
-/* V2_dot: vector dot product */
-
-double V2_dot(u,v)
-struct VEC2 u,v;
-{
- return(u.x * v.x + u.y * v.y);
-}
-
-/* V2_times: multiply a vector by a scalar */
-
-struct VEC2 V2_times(c,v)
- double c;
- struct VEC2 v;
-{
- struct VEC2 ans;
- ans.x = c * v.x;
- ans.y = c * v.y;
- return(ans);
-}
-
-/* V2_sum, V2_sub: Vector addition and subtraction */
-
-struct VEC2 V2_sum(u,v)
- struct VEC2 u,v;
-{
- struct VEC2 ans;
-
- ans.x = u.x + v.x;
- ans.y = u.y + v.y;
- return(ans);
-}
-
-struct VEC2 V2_sub(u,v)
- struct VEC2 u,v;
-{
- struct VEC2 ans;
- ans.x = u.x - v.x;
- ans.y = u.y - v.y;
- return(ans);
-}
-
-/* V2_magn: magnitude of vector */
-
-double V2_magn(u)
- struct VEC2 u;
-{
- return(sqrt(u.x*u.x+u.y*u.y));
-}
-
-/* returns k X v (cross product). this is a vector perpendicular to v */
-
-struct VEC2 V2_cross(v)
- struct VEC2 v;
-{
- struct VEC2 ans;
- ans.x = v.y;
- ans.y = -v.x;
- return(ans);
-}