diff options
| author | Joshua Rahm <joshua.rahm@colorado.edu> | 2014-04-27 20:39:00 -0600 |
|---|---|---|
| committer | Joshua Rahm <joshua.rahm@colorado.edu> | 2014-04-27 20:39:00 -0600 |
| commit | a32da62b52b6f0e4039ae4226e3e2867880ca05c (patch) | |
| tree | 1fc4033fd7202ad7191ab2ea26c48aec3a23580d /Graphics/Glyph/Util.hs | |
| parent | 7dd8c59353167e84dab9e7a1afc16e2290b249e3 (diff) | |
| download | terralloc-a32da62b52b6f0e4039ae4226e3e2867880ca05c.tar.gz terralloc-a32da62b52b6f0e4039ae4226e3e2867880ca05c.tar.bz2 terralloc-a32da62b52b6f0e4039ae4226e3e2867880ca05c.zip | |
hacky first person stuff
Diffstat (limited to 'Graphics/Glyph/Util.hs')
| -rw-r--r-- | Graphics/Glyph/Util.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |