added button to re-activate observation settings

Author: haraldsteinlechner

src/PRo3D.Core/GisApp-Model.fs

@@ -90,6 +90,7 @@ type ObservationInfoAction =
     | SetObserver       of option<EntitySpiceName>
     | SetTime           of DateTime
     | SetReferenceFrame of option<FrameSpiceName>
+    | Reset
 
 [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
 module GisSurface =

src/PRo3D.Core/GisApp/ObservationInfo.fs

@@ -26,6 +26,11 @@ module ObservationInfo =
             {m with time = {m.time with date = time}}
         | ObservationInfoAction.SetReferenceFrame frame ->
             {m with referenceFrame = frame}
+        | ObservationInfoAction.Reset -> 
+            match m.target with
+            | None -> { m with target = None }
+            | Some (EntitySpiceName n) -> // hack: perform dummy change to trigger recomputation of all parameters 
+                {m with target = Some (EntitySpiceName (n + "")) }
 
     let view (m : AdaptiveObservationInfo)
              (entities : amap<EntitySpiceName, AdaptiveEntity>) 
@@ -73,6 +78,7 @@ module ObservationInfo =
                                       Calendar.CalendarType.DateTime
                     ] |> UI.map CalendarMessage
                 Html.row "Reference Frame:" [frameDropdown]
+                Html.row "Reset" [button [onClick (fun _ -> Reset)] [text "Re-use settings above"]]
             ]
         )
 

src/PRo3D.Core/Sg.fs

@@ -341,6 +341,7 @@ module Sg =
                 match planet with
                 | Planet.Mars | Planet.Earth -> refsystem
                 | Planet.ENU -> refsystem2
+                | Planet.Moon | Planet.Dimorphos | Planet.Deimos | Planet.Didymos | Planet.Phobos -> refsystem
                 | _ -> xyzSystem 
             )
 

src/PRo3D.Viewer/Viewer/Viewer.fs

@@ -1297,6 +1297,14 @@ module ViewerApp =
                     let m = { m with shiftFlag = true}
                     Log.line "[Viewer] ShiftFlag %A" m.shiftFlag
                     m
+                | Aardvark.Application.Keys.C -> 
+                    Log.line "[Viewer] reset orbit to center"
+                    let c   = m.scene.config
+                    let ref = m.scene.referenceSystem
+                    let navigation' = 
+                        Navigation.update c ref navConf true None m.navigation (Navigation.Action.ArcBallAction(ArcBallController.Message.Pick V3d.Zero))
+                    { m with navigation = navigation' }       
+                    
                 | _ -> m