Add ImGui for rendering template

Author: hyazinthh

templates/Aardvark.Template.Rendering.FSharp/paket.dependencies

@@ -8,6 +8,7 @@ nuget Aardvark.Base                         ~> 5.3.0
 nuget Aardvark.Base.FSharp                  ~> 5.3.0
 
 nuget Aardvark.Rendering                    ~> 5.6.0
+nuget Aardvark.Rendering.ImGui              ~> 5.6.0
 nuget Aardvark.SceneGraph                   ~> 5.6.0
 nuget Aardvark.Application.Slim             ~> 5.6.0
 nuget Aardvark.Application.Slim.GL          ~> 5.6.0

templates/Aardvark.Template.Rendering.FSharp/paket.lock

@@ -109,6 +109,11 @@ NUGET
       FShade (>= 5.7 < 5.8)
       FSharp.Core (>= 8.0)
       Unofficial.OpenTK (>= 3.0.21 < 3.1)
+    Aardvark.Rendering.ImGui (5.6)
+      Aardvark.Application.Slim (5.6)
+      Aardvark.SceneGraph (5.6)
+      FSharp.Core (>= 8.0)
+      Hexa.NET.ImGui (>= 2.2.8.5 < 2.2.9)
     Aardvark.Rendering.Vulkan (5.6)
       Aardvark.Base.FSharp (>= 5.3.19 < 5.4)
       Aardvark.Base.Incremental (>= 5.3.19 < 5.4)
@@ -159,6 +164,9 @@ NUGET
       System.Reflection.Emit.Lightweight (>= 4.3)
     GLSLangSharp (0.5.1)
       FSharp.Core (>= 8.0)
+    Hexa.NET.ImGui (2.2.8.5)
+      HexaGen.Runtime (>= 1.1.21)
+    HexaGen.Runtime (1.1.23)
     Microsoft.CSharp (4.7)
     Microsoft.DotNet.PlatformAbstractions (3.1.6)
     Microsoft.Extensions.DependencyModel (9.0.1)

templates/Aardvark.Template.Rendering.FSharp/src/Aardvark.Template.Rendering/Program.fs

@@ -1,6 +1,7 @@
 open System
 open Aardvark.Base
 open Aardvark.Rendering
+open Aardvark.Rendering.ImGui
 open Aardvark.SceneGraph
 open Aardvark.Application
 open Aardvark.Application.Slim
@@ -16,6 +17,14 @@ let main argv =
     use app = new VulkanApplication()
     #endif
     use win = app.CreateGameWindow(4)
+    use gui = win.InitializeImGui()
+
+    let backgroundColor = AVal.init C3f.Black
+
+    gui.Render <- fun () ->
+        if ImGui.Begin("Settings", ImGuiWindowFlags.AlwaysAutoResize) then
+            ImGui.ColorEdit3("Background color", backgroundColor, ImGuiColorEditFlags.NoInputs)
+        ImGui.End()
 
     let quadGeometry =
         IndexedGeometry(
@@ -32,7 +41,7 @@ let main argv =
     let view = initialView |> DefaultCameraController.control win.Mouse win.Keyboard win.Time
     let proj = win.Sizes |> AVal.map (fun s -> Frustum.perspective 60.0 0.1 100.0 (float s.X / float s.Y))
 
-    let sg =
+    let quadSg =
         quadGeometry
             |> Sg.ofIndexedGeometry
             |> Sg.effect [
@@ -42,6 +51,14 @@ let main argv =
             |> Sg.viewTrafo (view |> AVal.map CameraView.viewTrafo)
             |> Sg.projTrafo (proj |> AVal.map Frustum.projTrafo)
 
+    let sg =
+        RenderCommand.Ordered [
+            RenderCommand.Clear backgroundColor
+            RenderCommand.Render quadSg
+            RenderCommand.Render gui
+        ]
+        |> Sg.execute
+
     let task =
         app.Runtime.CompileRender(win.FramebufferSignature, sg)
 

templates/Aardvark.Template.Rendering.FSharp/src/Aardvark.Template.Rendering/paket.references

@@ -1,6 +1,7 @@
 FSharp.Core
 
 Aardvark.Rendering
+Aardvark.Rendering.ImGui
 Aardvark.Application.Slim
 //#if (backend = "opengl")
 Aardvark.Application.Slim.GL