From a41edc31ce81daf69157a345525933ca6c560004 Mon Sep 17 00:00:00 2001
From: Brian Paul <brian.paul@tungstengraphics.com>
Date: Wed, 9 May 2001 20:02:28 +0000
Subject: check for tiny values in dir[] vector in calcposobjs(), prevents FP
 underflows later

---
 progs/demos/tunnel2.c | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'progs/demos/tunnel2.c')

diff --git a/progs/demos/tunnel2.c b/progs/demos/tunnel2.c
index 8d66248410..048cd6d8e7 100644
--- a/progs/demos/tunnel2.c
+++ b/progs/demos/tunnel2.c
@@ -162,6 +162,13 @@ calcposobs(void)
    dir[1] = cos(alpha * M_PI / 180.0) * sin(beta * M_PI / 180.0);
    dir[2] = cos(beta * M_PI / 180.0);
 
+   if (dir[0] < 1.0e-5 && dir[0] > -1.0e-5)
+      dir[0] = 0;
+   if (dir[1] < 1.0e-5 && dir[1] > -1.0e-5)
+      dir[1] = 0;
+   if (dir[2] < 1.0e-5 && dir[2] > -1.0e-5)
+      dir[2] = 0;
+
    obs[0] += v * dir[0];
    obs[1] += v * dir[1];
    obs[2] += v * dir[2];
-- 
cgit v1.2.3