Add spawner gun

app/Main.hs

@@ -24,6 +24,7 @@ import Sound.Preload
 
 import Control.Concurrent
 import Control.Lens
+import Foreign (Word32)
 
 import Control.Monad (when)
  
@@ -52,18 +53,7 @@ main = do
         (fmap (setWindowSize sizex sizey keyConfig) firstWorld)
         ( \preData w -> do
             startTicks <- SDL.ticks
-            clear [ColorBuffer,DepthBuffer]
-            (lightTicks,timeSpentPoking) <- renderPicture' (_renderData preData) 
-                (_cameraRot w) (_cameraZoom w) 
-                (_cameraCenter w)
-                (_windowX w,_windowY w) 
-                (wallsPointsAndCols w)
-                (wallsWindows w)
-                (lightsForGloom' w)
-                (_cameraViewFrom w)
-                (worldPictures w)
-            blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
-            renderFoldable (_renderData preData) (picToLTree Nothing $ fixedCoordPictures w)
+            doTheRender preData w
             playSoundQueue (_soundData preData) (_soundQueue w)
             newSoundData <- playAndUpdate (_sounds w) (_soundData preData)
 
@@ -91,3 +81,20 @@ setWindowSize :: Int -> Int -> KeyConfigSDL-> World -> World
 setWindowSize x y z w = w & windowX .~ fromIntegral x
                         & windowY .~ fromIntegral y
                         & keyConfig .~ z
+doTheRender :: PreloadData a -> World -> IO (Word32)
+doTheRender preData w = do
+    sTicks <- SDL.ticks
+    clear [ColorBuffer,DepthBuffer]
+    renderPicture' (_renderData preData) 
+        (_cameraRot w) (_cameraZoom w) 
+        (_cameraCenter w)
+        (_windowX w,_windowY w) 
+        (wallsPointsAndCols w)
+        (wallsWindows w)
+        (lightsForGloom' w)
+        (_cameraViewFrom w)
+        (worldPictures w)
+    blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
+    renderFoldable (_renderData preData) (picToLTree Nothing $ fixedCoordPictures w)
+    eTicks <- SDL.ticks
+    return (eTicks - sTicks)