added actions for panorama collection #412

pro3d-space · Jan 31, 2025 · 1ee4dd4 · 1ee4dd4
1 parent 7612ade
commit 1ee4dd4
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/PRo3D.SimulatedViews/Snapshots/SnapshotApp.fs b/src/PRo3D.SimulatedViews/Snapshots/SnapshotApp.fs
@@ -92,6 +92,16 @@ module SnapshotApp =
                               (float(resolution.X)/float(resolution.Y))
         frustum
 
+    let calculateFrustumP (snapshotAnimation : PanoramaSnapshotCollection)  = 
+        let resolution = V3i (snapshotAnimation.resolution.X, snapshotAnimation.resolution.Y, 1)
+
+        let foV = snapshotAnimation.fieldOfView
+
+        let frustum =
+          Frustum.perspective foV snapshotAnimation.nearplane snapshotAnimation.farplane
+                              (float(resolution.X)/float(resolution.Y))
+        frustum
+
     let private executeCameraAnimation (a : CameraSnapshotAnimation) 
                                        (app : SnapshotApp<'model,'aModel, 'msg>) =
         let frustum, recalcOption, near, far = calculateFrustumRecalcNearFar a

diff --git a/src/PRo3D.Snapshots/Viewer/SnapshotGenerator.fs b/src/PRo3D.Snapshots/Viewer/SnapshotGenerator.fs
@@ -186,6 +186,8 @@ module SnapshotGenerator =
             ]
         | SnapshotAnimation.PanoramaCollection a ->
             [
+                (ViewerAction.SetRenderViewportSize a.resolution |> ViewerMessage) 
+                (ViewerAction.SetFrustum (SnapshotApp.calculateFrustum a)) |> ViewerMessage
                 // Add actions that need to happen for each panorama batch (not single panorama shot) here
             ]