MeshSketch: added skybox points.

1 files changed, 14 insertions, 0 deletions

diff --git a/MeshSketch.hs b/MeshSketch.hs
index 0208832..9d49f93 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -9,6 +9,7 @@ import qualified Data.ByteString as SB
 import Data.Coerce
 import Data.Functor
 import qualified Data.Map as Map
+import qualified Data.Vector as V
 import Data.IORef
 import Foreign.C.Types
 import GI.Gdk
@@ -16,6 +17,7 @@ import GI.GObject.Functions
 import GI.Gtk hiding (IsWindow,windowFullscreen,windowUnfullscreen)
 import Numeric.LinearAlgebra hiding ((<>))
 import LambdaCube.GL as LC
+import LambdaCube.GL.Mesh as LC
 import LambdaCube.GL.Data
 -- import LambdaCube.GL.Type as LC
 import LambdaCube.IR
@@ -134,6 +136,18 @@ onRealize mm@(MeshMaker w ref) = do
     skybox <- newIORef 0
     Right ts <- skyboxLoad skyboxes 0
     skybox_id <- uploadCubeMapToGPU ts
+    mi <- LC.uploadMeshToGPU Mesh
+        { mAttributes = Map.singleton "position" $ A_V3F $ V.fromList
+            [ V3 0 0 (-1)
+            , V3 0 0 1
+            , V3 0 (-1) 0
+            , V3 0 1 0
+            , V3 (-1) 0 0
+            , V3 01 0 0
+            ]
+        , mPrimitive = P_Points
+        }
+    LC.addMeshToObjectArray storage "skypoints" [] mi
     LC.updateUniforms storage $ do
         "Skybox" @= return skybox_id
     Just pwidget <- get w #parent