From 384452dc50286f795fc81d7cfcbfb4c42a30a993 Mon Sep 17 00:00:00 2001 From: "Jakob L. Kreuze" Date: Tue, 21 Jul 2020 20:11:02 -0400 Subject: fixup! Set `*read-default-float-format*'. --- cl-raytracer.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'cl-raytracer.lisp') diff --git a/cl-raytracer.lisp b/cl-raytracer.lisp index 115634c..eb204b5 100644 --- a/cl-raytracer.lisp +++ b/cl-raytracer.lisp @@ -338,8 +338,8 @@ point)), if any. Otherwise, return 'none." (flet ((coord-to-index (x y) (+ x (* y *image-width*))) (screen-to-viewport (x y) - (values (coerce (/ x *image-width*) 'real) - (coerce (/ (- *image-height* 1 y) *image-height*) 'real))) + (values (coerce (/ x *image-width*) 'double-float) + (coerce (/ (- *image-height* 1 y) *image-height*) 'double-float))) (to-color (u) (mapcar #'(lambda (n) (round (* 255 n))) (vec3-components u)))) (dotimes (x *image-width*) -- cgit v1.3