Move from github, collapse gltk and strictmath, add candle

[clnl] / src / main / strictmath / base.lisp

diff --git a/src/main/strictmath/base.lisp b/src/main/strictmath/base.lisp
new file mode 100644 (file)
index 0000000..f12af98
--- /dev/null
+++ b/src/main/strictmath/base.lisp
@@ -0,0 +1,30 @@
+(in-package #:strictmath)
+
+(defun to-radians (deg)
+ "TO-RADIANS DEG => RAD
+
+ARGUMENTS AND VALUES:
+
+  DEG: A double representing the angle in degrees
+  RAD: A double representing the angle in radians
+
+DESCRIPTION:
+
+  TO-RADIANS returns the radians equivalent of the angle passed in, in
+  degrees."
+ (* (/ deg 180d0) pi))
+
+;(defun sin (rad)
+; (cl:sin rad))
+(defun decode-float64 (x)
+ (let
+  ((i (ieee-floats:encode-float64 x)))
+  (values
+   (ash i -32)
+   (logand (ieee-floats:encode-float64 1.5707963267341256d0) #x00000000ffffffff))))
+
+(defun encode-float64 (y1 y2)
+ (ieee-floats:decode-float64 (+ (ash y1 32) y2)))
+
+(defun float64-abs (x)
+ (abs x))