Graphic tweaks/cleanup

src/Shader/Poke.hs

@@ -34,6 +34,7 @@ pokeVerxs ::
     UMV.MVector (PrimState IO) Int ->
     Picture ->
     IO ()
+{-# INLINE pokeVerxs #-}
 pokeVerxs vbos count = VFSM.mapM_ (pokeVerx vbos count) . VFSM.fromList
 
 pokeVerx :: MV.MVector (PrimState IO) (Shader, VBO) -> UMV.MVector (PrimState IO) Int -> Verx -> IO ()
@@ -472,6 +473,7 @@ pokeLayVerxs ::
     UMV.MVector (PrimState IO) Int ->
     Picture ->
     IO ()
+{-# INLINE pokeLayVerxs #-}
 pokeLayVerxs vbos counts = VFSM.mapM_ (pokeLayVerx vbos counts) . VFSM.fromList
 
 pokeLayVerx 

src/Shader/Poke/Cloud.hs

@@ -11,9 +11,11 @@ import Foreign
 import Geometry.Data
 
 pokeCloud :: Ptr Float -> Int -> Cloud -> IO Int
+{-# INLINE pokeCloud #-}
 pokeCloud vptr nv = pokeCloudLike vptr nv . mkCloudCloudLike
 
 pokeDust :: Ptr Float -> Int -> Dust -> IO Int
+{-# INLINE pokeDust #-}
 pokeDust vptr nv = pokeCloudLike vptr nv . mkDustCloudLike
 
 mkCloudCloudLike :: Cloud -> (Point3, Point4)