Commit 20bd491f authored by Daniel Kochmanski's avatar Daniel Kochmanski

use normal pi

parent dbd7e329
......@@ -857,8 +857,8 @@
;;; Geometry utilities
(defconstant pi-single-float (coerce pi 'single-float))
(defconstant 2pi (coerce (* pi-single-float 2) 'single-float))
(defconstant pi/2 (coerce (/ pi-single-float 2) 'single-float))
(defconstant 2pi (* pi 2))
(defconstant pi/2 (/ pi 2))
(defun radians->degrees (radians)
(* radians (/ 360 2pi)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment