diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2020-07-21 20:11:02 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2020-07-21 20:11:02 -0400 |
| commit | 384452dc50286f795fc81d7cfcbfb4c42a30a993 (patch) | |
| tree | 6d6f1bd8d840ad2479346e61f72079ee4205105d /cl-raytracer.lisp | |
| parent | da805de2c8e6a52ee678cb847aab043ba915732b (diff) | |
fixup! Set `*read-default-float-format*'.
Diffstat (limited to 'cl-raytracer.lisp')
| -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*) |