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 /r7rs-raytracer.scm | |
| parent | 79fb23ef37d3e98bad18f5211720393ce8cd9a52 (diff) | |
Fix `degrees->radians'.
Diffstat (limited to 'r7rs-raytracer.scm')
| -rw-r--r-- | r7rs-raytracer.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/r7rs-raytracer.scm b/r7rs-raytracer.scm index 08f9bce..06c9c4e 100644 --- a/r7rs-raytracer.scm +++ b/r7rs-raytracer.scm @@ -197,12 +197,12 @@ ;; Convert D, a value in degrees, to radians. (define (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. (define (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)) |