diff --git a/c/coreslam_internals.h b/c/coreslam_internals.h
index 4ac3f4c..6023020 100644
--- a/c/coreslam_internals.h
+++ b/c/coreslam_internals.h
@@ -1,11 +1,7 @@
/*
-ziggurat.h Ziggurat random-number generator
+coreslam_internals.h internal support for CoreSLAM
-Downloaded from
-
- http://people.sc.fsu.edu/~jburkardt/c_src/ziggurat/ziggurat.c
-
-on 20 July 2014.
+Copyright (C) 2014 Simon D. Levy
This code is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as
@@ -21,16 +17,18 @@ You should have received a copy of the GNU Lesser General Public License
along with this code. If not, see .
*/
-#include
+#ifdef _MSC_VER
+typedef __int64 int64_t; /* Define it from MSVC's internal type */
+#else
+#include /* Use the C99 official header */
+#endif
-uint32_t cong_seeded ( uint32_t *jcong );
-double cpu_time ( void );
-uint32_t kiss_seeded ( uint32_t *jcong, uint32_t *jsr, uint32_t *w, uint32_t *z );
-uint32_t mwc_seeded ( uint32_t *w, uint32_t *z );
-float r4_exp ( uint32_t *jsr, uint32_t ke[256], float fe[256], float we[256] );
-void r4_exp_setup ( uint32_t ke[256], float fe[256], float we[256] );
-float r4_nor ( uint32_t *jsr, uint32_t kn[128], float fn[128], float wn[128] );
-void r4_nor_setup ( uint32_t kn[128], float fn[128], float wn[128] );
-float r4_uni ( uint32_t *jsr );
-uint32_t shr3_seeded ( uint32_t *jsr );
-void timestamp ( void );
+
+static const int NO_OBSTACLE = 65500;
+static const int OBSTACLE = 0;
+
+static double
+radians(double degrees)
+{
+ return degrees * M_PI / 180;
+}