diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2020-07-21 22:18:07 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2020-07-21 22:18:07 -0400 |
| commit | a4a81ba53c1adcefb38c2238f38ff8e0c3cc8094 (patch) | |
| tree | 7b4d9c78fe6666fe27d9d28932f22d25d6a38588 | |
| parent | fc80db0ce06c3aae795cdba9aaaab77149696a6b (diff) | |
[cl] Fix `ray-color'.
| -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 1308b4b..f33697a 100644 --- a/cl-raytracer.lisp +++ b/cl-raytracer.lisp @@ -294,8 +294,8 @@ format (PPM), writing the result to `(current-output-port)'." (defun ray-color (r) "Return an arbitrary color for R." - (let* ((y (vec3-y (ray-direction r))) - (time (* 0.5 (+ y 1.0)))) + (let-match* (((vector _ y _) (ray-direction r)) + (time (* 0.5 (+ y 1.0)))) (list (round (* 255 (lerp 1.0 0.5 time))) (round (* 255 (lerp 1.0 0.7 time))) (round (* 255 (lerp 1.0 1.0 time)))))) |