Working on irradiance map creation.

Author: deanjl

Nu/Nu/Render/Renderer3d.fs

@@ -6063,7 +6063,8 @@ type [<ReferenceEquality>] VulkanRenderer3d =
         let skyBoxPipeline = SkyBox.CreateSkyBoxPipeline compositionAttachment.Format compositionDepthAttachment.Format vkc
 
         // create irradiance pipeline
-        let irradiancePipeline = CubeMap.CreateCubeMapPipeline (Constants.Paths.IrradianceShaderFilePath, compositionAttachment.Format, compositionDepthAttachment.Format, vkc)
+        let irradianceFormat = Hl.Rgba16f
+        let irradiancePipeline = CubeMap.CreateCubeMapPipeline (Constants.Paths.IrradianceShaderFilePath, irradianceFormat.VkFormat, vkc)
 
         // create physically-based pipelines
         let physicallyBasedPipelines = PhysicallyBased.CreatePhysicallyBasedPipelines (Constants.Render.LightMapsMaxDeferred, Constants.Render.LightsMaxDeferred, compositionAttachment.Format, compositionDepthAttachment.Format, vkc)

Nu/Nu/Vulkan/Vulkan.CubeMap.fs

@@ -234,7 +234,7 @@ module CubeMap =
           Pipeline : Pipeline.Pipeline }
 
     /// Create a CubeMapPipeline.
-    let CreateCubeMapPipeline (shaderPath, colorAttachmentFormat, depthAttachmentFormat, vkc : Hl.VulkanContext) =
+    let CreateCubeMapPipeline (shaderPath, colorAttachmentFormat, vkc : Hl.VulkanContext) =
 
         // create pipeline
         let pipeline =
@@ -248,7 +248,7 @@ module CubeMap =
                       Pipeline.descriptor 1 Hl.CombinedImageSampler Hl.FragmentStage 1|]|]
                 [|Pipeline.pushConstant 0 sizeof<int> Hl.VertexFragmentStage|]
                 colorAttachmentFormat
-                (Some (Pipeline.depthTest depthAttachmentFormat))
+                None // NOTE: DJL: not porting currently meaningless depth test as it imposes complexity cost in vulkan.
                 vkc
 
         // create uniform buffer
@@ -273,7 +273,6 @@ module CubeMap =
          geometry : CubeMapGeometry,
          resolution : int,
          colorAttachment : Texture.Texture,
-         depthAttachment : Texture.Texture,
          pipeline : CubeMapPipeline,
          vkc : Hl.VulkanContext) =
 
@@ -299,7 +298,7 @@ module CubeMap =
         if Hl.validateRect scissor then
 
             // init render
-            let mutable rendering = Hl.makeRenderingInfo colorAttachment.ImageView (Some depthAttachment.ImageView) renderArea None
+            let mutable rendering = Hl.makeRenderingInfo colorAttachment.ImageView None renderArea None
             Vulkan.vkCmdBeginRendering (cb, asPointer &rendering)
 
             // bind pipeline
@@ -310,10 +309,6 @@ module CubeMap =
             Vulkan.vkCmdSetViewport (cb, 0u, 1u, asPointer &vkViewport)
             Vulkan.vkCmdSetScissor (cb, 0u, 1u, asPointer &scissor)
 
-            // set depth test state
-            Vulkan.vkCmdSetDepthTestEnable (cb, true)
-            Vulkan.vkCmdSetDepthCompareOp (cb, VkCompareOp.LessOrEqual)
-            
             // bind vertex and index buffer
             let mutable vertexBuffer = geometry.VertexBuffer.VkBuffer
             let mutable vertexOffset = 0UL

Nu/Nu/Vulkan/Vulkan.LightMap.fs

@@ -11,6 +11,46 @@ open Nu
 [<RequireQualifiedAccess>]
 module LightMap =
 
+    let CreateIrradianceMap (mapId, cb, resolution, cubeMapSurface : CubeMap.CubeMapSurface, colorFormat, irradiancePipeline, vkc) =
+
+        // create irradiance cube map
+        let metadata = Texture.TextureMetadata.make resolution resolution
+        let cubeMapInternal =
+            Texture.TextureInternal.create
+                VkSamplerAddressMode.ClampToEdge VkFilter.Linear VkFilter.Linear false
+                Texture.MipmapNone (Texture.AttachmentColor false) Texture.TextureCubeMap [|VkImageUsageFlags.Sampled|]
+                colorFormat Hl.Rgba metadata vkc
+        let cubeMap = Texture.EagerTexture { TextureMetadata = Texture.TextureMetadata.empty; TextureInternal = cubeMapInternal }
+
+        // compute views and projection
+        let views =
+            [|Matrix4x4.CreateLookAt (v3Zero, v3Right, v3Down)
+              Matrix4x4.CreateLookAt (v3Zero, v3Left, v3Down)
+              Matrix4x4.CreateLookAt (v3Zero, v3Up, v3Back)
+              Matrix4x4.CreateLookAt (v3Zero, v3Down, v3Forward)
+              Matrix4x4.CreateLookAt (v3Zero, v3Back, v3Down)
+              Matrix4x4.CreateLookAt (v3Zero, v3Forward, v3Down)|]
+        let projection = Matrix4x4.CreatePerspectiveFieldOfView (MathF.PI_OVER_2, 1.0f, 0.1f, 10.0f)
+
+        // render faces to irradiance cube map
+        for i in 0 .. dec 6 do
+
+            // render face
+            let view = views.[i]
+            let viewProjection = view * projection
+            CubeMap.DrawCubeMap
+                (mapId * 6 + i, cb, view, projection, viewProjection, cubeMapSurface.CubeMap, cubeMapSurface.CubeMapGeometry, resolution, cubeMap, irradiancePipeline, vkc)
+
+            // take a snapshot for testing
+            // TODO: DJL: implement.
+            //Hl.SaveFramebufferRgbaToBitmap (resolution, resolution, "Irradiance." + string cubeMapId + "." + string i + ".bmp")
+
+        // transition cubemap layout
+        // TODO: DJL: implement once multi-layered transition is sorted out!
+        
+        // fin
+        cubeMap
+    
     /// A collection of maps consisting a light map.
     type [<Struct>] LightMap =
         { Enabled : bool