diff options
| -rw-r--r-- | cl-raytracer.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
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*) |