[core] simplify intersect-plane-sphere?

thi-ng · Jun 21, 2015 · 7cfab94 · 7cfab94
1 parent af3858f
commit 7cfab94
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/geom-core/src/intersect.org b/geom-core/src/intersect.org
@@ -368,7 +368,7 @@ http://fileadmin.cs.lth.se/cs/Personal/Tomas_Akenine-Moller/code/tribox3.txt
 
 #+BEGIN_SRC clojure :noweb-ref isec
   (defn intersect-plane-sphere?
-    [n w p r] (let [r (+ r *eps*)] (m/in-range? (- r) r (+ (g/dot n p) w))))
+    [n w p r] (<= (m/abs (+ (g/dot n p) w)) r))
 #+END_SRC
 
 ** Tetrahedron