Update ray.lisp

No error if shape intersect method not defined.
kaveh808 · Jul 18, 2023 · 3ff0943 · 3ff0943
1 parent b2dbc7f
commit 3ff0943
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/kernel/ray.lisp b/src/kernel/ray.lisp
@@ -31,8 +31,10 @@
             (setf min-distance distance)))))
     min-distance))
 
+;;; ignore shapes for which the method is not defined; do not throw error
 (defmethod intersect ((self ray) (shape shape))
-  (error "INTERSECT not implemented"))
+  nil)
+;;  (error "INTERSECT not implemented"))
 
 (defmethod intersect ((self ray) (polyh polyhedron))
   (multiple-value-bind (lo hi) (get-bounds-world polyh)