From a32da62b52b6f0e4039ae4226e3e2867880ca05c Mon Sep 17 00:00:00 2001 From: Joshua Rahm Date: Sun, 27 Apr 2014 20:39:00 -0600 Subject: hacky first person stuff --- Graphics/Glyph/Util.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Graphics/Glyph/Util.hs') diff --git a/Graphics/Glyph/Util.hs b/Graphics/Glyph/Util.hs index e8a5974..21e219a 100644 --- a/Graphics/Glyph/Util.hs +++ b/Graphics/Glyph/Util.hs @@ -320,3 +320,5 @@ mix a b c = a * c + b * (1 - c) fpart :: (RealFrac a) => a -> a fpart x = x - (fromIntegral (floor x::Int)) +ifNaN :: (RealFloat a) => a -> a -> a +ifNaN reg def = if' (isNaN reg) def reg -- cgit