Add wallFace shaders files

2021-03-21 18:55:33 +01:00
parent 1527ee3069
commit a7591bb1d7
5 changed files with 73 additions and 0 deletions
@@ -53,8 +53,11 @@ renderPicture' :: RenderData -> Float -> Float -> (Float,Float) -> (Float,Float)
                    (Float,Float) -> Picture -> IO (Word32,Word32)
 renderPicture' pdata rot zoom trans wins wallPoints lightPoints
                    viewFroms pic = do
+    startTicks <- SDL.ticks
    setCommonUniforms pdata rot zoom trans wins
    renderPicture pdata rot zoom trans wins wallPoints lightPoints viewFroms pic
+    endTicks <- SDL.ticks
+    return (startTicks, endTicks - startTicks)

 renderPicture :: RenderData -> Float -> Float -> (Float,Float) -> (Float,Float) ->
                    [(Point2,Point2)] -> [Point4] ->