diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2020-07-20 15:23:45 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2020-07-20 15:23:45 -0400 |
| commit | c747738b7b9de8f7218156893e82429a25a822a9 (patch) | |
| tree | 2c68693e0469f4ea82fb0d04a1538931d8339dfe /gerbil-raytracer.ss | |
| parent | 79fb23ef37d3e98bad18f5211720393ce8cd9a52 (diff) | |
Fix `degrees->radians'.
Diffstat (limited to 'gerbil-raytracer.ss')
| -rw-r--r-- | gerbil-raytracer.ss | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gerbil-raytracer.ss b/gerbil-raytracer.ss index 9251bd4..188da7a 100644 --- a/gerbil-raytracer.ss +++ b/gerbil-raytracer.ss @@ -137,12 +137,12 @@ ;; Convert D, a value in degrees, to radians. (def (degrees->radians d) (let ((pi 3.1415926535897932384626433)) - (* d (/ pi 360)))) + (* d (/ pi 180)))) ;; Return the ray corresponding to the point X, Y on the viewport plane. (def (coordinate->ray x y) (let* ((dist 1.0) - (top (* dist (tan (degrees->radians camera-fov)))) + (top (* dist (tan (/ (degrees->radians camera-fov) 2)))) (right (* top image-aspect-ratio)) (bottom (- top)) (left (- right)) |