works again like the prototype

2014-01-20 23:18:07 +01:00
parent 83c487c65d
commit 33b06a787d
2 changed files with 100 additions and 22 deletions
--- a/src/Render/Misc.hs
+++ b/src/Render/Misc.hs
@ -113,3 +113,8 @@ getCam (x',z') dist' xa' ya' = lookAt (cpos ^+^ at') at' up
                        xa    = realToFrac xa'
                        ya    = realToFrac ya'

+curb :: Ord a => a -> a -> a -> a
+curb l h x
+  | x < l     = l
+  | x > h     = h
+  | otherwise = x