From b5a93156dfc743aec69987e03e89d27735b615dd Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 19 Dec 2019 08:17:45 -0500
Subject: math: Add degrees->radians and radians->degrees procedures.

---
 chickadee/math.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/chickadee/math.scm b/chickadee/math.scm
index b695e92..050dac1 100644
--- a/chickadee/math.scm
+++ b/chickadee/math.scm
@@ -23,7 +23,9 @@
             clamp
             min
             max
-            lerp)
+            lerp
+            degrees->radians
+            radians->degrees)
   #:replace (min max))
 
 (define pi 3.14159265358979323846)
@@ -65,3 +67,9 @@ actually less than MAX."
 (define-inlinable (lerp start end alpha)
   (+ (* start (- 1.0 alpha))
      (* end alpha)))
+
+(define-inlinable (degrees->radians degrees)
+  (/ (* pi degrees) 180.0))
+
+(define-inlinable (radians->degrees radians)
+  (/ (* 180.0 radians) pi))
-- 
cgit v1.2.3