-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
aardvark-platform
committed
Oct 27, 2024
1 parent
c85e476
commit e549df1
Showing
11 changed files
with
466 additions
and
36 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,3 +1,6 @@ | ||
| ### 1.0.8 | ||
| * added SimpleFreeFlyController | ||
|
|
||
| ### 1.0.7 | ||
| * fixed `Aardvark.Dom.Utilites` package name typo | ||
|
|
||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
93 changes: 93 additions & 0 deletions
93
src/Aardvark.Dom.Utilities/FreeFlyController/FreeFlyControlExtensions.fs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,93 @@ | ||
| namespace Aardvark.Dom.Utilities | ||
|
|
||
| open System | ||
| open FSharp.Data.Adaptive | ||
| open Aardvark.Rendering | ||
| open Aardvark.Base | ||
| open Aardvark.Dom | ||
| open Aardvark.Dom.Utilities | ||
| open Aardvark.Dom.Utilities.FreeFlyController | ||
|
|
||
| type SimpleFreeFlyConfig = | ||
| { | ||
| Location : V3d | ||
| LookAt : V3d | ||
| Sky : V3d | ||
| } | ||
|
|
||
| type SimpleFreeFlyController = SimpleFreeFlyController of SimpleFreeFlyConfig | ||
|
|
||
| [<AutoOpen>] | ||
| module RenderControlFreeFlyExtensions = | ||
|
|
||
| let private freeFly (SimpleFreeFlyController config) : NodeBuilderHelpers.RenderControlBuilder<aval<Trafo3d>> = | ||
|
|
||
| let mutable state = | ||
| { | ||
| LastRender = TimeSpan.Zero | ||
| Position = config.Location | ||
| Sky = config.Sky | ||
| Forward = Vec.normalize (config.LookAt - config.Location) | ||
|
|
||
| MoveSpeed = 1.0 | ||
| Damping = 20.0 | ||
|
|
||
| MoveVec = V3i.Zero | ||
| Momentum = V3d.Zero | ||
| TargetTurn = V2d.Zero | ||
| Camera = CameraView.lookAt config.Location config.LookAt config.Sky | ||
| } | ||
| let astate = AdaptiveFreeFlyState state | ||
|
|
||
| let coll = AsyncBlockingCollection<_>() | ||
|
|
||
| let env = | ||
| { new Env<FreeFlyMessage> with | ||
| member this.Emit(messages: FreeFlyMessage seq): unit = | ||
| coll.Add messages | ||
| member this.Run(js: string, arg1: (System.Text.Json.JsonElement -> unit) option): unit = | ||
| raise (System.NotImplementedException()) | ||
| member this.RunModal(modal: System.IDisposable -> DomNode): System.IDisposable = | ||
| raise (System.NotImplementedException()) | ||
| member this.Runtime: IRuntime = | ||
| failwith "" | ||
| member this.StartWorker(): System.Threading.Tasks.Task<WorkerInstance<'b,'a>> = | ||
| raise (System.NotImplementedException()) | ||
| } | ||
| let runner = | ||
| task { | ||
| while true do | ||
| let! msgs = coll.Take() | ||
| for msg in msgs do | ||
| state <- FreeFlyController.update state msg | ||
| transact (fun () -> astate.Update state) | ||
|
|
||
|
|
||
| } | ||
|
|
||
| let view = astate.Camera |> AVal.map CameraView.viewTrafo | ||
| let run = | ||
| renderControlExt { | ||
| RenderControl.OnRendered (fun _ -> env.Emit [FreeFlyMessage.Rendered]) | ||
| FreeFlyController.getAttributes env | ||
| Sg.View view | ||
| } | ||
| fun a -> run a; view | ||
|
|
||
| type RenderControlBuilder with | ||
|
|
||
|
|
||
| member x.Yield(config : SimpleFreeFlyController) = | ||
| x.Yield (freeFly config >> ignore) | ||
|
|
||
| member x.Bind(config : SimpleFreeFlyController, cont : aval<Trafo3d> -> _) = | ||
| x.Bind(freeFly config, cont) | ||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
Oops, something went wrong.