diff options
-rw-r--r-- | MeshSketch.hs | 5 |
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 | |||
16 | import GI.Gtk hiding (IsWindow,windowFullscreen,windowUnfullscreen) | 16 | import GI.Gtk hiding (IsWindow,windowFullscreen,windowUnfullscreen) |
17 | import Numeric.LinearAlgebra hiding ((<>)) | 17 | import Numeric.LinearAlgebra hiding ((<>)) |
18 | import LambdaCube.GL as LC | 18 | import LambdaCube.GL as LC |
19 | import LambdaCube.GL.Data | ||
19 | -- import LambdaCube.GL.Type as LC | 20 | -- import LambdaCube.GL.Type as LC |
20 | import LambdaCube.IR | 21 | import LambdaCube.IR |
21 | import System.IO.Error | 22 | import System.IO.Error |
@@ -131,6 +132,10 @@ onRealize mm@(MeshMaker w ref) = do | |||
131 | cam <- newIORef initCamera | 132 | cam <- newIORef initCamera |
132 | skyboxes <- loadSkyboxes | 133 | skyboxes <- loadSkyboxes |
133 | skybox <- newIORef 0 | 134 | skybox <- newIORef 0 |
135 | Right ts <- skyboxLoad skyboxes 0 | ||
136 | skybox_id <- uploadCubeMapToGPU ts | ||
137 | LC.updateUniforms storage $ do | ||
138 | "Skybox" @= return skybox_id | ||
134 | Just pwidget <- get w #parent | 139 | Just pwidget <- get w #parent |
135 | Just parent <- get pwidget #window | 140 | Just parent <- get pwidget #window |
136 | toggle <- mkFullscreenToggle parent | 141 | toggle <- mkFullscreenToggle parent |