cleanup: Delete almost all of the old code

Author: alt-romes

examples/cube/Main.hs

@@ -8,7 +8,7 @@ cabal-version:      3.4
 --------------------------------------------------------------------------------
 
 name:               ghengin-games
-tested-with:        GHC ==9.10.1
+tested-with:        GHC ==9.12.1
 version:            0.1.0.0
 license:            BSD-3-Clause
 license-file:       ../LICENSE
@@ -131,18 +131,22 @@ common common-flags
                            , Ghengin.Core.Renderer as Ghengin.Vulkan.Renderer
                            )
 
+--------------------------------------------------------------------------------
+-- Cooler examples
+--------------------------------------------------------------------------------
+
+-- Sebastian Lague's Procedural Planets
+executable planets-core
+    import:         common-flags
+    main-is:        Main.hs
+    other-modules:  Camera, Planet, Shaders
+    hs-source-dirs: planets-core
+
 -- library
 --   import: common-flags
 --   exposed-modules: Common, Common.Shader
 --   hs-source-dirs: common
 
--- executable planets-core
---     import:        common-flags
---     main-is:       Main.hs
---     other-modules: Camera, Planet, Shaders
---     build-depends: ghengin-games
---     hs-source-dirs:   planets-core
--- 
 -- executable fir-juliaset
 --     import:        common-flags
 --     main-is:       Main.hs
@@ -170,13 +174,6 @@ common common-flags
 --     other-modules: Shaders
 --     build-depends: ghengin-games
 --     hs-source-dirs: ocean-waves/
--- 
--- executable cube
---     import:        common-flags
---     main-is:       Main.hs
---     other-modules: Shaders
---     build-depends: ghengin-games
---     hs-source-dirs: cube/
 
 --------------------------------------------------------------------------------
 -- Some demos in increasing level of complexity
@@ -222,6 +219,7 @@ executable function-drawing
 
 --------------------------------------------------------------------------------
 -- Experiments
+--------------------------------------------------------------------------------
 
 -- This example is pretty hacked through.
 executable function-plotting

examples/cube/Shaders.hs

@@ -17,7 +17,7 @@ which in turn are made up of multiple things, as represented in the following pi
 │Mesh││Material                 ││Pipeline            │          
 └┬───┘└┬────────────────────────┘└┬───────────────────┘          
 ┌▽─────▽──────────────────────────▽┐                             
-│Planet (RenderPacket)             │                             
+│Planet                            │                             
 └──────────────────────────────────┘                             
 
 The function `newPlanet` handles the creation of planet render packets...
@@ -51,29 +51,13 @@ import qualified FIR
 import qualified Math.Linear as FIR
 import qualified Prelude
 
+-- planets!
 import Shaders -- planet shaders
 import Planet
 
-newtype ProjectionM = ProjectionM Transform
-  deriving Storable -- use GlBlock instead...
-  deriving FIR.Syntactic via (StructMat4 "m")
-
-newtype ViewM       = ViewM Transform
-  deriving Storable
-  deriving FIR.Syntactic via (StructMat4 "m")
-
-newtype CameraPos   = CameraPos Vec3
-  deriving Storable
-  deriving FIR.Syntactic via (StructVec3 "v")
-
-type CameraProperties = [ProjectionM, ViewM, CameraPos]
-
 pattern MAX_FRAME_TIME :: Float
 pattern MAX_FRAME_TIME = 0.5
 
--- We should use Alexander's gl-block library instead of Storable, and
--- Geomancy.Transform.Tree for the node tree...
-
 makeMainPipeline :: Renderer (RenderPipeline _ CameraProperties)
 makeMainPipeline = Linear.do
   Ur extent <- getRenderExtent
@@ -115,8 +99,8 @@ main = do
  currTime <- getCurrentTime
  withLinearIO $
   runCore (1280, 720) Linear.do
-    sampler <- ( createSampler FILTER_NEAREST SAMPLER_ADDRESS_MODE_CLAMP_TO_EDGE ↑)
-    tex     <- ( texture "assets/planet_gradient.png" sampler ↑)
+    -- sampler <- ( createSampler FILTER_NEAREST SAMPLER_ADDRESS_MODE_CLAMP_TO_EDGE ↑)
+    -- tex     <- ( texture "assets/planet_gradient.png" sampler ↑)
 
     pipeline            <- (makeMainPipeline ↑)
     ((p1mesh, pipeline), Ur minmax) <- newPlanetMesh pipeline defaultPlanetSettings

examples/ghengin-games.cabal

@@ -50,8 +50,6 @@ data PlanetSettings = PlanetSettings { resolution :: !Int
 
 data DisplayFace = All | FaceUp | FaceRight deriving Show
 
-
-
 data MinMax = MinMax !Float !Float
   deriving (P.Eq, Generic, SOP.Generic, Show, GStorable)
   deriving FIR.Syntactic via (FromGenericProduct MinMax ["min", "max"])