Handle very *very* small nice-nums

rm-hull · Mar 20, 2016 · 66576d5 · 66576d5
1 parent 231681c
commit 66576d5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/graph/heckbert.clj b/src/graph/heckbert.clj
@@ -6,7 +6,8 @@
   [x round]
   {:pre [(>= x 0)]}
   (let [exp (Math/floor (Math/log10 x))
-        f   (/ x (Math/pow 10 exp))
+        d   (Math/pow 10 exp)
+        f   (/ x (if (zero? d) 1 d))
         nf  (if round
               (condp > f
                 1.5  1.0