1 files changed, 5 insertions, 0 deletions

diff --git a/MeshSketch.hs b/MeshSketch.hs
index 45e5710..0208832 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -16,6 +16,7 @@ import GI.GObject.Functions
 import GI.Gtk hiding (IsWindow,windowFullscreen,windowUnfullscreen)
 import Numeric.LinearAlgebra hiding ((<>))
 import LambdaCube.GL as LC
+import LambdaCube.GL.Data
 -- import LambdaCube.GL.Type as LC
 import LambdaCube.IR
 import System.IO.Error
@@ -131,6 +132,10 @@ onRealize mm@(MeshMaker w ref) = do
     cam <- newIORef initCamera
     skyboxes <- loadSkyboxes
     skybox <- newIORef 0
+    Right ts <- skyboxLoad skyboxes 0
+    skybox_id <- uploadCubeMapToGPU ts
+    LC.updateUniforms storage $ do
+        "Skybox" @= return skybox_id
     Just pwidget <- get w #parent
     Just parent <- get pwidget #window
     toggle <- mkFullscreenToggle parent