--- a/DOCUMENTATION.markdown Thu Dec 15 18:46:31 2016 -0500
+++ b/DOCUMENTATION.markdown Fri Dec 16 15:35:58 2016 -0500
@@ -860,6 +860,12 @@
+### `IN-RANGE-P` (function)
+
+ (IN-RANGE-P LOW VALUE HIGH)
+
+Return whether `low` <= `value` < `high`.
+
### `LERP` (function)
(LERP FROM TO N)
--- a/losh.lisp Thu Dec 15 18:46:31 2016 -0500
+++ b/losh.lisp Fri Dec 16 15:35:58 2016 -0500
@@ -158,6 +158,11 @@
((< value min) min)
(t value))))
+(defun-inline in-range-p (low value high)
+ "Return whether `low` <= `value` < `high`."
+ (and (<= low value)
+ (< value high)))
+
(defun gnuplot (data &key
(filename "plot.png")
--- a/package.lisp Thu Dec 15 18:46:31 2016 -0500
+++ b/package.lisp Fri Dec 16 15:35:58 2016 -0500
@@ -38,15 +38,16 @@
:6/8tau
:7/8tau
- :radians
+ :clamp
:degrees
- :square
:dividesp
+ :in-range-p
+ :lerp
+ :map-range
:norm
- :lerp
:precise-lerp
- :map-range
- :clamp
+ :radians
+ :square
:gnuplot
:gnuplot-function))