WIP: Skybox for MeshSketch rework.

1 files changed, 29 insertions, 5 deletions

diff --git a/CubeMap.hs b/CubeMap.hs
index 337881f..10ba9e0 100644
--- a/CubeMap.hs
+++ b/CubeMap.hs
@@ -1,20 +1,23 @@
 module CubeMap
     ( loadSkyboxes
     , Skyboxes(..)
+    , cubeMesh
     ) where
 
 import LambdaCube.GL as LC
-import LambdaCube.GL.Mesh as LC
 import LambdaCube.GL.Data (uploadCubeMapToGPU)
+import LambdaCube.GL.Mesh as LC
 
-import Data.Maybe
+import Codec.Archive.Zip
+import Codec.Picture as Juicy
 import Control.Monad
+import qualified Data.ByteString.Lazy as Lazy
 import Data.List
+import qualified Data.Map as Map
+import Data.Maybe
+import qualified Data.Vector as V
 import System.Directory
 import System.FilePath
-import Codec.Archive.Zip
-import qualified Data.ByteString.Lazy as Lazy
-import Codec.Picture as Juicy
 
 image_names_xyz_dir :: [String]
 image_names_xyz_dir =
@@ -70,3 +73,24 @@ loadSkyboxes = do
                 return $ sequence imgs
         }
 
+cubeMesh :: Mesh
+cubeMesh = Mesh
+        { mAttributes = Map.singleton "position" $ A_V3F $ V.fromList
+            [ V3 1 (-1) (-1) -- 0
+            , V3 1 (-1)   1  -- 1
+            , V3 1   1    1  -- 2
+            , V3 1   1  (-1) -- 3
+            , V3 (-1) (-1)   1  -- 4
+            , V3 (-1) (-1) (-1) -- 5
+            , V3 (-1)   1  (-1) -- 6
+            , V3 (-1)   1    1  -- 7
+            ]
+        , mPrimitive = P_TrianglesI $ V.fromList
+            [ 0, 1, 2,  2, 3, 0 -- posx
+            , 4, 5, 6,  6, 7, 4 -- negx
+            , 6, 3, 2,  2, 7, 6 -- posy
+            , 4, 1, 0,  0, 5, 4 -- negy
+            , 1, 4, 7,  7, 2, 1 -- posz
+            , 5, 0, 3,  3, 6, 5 -- negz
+            ]
+        }