From 869afa7829c765be2083899adea4842b24871dc0 Mon Sep 17 00:00:00 2001 From: Harald Steinlechner Date: Mon, 19 Dec 2022 15:41:45 +0100 Subject: [PATCH 1/6] initial script --- .config/dotnet-tools.json | 38 ++++++++++++++++++++++---------------- global.json | 6 ++++++ runAdaptify.cmd | 12 ++++++++++++ scripts/printProjects.fsx | 17 +++++++++++++++++ src/runAdaptify.cmd | 12 ++++++++++++ 5 files changed, 69 insertions(+), 16 deletions(-) create mode 100644 global.json create mode 100644 runAdaptify.cmd create mode 100644 scripts/printProjects.fsx create mode 100644 src/runAdaptify.cmd diff --git a/.config/dotnet-tools.json b/.config/dotnet-tools.json index 89906f74..afaf0437 100644 --- a/.config/dotnet-tools.json +++ b/.config/dotnet-tools.json @@ -1,18 +1,24 @@ { - "version": 1, - "isRoot": true, - "tools": { - "paket": { - "version": "7.0.0-alpha003", - "commands": [ - "paket" - ] - }, - "aardpack": { - "version": "1.0.10", - "commands": [ - "aardpack" - ] - } + "version": 1, + "isRoot": true, + "tools": { + "paket": { + "version": "7.0.0-alpha003", + "commands": [ + "paket" + ] + }, + "aardpack": { + "version": "1.0.10", + "commands": [ + "aardpack" + ] + }, + "adaptify": { + "version": "1.1.8", + "commands": [ + "adaptify" + ] } - } \ No newline at end of file + } +} \ No newline at end of file diff --git a/global.json b/global.json new file mode 100644 index 00000000..ce720023 --- /dev/null +++ b/global.json @@ -0,0 +1,6 @@ +{ + "sdk": { + "version": "6.0.203", + "rollForward": "latestMinor" + } +} \ No newline at end of file diff --git a/runAdaptify.cmd b/runAdaptify.cmd new file mode 100644 index 00000000..40ce7360 --- /dev/null +++ b/runAdaptify.cmd @@ -0,0 +1,12 @@ +dotnet adaptify --local --force src\OpcViewer\OpcViewer.fsproj +dotnet adaptify --local --force src\PRo3D.2D3DLinking\PRo3D.Linking.fsproj +dotnet adaptify --local --force src\PRo3D.Base\PRo3D.Base.fsproj +dotnet adaptify --local --force src\PRo3D.Core\PRo3D.Core.fsproj +dotnet adaptify --local --force src\PRo3D.CorrelationPanels\PRo3D.CorrelationPanels.fsproj +dotnet adaptify --local --force src\PRo3D.Lite\PRo3D.Lite.fsproj +dotnet adaptify --local --force src\PRo3D.Minerva\PRo3D.Minerva.fsproj +dotnet adaptify --local --force src\PRo3D.SimulatedViews\PRo3D - Backup.SimulatedViews.fsproj +dotnet adaptify --local --force src\PRo3D.SimulatedViews\PRo3D.SimulatedViews.fsproj +dotnet adaptify --local --force src\PRo3D.Snapshots\PRo3D.Snapshots.fsproj +dotnet adaptify --local --force src\PRo3D.Viewer\PRo3D.Viewer.fsproj +dotnet adaptify --local --force src\Tests\Tests.fsproj \ No newline at end of file diff --git a/scripts/printProjects.fsx b/scripts/printProjects.fsx new file mode 100644 index 00000000..24c1288e --- /dev/null +++ b/scripts/printProjects.fsx @@ -0,0 +1,17 @@ +open System +open System.IO + +let root = Path.Combine(__SOURCE_DIRECTORY__, "..") +let src = Path.Combine(root, "src") + +let projectFiles = + Directory.EnumerateFiles(src, "*.fsproj", SearchOption.AllDirectories) + |> Seq.toArray + |> Array.map (fun projFile -> + sprintf "dotnet adaptify --local --force %s" (Path.GetRelativePath(root, projFile)) + ) + +let genRunAdaptifyScript () = + let runAdaptify = projectFiles |> String.concat Environment.NewLine + File.WriteAllText(Path.Combine(root, "runAdaptify.cmd"), runAdaptify) + diff --git a/src/runAdaptify.cmd b/src/runAdaptify.cmd new file mode 100644 index 00000000..4b009715 --- /dev/null +++ b/src/runAdaptify.cmd @@ -0,0 +1,12 @@ +dotnet adaptify --local --force OpcViewer\OpcViewer.fsproj +dotnet adaptify --local --force PRo3D.2D3DLinking\PRo3D.Linking.fsproj +dotnet adaptify --local --force PRo3D.Base\PRo3D.Base.fsproj +dotnet adaptify --local --force PRo3D.Core\PRo3D.Core.fsproj +dotnet adaptify --local --force PRo3D.CorrelationPanels\PRo3D.CorrelationPanels.fsproj +dotnet adaptify --local --force PRo3D.Lite\PRo3D.Lite.fsproj +dotnet adaptify --local --force PRo3D.Minerva\PRo3D.Minerva.fsproj +dotnet adaptify --local --force PRo3D.SimulatedViews\PRo3D - Backup.SimulatedViews.fsproj +dotnet adaptify --local --force PRo3D.SimulatedViews\PRo3D.SimulatedViews.fsproj +dotnet adaptify --local --force PRo3D.Snapshots\PRo3D.Snapshots.fsproj +dotnet adaptify --local --force PRo3D.Viewer\PRo3D.Viewer.fsproj +dotnet adaptify --local --force Tests\Tests.fsproj \ No newline at end of file From 36ff48968469a4d85f460fa3aa3bc51692480b8c Mon Sep 17 00:00:00 2001 From: Harald Steinlechner Date: Tue, 20 Dec 2022 18:48:53 +0100 Subject: [PATCH 2/6] sync --- .gitignore | 30 ------ AdaptifyHelpers.fs | 20 ++++ Build.fs | 4 + Build.fsproj | 7 +- runAdaptify.cmd | 13 +-- scripts/printProjects.fsx | 31 ++++++- src/PRo3D.2D3DLinking/paket.references | 1 - src/PRo3D.Base/PRo3D.Base.fsproj | 2 +- src/PRo3D.Base/paket.references | 1 - src/PRo3D.Core/paket.references | 1 - src/PRo3D.Lite/paket.references | 1 - src/PRo3D.Minerva/paket.references | 1 - .../PRo3D.SimulatedViews.fsproj | 91 ++++++++++--------- src/PRo3D.SimulatedViews/paket.references | 1 - src/PRo3D.Snapshots/paket.references | 1 - src/PRo3D.Viewer/paket.references | 1 - src/PRo3D.sln | 9 +- src/runAdaptify.cmd | 12 --- 18 files changed, 112 insertions(+), 115 deletions(-) create mode 100644 AdaptifyHelpers.fs delete mode 100644 src/runAdaptify.cmd diff --git a/.gitignore b/.gitignore index 201b1788..a3878d9c 100644 --- a/.gitignore +++ b/.gitignore @@ -1,6 +1,5 @@ bin/Release bin/Debug -*.g.fs *.swp *.userprefs **/obj @@ -30,35 +29,6 @@ src\Aardvark.OpcViewer.psess /src/PRo3D.DomainModel/bin/Release /src/PRo3D.Base/bin/Release /.paket/Paket.Restore.targets -/src/Aardvark.Opc.Viewer/bin/Debug/Aardvark.Opc.Viewer.XML -/src/Aardvark.Opc.Viewer/bin/Debug/Aardvark.Opc.Viewer.exe -/src/Aardvark.Opc.Viewer/bin/Debug/Aardvark.Opc.Viewer.exe.config -/src/Aardvark.Opc.Viewer/bin/Debug/Aardvark.Opc.Viewer.pdb -/src/Aardvark.Opc.Viewer/bin/Debug/FSharp.Core.dll -/src/Aardvark.Opc.Viewer/bin/Debug/FSharp.Core.xml -/src/Aardvark.Opc.Viewer/bin/Debug/System.ValueTuple.dll -/src/Aardvark.Opc.Viewer/bin/Release/Aardvark.Opc.Viewer.XML -/src/Aardvark.Opc.Viewer/packages.config -/src/Aardvark.Opc.Viewer/paket.references -/src/packages/System.ValueTuple.4.3.1/System.ValueTuple.4.3.1.nupkg -/src/packages/System.ValueTuple.4.3.1/ThirdPartyNotices.txt -/src/packages/System.ValueTuple.4.3.1/dotnet_library_license.txt -/src/packages/System.ValueTuple.4.3.1/lib/MonoAndroid10/_._ -/src/packages/System.ValueTuple.4.3.1/lib/MonoTouch10/_._ -/src/packages/System.ValueTuple.4.3.1/lib/netstandard1.0/.xml -/src/packages/System.ValueTuple.4.3.1/lib/netstandard1.0/System.ValueTuple.dll -/src/packages/System.ValueTuple.4.3.1/lib/portable-net40+sl4+win8+wp8/.xml -/src/packages/System.ValueTuple.4.3.1/lib/portable-net40+sl4+win8+wp8/System.ValueTuple.dll -/src/packages/System.ValueTuple.4.3.1/lib/xamarinios10/_._ -/src/packages/System.ValueTuple.4.3.1/lib/xamarinmac20/_._ -/src/packages/System.ValueTuple.4.3.1/lib/xamarintvos10/_._ -/src/packages/System.ValueTuple.4.3.1/lib/xamarinwatchos10/_._ -/src/packages/System.ValueTuple.4.3.1/ref/MonoAndroid10/_._ -/src/packages/System.ValueTuple.4.3.1/ref/MonoTouch10/_._ -/src/packages/System.ValueTuple.4.3.1/ref/xamarinios10/_._ -/src/packages/System.ValueTuple.4.3.1/ref/xamarinmac20/_._ -/src/packages/System.ValueTuple.4.3.1/ref/xamarintvos10/_._ -/src/packages/System.ValueTuple.4.3.1/ref/xamarinwatchos10/_._ /src/Aardvark.Opc.Viewer/bin/Release *.domaincache /.paket diff --git a/AdaptifyHelpers.fs b/AdaptifyHelpers.fs new file mode 100644 index 00000000..b07b4336 --- /dev/null +++ b/AdaptifyHelpers.fs @@ -0,0 +1,20 @@ +namespace Aardvark.Fake + +open System +open System.IO + +module MsBuild = + open Microsoft.Build.Construction + + let patchProject (projectFileName : string) = + let p = ProjectRootElement.Open(projectFileName) + for g in p.ItemGroups do + for i in g.Items do + if i.ItemType = "Compile" && Path.GetExtension(i.Include) = ".fs" then + // beside .fs file a .g.fs file? + //let generatedFilePath = Path.Combine(Path.GetDirectoryName()) + printfn "%A" i.Include + () + + let test () = + patchProject "C:\Users\steinlechner\Desktop\PRo3D-nomsbuild\src\PRo3D.2D3DLinking\PRo3D.Linking.fsproj" \ No newline at end of file diff --git a/Build.fs b/Build.fs index 3a9647f3..d9d08a4c 100644 --- a/Build.fs +++ b/Build.fs @@ -494,6 +494,10 @@ Target.create "CompileDebug" (fun _ -> ) ) +Target.create "AddAdaptifyPackages" (fun _ -> + MsBuild.test() +) + Target.create "CompileInstruments" (fun _ -> let cfg = "Debug" //if config.debug then "Debug" else "Release" diff --git a/Build.fsproj b/Build.fsproj index 05aa29ee..38e2d510 100644 --- a/Build.fsproj +++ b/Build.fsproj @@ -4,11 +4,16 @@ Exe net6.0 - + + + + + + \ No newline at end of file diff --git a/runAdaptify.cmd b/runAdaptify.cmd index 40ce7360..3ce6ca76 100644 --- a/runAdaptify.cmd +++ b/runAdaptify.cmd @@ -1,12 +1 @@ -dotnet adaptify --local --force src\OpcViewer\OpcViewer.fsproj -dotnet adaptify --local --force src\PRo3D.2D3DLinking\PRo3D.Linking.fsproj -dotnet adaptify --local --force src\PRo3D.Base\PRo3D.Base.fsproj -dotnet adaptify --local --force src\PRo3D.Core\PRo3D.Core.fsproj -dotnet adaptify --local --force src\PRo3D.CorrelationPanels\PRo3D.CorrelationPanels.fsproj -dotnet adaptify --local --force src\PRo3D.Lite\PRo3D.Lite.fsproj -dotnet adaptify --local --force src\PRo3D.Minerva\PRo3D.Minerva.fsproj -dotnet adaptify --local --force src\PRo3D.SimulatedViews\PRo3D - Backup.SimulatedViews.fsproj -dotnet adaptify --local --force src\PRo3D.SimulatedViews\PRo3D.SimulatedViews.fsproj -dotnet adaptify --local --force src\PRo3D.Snapshots\PRo3D.Snapshots.fsproj -dotnet adaptify --local --force src\PRo3D.Viewer\PRo3D.Viewer.fsproj -dotnet adaptify --local --force src\Tests\Tests.fsproj \ No newline at end of file +dotnet adaptify --local --force "C:\Users\steinlechner\Desktop\PRo3D-nomsbuild\src\PRo3D.Viewer\PRo3D.Viewer.fsproj" \ No newline at end of file diff --git a/scripts/printProjects.fsx b/scripts/printProjects.fsx index 24c1288e..d804e9f5 100644 --- a/scripts/printProjects.fsx +++ b/scripts/printProjects.fsx @@ -1,17 +1,38 @@ +//#r "nuget: Microsoft.Build.Locator" + +//open Microsoft.Build.Locator +//do MSBuildLocator.RegisterInstance(MSBuildLocator.QueryVisualStudioInstances() |> Seq.sortByDescending (fun i -> i.Version) |> Seq.head) + +#r "nuget: Microsoft.Build, 17.4.0" +#r "nuget: Microsoft.Build.Utilities.Core, 17.4.0" open System open System.IO + let root = Path.Combine(__SOURCE_DIRECTORY__, "..") let src = Path.Combine(root, "src") let projectFiles = Directory.EnumerateFiles(src, "*.fsproj", SearchOption.AllDirectories) |> Seq.toArray - |> Array.map (fun projFile -> - sprintf "dotnet adaptify --local --force %s" (Path.GetRelativePath(root, projFile)) - ) + + + + +module MsBuild = + open Microsoft.Build + open Microsoft.Build.Evaluation + + let test () = + let options = Microsoft.Build.Construction.ProjectRootElement.Open("C:\Users\steinlechner\Desktop\PRo3D-nomsbuild\src\PRo3D.2D3DLinking\PRo3D.Linking.fsproj") + () + let genRunAdaptifyScript () = - let runAdaptify = projectFiles |> String.concat Environment.NewLine + let adaptifyCalls = + projectFiles + |> Array.map (fun projFile -> + sprintf "dotnet adaptify --local --force %s" (Path.GetRelativePath(root, projFile)) + ) + let runAdaptify = adaptifyCalls |> String.concat Environment.NewLine File.WriteAllText(Path.Combine(root, "runAdaptify.cmd"), runAdaptify) - diff --git a/src/PRo3D.2D3DLinking/paket.references b/src/PRo3D.2D3DLinking/paket.references index 8fe0dc86..4e8852aa 100644 --- a/src/PRo3D.2D3DLinking/paket.references +++ b/src/PRo3D.2D3DLinking/paket.references @@ -10,7 +10,6 @@ Aardvark.SceneGraph Aardvark.SceneGraph.IO Aardvark.SceneGraph.Opc -Adaptify.MSBuild Adaptify.Core Aardvark.Geometry diff --git a/src/PRo3D.Base/PRo3D.Base.fsproj b/src/PRo3D.Base/PRo3D.Base.fsproj index 16eed30f..781ae66d 100644 --- a/src/PRo3D.Base/PRo3D.Base.fsproj +++ b/src/PRo3D.Base/PRo3D.Base.fsproj @@ -16,10 +16,10 @@ true + - diff --git a/src/PRo3D.Base/paket.references b/src/PRo3D.Base/paket.references index e2ddbe8a..99e3882b 100644 --- a/src/PRo3D.Base/paket.references +++ b/src/PRo3D.Base/paket.references @@ -7,7 +7,6 @@ Aardvark.SceneGraph Aardvark.SceneGraph.Opc Aardvark.Rendering.Text -Adaptify.Core Adaptify.MSBuild Aardvark.UI diff --git a/src/PRo3D.Core/paket.references b/src/PRo3D.Core/paket.references index 545814c1..8dd9030a 100644 --- a/src/PRo3D.Core/paket.references +++ b/src/PRo3D.Core/paket.references @@ -10,7 +10,6 @@ Aardvark.SceneGraph Aardvark.SceneGraph.IO Aardvark.SceneGraph.Opc -Adaptify.MSBuild Adaptify.Core Aardvark.Geometry diff --git a/src/PRo3D.Lite/paket.references b/src/PRo3D.Lite/paket.references index 6af7ddd3..637edff4 100644 --- a/src/PRo3D.Lite/paket.references +++ b/src/PRo3D.Lite/paket.references @@ -13,7 +13,6 @@ Aardvark.SceneGraph Aardvark.SceneGraph.IO Aardvark.Rendering.Text -Adaptify.Core Adaptify.MSBuild FsPickler diff --git a/src/PRo3D.Minerva/paket.references b/src/PRo3D.Minerva/paket.references index a97229c4..0da2aea0 100644 --- a/src/PRo3D.Minerva/paket.references +++ b/src/PRo3D.Minerva/paket.references @@ -13,7 +13,6 @@ Aardvark.UI Aardvark.UI.Primitives Adaptify.Core -Adaptify.MSBuild Aardvark.Geometry.Intersection Aardvark.Geometry.PointTree diff --git a/src/PRo3D.SimulatedViews/PRo3D.SimulatedViews.fsproj b/src/PRo3D.SimulatedViews/PRo3D.SimulatedViews.fsproj index d941af33..1a2669fb 100644 --- a/src/PRo3D.SimulatedViews/PRo3D.SimulatedViews.fsproj +++ b/src/PRo3D.SimulatedViews/PRo3D.SimulatedViews.fsproj @@ -12,51 +12,52 @@ ..\..\bin\Release\ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/src/PRo3D.SimulatedViews/paket.references b/src/PRo3D.SimulatedViews/paket.references index 8fe0dc86..4e8852aa 100644 --- a/src/PRo3D.SimulatedViews/paket.references +++ b/src/PRo3D.SimulatedViews/paket.references @@ -10,7 +10,6 @@ Aardvark.SceneGraph Aardvark.SceneGraph.IO Aardvark.SceneGraph.Opc -Adaptify.MSBuild Adaptify.Core Aardvark.Geometry diff --git a/src/PRo3D.Snapshots/paket.references b/src/PRo3D.Snapshots/paket.references index b39deef2..bd17bdf1 100644 --- a/src/PRo3D.Snapshots/paket.references +++ b/src/PRo3D.Snapshots/paket.references @@ -15,7 +15,6 @@ Aardvark.Geometry.PointTree Aardvark.UI.Primitives Aardvark.Service -Adaptify.MSBuild Adaptify.Core FSharp.Core diff --git a/src/PRo3D.Viewer/paket.references b/src/PRo3D.Viewer/paket.references index b39deef2..bd17bdf1 100644 --- a/src/PRo3D.Viewer/paket.references +++ b/src/PRo3D.Viewer/paket.references @@ -15,7 +15,6 @@ Aardvark.Geometry.PointTree Aardvark.UI.Primitives Aardvark.Service -Adaptify.MSBuild Adaptify.Core FSharp.Core diff --git a/src/PRo3D.sln b/src/PRo3D.sln index 0fd5b72f..01c6d17a 100644 --- a/src/PRo3D.sln +++ b/src/PRo3D.sln @@ -25,9 +25,12 @@ EndProject Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution Items", "{EC91D5A1-9C4B-45A2-843C-CB687BF9581F}" ProjectSection(SolutionItems) = preProject ..\paket.dependencies = ..\paket.dependencies + ..\scripts\printProjects.fsx = ..\scripts\printProjects.fsx EndProjectSection EndProject -Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "Tests", "Tests\Tests.fsproj", "{D71C7F9E-2847-4218-9FE9-31777CD0B470}" +Project("{6EC3EE1D-3C4E-46DD-8F32-0CC8E7565705}") = "Tests", "Tests\Tests.fsproj", "{D71C7F9E-2847-4218-9FE9-31777CD0B470}" +EndProject +Project("{6EC3EE1D-3C4E-46DD-8F32-0CC8E7565705}") = "Build", "..\Build.fsproj", "{D1F8A5CC-0CB9-448B-8A54-05674C816153}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution @@ -79,6 +82,10 @@ Global {D71C7F9E-2847-4218-9FE9-31777CD0B470}.Debug|Any CPU.Build.0 = Debug|Any CPU {D71C7F9E-2847-4218-9FE9-31777CD0B470}.Release|Any CPU.ActiveCfg = Release|Any CPU {D71C7F9E-2847-4218-9FE9-31777CD0B470}.Release|Any CPU.Build.0 = Release|Any CPU + {D1F8A5CC-0CB9-448B-8A54-05674C816153}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {D1F8A5CC-0CB9-448B-8A54-05674C816153}.Debug|Any CPU.Build.0 = Debug|Any CPU + {D1F8A5CC-0CB9-448B-8A54-05674C816153}.Release|Any CPU.ActiveCfg = Release|Any CPU + {D1F8A5CC-0CB9-448B-8A54-05674C816153}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/src/runAdaptify.cmd b/src/runAdaptify.cmd deleted file mode 100644 index 4b009715..00000000 --- a/src/runAdaptify.cmd +++ /dev/null @@ -1,12 +0,0 @@ -dotnet adaptify --local --force OpcViewer\OpcViewer.fsproj -dotnet adaptify --local --force PRo3D.2D3DLinking\PRo3D.Linking.fsproj -dotnet adaptify --local --force PRo3D.Base\PRo3D.Base.fsproj -dotnet adaptify --local --force PRo3D.Core\PRo3D.Core.fsproj -dotnet adaptify --local --force PRo3D.CorrelationPanels\PRo3D.CorrelationPanels.fsproj -dotnet adaptify --local --force PRo3D.Lite\PRo3D.Lite.fsproj -dotnet adaptify --local --force PRo3D.Minerva\PRo3D.Minerva.fsproj -dotnet adaptify --local --force PRo3D.SimulatedViews\PRo3D - Backup.SimulatedViews.fsproj -dotnet adaptify --local --force PRo3D.SimulatedViews\PRo3D.SimulatedViews.fsproj -dotnet adaptify --local --force PRo3D.Snapshots\PRo3D.Snapshots.fsproj -dotnet adaptify --local --force PRo3D.Viewer\PRo3D.Viewer.fsproj -dotnet adaptify --local --force Tests\Tests.fsproj \ No newline at end of file From d74f6f3c5077564d8e08ae33c8f065b76487856a Mon Sep 17 00:00:00 2001 From: Harald Steinlechner Date: Thu, 22 Dec 2022 13:33:33 +0100 Subject: [PATCH 3/6] removed Adaptify.MSBuild from paket.references, updated adaptify tool, switched to older dotnet in global.json, removed backup fsproj file --- .config/dotnet-tools.json | 2 +- global.json | 2 +- runAdaptify.cmd | 9 +++- src/PRo3D.Base/paket.references | 2 +- src/PRo3D.Lite/paket.references | 2 +- .../PRo3D - Backup.SimulatedViews.fsproj | 46 ------------------- 6 files changed, 12 insertions(+), 51 deletions(-) delete mode 100644 src/PRo3D.SimulatedViews/PRo3D - Backup.SimulatedViews.fsproj diff --git a/.config/dotnet-tools.json b/.config/dotnet-tools.json index afaf0437..279a744b 100644 --- a/.config/dotnet-tools.json +++ b/.config/dotnet-tools.json @@ -15,7 +15,7 @@ ] }, "adaptify": { - "version": "1.1.8", + "version": "1.2.0-prerelease2", "commands": [ "adaptify" ] diff --git a/global.json b/global.json index ce720023..08fc58c6 100644 --- a/global.json +++ b/global.json @@ -1,6 +1,6 @@ { "sdk": { - "version": "6.0.203", + "version": "6.0.100", "rollForward": "latestMinor" } } \ No newline at end of file diff --git a/runAdaptify.cmd b/runAdaptify.cmd index 3ce6ca76..a8e868fb 100644 --- a/runAdaptify.cmd +++ b/runAdaptify.cmd @@ -1 +1,8 @@ -dotnet adaptify --local --force "C:\Users\steinlechner\Desktop\PRo3D-nomsbuild\src\PRo3D.Viewer\PRo3D.Viewer.fsproj" \ No newline at end of file +dotnet paket restore +dotnet adaptify --local --lenses --force --addToProject src\**\*.fsproj !src\PRo3D.CorrelationPanels\PRo3D.CorrelationPanels.fsproj +REM dotnet adaptify --local --force --addToProject src/**/*.fsproj +REM msbuild -t:restore src\PRo3D.sln +REM dotnet adaptify --local --force --addToProject src\PRo3D.Base\PRo3D.Base.fsproj +REM dotnet build src\PRo3D.Base\PRo3D.Base.fsproj +REM dotnet adaptify --local --force --addToProject src\PRo3D.Core\PRo3D.Core.fsproj +REM dotnet build src\PRo3D.Base\PRo3D.Core.fsproj \ No newline at end of file diff --git a/src/PRo3D.Base/paket.references b/src/PRo3D.Base/paket.references index 99e3882b..de7d6fc2 100644 --- a/src/PRo3D.Base/paket.references +++ b/src/PRo3D.Base/paket.references @@ -7,7 +7,7 @@ Aardvark.SceneGraph Aardvark.SceneGraph.Opc Aardvark.Rendering.Text -Adaptify.MSBuild +//Adaptify.MSBuild Aardvark.UI Aardvark.UI.Primitives diff --git a/src/PRo3D.Lite/paket.references b/src/PRo3D.Lite/paket.references index 637edff4..f1f13079 100644 --- a/src/PRo3D.Lite/paket.references +++ b/src/PRo3D.Lite/paket.references @@ -13,7 +13,7 @@ Aardvark.SceneGraph Aardvark.SceneGraph.IO Aardvark.Rendering.Text -Adaptify.MSBuild +//Adaptify.MSBuild FsPickler FsPickler.Json diff --git a/src/PRo3D.SimulatedViews/PRo3D - Backup.SimulatedViews.fsproj b/src/PRo3D.SimulatedViews/PRo3D - Backup.SimulatedViews.fsproj deleted file mode 100644 index e880d0cf..00000000 --- a/src/PRo3D.SimulatedViews/PRo3D - Backup.SimulatedViews.fsproj +++ /dev/null @@ -1,46 +0,0 @@ - - - - Library - netcoreapp3.1 - True - - - 4 - ..\..\bin\Debug\ - - - ..\..\bin\Release\ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file From 9ab5646b496670281fa5b159fa2fd9d46ec40f95 Mon Sep 17 00:00:00 2001 From: Harald Steinlechner Date: Thu, 22 Dec 2022 13:34:09 +0100 Subject: [PATCH 4/6] upgraded correlation panels to net 6 --- src/PRo3D.CorrelationPanels/PRo3D.CorrelationPanels.fsproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/PRo3D.CorrelationPanels/PRo3D.CorrelationPanels.fsproj b/src/PRo3D.CorrelationPanels/PRo3D.CorrelationPanels.fsproj index c23d50ba..70e0bb97 100644 --- a/src/PRo3D.CorrelationPanels/PRo3D.CorrelationPanels.fsproj +++ b/src/PRo3D.CorrelationPanels/PRo3D.CorrelationPanels.fsproj @@ -1,7 +1,7 @@  - netcoreapp3.1 + net6.0 Exe True From faeb106443fcfdb60ae1fbf10d9176678c28a138 Mon Sep 17 00:00:00 2001 From: Harald Steinlechner Date: Thu, 22 Dec 2022 13:38:52 +0100 Subject: [PATCH 5/6] updated adaptify script --- runAdaptify.cmd | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/runAdaptify.cmd b/runAdaptify.cmd index a8e868fb..d1336d76 100644 --- a/runAdaptify.cmd +++ b/runAdaptify.cmd @@ -1,8 +1,3 @@ +REM dotnet tool update --local adaptify --version 1.2.0-prerelease2 dotnet paket restore -dotnet adaptify --local --lenses --force --addToProject src\**\*.fsproj !src\PRo3D.CorrelationPanels\PRo3D.CorrelationPanels.fsproj -REM dotnet adaptify --local --force --addToProject src/**/*.fsproj -REM msbuild -t:restore src\PRo3D.sln -REM dotnet adaptify --local --force --addToProject src\PRo3D.Base\PRo3D.Base.fsproj -REM dotnet build src\PRo3D.Base\PRo3D.Base.fsproj -REM dotnet adaptify --local --force --addToProject src\PRo3D.Core\PRo3D.Core.fsproj -REM dotnet build src\PRo3D.Base\PRo3D.Core.fsproj \ No newline at end of file +dotnet adaptify --local --lenses --force --addToProject src\**\*.fsproj !src\PRo3D.CorrelationPanels\PRo3D.CorrelationPanels.fsproj \ No newline at end of file From ba05c919871869623392e73f6ec9a5fc1bdcfa1d Mon Sep 17 00:00:00 2001 From: Harald Steinlechner Date: Thu, 22 Dec 2022 13:39:10 +0100 Subject: [PATCH 6/6] successfully switched to non-msbuild based adaptify --- .../Linking/LinkingModel.g.fs | 55 +++ src/PRo3D.2D3DLinking/Model.g.fs | 96 ++++ src/PRo3D.2D3DLinking/PRo3D.Linking.fsproj | 5 +- .../Annotation/Annotation-Model.g.fs | 311 +++++++++++++ .../FalseColors/FalseColors-Model.g.fs | 59 +++ src/PRo3D.Base/Navigation-Model.g.fs | 39 ++ src/PRo3D.Base/PRo3D.Base.fsproj | 11 +- src/PRo3D.Core/Bookmark-Model.g.fs | 47 ++ src/PRo3D.Core/Drawing/Drawing-Model.g.fs | 144 ++++++ src/PRo3D.Core/GeologicSurface-Model.g.fs | 105 +++++ src/PRo3D.Core/Groups-Model.g.fs | 275 ++++++++++++ .../Importers/MeasurementsImporter.g.fs | 35 ++ .../Importers/SurfaceTrafoImporter.g.fs | 31 ++ src/PRo3D.Core/PRo3D.Core.fsproj | 17 +- src/PRo3D.Core/ReferenceSystem-Model.g.fs | 71 +++ src/PRo3D.Core/ScaleBars-Model.g.fs | 197 +++++++++ src/PRo3D.Core/SceneObjects-Model.g.fs | 101 +++++ .../SequencedBookmarks-Model.g.fs | 196 +++++++++ src/PRo3D.Core/Surface-Model.g.fs | 313 +++++++++++++ src/PRo3D.Core/Traverse-Model.g.fs | 159 +++++++ .../Validator/HeightValidator-Model.g.fs | 119 +++++ src/PRo3D.Core/ViewConfigModel.g.fs | 77 ++++ src/PRo3D.Lite/Model.g.fs | 59 +++ src/PRo3D.Lite/OrbitModel.g.fs | 113 +++++ src/PRo3D.Lite/PRo3D.Lite.fsproj | 3 + src/PRo3D.Lite/PRo3D.State.g.fs | 61 +++ src/PRo3D.Minerva/Model.g.fs | 364 +++++++++++++++ src/PRo3D.Minerva/PRo3D.Minerva.fsproj | 4 +- .../Comparison/Comparison-Model.g.fs | 200 +++++++++ .../Lighting/Shading-Model.g.fs | 87 ++++ .../PRo3D.SimulatedViews.fsproj | 9 + .../Rabbyte/Drawing/DrawingModel.g.fs | 51 +++ .../Screenshots/Screenshot-Model.g.fs | 47 ++ .../Snapshots/ObjectPlacement-Model.g.fs | 79 ++++ .../Snapshots/SnapshotApp.g.fs | 74 ++++ .../Snapshots/SnapshotSettings-Model.g.fs | 47 ++ .../Viewplanner/FootPrint-Model.g.fs | 73 ++++ .../Viewplanner/Rover-Model.g.fs | 413 ++++++++++++++++++ src/PRo3D.Viewer/Models/Model.g.fs | 177 ++++++++ src/PRo3D.Viewer/PRo3D.Viewer.fsproj | 15 +- src/PRo3D.Viewer/RemoteControlModel.g.fs | 43 ++ src/PRo3D.Viewer/Viewer-Model.g.fs | 324 ++++++++++++++ 42 files changed, 4684 insertions(+), 22 deletions(-) create mode 100644 src/PRo3D.2D3DLinking/Linking/LinkingModel.g.fs create mode 100644 src/PRo3D.2D3DLinking/Model.g.fs create mode 100644 src/PRo3D.Base/Annotation/Annotation-Model.g.fs create mode 100644 src/PRo3D.Base/FalseColors/FalseColors-Model.g.fs create mode 100644 src/PRo3D.Base/Navigation-Model.g.fs create mode 100644 src/PRo3D.Core/Bookmark-Model.g.fs create mode 100644 src/PRo3D.Core/Drawing/Drawing-Model.g.fs create mode 100644 src/PRo3D.Core/GeologicSurface-Model.g.fs create mode 100644 src/PRo3D.Core/Groups-Model.g.fs create mode 100644 src/PRo3D.Core/Importers/MeasurementsImporter.g.fs create mode 100644 src/PRo3D.Core/Importers/SurfaceTrafoImporter.g.fs create mode 100644 src/PRo3D.Core/ReferenceSystem-Model.g.fs create mode 100644 src/PRo3D.Core/ScaleBars-Model.g.fs create mode 100644 src/PRo3D.Core/SceneObjects-Model.g.fs create mode 100644 src/PRo3D.Core/SequencedBookmarks/SequencedBookmarks-Model.g.fs create mode 100644 src/PRo3D.Core/Surface-Model.g.fs create mode 100644 src/PRo3D.Core/Traverse-Model.g.fs create mode 100644 src/PRo3D.Core/Validator/HeightValidator-Model.g.fs create mode 100644 src/PRo3D.Core/ViewConfigModel.g.fs create mode 100644 src/PRo3D.Lite/Model.g.fs create mode 100644 src/PRo3D.Lite/OrbitModel.g.fs create mode 100644 src/PRo3D.Lite/PRo3D.State.g.fs create mode 100644 src/PRo3D.Minerva/Model.g.fs create mode 100644 src/PRo3D.SimulatedViews/Comparison/Comparison-Model.g.fs create mode 100644 src/PRo3D.SimulatedViews/Lighting/Shading-Model.g.fs create mode 100644 src/PRo3D.SimulatedViews/Rabbyte/Drawing/DrawingModel.g.fs create mode 100644 src/PRo3D.SimulatedViews/Screenshots/Screenshot-Model.g.fs create mode 100644 src/PRo3D.SimulatedViews/Snapshots/ObjectPlacement-Model.g.fs create mode 100644 src/PRo3D.SimulatedViews/Snapshots/SnapshotApp.g.fs create mode 100644 src/PRo3D.SimulatedViews/Snapshots/SnapshotSettings-Model.g.fs create mode 100644 src/PRo3D.SimulatedViews/Viewplanner/FootPrint-Model.g.fs create mode 100644 src/PRo3D.SimulatedViews/Viewplanner/Rover-Model.g.fs create mode 100644 src/PRo3D.Viewer/Models/Model.g.fs create mode 100644 src/PRo3D.Viewer/RemoteControlModel.g.fs create mode 100644 src/PRo3D.Viewer/Viewer-Model.g.fs diff --git a/src/PRo3D.2D3DLinking/Linking/LinkingModel.g.fs b/src/PRo3D.2D3DLinking/Linking/LinkingModel.g.fs new file mode 100644 index 00000000..9acaaaec --- /dev/null +++ b/src/PRo3D.2D3DLinking/Linking/LinkingModel.g.fs @@ -0,0 +1,55 @@ +//924fa8f3-80e2-5e42-4791-7b19f269b110 +//029ccd70-f150-f5a2-b247-64d41766f295 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Linking + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Linking +[] +type AdaptiveLinkingModel(value : LinkingModel) = + let _frustums_ = FSharp.Data.Adaptive.cval(value.frustums) + let _instrumentParameter_ = FSharp.Data.Adaptive.cmap(value.instrumentParameter) + let _trafo_ = FSharp.Data.Adaptive.cval(value.trafo) + let _pickingPos_ = FSharp.Data.Adaptive.cval(value.pickingPos) + let _filterProducts_ = FSharp.Data.Adaptive.cmap(value.filterProducts) + let _overlayFeature_ = FSharp.Data.Adaptive.cval(value.overlayFeature) + let _frustumOpacity_ = FSharp.Data.Adaptive.cval(value.frustumOpacity) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : LinkingModel) = AdaptiveLinkingModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : LinkingModel) -> AdaptiveLinkingModel(value)) (fun (adaptive : AdaptiveLinkingModel) (value : LinkingModel) -> adaptive.Update(value)) + member __.Update(value : LinkingModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _frustums_.Value <- value.frustums + _instrumentParameter_.Value <- value.instrumentParameter + _trafo_.Value <- value.trafo + _pickingPos_.Value <- value.pickingPos + _filterProducts_.Value <- value.filterProducts + _overlayFeature_.Value <- value.overlayFeature + _frustumOpacity_.Value <- value.frustumOpacity + member __.Current = __adaptive + member __.frustums = _frustums_ :> FSharp.Data.Adaptive.aval> + member __.instrumentParameter = _instrumentParameter_ :> FSharp.Data.Adaptive.amap + member __.trafo = _trafo_ :> FSharp.Data.Adaptive.aval + member __.pickingPos = _pickingPos_ :> FSharp.Data.Adaptive.aval> + member __.filterProducts = _filterProducts_ :> FSharp.Data.Adaptive.amap + member __.overlayFeature = _overlayFeature_ :> FSharp.Data.Adaptive.aval> + member __.frustumOpacity = _frustumOpacity_ :> FSharp.Data.Adaptive.aval +[] +module LinkingModelLenses = + type LinkingModel with + static member frustums_ = ((fun (self : LinkingModel) -> self.frustums), (fun (value : FSharp.Data.Adaptive.HashMap) (self : LinkingModel) -> { self with frustums = value })) + static member instrumentParameter_ = ((fun (self : LinkingModel) -> self.instrumentParameter), (fun (value : FSharp.Data.Adaptive.HashMap) (self : LinkingModel) -> { self with instrumentParameter = value })) + static member trafo_ = ((fun (self : LinkingModel) -> self.trafo), (fun (value : Aardvark.Base.Trafo3d) (self : LinkingModel) -> { self with trafo = value })) + static member pickingPos_ = ((fun (self : LinkingModel) -> self.pickingPos), (fun (value : Microsoft.FSharp.Core.Option) (self : LinkingModel) -> { self with pickingPos = value })) + static member filterProducts_ = ((fun (self : LinkingModel) -> self.filterProducts), (fun (value : FSharp.Data.Adaptive.HashMap) (self : LinkingModel) -> { self with filterProducts = value })) + static member overlayFeature_ = ((fun (self : LinkingModel) -> self.overlayFeature), (fun (value : Microsoft.FSharp.Core.Option) (self : LinkingModel) -> { self with overlayFeature = value })) + static member frustumOpacity_ = ((fun (self : LinkingModel) -> self.frustumOpacity), (fun (value : Microsoft.FSharp.Core.float) (self : LinkingModel) -> { self with frustumOpacity = value })) + diff --git a/src/PRo3D.2D3DLinking/Model.g.fs b/src/PRo3D.2D3DLinking/Model.g.fs new file mode 100644 index 00000000..76cfdfe3 --- /dev/null +++ b/src/PRo3D.2D3DLinking/Model.g.fs @@ -0,0 +1,96 @@ +//93fbd891-117a-a73c-7586-39c98ce970c0 +//85ed4e70-22e4-d775-e619-62f1a52c2126 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec LinkingTestApp + +open System +open FSharp.Data.Adaptive +open Adaptify +open LinkingTestApp +[] +type AdaptiveModel(value : Model) = + let _cameraState_ = Aardvark.UI.Primitives.AdaptiveCameraControllerState(value.cameraState) + let _mainFrustum_ = FSharp.Data.Adaptive.cval(value.mainFrustum) + let _overlayFrustum_ = FSharp.Data.Adaptive.cval(value.overlayFrustum) + let _fillMode_ = FSharp.Data.Adaptive.cval(value.fillMode) + let _boxes_ = FSharp.Data.Adaptive.cval(value.boxes) + let _opcInfos_ = + let inline __arg2 (m : OpcViewer.Base.Picking.AdaptiveOpcData) (v : OpcViewer.Base.Picking.OpcData) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.opcInfos, (fun (v : OpcViewer.Base.Picking.OpcData) -> OpcViewer.Base.Picking.AdaptiveOpcData(v)), __arg2, (fun (m : OpcViewer.Base.Picking.AdaptiveOpcData) -> m)) + let _threads_ = FSharp.Data.Adaptive.cval(value.threads) + let _dockConfig_ = FSharp.Data.Adaptive.cval(value.dockConfig) + let _pickingModel_ = OpcViewer.Base.Picking.AdaptivePickingModel(value.pickingModel) + let _pickedPoint_ = FSharp.Data.Adaptive.cval(value.pickedPoint) + let _planePoints_ = + let inline __arg2 (o : System.Object) (v : FSharp.Data.Adaptive.IndexList) = + (unbox> o).Value <- v + o + let inline __arg5 (o : System.Object) (v : FSharp.Data.Adaptive.IndexList) = + (unbox> o).Value <- v + o + Adaptify.FSharp.Core.AdaptiveOption, FSharp.Data.Adaptive.alist, FSharp.Data.Adaptive.alist>(value.planePoints, (fun (v : FSharp.Data.Adaptive.IndexList) -> FSharp.Data.Adaptive.clist(v) :> System.Object), __arg2, (fun (o : System.Object) -> unbox> o :> FSharp.Data.Adaptive.alist), (fun (v : FSharp.Data.Adaptive.IndexList) -> FSharp.Data.Adaptive.clist(v) :> System.Object), __arg5, (fun (o : System.Object) -> unbox> o :> FSharp.Data.Adaptive.alist)) + let _pickingActive_ = FSharp.Data.Adaptive.cval(value.pickingActive) + let _linkingModel_ = PRo3D.Linking.AdaptiveLinkingModel(value.linkingModel) + let _minervaModel_ = PRo3D.Minerva.AdaptiveMinervaModel(value.minervaModel) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Model) = AdaptiveModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Model) -> AdaptiveModel(value)) (fun (adaptive : AdaptiveModel) (value : Model) -> adaptive.Update(value)) + member __.Update(value : Model) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _cameraState_.Update(value.cameraState) + _mainFrustum_.Value <- value.mainFrustum + _overlayFrustum_.Value <- value.overlayFrustum + _fillMode_.Value <- value.fillMode + _boxes_.Value <- value.boxes + _opcInfos_.Update(value.opcInfos) + _threads_.Value <- value.threads + _dockConfig_.Value <- value.dockConfig + _pickingModel_.Update(value.pickingModel) + _pickedPoint_.Value <- value.pickedPoint + _planePoints_.Update(value.planePoints) + _pickingActive_.Value <- value.pickingActive + _linkingModel_.Update(value.linkingModel) + _minervaModel_.Update(value.minervaModel) + member __.Current = __adaptive + member __.cameraState = _cameraState_ + member __.mainFrustum = _mainFrustum_ :> FSharp.Data.Adaptive.aval + member __.overlayFrustum = _overlayFrustum_ :> FSharp.Data.Adaptive.aval> + member __.fillMode = _fillMode_ :> FSharp.Data.Adaptive.aval + member __.patchHierarchies = __value.patchHierarchies + member __.boxes = _boxes_ :> FSharp.Data.Adaptive.aval> + member __.opcInfos = _opcInfos_ :> FSharp.Data.Adaptive.amap + member __.threads = _threads_ :> FSharp.Data.Adaptive.aval> + member __.dockConfig = _dockConfig_ :> FSharp.Data.Adaptive.aval + member __.pickingModel = _pickingModel_ + member __.pickedPoint = _pickedPoint_ :> FSharp.Data.Adaptive.aval> + member __.planePoints = _planePoints_ :> FSharp.Data.Adaptive.aval, FSharp.Data.Adaptive.alist, FSharp.Data.Adaptive.alist>> + member __.pickingActive = _pickingActive_ :> FSharp.Data.Adaptive.aval + member __.linkingModel = _linkingModel_ + member __.minervaModel = _minervaModel_ +[] +module ModelLenses = + type Model with + static member cameraState_ = ((fun (self : Model) -> self.cameraState), (fun (value : Aardvark.UI.Primitives.CameraControllerState) (self : Model) -> { self with cameraState = value })) + static member mainFrustum_ = ((fun (self : Model) -> self.mainFrustum), (fun (value : Aardvark.Rendering.Frustum) (self : Model) -> { self with mainFrustum = value })) + static member overlayFrustum_ = ((fun (self : Model) -> self.overlayFrustum), (fun (value : Microsoft.FSharp.Core.Option) (self : Model) -> { self with overlayFrustum = value })) + static member fillMode_ = ((fun (self : Model) -> self.fillMode), (fun (value : Aardvark.Rendering.FillMode) (self : Model) -> { self with fillMode = value })) + static member patchHierarchies_ = ((fun (self : Model) -> self.patchHierarchies), (fun (value : Microsoft.FSharp.Collections.list) (self : Model) -> { self with patchHierarchies = value })) + static member boxes_ = ((fun (self : Model) -> self.boxes), (fun (value : Microsoft.FSharp.Collections.list) (self : Model) -> { self with boxes = value })) + static member opcInfos_ = ((fun (self : Model) -> self.opcInfos), (fun (value : FSharp.Data.Adaptive.HashMap) (self : Model) -> { self with opcInfos = value })) + static member threads_ = ((fun (self : Model) -> self.threads), (fun (value : FSharp.Data.Adaptive.ThreadPool) (self : Model) -> { self with threads = value })) + static member dockConfig_ = ((fun (self : Model) -> self.dockConfig), (fun (value : Aardvark.UI.Primitives.DockConfig) (self : Model) -> { self with dockConfig = value })) + static member pickingModel_ = ((fun (self : Model) -> self.pickingModel), (fun (value : OpcViewer.Base.Picking.PickingModel) (self : Model) -> { self with pickingModel = value })) + static member pickedPoint_ = ((fun (self : Model) -> self.pickedPoint), (fun (value : Microsoft.FSharp.Core.Option) (self : Model) -> { self with pickedPoint = value })) + static member planePoints_ = ((fun (self : Model) -> self.planePoints), (fun (value : Microsoft.FSharp.Core.Option>) (self : Model) -> { self with planePoints = value })) + static member pickingActive_ = ((fun (self : Model) -> self.pickingActive), (fun (value : Microsoft.FSharp.Core.bool) (self : Model) -> { self with pickingActive = value })) + static member linkingModel_ = ((fun (self : Model) -> self.linkingModel), (fun (value : PRo3D.Linking.LinkingModel) (self : Model) -> { self with linkingModel = value })) + static member minervaModel_ = ((fun (self : Model) -> self.minervaModel), (fun (value : PRo3D.Minerva.MinervaModel) (self : Model) -> { self with minervaModel = value })) + diff --git a/src/PRo3D.2D3DLinking/PRo3D.Linking.fsproj b/src/PRo3D.2D3DLinking/PRo3D.Linking.fsproj index e154ec93..d7971fae 100644 --- a/src/PRo3D.2D3DLinking/PRo3D.Linking.fsproj +++ b/src/PRo3D.2D3DLinking/PRo3D.Linking.fsproj @@ -7,17 +7,14 @@ PRo3D.Linking True - False - true win10-x64 - ..\..\bin\Debug @@ -30,8 +27,10 @@ + + diff --git a/src/PRo3D.Base/Annotation/Annotation-Model.g.fs b/src/PRo3D.Base/Annotation/Annotation-Model.g.fs new file mode 100644 index 00000000..e946276e --- /dev/null +++ b/src/PRo3D.Base/Annotation/Annotation-Model.g.fs @@ -0,0 +1,311 @@ +//c1470929-e14d-40dc-f289-1c11673b9305 +//68b5b88c-9006-3214-c421-c5b80d44c0a3 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Base.Annotation + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Base.Annotation +[] +type AdaptiveSegment(value : Segment) = + let _startPoint_ = FSharp.Data.Adaptive.cval(value.startPoint) + let _endPoint_ = FSharp.Data.Adaptive.cval(value.endPoint) + let _points_ = FSharp.Data.Adaptive.clist(value.points) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Segment) = AdaptiveSegment(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Segment) -> AdaptiveSegment(value)) (fun (adaptive : AdaptiveSegment) (value : Segment) -> adaptive.Update(value)) + member __.Update(value : Segment) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _startPoint_.Value <- value.startPoint + _endPoint_.Value <- value.endPoint + _points_.Value <- value.points + member __.Current = __adaptive + member __.startPoint = _startPoint_ :> FSharp.Data.Adaptive.aval + member __.endPoint = _endPoint_ :> FSharp.Data.Adaptive.aval + member __.points = _points_ :> FSharp.Data.Adaptive.alist +[] +module SegmentLenses = + type Segment with + static member startPoint_ = ((fun (self : Segment) -> self.startPoint), (fun (value : Aardvark.Base.V3d) (self : Segment) -> { self with startPoint = value })) + static member endPoint_ = ((fun (self : Segment) -> self.endPoint), (fun (value : Aardvark.Base.V3d) (self : Segment) -> { self with endPoint = value })) + static member points_ = ((fun (self : Segment) -> self.points), (fun (value : FSharp.Data.Adaptive.IndexList) (self : Segment) -> { self with points = value })) +[] +type AdaptiveStatistics(value : Statistics) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _average_ = FSharp.Data.Adaptive.cval(value.average) + let _min_ = FSharp.Data.Adaptive.cval(value.min) + let _max_ = FSharp.Data.Adaptive.cval(value.max) + let _stdev_ = FSharp.Data.Adaptive.cval(value.stdev) + let _sumOfSquares_ = FSharp.Data.Adaptive.cval(value.sumOfSquares) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Statistics) = AdaptiveStatistics(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Statistics) -> AdaptiveStatistics(value)) (fun (adaptive : AdaptiveStatistics) (value : Statistics) -> adaptive.Update(value)) + member __.Update(value : Statistics) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _average_.Value <- value.average + _min_.Value <- value.min + _max_.Value <- value.max + _stdev_.Value <- value.stdev + _sumOfSquares_.Value <- value.sumOfSquares + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.average = _average_ :> FSharp.Data.Adaptive.aval + member __.min = _min_ :> FSharp.Data.Adaptive.aval + member __.max = _max_ :> FSharp.Data.Adaptive.aval + member __.stdev = _stdev_ :> FSharp.Data.Adaptive.aval + member __.sumOfSquares = _sumOfSquares_ :> FSharp.Data.Adaptive.aval +[] +module StatisticsLenses = + type Statistics with + static member version_ = ((fun (self : Statistics) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : Statistics) -> { self with version = value })) + static member average_ = ((fun (self : Statistics) -> self.average), (fun (value : Microsoft.FSharp.Core.float) (self : Statistics) -> { self with average = value })) + static member min_ = ((fun (self : Statistics) -> self.min), (fun (value : Microsoft.FSharp.Core.float) (self : Statistics) -> { self with min = value })) + static member max_ = ((fun (self : Statistics) -> self.max), (fun (value : Microsoft.FSharp.Core.float) (self : Statistics) -> { self with max = value })) + static member stdev_ = ((fun (self : Statistics) -> self.stdev), (fun (value : Microsoft.FSharp.Core.float) (self : Statistics) -> { self with stdev = value })) + static member sumOfSquares_ = ((fun (self : Statistics) -> self.sumOfSquares), (fun (value : Microsoft.FSharp.Core.float) (self : Statistics) -> { self with sumOfSquares = value })) +[] +type AdaptiveDipAndStrikeResults(value : DipAndStrikeResults) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _plane_ = FSharp.Data.Adaptive.cval(value.plane) + let _dipAngle_ = FSharp.Data.Adaptive.cval(value.dipAngle) + let _dipDirection_ = FSharp.Data.Adaptive.cval(value.dipDirection) + let _strikeDirection_ = FSharp.Data.Adaptive.cval(value.strikeDirection) + let _dipAzimuth_ = FSharp.Data.Adaptive.cval(value.dipAzimuth) + let _strikeAzimuth_ = FSharp.Data.Adaptive.cval(value.strikeAzimuth) + let _centerOfMass_ = FSharp.Data.Adaptive.cval(value.centerOfMass) + let _error_ = AdaptiveStatistics(value.error) + let _regressionInfo_ = FSharp.Data.Adaptive.cval(value.regressionInfo) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : DipAndStrikeResults) = AdaptiveDipAndStrikeResults(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : DipAndStrikeResults) -> AdaptiveDipAndStrikeResults(value)) (fun (adaptive : AdaptiveDipAndStrikeResults) (value : DipAndStrikeResults) -> adaptive.Update(value)) + member __.Update(value : DipAndStrikeResults) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _plane_.Value <- value.plane + _dipAngle_.Value <- value.dipAngle + _dipDirection_.Value <- value.dipDirection + _strikeDirection_.Value <- value.strikeDirection + _dipAzimuth_.Value <- value.dipAzimuth + _strikeAzimuth_.Value <- value.strikeAzimuth + _centerOfMass_.Value <- value.centerOfMass + _error_.Update(value.error) + _regressionInfo_.Value <- value.regressionInfo + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.plane = _plane_ :> FSharp.Data.Adaptive.aval + member __.dipAngle = _dipAngle_ :> FSharp.Data.Adaptive.aval + member __.dipDirection = _dipDirection_ :> FSharp.Data.Adaptive.aval + member __.strikeDirection = _strikeDirection_ :> FSharp.Data.Adaptive.aval + member __.dipAzimuth = _dipAzimuth_ :> FSharp.Data.Adaptive.aval + member __.strikeAzimuth = _strikeAzimuth_ :> FSharp.Data.Adaptive.aval + member __.centerOfMass = _centerOfMass_ :> FSharp.Data.Adaptive.aval + member __.error = _error_ + member __.regressionInfo = _regressionInfo_ :> FSharp.Data.Adaptive.aval> +[] +module DipAndStrikeResultsLenses = + type DipAndStrikeResults with + static member version_ = ((fun (self : DipAndStrikeResults) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : DipAndStrikeResults) -> { self with version = value })) + static member plane_ = ((fun (self : DipAndStrikeResults) -> self.plane), (fun (value : Aardvark.Base.Plane3d) (self : DipAndStrikeResults) -> { self with plane = value })) + static member dipAngle_ = ((fun (self : DipAndStrikeResults) -> self.dipAngle), (fun (value : Microsoft.FSharp.Core.float) (self : DipAndStrikeResults) -> { self with dipAngle = value })) + static member dipDirection_ = ((fun (self : DipAndStrikeResults) -> self.dipDirection), (fun (value : Aardvark.Base.V3d) (self : DipAndStrikeResults) -> { self with dipDirection = value })) + static member strikeDirection_ = ((fun (self : DipAndStrikeResults) -> self.strikeDirection), (fun (value : Aardvark.Base.V3d) (self : DipAndStrikeResults) -> { self with strikeDirection = value })) + static member dipAzimuth_ = ((fun (self : DipAndStrikeResults) -> self.dipAzimuth), (fun (value : Microsoft.FSharp.Core.float) (self : DipAndStrikeResults) -> { self with dipAzimuth = value })) + static member strikeAzimuth_ = ((fun (self : DipAndStrikeResults) -> self.strikeAzimuth), (fun (value : Microsoft.FSharp.Core.float) (self : DipAndStrikeResults) -> { self with strikeAzimuth = value })) + static member centerOfMass_ = ((fun (self : DipAndStrikeResults) -> self.centerOfMass), (fun (value : Aardvark.Base.V3d) (self : DipAndStrikeResults) -> { self with centerOfMass = value })) + static member error_ = ((fun (self : DipAndStrikeResults) -> self.error), (fun (value : Statistics) (self : DipAndStrikeResults) -> { self with error = value })) + static member regressionInfo_ = ((fun (self : DipAndStrikeResults) -> self.regressionInfo), (fun (value : Microsoft.FSharp.Core.option) (self : DipAndStrikeResults) -> { self with regressionInfo = value })) +[] +type AdaptiveAnnotationResults(value : AnnotationResults) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _height_ = FSharp.Data.Adaptive.cval(value.height) + let _heightDelta_ = FSharp.Data.Adaptive.cval(value.heightDelta) + let _avgAltitude_ = FSharp.Data.Adaptive.cval(value.avgAltitude) + let _length_ = FSharp.Data.Adaptive.cval(value.length) + let _wayLength_ = FSharp.Data.Adaptive.cval(value.wayLength) + let _bearing_ = FSharp.Data.Adaptive.cval(value.bearing) + let _slope_ = FSharp.Data.Adaptive.cval(value.slope) + let _trueThickness_ = FSharp.Data.Adaptive.cval(value.trueThickness) + let _verticalThickness_ = FSharp.Data.Adaptive.cval(value.verticalThickness) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : AnnotationResults) = AdaptiveAnnotationResults(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : AnnotationResults) -> AdaptiveAnnotationResults(value)) (fun (adaptive : AdaptiveAnnotationResults) (value : AnnotationResults) -> adaptive.Update(value)) + member __.Update(value : AnnotationResults) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _height_.Value <- value.height + _heightDelta_.Value <- value.heightDelta + _avgAltitude_.Value <- value.avgAltitude + _length_.Value <- value.length + _wayLength_.Value <- value.wayLength + _bearing_.Value <- value.bearing + _slope_.Value <- value.slope + _trueThickness_.Value <- value.trueThickness + _verticalThickness_.Value <- value.verticalThickness + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.height = _height_ :> FSharp.Data.Adaptive.aval + member __.heightDelta = _heightDelta_ :> FSharp.Data.Adaptive.aval + member __.avgAltitude = _avgAltitude_ :> FSharp.Data.Adaptive.aval + member __.length = _length_ :> FSharp.Data.Adaptive.aval + member __.wayLength = _wayLength_ :> FSharp.Data.Adaptive.aval + member __.bearing = _bearing_ :> FSharp.Data.Adaptive.aval + member __.slope = _slope_ :> FSharp.Data.Adaptive.aval + member __.trueThickness = _trueThickness_ :> FSharp.Data.Adaptive.aval + member __.verticalThickness = _verticalThickness_ :> FSharp.Data.Adaptive.aval +[] +module AnnotationResultsLenses = + type AnnotationResults with + static member version_ = ((fun (self : AnnotationResults) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : AnnotationResults) -> { self with version = value })) + static member height_ = ((fun (self : AnnotationResults) -> self.height), (fun (value : Microsoft.FSharp.Core.float) (self : AnnotationResults) -> { self with height = value })) + static member heightDelta_ = ((fun (self : AnnotationResults) -> self.heightDelta), (fun (value : Microsoft.FSharp.Core.float) (self : AnnotationResults) -> { self with heightDelta = value })) + static member avgAltitude_ = ((fun (self : AnnotationResults) -> self.avgAltitude), (fun (value : Microsoft.FSharp.Core.float) (self : AnnotationResults) -> { self with avgAltitude = value })) + static member length_ = ((fun (self : AnnotationResults) -> self.length), (fun (value : Microsoft.FSharp.Core.float) (self : AnnotationResults) -> { self with length = value })) + static member wayLength_ = ((fun (self : AnnotationResults) -> self.wayLength), (fun (value : Microsoft.FSharp.Core.float) (self : AnnotationResults) -> { self with wayLength = value })) + static member bearing_ = ((fun (self : AnnotationResults) -> self.bearing), (fun (value : Microsoft.FSharp.Core.float) (self : AnnotationResults) -> { self with bearing = value })) + static member slope_ = ((fun (self : AnnotationResults) -> self.slope), (fun (value : Microsoft.FSharp.Core.float) (self : AnnotationResults) -> { self with slope = value })) + static member trueThickness_ = ((fun (self : AnnotationResults) -> self.trueThickness), (fun (value : Microsoft.FSharp.Core.float) (self : AnnotationResults) -> { self with trueThickness = value })) + static member verticalThickness_ = ((fun (self : AnnotationResults) -> self.verticalThickness), (fun (value : Microsoft.FSharp.Core.float) (self : AnnotationResults) -> { self with verticalThickness = value })) +[] +type AdaptiveAnnotation(value : Annotation) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _modelTrafo_ = FSharp.Data.Adaptive.cval(value.modelTrafo) + let _geometry_ = FSharp.Data.Adaptive.cval(value.geometry) + let _projection_ = FSharp.Data.Adaptive.cval(value.projection) + let _bookmarkId_ = FSharp.Data.Adaptive.cval(value.bookmarkId) + let _semantic_ = FSharp.Data.Adaptive.cval(value.semantic) + let _points_ = FSharp.Data.Adaptive.clist(value.points) + let _segments_ = + let inline __arg2 (m : AdaptiveSegment) (v : Segment) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelList(value.segments, (fun (v : Segment) -> AdaptiveSegment(v)), __arg2, (fun (m : AdaptiveSegment) -> m)) + let _color_ = Aardvark.UI.AdaptiveColorInput(value.color) + let _thickness_ = Aardvark.UI.AdaptiveNumericInput(value.thickness) + let _results_ = + let inline __arg2 (o : System.Object) (v : AnnotationResults) = + (unbox o).Update(v) + o + let inline __arg5 (o : System.Object) (v : AnnotationResults) = + (unbox o).Update(v) + o + Adaptify.FSharp.Core.AdaptiveOption(value.results, (fun (v : AnnotationResults) -> AdaptiveAnnotationResults(v) :> System.Object), __arg2, (fun (o : System.Object) -> unbox o), (fun (v : AnnotationResults) -> AdaptiveAnnotationResults(v) :> System.Object), __arg5, (fun (o : System.Object) -> unbox o)) + let _dnsResults_ = + let inline __arg2 (o : System.Object) (v : DipAndStrikeResults) = + (unbox o).Update(v) + o + let inline __arg5 (o : System.Object) (v : DipAndStrikeResults) = + (unbox o).Update(v) + o + Adaptify.FSharp.Core.AdaptiveOption(value.dnsResults, (fun (v : DipAndStrikeResults) -> AdaptiveDipAndStrikeResults(v) :> System.Object), __arg2, (fun (o : System.Object) -> unbox o), (fun (v : DipAndStrikeResults) -> AdaptiveDipAndStrikeResults(v) :> System.Object), __arg5, (fun (o : System.Object) -> unbox o)) + let _visible_ = FSharp.Data.Adaptive.cval(value.visible) + let _showDns_ = FSharp.Data.Adaptive.cval(value.showDns) + let _text_ = FSharp.Data.Adaptive.cval(value.text) + let _textsize_ = Aardvark.UI.AdaptiveNumericInput(value.textsize) + let _showText_ = FSharp.Data.Adaptive.cval(value.showText) + let _manualDipAngle_ = Aardvark.UI.AdaptiveNumericInput(value.manualDipAngle) + let _manualDipAzimuth_ = Aardvark.UI.AdaptiveNumericInput(value.manualDipAzimuth) + let _surfaceName_ = FSharp.Data.Adaptive.cval(value.surfaceName) + let _view_ = FSharp.Data.Adaptive.cval(value.view) + let _semanticId_ = FSharp.Data.Adaptive.cval(value.semanticId) + let _semanticType_ = FSharp.Data.Adaptive.cval(value.semanticType) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Annotation) = AdaptiveAnnotation(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Annotation) -> AdaptiveAnnotation(value)) (fun (adaptive : AdaptiveAnnotation) (value : Annotation) -> adaptive.Update(value)) + member __.Update(value : Annotation) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _modelTrafo_.Value <- value.modelTrafo + _geometry_.Value <- value.geometry + _projection_.Value <- value.projection + _bookmarkId_.Value <- value.bookmarkId + _semantic_.Value <- value.semantic + _points_.Value <- value.points + _segments_.Update(value.segments) + _color_.Update(value.color) + _thickness_.Update(value.thickness) + _results_.Update(value.results) + _dnsResults_.Update(value.dnsResults) + _visible_.Value <- value.visible + _showDns_.Value <- value.showDns + _text_.Value <- value.text + _textsize_.Update(value.textsize) + _showText_.Value <- value.showText + _manualDipAngle_.Update(value.manualDipAngle) + _manualDipAzimuth_.Update(value.manualDipAzimuth) + _surfaceName_.Value <- value.surfaceName + _view_.Value <- value.view + _semanticId_.Value <- value.semanticId + _semanticType_.Value <- value.semanticType + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.key = __value.key + member __.modelTrafo = _modelTrafo_ :> FSharp.Data.Adaptive.aval + member __.geometry = _geometry_ :> FSharp.Data.Adaptive.aval + member __.projection = _projection_ :> FSharp.Data.Adaptive.aval + member __.bookmarkId = _bookmarkId_ :> FSharp.Data.Adaptive.aval> + member __.semantic = _semantic_ :> FSharp.Data.Adaptive.aval + member __.points = _points_ :> FSharp.Data.Adaptive.alist + member __.segments = _segments_ :> FSharp.Data.Adaptive.alist + member __.color = _color_ + member __.thickness = _thickness_ + member __.results = _results_ :> FSharp.Data.Adaptive.aval> + member __.dnsResults = _dnsResults_ :> FSharp.Data.Adaptive.aval> + member __.visible = _visible_ :> FSharp.Data.Adaptive.aval + member __.showDns = _showDns_ :> FSharp.Data.Adaptive.aval + member __.text = _text_ :> FSharp.Data.Adaptive.aval + member __.textsize = _textsize_ + member __.showText = _showText_ :> FSharp.Data.Adaptive.aval + member __.manualDipAngle = _manualDipAngle_ + member __.manualDipAzimuth = _manualDipAzimuth_ + member __.surfaceName = _surfaceName_ :> FSharp.Data.Adaptive.aval + member __.view = _view_ :> FSharp.Data.Adaptive.aval + member __.semanticId = _semanticId_ :> FSharp.Data.Adaptive.aval + member __.semanticType = _semanticType_ :> FSharp.Data.Adaptive.aval +[] +module AnnotationLenses = + type Annotation with + static member version_ = ((fun (self : Annotation) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : Annotation) -> { self with version = value })) + static member key_ = ((fun (self : Annotation) -> self.key), (fun (value : System.Guid) (self : Annotation) -> { self with key = value })) + static member modelTrafo_ = ((fun (self : Annotation) -> self.modelTrafo), (fun (value : Aardvark.Base.Trafo3d) (self : Annotation) -> { self with modelTrafo = value })) + static member geometry_ = ((fun (self : Annotation) -> self.geometry), (fun (value : Geometry) (self : Annotation) -> { self with geometry = value })) + static member projection_ = ((fun (self : Annotation) -> self.projection), (fun (value : Projection) (self : Annotation) -> { self with projection = value })) + static member bookmarkId_ = ((fun (self : Annotation) -> self.bookmarkId), (fun (value : Microsoft.FSharp.Core.option) (self : Annotation) -> { self with bookmarkId = value })) + static member semantic_ = ((fun (self : Annotation) -> self.semantic), (fun (value : Semantic) (self : Annotation) -> { self with semantic = value })) + static member points_ = ((fun (self : Annotation) -> self.points), (fun (value : FSharp.Data.Adaptive.IndexList) (self : Annotation) -> { self with points = value })) + static member segments_ = ((fun (self : Annotation) -> self.segments), (fun (value : FSharp.Data.Adaptive.IndexList) (self : Annotation) -> { self with segments = value })) + static member color_ = ((fun (self : Annotation) -> self.color), (fun (value : Aardvark.UI.ColorInput) (self : Annotation) -> { self with color = value })) + static member thickness_ = ((fun (self : Annotation) -> self.thickness), (fun (value : Aardvark.UI.NumericInput) (self : Annotation) -> { self with thickness = value })) + static member results_ = ((fun (self : Annotation) -> self.results), (fun (value : Microsoft.FSharp.Core.Option) (self : Annotation) -> { self with results = value })) + static member dnsResults_ = ((fun (self : Annotation) -> self.dnsResults), (fun (value : Microsoft.FSharp.Core.Option) (self : Annotation) -> { self with dnsResults = value })) + static member visible_ = ((fun (self : Annotation) -> self.visible), (fun (value : Microsoft.FSharp.Core.bool) (self : Annotation) -> { self with visible = value })) + static member showDns_ = ((fun (self : Annotation) -> self.showDns), (fun (value : Microsoft.FSharp.Core.bool) (self : Annotation) -> { self with showDns = value })) + static member text_ = ((fun (self : Annotation) -> self.text), (fun (value : Microsoft.FSharp.Core.string) (self : Annotation) -> { self with text = value })) + static member textsize_ = ((fun (self : Annotation) -> self.textsize), (fun (value : Aardvark.UI.NumericInput) (self : Annotation) -> { self with textsize = value })) + static member showText_ = ((fun (self : Annotation) -> self.showText), (fun (value : Microsoft.FSharp.Core.bool) (self : Annotation) -> { self with showText = value })) + static member manualDipAngle_ = ((fun (self : Annotation) -> self.manualDipAngle), (fun (value : Aardvark.UI.NumericInput) (self : Annotation) -> { self with manualDipAngle = value })) + static member manualDipAzimuth_ = ((fun (self : Annotation) -> self.manualDipAzimuth), (fun (value : Aardvark.UI.NumericInput) (self : Annotation) -> { self with manualDipAzimuth = value })) + static member surfaceName_ = ((fun (self : Annotation) -> self.surfaceName), (fun (value : Microsoft.FSharp.Core.string) (self : Annotation) -> { self with surfaceName = value })) + static member view_ = ((fun (self : Annotation) -> self.view), (fun (value : Aardvark.Rendering.CameraView) (self : Annotation) -> { self with view = value })) + static member semanticId_ = ((fun (self : Annotation) -> self.semanticId), (fun (value : SemanticId) (self : Annotation) -> { self with semanticId = value })) + static member semanticType_ = ((fun (self : Annotation) -> self.semanticType), (fun (value : SemanticType) (self : Annotation) -> { self with semanticType = value })) + diff --git a/src/PRo3D.Base/FalseColors/FalseColors-Model.g.fs b/src/PRo3D.Base/FalseColors/FalseColors-Model.g.fs new file mode 100644 index 00000000..0a58b5d7 --- /dev/null +++ b/src/PRo3D.Base/FalseColors/FalseColors-Model.g.fs @@ -0,0 +1,59 @@ +//fe3abf61-ece7-74b1-e36c-0237c4701dbf +//ee286ef1-4a26-7925-e4f5-492a5605833f +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Base + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Base +[] +type AdaptiveFalseColorsModel(value : FalseColorsModel) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _useFalseColors_ = FSharp.Data.Adaptive.cval(value.useFalseColors) + let _lowerBound_ = Aardvark.UI.AdaptiveNumericInput(value.lowerBound) + let _upperBound_ = Aardvark.UI.AdaptiveNumericInput(value.upperBound) + let _interval_ = Aardvark.UI.AdaptiveNumericInput(value.interval) + let _invertMapping_ = FSharp.Data.Adaptive.cval(value.invertMapping) + let _lowerColor_ = Aardvark.UI.AdaptiveColorInput(value.lowerColor) + let _upperColor_ = Aardvark.UI.AdaptiveColorInput(value.upperColor) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : FalseColorsModel) = AdaptiveFalseColorsModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : FalseColorsModel) -> AdaptiveFalseColorsModel(value)) (fun (adaptive : AdaptiveFalseColorsModel) (value : FalseColorsModel) -> adaptive.Update(value)) + member __.Update(value : FalseColorsModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _useFalseColors_.Value <- value.useFalseColors + _lowerBound_.Update(value.lowerBound) + _upperBound_.Update(value.upperBound) + _interval_.Update(value.interval) + _invertMapping_.Value <- value.invertMapping + _lowerColor_.Update(value.lowerColor) + _upperColor_.Update(value.upperColor) + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.useFalseColors = _useFalseColors_ :> FSharp.Data.Adaptive.aval + member __.lowerBound = _lowerBound_ + member __.upperBound = _upperBound_ + member __.interval = _interval_ + member __.invertMapping = _invertMapping_ :> FSharp.Data.Adaptive.aval + member __.lowerColor = _lowerColor_ + member __.upperColor = _upperColor_ +[] +module FalseColorsModelLenses = + type FalseColorsModel with + static member version_ = ((fun (self : FalseColorsModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : FalseColorsModel) -> { self with version = value })) + static member useFalseColors_ = ((fun (self : FalseColorsModel) -> self.useFalseColors), (fun (value : Microsoft.FSharp.Core.bool) (self : FalseColorsModel) -> { self with useFalseColors = value })) + static member lowerBound_ = ((fun (self : FalseColorsModel) -> self.lowerBound), (fun (value : Aardvark.UI.NumericInput) (self : FalseColorsModel) -> { self with lowerBound = value })) + static member upperBound_ = ((fun (self : FalseColorsModel) -> self.upperBound), (fun (value : Aardvark.UI.NumericInput) (self : FalseColorsModel) -> { self with upperBound = value })) + static member interval_ = ((fun (self : FalseColorsModel) -> self.interval), (fun (value : Aardvark.UI.NumericInput) (self : FalseColorsModel) -> { self with interval = value })) + static member invertMapping_ = ((fun (self : FalseColorsModel) -> self.invertMapping), (fun (value : Microsoft.FSharp.Core.bool) (self : FalseColorsModel) -> { self with invertMapping = value })) + static member lowerColor_ = ((fun (self : FalseColorsModel) -> self.lowerColor), (fun (value : Aardvark.UI.ColorInput) (self : FalseColorsModel) -> { self with lowerColor = value })) + static member upperColor_ = ((fun (self : FalseColorsModel) -> self.upperColor), (fun (value : Aardvark.UI.ColorInput) (self : FalseColorsModel) -> { self with upperColor = value })) + diff --git a/src/PRo3D.Base/Navigation-Model.g.fs b/src/PRo3D.Base/Navigation-Model.g.fs new file mode 100644 index 00000000..39019591 --- /dev/null +++ b/src/PRo3D.Base/Navigation-Model.g.fs @@ -0,0 +1,39 @@ +//244300b3-d1b2-df73-2136-25a7964eddb5 +//2f7440a1-519a-4149-65de-59fdfb928ec2 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Base + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Base +[] +type AdaptiveNavigationModel(value : NavigationModel) = + let _camera_ = Aardvark.UI.Primitives.AdaptiveCameraControllerState(value.camera) + let _navigationMode_ = FSharp.Data.Adaptive.cval(value.navigationMode) + let _exploreCenter_ = FSharp.Data.Adaptive.cval(value.exploreCenter) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : NavigationModel) = AdaptiveNavigationModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : NavigationModel) -> AdaptiveNavigationModel(value)) (fun (adaptive : AdaptiveNavigationModel) (value : NavigationModel) -> adaptive.Update(value)) + member __.Update(value : NavigationModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _camera_.Update(value.camera) + _navigationMode_.Value <- value.navigationMode + _exploreCenter_.Value <- value.exploreCenter + member __.Current = __adaptive + member __.camera = _camera_ + member __.navigationMode = _navigationMode_ :> FSharp.Data.Adaptive.aval + member __.exploreCenter = _exploreCenter_ :> FSharp.Data.Adaptive.aval +[] +module NavigationModelLenses = + type NavigationModel with + static member camera_ = ((fun (self : NavigationModel) -> self.camera), (fun (value : Aardvark.UI.Primitives.CameraControllerState) (self : NavigationModel) -> { self with camera = value })) + static member navigationMode_ = ((fun (self : NavigationModel) -> self.navigationMode), (fun (value : NavigationMode) (self : NavigationModel) -> { self with navigationMode = value })) + static member exploreCenter_ = ((fun (self : NavigationModel) -> self.exploreCenter), (fun (value : Aardvark.Base.V3d) (self : NavigationModel) -> { self with exploreCenter = value })) + diff --git a/src/PRo3D.Base/PRo3D.Base.fsproj b/src/PRo3D.Base/PRo3D.Base.fsproj index 781ae66d..d07456db 100644 --- a/src/PRo3D.Base/PRo3D.Base.fsproj +++ b/src/PRo3D.Base/PRo3D.Base.fsproj @@ -4,7 +4,7 @@ Library net6.0 True - F:\pro3d\PRo3D\src\PRo3D.Base + F:\pro3d\PRo3D\src\PRo3D.Base ..\..\bin\Debug\ @@ -26,20 +26,23 @@ - + + + + - + @@ -50,4 +53,4 @@ - + \ No newline at end of file diff --git a/src/PRo3D.Core/Bookmark-Model.g.fs b/src/PRo3D.Core/Bookmark-Model.g.fs new file mode 100644 index 00000000..99c4bcd4 --- /dev/null +++ b/src/PRo3D.Core/Bookmark-Model.g.fs @@ -0,0 +1,47 @@ +//452979fa-0d8b-94b1-92ba-1d4b904b46e0 +//dc72a6fb-d3e0-19ec-1b3b-e50ecb94c42c +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core +[] +type AdaptiveBookmark(value : Bookmark) = + let _name_ = FSharp.Data.Adaptive.cval(value.name) + let _cameraView_ = FSharp.Data.Adaptive.cval(value.cameraView) + let _exploreCenter_ = FSharp.Data.Adaptive.cval(value.exploreCenter) + let _navigationMode_ = FSharp.Data.Adaptive.cval(value.navigationMode) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Bookmark) = AdaptiveBookmark(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Bookmark) -> AdaptiveBookmark(value)) (fun (adaptive : AdaptiveBookmark) (value : Bookmark) -> adaptive.Update(value)) + member __.Update(value : Bookmark) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _name_.Value <- value.name + _cameraView_.Value <- value.cameraView + _exploreCenter_.Value <- value.exploreCenter + _navigationMode_.Value <- value.navigationMode + member __.Current = __adaptive + member __.version = __value.version + member __.key = __value.key + member __.name = _name_ :> FSharp.Data.Adaptive.aval + member __.cameraView = _cameraView_ :> FSharp.Data.Adaptive.aval + member __.exploreCenter = _exploreCenter_ :> FSharp.Data.Adaptive.aval + member __.navigationMode = _navigationMode_ :> FSharp.Data.Adaptive.aval +[] +module BookmarkLenses = + type Bookmark with + static member version_ = ((fun (self : Bookmark) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : Bookmark) -> { self with version = value })) + static member key_ = ((fun (self : Bookmark) -> self.key), (fun (value : System.Guid) (self : Bookmark) -> { self with key = value })) + static member name_ = ((fun (self : Bookmark) -> self.name), (fun (value : Microsoft.FSharp.Core.string) (self : Bookmark) -> { self with name = value })) + static member cameraView_ = ((fun (self : Bookmark) -> self.cameraView), (fun (value : Aardvark.Rendering.CameraView) (self : Bookmark) -> { self with cameraView = value })) + static member exploreCenter_ = ((fun (self : Bookmark) -> self.exploreCenter), (fun (value : Aardvark.Base.V3d) (self : Bookmark) -> { self with exploreCenter = value })) + static member navigationMode_ = ((fun (self : Bookmark) -> self.navigationMode), (fun (value : PRo3D.Base.NavigationMode) (self : Bookmark) -> { self with navigationMode = value })) + diff --git a/src/PRo3D.Core/Drawing/Drawing-Model.g.fs b/src/PRo3D.Core/Drawing/Drawing-Model.g.fs new file mode 100644 index 00000000..16841192 --- /dev/null +++ b/src/PRo3D.Core/Drawing/Drawing-Model.g.fs @@ -0,0 +1,144 @@ +//c9ff3a43-eed7-7164-a893-9ae3279a5b11 +//798fa62f-32c5-94fe-9a9c-e5b0552ce616 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core.Drawing + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core.Drawing +[] +type AdaptiveAutomaticGeoJsonExport(value : AutomaticGeoJsonExport) = + let _enabled_ = FSharp.Data.Adaptive.cval(value.enabled) + let _lastGeoJsonPath_ = FSharp.Data.Adaptive.cval(value.lastGeoJsonPath) + let _lastGeoJsonPathXyz_ = FSharp.Data.Adaptive.cval(value.lastGeoJsonPathXyz) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : AutomaticGeoJsonExport) = AdaptiveAutomaticGeoJsonExport(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : AutomaticGeoJsonExport) -> AdaptiveAutomaticGeoJsonExport(value)) (fun (adaptive : AdaptiveAutomaticGeoJsonExport) (value : AutomaticGeoJsonExport) -> adaptive.Update(value)) + member __.Update(value : AutomaticGeoJsonExport) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _enabled_.Value <- value.enabled + _lastGeoJsonPath_.Value <- value.lastGeoJsonPath + _lastGeoJsonPathXyz_.Value <- value.lastGeoJsonPathXyz + member __.Current = __adaptive + member __.enabled = _enabled_ :> FSharp.Data.Adaptive.aval + member __.lastGeoJsonPath = _lastGeoJsonPath_ :> FSharp.Data.Adaptive.aval> + member __.lastGeoJsonPathXyz = _lastGeoJsonPathXyz_ :> FSharp.Data.Adaptive.aval> +[] +module AutomaticGeoJsonExportLenses = + type AutomaticGeoJsonExport with + static member enabled_ = ((fun (self : AutomaticGeoJsonExport) -> self.enabled), (fun (value : Microsoft.FSharp.Core.bool) (self : AutomaticGeoJsonExport) -> { self with enabled = value })) + static member lastGeoJsonPath_ = ((fun (self : AutomaticGeoJsonExport) -> self.lastGeoJsonPath), (fun (value : Microsoft.FSharp.Core.Option) (self : AutomaticGeoJsonExport) -> { self with lastGeoJsonPath = value })) + static member lastGeoJsonPathXyz_ = ((fun (self : AutomaticGeoJsonExport) -> self.lastGeoJsonPathXyz), (fun (value : Microsoft.FSharp.Core.Option) (self : AutomaticGeoJsonExport) -> { self with lastGeoJsonPathXyz = value })) +[] +type AdaptiveDrawingModel(value : DrawingModel) = + let _draw_ = FSharp.Data.Adaptive.cval(value.draw) + let _pick_ = FSharp.Data.Adaptive.cval(value.pick) + let _multi_ = FSharp.Data.Adaptive.cval(value.multi) + let _hoverPosition_ = FSharp.Data.Adaptive.cval(value.hoverPosition) + let _working_ = + let inline __arg2 (o : System.Object) (v : PRo3D.Base.Annotation.Annotation) = + (unbox o).Update(v) + o + let inline __arg5 (o : System.Object) (v : PRo3D.Base.Annotation.Annotation) = + (unbox o).Update(v) + o + Adaptify.FSharp.Core.AdaptiveOption(value.working, (fun (v : PRo3D.Base.Annotation.Annotation) -> PRo3D.Base.Annotation.AdaptiveAnnotation(v) :> System.Object), __arg2, (fun (o : System.Object) -> unbox o), (fun (v : PRo3D.Base.Annotation.Annotation) -> PRo3D.Base.Annotation.AdaptiveAnnotation(v) :> System.Object), __arg5, (fun (o : System.Object) -> unbox o)) + let _projection_ = FSharp.Data.Adaptive.cval(value.projection) + let _geometry_ = FSharp.Data.Adaptive.cval(value.geometry) + let _semantic_ = FSharp.Data.Adaptive.cval(value.semantic) + let _color_ = Aardvark.UI.AdaptiveColorInput(value.color) + let _thickness_ = Aardvark.UI.AdaptiveNumericInput(value.thickness) + let _samplingAmount_ = Aardvark.UI.AdaptiveNumericInput(value.samplingAmount) + let _samplingUnit_ = FSharp.Data.Adaptive.cval(value.samplingUnit) + let _samplingDistance_ = FSharp.Data.Adaptive.cval(value.samplingDistance) + let _annotations_ = PRo3D.Core.AdaptiveGroupsModel(value.annotations) + let _exportPath_ = FSharp.Data.Adaptive.cval(value.exportPath) + let _pendingIntersections_ = FSharp.Data.Adaptive.cval(value.pendingIntersections) + let _past_ = FSharp.Data.Adaptive.cval(value.past) + let _future_ = FSharp.Data.Adaptive.cval(value.future) + let _dnsColorLegend_ = PRo3D.Base.AdaptiveFalseColorsModel(value.dnsColorLegend) + let _haltonPoints_ = FSharp.Data.Adaptive.cval(value.haltonPoints) + let _automaticGeoJsonExport_ = AdaptiveAutomaticGeoJsonExport(value.automaticGeoJsonExport) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : DrawingModel) = AdaptiveDrawingModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : DrawingModel) -> AdaptiveDrawingModel(value)) (fun (adaptive : AdaptiveDrawingModel) (value : DrawingModel) -> adaptive.Update(value)) + member __.Update(value : DrawingModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _draw_.Value <- value.draw + _pick_.Value <- value.pick + _multi_.Value <- value.multi + _hoverPosition_.Value <- value.hoverPosition + _working_.Update(value.working) + _projection_.Value <- value.projection + _geometry_.Value <- value.geometry + _semantic_.Value <- value.semantic + _color_.Update(value.color) + _thickness_.Update(value.thickness) + _samplingAmount_.Update(value.samplingAmount) + _samplingUnit_.Value <- value.samplingUnit + _samplingDistance_.Value <- value.samplingDistance + _annotations_.Update(value.annotations) + _exportPath_.Value <- value.exportPath + _pendingIntersections_.Value <- value.pendingIntersections + _past_.Value <- value.past + _future_.Value <- value.future + _dnsColorLegend_.Update(value.dnsColorLegend) + _haltonPoints_.Value <- value.haltonPoints + _automaticGeoJsonExport_.Update(value.automaticGeoJsonExport) + member __.Current = __adaptive + member __.draw = _draw_ :> FSharp.Data.Adaptive.aval + member __.pick = _pick_ :> FSharp.Data.Adaptive.aval + member __.multi = _multi_ :> FSharp.Data.Adaptive.aval + member __.hoverPosition = _hoverPosition_ :> FSharp.Data.Adaptive.aval> + member __.working = _working_ :> FSharp.Data.Adaptive.aval> + member __.projection = _projection_ :> FSharp.Data.Adaptive.aval + member __.geometry = _geometry_ :> FSharp.Data.Adaptive.aval + member __.semantic = _semantic_ :> FSharp.Data.Adaptive.aval + member __.color = _color_ + member __.thickness = _thickness_ + member __.samplingAmount = _samplingAmount_ + member __.samplingUnit = _samplingUnit_ :> FSharp.Data.Adaptive.aval + member __.samplingDistance = _samplingDistance_ :> FSharp.Data.Adaptive.aval + member __.annotations = _annotations_ + member __.exportPath = _exportPath_ :> FSharp.Data.Adaptive.aval> + member __.pendingIntersections = _pendingIntersections_ :> FSharp.Data.Adaptive.aval> + member __.past = _past_ :> FSharp.Data.Adaptive.aval> + member __.future = _future_ :> FSharp.Data.Adaptive.aval> + member __.dnsColorLegend = _dnsColorLegend_ + member __.haltonPoints = _haltonPoints_ :> FSharp.Data.Adaptive.aval> + member __.automaticGeoJsonExport = _automaticGeoJsonExport_ +[] +module DrawingModelLenses = + type DrawingModel with + static member draw_ = ((fun (self : DrawingModel) -> self.draw), (fun (value : Microsoft.FSharp.Core.bool) (self : DrawingModel) -> { self with draw = value })) + static member pick_ = ((fun (self : DrawingModel) -> self.pick), (fun (value : Microsoft.FSharp.Core.bool) (self : DrawingModel) -> { self with pick = value })) + static member multi_ = ((fun (self : DrawingModel) -> self.multi), (fun (value : Microsoft.FSharp.Core.bool) (self : DrawingModel) -> { self with multi = value })) + static member hoverPosition_ = ((fun (self : DrawingModel) -> self.hoverPosition), (fun (value : Microsoft.FSharp.Core.option) (self : DrawingModel) -> { self with hoverPosition = value })) + static member working_ = ((fun (self : DrawingModel) -> self.working), (fun (value : Microsoft.FSharp.Core.Option) (self : DrawingModel) -> { self with working = value })) + static member projection_ = ((fun (self : DrawingModel) -> self.projection), (fun (value : PRo3D.Base.Annotation.Projection) (self : DrawingModel) -> { self with projection = value })) + static member geometry_ = ((fun (self : DrawingModel) -> self.geometry), (fun (value : PRo3D.Base.Annotation.Geometry) (self : DrawingModel) -> { self with geometry = value })) + static member semantic_ = ((fun (self : DrawingModel) -> self.semantic), (fun (value : PRo3D.Base.Annotation.Semantic) (self : DrawingModel) -> { self with semantic = value })) + static member color_ = ((fun (self : DrawingModel) -> self.color), (fun (value : Aardvark.UI.ColorInput) (self : DrawingModel) -> { self with color = value })) + static member thickness_ = ((fun (self : DrawingModel) -> self.thickness), (fun (value : Aardvark.UI.NumericInput) (self : DrawingModel) -> { self with thickness = value })) + static member samplingAmount_ = ((fun (self : DrawingModel) -> self.samplingAmount), (fun (value : Aardvark.UI.NumericInput) (self : DrawingModel) -> { self with samplingAmount = value })) + static member samplingUnit_ = ((fun (self : DrawingModel) -> self.samplingUnit), (fun (value : SamplingUnit) (self : DrawingModel) -> { self with samplingUnit = value })) + static member samplingDistance_ = ((fun (self : DrawingModel) -> self.samplingDistance), (fun (value : Microsoft.FSharp.Core.float) (self : DrawingModel) -> { self with samplingDistance = value })) + static member annotations_ = ((fun (self : DrawingModel) -> self.annotations), (fun (value : PRo3D.Core.GroupsModel) (self : DrawingModel) -> { self with annotations = value })) + static member exportPath_ = ((fun (self : DrawingModel) -> self.exportPath), (fun (value : Microsoft.FSharp.Core.Option) (self : DrawingModel) -> { self with exportPath = value })) + static member pendingIntersections_ = ((fun (self : DrawingModel) -> self.pendingIntersections), (fun (value : FSharp.Data.Adaptive.ThreadPool) (self : DrawingModel) -> { self with pendingIntersections = value })) + static member past_ = ((fun (self : DrawingModel) -> self.past), (fun (value : Microsoft.FSharp.Core.Option) (self : DrawingModel) -> { self with past = value })) + static member future_ = ((fun (self : DrawingModel) -> self.future), (fun (value : Microsoft.FSharp.Core.Option) (self : DrawingModel) -> { self with future = value })) + static member dnsColorLegend_ = ((fun (self : DrawingModel) -> self.dnsColorLegend), (fun (value : PRo3D.Base.FalseColorsModel) (self : DrawingModel) -> { self with dnsColorLegend = value })) + static member haltonPoints_ = ((fun (self : DrawingModel) -> self.haltonPoints), (fun (value : Microsoft.FSharp.Collections.list) (self : DrawingModel) -> { self with haltonPoints = value })) + static member automaticGeoJsonExport_ = ((fun (self : DrawingModel) -> self.automaticGeoJsonExport), (fun (value : AutomaticGeoJsonExport) (self : DrawingModel) -> { self with automaticGeoJsonExport = value })) + diff --git a/src/PRo3D.Core/GeologicSurface-Model.g.fs b/src/PRo3D.Core/GeologicSurface-Model.g.fs new file mode 100644 index 00000000..dee5ce2a --- /dev/null +++ b/src/PRo3D.Core/GeologicSurface-Model.g.fs @@ -0,0 +1,105 @@ +//a9f9cb59-7696-d7f0-31d7-41d873ade479 +//0f354b3e-43c5-5ffe-b32e-f693b51ffa22 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core +[] +type AdaptiveGeologicSurface(value : GeologicSurface) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _guid_ = FSharp.Data.Adaptive.cval(value.guid) + let _name_ = FSharp.Data.Adaptive.cval(value.name) + let _isVisible_ = FSharp.Data.Adaptive.cval(value.isVisible) + let _view_ = FSharp.Data.Adaptive.cval(value.view) + let _points1_ = FSharp.Data.Adaptive.clist(value.points1) + let _points2_ = FSharp.Data.Adaptive.clist(value.points2) + let _color_ = Aardvark.UI.AdaptiveColorInput(value.color) + let _transparency_ = Aardvark.UI.AdaptiveNumericInput(value.transparency) + let _thickness_ = Aardvark.UI.AdaptiveNumericInput(value.thickness) + let _invertMeshing_ = FSharp.Data.Adaptive.cval(value.invertMeshing) + let _sgGeoSurface_ = FSharp.Data.Adaptive.cval(value.sgGeoSurface) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : GeologicSurface) = AdaptiveGeologicSurface(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : GeologicSurface) -> AdaptiveGeologicSurface(value)) (fun (adaptive : AdaptiveGeologicSurface) (value : GeologicSurface) -> adaptive.Update(value)) + member __.Update(value : GeologicSurface) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _guid_.Value <- value.guid + _name_.Value <- value.name + _isVisible_.Value <- value.isVisible + _view_.Value <- value.view + _points1_.Value <- value.points1 + _points2_.Value <- value.points2 + _color_.Update(value.color) + _transparency_.Update(value.transparency) + _thickness_.Update(value.thickness) + _invertMeshing_.Value <- value.invertMeshing + _sgGeoSurface_.Value <- value.sgGeoSurface + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.guid = _guid_ :> FSharp.Data.Adaptive.aval + member __.name = _name_ :> FSharp.Data.Adaptive.aval + member __.isVisible = _isVisible_ :> FSharp.Data.Adaptive.aval + member __.view = _view_ :> FSharp.Data.Adaptive.aval + member __.points1 = _points1_ :> FSharp.Data.Adaptive.alist + member __.points2 = _points2_ :> FSharp.Data.Adaptive.alist + member __.color = _color_ + member __.transparency = _transparency_ + member __.thickness = _thickness_ + member __.invertMeshing = _invertMeshing_ :> FSharp.Data.Adaptive.aval + member __.sgGeoSurface = _sgGeoSurface_ :> FSharp.Data.Adaptive.aval> +[] +module GeologicSurfaceLenses = + type GeologicSurface with + static member version_ = ((fun (self : GeologicSurface) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : GeologicSurface) -> { self with version = value })) + static member guid_ = ((fun (self : GeologicSurface) -> self.guid), (fun (value : System.Guid) (self : GeologicSurface) -> { self with guid = value })) + static member name_ = ((fun (self : GeologicSurface) -> self.name), (fun (value : Microsoft.FSharp.Core.string) (self : GeologicSurface) -> { self with name = value })) + static member isVisible_ = ((fun (self : GeologicSurface) -> self.isVisible), (fun (value : Microsoft.FSharp.Core.bool) (self : GeologicSurface) -> { self with isVisible = value })) + static member view_ = ((fun (self : GeologicSurface) -> self.view), (fun (value : Aardvark.Rendering.CameraView) (self : GeologicSurface) -> { self with view = value })) + static member points1_ = ((fun (self : GeologicSurface) -> self.points1), (fun (value : FSharp.Data.Adaptive.IndexList) (self : GeologicSurface) -> { self with points1 = value })) + static member points2_ = ((fun (self : GeologicSurface) -> self.points2), (fun (value : FSharp.Data.Adaptive.IndexList) (self : GeologicSurface) -> { self with points2 = value })) + static member color_ = ((fun (self : GeologicSurface) -> self.color), (fun (value : Aardvark.UI.ColorInput) (self : GeologicSurface) -> { self with color = value })) + static member transparency_ = ((fun (self : GeologicSurface) -> self.transparency), (fun (value : Aardvark.UI.NumericInput) (self : GeologicSurface) -> { self with transparency = value })) + static member thickness_ = ((fun (self : GeologicSurface) -> self.thickness), (fun (value : Aardvark.UI.NumericInput) (self : GeologicSurface) -> { self with thickness = value })) + static member invertMeshing_ = ((fun (self : GeologicSurface) -> self.invertMeshing), (fun (value : Microsoft.FSharp.Core.bool) (self : GeologicSurface) -> { self with invertMeshing = value })) + static member sgGeoSurface_ = ((fun (self : GeologicSurface) -> self.sgGeoSurface), (fun (value : Microsoft.FSharp.Collections.List<(Aardvark.Base.Triangle3d * Aardvark.Base.C4b)>) (self : GeologicSurface) -> { self with sgGeoSurface = value })) +[] +type AdaptiveGeologicSurfacesModel(value : GeologicSurfacesModel) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _geologicSurfaces_ = + let inline __arg2 (m : AdaptiveGeologicSurface) (v : GeologicSurface) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.geologicSurfaces, (fun (v : GeologicSurface) -> AdaptiveGeologicSurface(v)), __arg2, (fun (m : AdaptiveGeologicSurface) -> m)) + let _selectedGeologicSurface_ = FSharp.Data.Adaptive.cval(value.selectedGeologicSurface) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : GeologicSurfacesModel) = AdaptiveGeologicSurfacesModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : GeologicSurfacesModel) -> AdaptiveGeologicSurfacesModel(value)) (fun (adaptive : AdaptiveGeologicSurfacesModel) (value : GeologicSurfacesModel) -> adaptive.Update(value)) + member __.Update(value : GeologicSurfacesModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _geologicSurfaces_.Update(value.geologicSurfaces) + _selectedGeologicSurface_.Value <- value.selectedGeologicSurface + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.geologicSurfaces = _geologicSurfaces_ :> FSharp.Data.Adaptive.amap + member __.selectedGeologicSurface = _selectedGeologicSurface_ :> FSharp.Data.Adaptive.aval> +[] +module GeologicSurfacesModelLenses = + type GeologicSurfacesModel with + static member version_ = ((fun (self : GeologicSurfacesModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : GeologicSurfacesModel) -> { self with version = value })) + static member geologicSurfaces_ = ((fun (self : GeologicSurfacesModel) -> self.geologicSurfaces), (fun (value : FSharp.Data.Adaptive.HashMap) (self : GeologicSurfacesModel) -> { self with geologicSurfaces = value })) + static member selectedGeologicSurface_ = ((fun (self : GeologicSurfacesModel) -> self.selectedGeologicSurface), (fun (value : Microsoft.FSharp.Core.Option) (self : GeologicSurfacesModel) -> { self with selectedGeologicSurface = value })) + diff --git a/src/PRo3D.Core/Groups-Model.g.fs b/src/PRo3D.Core/Groups-Model.g.fs new file mode 100644 index 00000000..20d3bba9 --- /dev/null +++ b/src/PRo3D.Core/Groups-Model.g.fs @@ -0,0 +1,275 @@ +//1d5dbc83-05d2-4d9a-34d8-2f645a959c1e +//cc6402bb-34b7-6c1e-dc39-276db6ebfbbe +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core +[] +type AdaptiveLeafCase = + abstract member Update : Leaf -> AdaptiveLeafCase +[] +type private AdaptiveLeafSurfaces(value : PRo3D.Core.Surface.Surface) = + let _value_ = PRo3D.Core.Surface.AdaptiveSurface(value) + let mutable __value = value + member __.Update(value : PRo3D.Core.Surface.Surface) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + _value_.Update(value) + member __.value = _value_ + interface AdaptiveLeafCase with + member x.Update(value : Leaf) = + match value with + | Leaf.Surfaces(value) -> + x.Update(value) + x :> AdaptiveLeafCase + | Leaf.Bookmarks(value) -> AdaptiveLeafBookmarks(value) :> AdaptiveLeafCase + | Leaf.Annotations(value) -> AdaptiveLeafAnnotations(value) :> AdaptiveLeafCase +[] +type private AdaptiveLeafBookmarks(value : Bookmark) = + let _value_ = AdaptiveBookmark(value) + let mutable __value = value + member __.Update(value : Bookmark) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + _value_.Update(value) + member __.value = _value_ + interface AdaptiveLeafCase with + member x.Update(value : Leaf) = + match value with + | Leaf.Surfaces(value) -> AdaptiveLeafSurfaces(value) :> AdaptiveLeafCase + | Leaf.Bookmarks(value) -> + x.Update(value) + x :> AdaptiveLeafCase + | Leaf.Annotations(value) -> AdaptiveLeafAnnotations(value) :> AdaptiveLeafCase +[] +type private AdaptiveLeafAnnotations(value : PRo3D.Base.Annotation.Annotation) = + let _value_ = PRo3D.Base.Annotation.AdaptiveAnnotation(value) + let mutable __value = value + member __.Update(value : PRo3D.Base.Annotation.Annotation) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + _value_.Update(value) + member __.value = _value_ + interface AdaptiveLeafCase with + member x.Update(value : Leaf) = + match value with + | Leaf.Surfaces(value) -> AdaptiveLeafSurfaces(value) :> AdaptiveLeafCase + | Leaf.Bookmarks(value) -> AdaptiveLeafBookmarks(value) :> AdaptiveLeafCase + | Leaf.Annotations(value) -> + x.Update(value) + x :> AdaptiveLeafCase +[] +type AdaptiveLeaf(value : Leaf) = + inherit Adaptify.AdaptiveValue() + let mutable __value = value + let mutable __current = + match value with + | Leaf.Surfaces(value) -> AdaptiveLeafSurfaces(value) :> AdaptiveLeafCase + | Leaf.Bookmarks(value) -> AdaptiveLeafBookmarks(value) :> AdaptiveLeafCase + | Leaf.Annotations(value) -> AdaptiveLeafAnnotations(value) :> AdaptiveLeafCase + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (t : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member CreateAdaptiveCase(value : Leaf) = + match value with + | Leaf.Surfaces(value) -> AdaptiveLeafSurfaces(value) :> AdaptiveLeafCase + | Leaf.Bookmarks(value) -> AdaptiveLeafBookmarks(value) :> AdaptiveLeafCase + | Leaf.Annotations(value) -> AdaptiveLeafAnnotations(value) :> AdaptiveLeafCase + static member Create(value : Leaf) = AdaptiveLeaf(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Leaf) -> AdaptiveLeaf(value)) (fun (adaptive : AdaptiveLeaf) (value : Leaf) -> adaptive.Update(value)) + member __.Current = __adaptive + member __.Update(value : Leaf) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + let __n = __current.Update(value) + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(__n, __current))) then + __current <- __n + __.MarkOutdated() + override __.Compute(t : FSharp.Data.Adaptive.AdaptiveToken) = __current +[] +module AdaptiveLeaf = + let (|AdaptiveSurfaces|AdaptiveBookmarks|AdaptiveAnnotations|) (value : AdaptiveLeafCase) = + match value with + | (:? AdaptiveLeafSurfaces as surfaces) -> AdaptiveSurfaces(surfaces.value) + | (:? AdaptiveLeafBookmarks as bookmarks) -> AdaptiveBookmarks(bookmarks.value) + | (:? AdaptiveLeafAnnotations as annotations) -> AdaptiveAnnotations(annotations.value) + | _ -> failwith "unreachable" +[] +type AdaptiveNode(value : Node) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _key_ = FSharp.Data.Adaptive.cval(value.key) + let _name_ = FSharp.Data.Adaptive.cval(value.name) + let _leaves_ = FSharp.Data.Adaptive.clist(value.leaves) + let _subNodes_ = + let inline __arg2 (m : AdaptiveNode) (v : Node) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelList(value.subNodes, (fun (v : Node) -> AdaptiveNode(v)), __arg2, (fun (m : AdaptiveNode) -> m)) + let _visible_ = FSharp.Data.Adaptive.cval(value.visible) + let _expanded_ = FSharp.Data.Adaptive.cval(value.expanded) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Node) = AdaptiveNode(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Node) -> AdaptiveNode(value)) (fun (adaptive : AdaptiveNode) (value : Node) -> adaptive.Update(value)) + member __.Update(value : Node) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _key_.Value <- value.key + _name_.Value <- value.name + _leaves_.Value <- value.leaves + _subNodes_.Update(value.subNodes) + _visible_.Value <- value.visible + _expanded_.Value <- value.expanded + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.key = _key_ :> FSharp.Data.Adaptive.aval + member __.name = _name_ :> FSharp.Data.Adaptive.aval + member __.leaves = _leaves_ :> FSharp.Data.Adaptive.alist + member __.subNodes = _subNodes_ :> FSharp.Data.Adaptive.alist + member __.visible = _visible_ :> FSharp.Data.Adaptive.aval + member __.expanded = _expanded_ :> FSharp.Data.Adaptive.aval +[] +module NodeLenses = + type Node with + static member version_ = ((fun (self : Node) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : Node) -> { self with version = value })) + static member key_ = ((fun (self : Node) -> self.key), (fun (value : System.Guid) (self : Node) -> { self with key = value })) + static member name_ = ((fun (self : Node) -> self.name), (fun (value : Microsoft.FSharp.Core.string) (self : Node) -> { self with name = value })) + static member leaves_ = ((fun (self : Node) -> self.leaves), (fun (value : FSharp.Data.Adaptive.IndexList) (self : Node) -> { self with leaves = value })) + static member subNodes_ = ((fun (self : Node) -> self.subNodes), (fun (value : FSharp.Data.Adaptive.IndexList) (self : Node) -> { self with subNodes = value })) + static member visible_ = ((fun (self : Node) -> self.visible), (fun (value : Microsoft.FSharp.Core.bool) (self : Node) -> { self with visible = value })) + static member expanded_ = ((fun (self : Node) -> self.expanded), (fun (value : Microsoft.FSharp.Core.bool) (self : Node) -> { self with expanded = value })) +[] +type AdaptiveGroupsModel(value : GroupsModel) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _rootGroup_ = AdaptiveNode(value.rootGroup) + let _activeGroup_ = FSharp.Data.Adaptive.cval(value.activeGroup) + let _activeChild_ = FSharp.Data.Adaptive.cval(value.activeChild) + let _flat_ = FSharp.Data.Traceable.ChangeableModelMap(value.flat, (fun (v : Leaf) -> AdaptiveLeaf.CreateAdaptiveCase(v)), (fun (m : AdaptiveLeafCase) (v : Leaf) -> m.Update(v)), (fun (m : AdaptiveLeafCase) -> m)) + let _groupsLookup_ = FSharp.Data.Adaptive.cmap(value.groupsLookup) + let _lastSelectedItem_ = FSharp.Data.Adaptive.cval(value.lastSelectedItem) + let _selectedLeaves_ = FSharp.Data.Adaptive.cset(value.selectedLeaves) + let _singleSelectLeaf_ = FSharp.Data.Adaptive.cval(value.singleSelectLeaf) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : GroupsModel) = AdaptiveGroupsModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : GroupsModel) -> AdaptiveGroupsModel(value)) (fun (adaptive : AdaptiveGroupsModel) (value : GroupsModel) -> adaptive.Update(value)) + member __.Update(value : GroupsModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _rootGroup_.Update(value.rootGroup) + _activeGroup_.Value <- value.activeGroup + _activeChild_.Value <- value.activeChild + _flat_.Update(value.flat) + _groupsLookup_.Value <- value.groupsLookup + _lastSelectedItem_.Value <- value.lastSelectedItem + _selectedLeaves_.Value <- value.selectedLeaves + _singleSelectLeaf_.Value <- value.singleSelectLeaf + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.rootGroup = _rootGroup_ + member __.activeGroup = _activeGroup_ :> FSharp.Data.Adaptive.aval + member __.activeChild = _activeChild_ :> FSharp.Data.Adaptive.aval + member __.flat = _flat_ :> FSharp.Data.Adaptive.amap + member __.groupsLookup = _groupsLookup_ :> FSharp.Data.Adaptive.amap + member __.lastSelectedItem = _lastSelectedItem_ :> FSharp.Data.Adaptive.aval + member __.selectedLeaves = _selectedLeaves_ :> FSharp.Data.Adaptive.aset + member __.singleSelectLeaf = _singleSelectLeaf_ :> FSharp.Data.Adaptive.aval> +[] +module GroupsModelLenses = + type GroupsModel with + static member version_ = ((fun (self : GroupsModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : GroupsModel) -> { self with version = value })) + static member rootGroup_ = ((fun (self : GroupsModel) -> self.rootGroup), (fun (value : Node) (self : GroupsModel) -> { self with rootGroup = value })) + static member activeGroup_ = ((fun (self : GroupsModel) -> self.activeGroup), (fun (value : TreeSelection) (self : GroupsModel) -> { self with activeGroup = value })) + static member activeChild_ = ((fun (self : GroupsModel) -> self.activeChild), (fun (value : TreeSelection) (self : GroupsModel) -> { self with activeChild = value })) + static member flat_ = ((fun (self : GroupsModel) -> self.flat), (fun (value : FSharp.Data.Adaptive.HashMap) (self : GroupsModel) -> { self with flat = value })) + static member groupsLookup_ = ((fun (self : GroupsModel) -> self.groupsLookup), (fun (value : FSharp.Data.Adaptive.HashMap) (self : GroupsModel) -> { self with groupsLookup = value })) + static member lastSelectedItem_ = ((fun (self : GroupsModel) -> self.lastSelectedItem), (fun (value : SelectedItem) (self : GroupsModel) -> { self with lastSelectedItem = value })) + static member selectedLeaves_ = ((fun (self : GroupsModel) -> self.selectedLeaves), (fun (value : FSharp.Data.Adaptive.HashSet) (self : GroupsModel) -> { self with selectedLeaves = value })) + static member singleSelectLeaf_ = ((fun (self : GroupsModel) -> self.singleSelectLeaf), (fun (value : Microsoft.FSharp.Core.option) (self : GroupsModel) -> { self with singleSelectLeaf = value })) +[] +type AdaptiveAnnotationGroupsImporterModel(value : AnnotationGroupsImporterModel) = + let _rootGroupI_ = + let inline __arg2 (m : AdaptiveNode) (v : Node) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelList(value.rootGroupI, (fun (v : Node) -> AdaptiveNode(v)), __arg2, (fun (m : AdaptiveNode) -> m)) + let _flatI_ = FSharp.Data.Traceable.ChangeableModelMap(value.flatI, (fun (v : Leaf) -> AdaptiveLeaf.CreateAdaptiveCase(v)), (fun (m : AdaptiveLeafCase) (v : Leaf) -> m.Update(v)), (fun (m : AdaptiveLeafCase) -> m)) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : AnnotationGroupsImporterModel) = AdaptiveAnnotationGroupsImporterModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : AnnotationGroupsImporterModel) -> AdaptiveAnnotationGroupsImporterModel(value)) (fun (adaptive : AdaptiveAnnotationGroupsImporterModel) (value : AnnotationGroupsImporterModel) -> adaptive.Update(value)) + member __.Update(value : AnnotationGroupsImporterModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _rootGroupI_.Update(value.rootGroupI) + _flatI_.Update(value.flatI) + member __.Current = __adaptive + member __.rootGroupI = _rootGroupI_ :> FSharp.Data.Adaptive.alist + member __.flatI = _flatI_ :> FSharp.Data.Adaptive.amap +[] +module AnnotationGroupsImporterModelLenses = + type AnnotationGroupsImporterModel with + static member rootGroupI_ = ((fun (self : AnnotationGroupsImporterModel) -> self.rootGroupI), (fun (value : FSharp.Data.Adaptive.IndexList) (self : AnnotationGroupsImporterModel) -> { self with rootGroupI = value })) + static member flatI_ = ((fun (self : AnnotationGroupsImporterModel) -> self.flatI), (fun (value : FSharp.Data.Adaptive.HashMap) (self : AnnotationGroupsImporterModel) -> { self with flatI = value })) +[] +type AdaptiveSurfaceModel(value : SurfaceModel) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _surfaces_ = AdaptiveGroupsModel(value.surfaces) + let _sgSurfaces_ = + let inline __arg2 (m : PRo3D.Core.Surface.AdaptiveSgSurface) (v : PRo3D.Core.Surface.SgSurface) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.sgSurfaces, (fun (v : PRo3D.Core.Surface.SgSurface) -> PRo3D.Core.Surface.AdaptiveSgSurface(v)), __arg2, (fun (m : PRo3D.Core.Surface.AdaptiveSgSurface) -> m)) + let _sgGrouped_ = + let inline __arg1 (v : FSharp.Data.Adaptive.HashMap) = + let inline __arg2 (m : PRo3D.Core.Surface.AdaptiveSgSurface) (v : PRo3D.Core.Surface.SgSurface) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(v, (fun (v : PRo3D.Core.Surface.SgSurface) -> PRo3D.Core.Surface.AdaptiveSgSurface(v)), __arg2, (fun (m : PRo3D.Core.Surface.AdaptiveSgSurface) -> m)) + let inline __arg2 (m : FSharp.Data.Traceable.ChangeableModelMap) (v : FSharp.Data.Adaptive.HashMap) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelList(value.sgGrouped, __arg1, __arg2, (fun (m : FSharp.Data.Traceable.ChangeableModelMap) -> m :> FSharp.Data.Adaptive.amap)) + let _kdTreeCache_ = FSharp.Data.Adaptive.cmap(value.kdTreeCache) + let _debugPreTrafo_ = FSharp.Data.Adaptive.cval(value.debugPreTrafo) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SurfaceModel) = AdaptiveSurfaceModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SurfaceModel) -> AdaptiveSurfaceModel(value)) (fun (adaptive : AdaptiveSurfaceModel) (value : SurfaceModel) -> adaptive.Update(value)) + member __.Update(value : SurfaceModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _surfaces_.Update(value.surfaces) + _sgSurfaces_.Update(value.sgSurfaces) + _sgGrouped_.Update(value.sgGrouped) + _kdTreeCache_.Value <- value.kdTreeCache + _debugPreTrafo_.Value <- value.debugPreTrafo + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.surfaces = _surfaces_ + member __.sgSurfaces = _sgSurfaces_ :> FSharp.Data.Adaptive.amap + member __.sgGrouped = _sgGrouped_ :> FSharp.Data.Adaptive.alist> + member __.kdTreeCache = _kdTreeCache_ :> FSharp.Data.Adaptive.amap + member __.debugPreTrafo = _debugPreTrafo_ :> FSharp.Data.Adaptive.aval +[] +module SurfaceModelLenses = + type SurfaceModel with + static member version_ = ((fun (self : SurfaceModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : SurfaceModel) -> { self with version = value })) + static member surfaces_ = ((fun (self : SurfaceModel) -> self.surfaces), (fun (value : GroupsModel) (self : SurfaceModel) -> { self with surfaces = value })) + static member sgSurfaces_ = ((fun (self : SurfaceModel) -> self.sgSurfaces), (fun (value : FSharp.Data.Adaptive.HashMap) (self : SurfaceModel) -> { self with sgSurfaces = value })) + static member sgGrouped_ = ((fun (self : SurfaceModel) -> self.sgGrouped), (fun (value : FSharp.Data.Adaptive.IndexList>) (self : SurfaceModel) -> { self with sgGrouped = value })) + static member kdTreeCache_ = ((fun (self : SurfaceModel) -> self.kdTreeCache), (fun (value : FSharp.Data.Adaptive.HashMap) (self : SurfaceModel) -> { self with kdTreeCache = value })) + static member debugPreTrafo_ = ((fun (self : SurfaceModel) -> self.debugPreTrafo), (fun (value : Microsoft.FSharp.Core.string) (self : SurfaceModel) -> { self with debugPreTrafo = value })) + diff --git a/src/PRo3D.Core/Importers/MeasurementsImporter.g.fs b/src/PRo3D.Core/Importers/MeasurementsImporter.g.fs new file mode 100644 index 00000000..afcee46e --- /dev/null +++ b/src/PRo3D.Core/Importers/MeasurementsImporter.g.fs @@ -0,0 +1,35 @@ +//1e8f969f-1d58-bb0a-8aba-e96aa5e6fa83 +//6e101e5f-6fc1-a5ba-5111-097dd2e72bac +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core +[] +type AdaptiveMeasurementsImporterModel(value : MeasurementsImporterModel) = + let _annotations_ = + let inline __arg2 (m : PRo3D.Base.Annotation.AdaptiveAnnotation) (v : PRo3D.Base.Annotation.Annotation) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelList(value.annotations, (fun (v : PRo3D.Base.Annotation.Annotation) -> PRo3D.Base.Annotation.AdaptiveAnnotation(v)), __arg2, (fun (m : PRo3D.Base.Annotation.AdaptiveAnnotation) -> m)) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : MeasurementsImporterModel) = AdaptiveMeasurementsImporterModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : MeasurementsImporterModel) -> AdaptiveMeasurementsImporterModel(value)) (fun (adaptive : AdaptiveMeasurementsImporterModel) (value : MeasurementsImporterModel) -> adaptive.Update(value)) + member __.Update(value : MeasurementsImporterModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _annotations_.Update(value.annotations) + member __.Current = __adaptive + member __.annotations = _annotations_ :> FSharp.Data.Adaptive.alist +[] +module MeasurementsImporterModelLenses = + type MeasurementsImporterModel with + static member annotations_ = ((fun (self : MeasurementsImporterModel) -> self.annotations), (fun (value : FSharp.Data.Adaptive.IndexList) (self : MeasurementsImporterModel) -> { self with annotations = value })) + diff --git a/src/PRo3D.Core/Importers/SurfaceTrafoImporter.g.fs b/src/PRo3D.Core/Importers/SurfaceTrafoImporter.g.fs new file mode 100644 index 00000000..d795c9b2 --- /dev/null +++ b/src/PRo3D.Core/Importers/SurfaceTrafoImporter.g.fs @@ -0,0 +1,31 @@ +//1bdd6296-4a81-c324-945b-705776448366 +//80ee6db4-a8a6-2cf1-f1f0-378b2f7d2752 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core +[] +type AdaptiveSurfaceTrafoImporterModel(value : SurfaceTrafoImporterModel) = + let _trafos_ = FSharp.Data.Adaptive.clist(value.trafos) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SurfaceTrafoImporterModel) = AdaptiveSurfaceTrafoImporterModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SurfaceTrafoImporterModel) -> AdaptiveSurfaceTrafoImporterModel(value)) (fun (adaptive : AdaptiveSurfaceTrafoImporterModel) (value : SurfaceTrafoImporterModel) -> adaptive.Update(value)) + member __.Update(value : SurfaceTrafoImporterModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _trafos_.Value <- value.trafos + member __.Current = __adaptive + member __.trafos = _trafos_ :> FSharp.Data.Adaptive.alist +[] +module SurfaceTrafoImporterModelLenses = + type SurfaceTrafoImporterModel with + static member trafos_ = ((fun (self : SurfaceTrafoImporterModel) -> self.trafos), (fun (value : FSharp.Data.Adaptive.IndexList) (self : SurfaceTrafoImporterModel) -> { self with trafos = value })) + diff --git a/src/PRo3D.Core/PRo3D.Core.fsproj b/src/PRo3D.Core/PRo3D.Core.fsproj index 651907cc..a75e3b94 100644 --- a/src/PRo3D.Core/PRo3D.Core.fsproj +++ b/src/PRo3D.Core/PRo3D.Core.fsproj @@ -5,12 +5,9 @@ net6.0 True - False - - ..\..\bin\Debug\ 0686 @@ -24,13 +21,21 @@ + + + + + + + + @@ -39,6 +44,7 @@ + @@ -47,6 +53,7 @@ + @@ -54,6 +61,7 @@ + @@ -61,10 +69,13 @@ + + + diff --git a/src/PRo3D.Core/ReferenceSystem-Model.g.fs b/src/PRo3D.Core/ReferenceSystem-Model.g.fs new file mode 100644 index 00000000..5d3c6d8e --- /dev/null +++ b/src/PRo3D.Core/ReferenceSystem-Model.g.fs @@ -0,0 +1,71 @@ +//f2f9f9c8-50ef-49d5-0e4c-f0a87275fd18 +//780cfdfb-dc9c-61fa-2dd9-61a4d7f7a1e4 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core +[] +type AdaptiveReferenceSystem(value : ReferenceSystem) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _origin_ = FSharp.Data.Adaptive.cval(value.origin) + let _north_ = Aardvark.UI.AdaptiveV3dInput(value.north) + let _noffset_ = Aardvark.UI.AdaptiveNumericInput(value.noffset) + let _northO_ = FSharp.Data.Adaptive.cval(value.northO) + let _up_ = Aardvark.UI.AdaptiveV3dInput(value.up) + let _isVisible_ = FSharp.Data.Adaptive.cval(value.isVisible) + let _size_ = Aardvark.UI.AdaptiveNumericInput(value.size) + let _scaleChart_ = FSharp.Data.Adaptive.clist(value.scaleChart) + let _selectedScale_ = FSharp.Data.Adaptive.cval(value.selectedScale) + let _planet_ = FSharp.Data.Adaptive.cval(value.planet) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ReferenceSystem) = AdaptiveReferenceSystem(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ReferenceSystem) -> AdaptiveReferenceSystem(value)) (fun (adaptive : AdaptiveReferenceSystem) (value : ReferenceSystem) -> adaptive.Update(value)) + member __.Update(value : ReferenceSystem) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _origin_.Value <- value.origin + _north_.Update(value.north) + _noffset_.Update(value.noffset) + _northO_.Value <- value.northO + _up_.Update(value.up) + _isVisible_.Value <- value.isVisible + _size_.Update(value.size) + _scaleChart_.Value <- value.scaleChart + _selectedScale_.Value <- value.selectedScale + _planet_.Value <- value.planet + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.origin = _origin_ :> FSharp.Data.Adaptive.aval + member __.north = _north_ + member __.noffset = _noffset_ + member __.northO = _northO_ :> FSharp.Data.Adaptive.aval + member __.up = _up_ + member __.isVisible = _isVisible_ :> FSharp.Data.Adaptive.aval + member __.size = _size_ + member __.scaleChart = _scaleChart_ :> FSharp.Data.Adaptive.alist + member __.selectedScale = _selectedScale_ :> FSharp.Data.Adaptive.aval + member __.planet = _planet_ :> FSharp.Data.Adaptive.aval +[] +module ReferenceSystemLenses = + type ReferenceSystem with + static member version_ = ((fun (self : ReferenceSystem) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : ReferenceSystem) -> { self with version = value })) + static member origin_ = ((fun (self : ReferenceSystem) -> self.origin), (fun (value : Aardvark.Base.V3d) (self : ReferenceSystem) -> { self with origin = value })) + static member north_ = ((fun (self : ReferenceSystem) -> self.north), (fun (value : Aardvark.UI.V3dInput) (self : ReferenceSystem) -> { self with north = value })) + static member noffset_ = ((fun (self : ReferenceSystem) -> self.noffset), (fun (value : Aardvark.UI.NumericInput) (self : ReferenceSystem) -> { self with noffset = value })) + static member northO_ = ((fun (self : ReferenceSystem) -> self.northO), (fun (value : Aardvark.Base.V3d) (self : ReferenceSystem) -> { self with northO = value })) + static member up_ = ((fun (self : ReferenceSystem) -> self.up), (fun (value : Aardvark.UI.V3dInput) (self : ReferenceSystem) -> { self with up = value })) + static member isVisible_ = ((fun (self : ReferenceSystem) -> self.isVisible), (fun (value : Microsoft.FSharp.Core.bool) (self : ReferenceSystem) -> { self with isVisible = value })) + static member size_ = ((fun (self : ReferenceSystem) -> self.size), (fun (value : Aardvark.UI.NumericInput) (self : ReferenceSystem) -> { self with size = value })) + static member scaleChart_ = ((fun (self : ReferenceSystem) -> self.scaleChart), (fun (value : FSharp.Data.Adaptive.IndexList) (self : ReferenceSystem) -> { self with scaleChart = value })) + static member selectedScale_ = ((fun (self : ReferenceSystem) -> self.selectedScale), (fun (value : Microsoft.FSharp.Core.string) (self : ReferenceSystem) -> { self with selectedScale = value })) + static member planet_ = ((fun (self : ReferenceSystem) -> self.planet), (fun (value : PRo3D.Base.Planet) (self : ReferenceSystem) -> { self with planet = value })) + diff --git a/src/PRo3D.Core/ScaleBars-Model.g.fs b/src/PRo3D.Core/ScaleBars-Model.g.fs new file mode 100644 index 00000000..fc6de599 --- /dev/null +++ b/src/PRo3D.Core/ScaleBars-Model.g.fs @@ -0,0 +1,197 @@ +//9ee261cc-c6de-e664-c970-aa31e4490c31 +//d5992801-e874-7be2-b05e-04683d7dcaf0 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core +[] +type AdaptivescSegment(value : scSegment) = + let _startPoint_ = FSharp.Data.Adaptive.cval(value.startPoint) + let _endPoint_ = FSharp.Data.Adaptive.cval(value.endPoint) + let _color_ = FSharp.Data.Adaptive.cval(value.color) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : scSegment) = AdaptivescSegment(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : scSegment) -> AdaptivescSegment(value)) (fun (adaptive : AdaptivescSegment) (value : scSegment) -> adaptive.Update(value)) + member __.Update(value : scSegment) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _startPoint_.Value <- value.startPoint + _endPoint_.Value <- value.endPoint + _color_.Value <- value.color + member __.Current = __adaptive + member __.startPoint = _startPoint_ :> FSharp.Data.Adaptive.aval + member __.endPoint = _endPoint_ :> FSharp.Data.Adaptive.aval + member __.color = _color_ :> FSharp.Data.Adaptive.aval +[] +module scSegmentLenses = + type scSegment with + static member startPoint_ = ((fun (self : scSegment) -> self.startPoint), (fun (value : Aardvark.Base.V3d) (self : scSegment) -> { self with startPoint = value })) + static member endPoint_ = ((fun (self : scSegment) -> self.endPoint), (fun (value : Aardvark.Base.V3d) (self : scSegment) -> { self with endPoint = value })) + static member color_ = ((fun (self : scSegment) -> self.color), (fun (value : Aardvark.Base.C4b) (self : scSegment) -> { self with color = value })) +[] +type AdaptiveScaleBar(value : ScaleBar) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _guid_ = FSharp.Data.Adaptive.cval(value.guid) + let _name_ = FSharp.Data.Adaptive.cval(value.name) + let _text_ = FSharp.Data.Adaptive.cval(value.text) + let _textsize_ = Aardvark.UI.AdaptiveNumericInput(value.textsize) + let _textVisible_ = FSharp.Data.Adaptive.cval(value.textVisible) + let _isVisible_ = FSharp.Data.Adaptive.cval(value.isVisible) + let _position_ = FSharp.Data.Adaptive.cval(value.position) + let _scSegments_ = + let inline __arg2 (m : AdaptivescSegment) (v : scSegment) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelList(value.scSegments, (fun (v : scSegment) -> AdaptivescSegment(v)), __arg2, (fun (m : AdaptivescSegment) -> m)) + let _orientation_ = FSharp.Data.Adaptive.cval(value.orientation) + let _alignment_ = FSharp.Data.Adaptive.cval(value.alignment) + let _thickness_ = Aardvark.UI.AdaptiveNumericInput(value.thickness) + let _length_ = Aardvark.UI.AdaptiveNumericInput(value.length) + let _unit_ = FSharp.Data.Adaptive.cval(value.unit) + let _subdivisions_ = Aardvark.UI.AdaptiveNumericInput(value.subdivisions) + let _view_ = FSharp.Data.Adaptive.cval(value.view) + let _transformation_ = PRo3D.Core.Surface.AdaptiveTransformations(value.transformation) + let _preTransform_ = FSharp.Data.Adaptive.cval(value.preTransform) + let _direction_ = FSharp.Data.Adaptive.cval(value.direction) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ScaleBar) = AdaptiveScaleBar(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ScaleBar) -> AdaptiveScaleBar(value)) (fun (adaptive : AdaptiveScaleBar) (value : ScaleBar) -> adaptive.Update(value)) + member __.Update(value : ScaleBar) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _guid_.Value <- value.guid + _name_.Value <- value.name + _text_.Value <- value.text + _textsize_.Update(value.textsize) + _textVisible_.Value <- value.textVisible + _isVisible_.Value <- value.isVisible + _position_.Value <- value.position + _scSegments_.Update(value.scSegments) + _orientation_.Value <- value.orientation + _alignment_.Value <- value.alignment + _thickness_.Update(value.thickness) + _length_.Update(value.length) + _unit_.Value <- value.unit + _subdivisions_.Update(value.subdivisions) + _view_.Value <- value.view + _transformation_.Update(value.transformation) + _preTransform_.Value <- value.preTransform + _direction_.Value <- value.direction + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.guid = _guid_ :> FSharp.Data.Adaptive.aval + member __.name = _name_ :> FSharp.Data.Adaptive.aval + member __.text = _text_ :> FSharp.Data.Adaptive.aval + member __.textsize = _textsize_ + member __.textVisible = _textVisible_ :> FSharp.Data.Adaptive.aval + member __.isVisible = _isVisible_ :> FSharp.Data.Adaptive.aval + member __.position = _position_ :> FSharp.Data.Adaptive.aval + member __.scSegments = _scSegments_ :> FSharp.Data.Adaptive.alist + member __.orientation = _orientation_ :> FSharp.Data.Adaptive.aval + member __.alignment = _alignment_ :> FSharp.Data.Adaptive.aval + member __.thickness = _thickness_ + member __.length = _length_ + member __.unit = _unit_ :> FSharp.Data.Adaptive.aval + member __.subdivisions = _subdivisions_ + member __.view = _view_ :> FSharp.Data.Adaptive.aval + member __.transformation = _transformation_ + member __.preTransform = _preTransform_ :> FSharp.Data.Adaptive.aval + member __.direction = _direction_ :> FSharp.Data.Adaptive.aval +[] +module ScaleBarLenses = + type ScaleBar with + static member version_ = ((fun (self : ScaleBar) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : ScaleBar) -> { self with version = value })) + static member guid_ = ((fun (self : ScaleBar) -> self.guid), (fun (value : System.Guid) (self : ScaleBar) -> { self with guid = value })) + static member name_ = ((fun (self : ScaleBar) -> self.name), (fun (value : Microsoft.FSharp.Core.string) (self : ScaleBar) -> { self with name = value })) + static member text_ = ((fun (self : ScaleBar) -> self.text), (fun (value : Microsoft.FSharp.Core.string) (self : ScaleBar) -> { self with text = value })) + static member textsize_ = ((fun (self : ScaleBar) -> self.textsize), (fun (value : Aardvark.UI.NumericInput) (self : ScaleBar) -> { self with textsize = value })) + static member textVisible_ = ((fun (self : ScaleBar) -> self.textVisible), (fun (value : Microsoft.FSharp.Core.bool) (self : ScaleBar) -> { self with textVisible = value })) + static member isVisible_ = ((fun (self : ScaleBar) -> self.isVisible), (fun (value : Microsoft.FSharp.Core.bool) (self : ScaleBar) -> { self with isVisible = value })) + static member position_ = ((fun (self : ScaleBar) -> self.position), (fun (value : Aardvark.Base.V3d) (self : ScaleBar) -> { self with position = value })) + static member scSegments_ = ((fun (self : ScaleBar) -> self.scSegments), (fun (value : FSharp.Data.Adaptive.IndexList) (self : ScaleBar) -> { self with scSegments = value })) + static member orientation_ = ((fun (self : ScaleBar) -> self.orientation), (fun (value : Orientation) (self : ScaleBar) -> { self with orientation = value })) + static member alignment_ = ((fun (self : ScaleBar) -> self.alignment), (fun (value : Pivot) (self : ScaleBar) -> { self with alignment = value })) + static member thickness_ = ((fun (self : ScaleBar) -> self.thickness), (fun (value : Aardvark.UI.NumericInput) (self : ScaleBar) -> { self with thickness = value })) + static member length_ = ((fun (self : ScaleBar) -> self.length), (fun (value : Aardvark.UI.NumericInput) (self : ScaleBar) -> { self with length = value })) + static member unit_ = ((fun (self : ScaleBar) -> self.unit), (fun (value : Unit) (self : ScaleBar) -> { self with unit = value })) + static member subdivisions_ = ((fun (self : ScaleBar) -> self.subdivisions), (fun (value : Aardvark.UI.NumericInput) (self : ScaleBar) -> { self with subdivisions = value })) + static member view_ = ((fun (self : ScaleBar) -> self.view), (fun (value : Aardvark.Rendering.CameraView) (self : ScaleBar) -> { self with view = value })) + static member transformation_ = ((fun (self : ScaleBar) -> self.transformation), (fun (value : PRo3D.Core.Surface.Transformations) (self : ScaleBar) -> { self with transformation = value })) + static member preTransform_ = ((fun (self : ScaleBar) -> self.preTransform), (fun (value : Aardvark.Base.Trafo3d) (self : ScaleBar) -> { self with preTransform = value })) + static member direction_ = ((fun (self : ScaleBar) -> self.direction), (fun (value : Aardvark.Base.V3d) (self : ScaleBar) -> { self with direction = value })) +[] +type AdaptiveScaleBarDrawing(value : ScaleBarDrawing) = + let _orientation_ = FSharp.Data.Adaptive.cval(value.orientation) + let _alignment_ = FSharp.Data.Adaptive.cval(value.alignment) + let _thickness_ = Aardvark.UI.AdaptiveNumericInput(value.thickness) + let _length_ = Aardvark.UI.AdaptiveNumericInput(value.length) + let _unit_ = FSharp.Data.Adaptive.cval(value.unit) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ScaleBarDrawing) = AdaptiveScaleBarDrawing(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ScaleBarDrawing) -> AdaptiveScaleBarDrawing(value)) (fun (adaptive : AdaptiveScaleBarDrawing) (value : ScaleBarDrawing) -> adaptive.Update(value)) + member __.Update(value : ScaleBarDrawing) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _orientation_.Value <- value.orientation + _alignment_.Value <- value.alignment + _thickness_.Update(value.thickness) + _length_.Update(value.length) + _unit_.Value <- value.unit + member __.Current = __adaptive + member __.orientation = _orientation_ :> FSharp.Data.Adaptive.aval + member __.alignment = _alignment_ :> FSharp.Data.Adaptive.aval + member __.thickness = _thickness_ + member __.length = _length_ + member __.unit = _unit_ :> FSharp.Data.Adaptive.aval +[] +module ScaleBarDrawingLenses = + type ScaleBarDrawing with + static member orientation_ = ((fun (self : ScaleBarDrawing) -> self.orientation), (fun (value : Orientation) (self : ScaleBarDrawing) -> { self with orientation = value })) + static member alignment_ = ((fun (self : ScaleBarDrawing) -> self.alignment), (fun (value : Pivot) (self : ScaleBarDrawing) -> { self with alignment = value })) + static member thickness_ = ((fun (self : ScaleBarDrawing) -> self.thickness), (fun (value : Aardvark.UI.NumericInput) (self : ScaleBarDrawing) -> { self with thickness = value })) + static member length_ = ((fun (self : ScaleBarDrawing) -> self.length), (fun (value : Aardvark.UI.NumericInput) (self : ScaleBarDrawing) -> { self with length = value })) + static member unit_ = ((fun (self : ScaleBarDrawing) -> self.unit), (fun (value : Unit) (self : ScaleBarDrawing) -> { self with unit = value })) +[] +type AdaptiveScaleBarsModel(value : ScaleBarsModel) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _scaleBars_ = + let inline __arg2 (m : AdaptiveScaleBar) (v : ScaleBar) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.scaleBars, (fun (v : ScaleBar) -> AdaptiveScaleBar(v)), __arg2, (fun (m : AdaptiveScaleBar) -> m)) + let _selectedScaleBar_ = FSharp.Data.Adaptive.cval(value.selectedScaleBar) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ScaleBarsModel) = AdaptiveScaleBarsModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ScaleBarsModel) -> AdaptiveScaleBarsModel(value)) (fun (adaptive : AdaptiveScaleBarsModel) (value : ScaleBarsModel) -> adaptive.Update(value)) + member __.Update(value : ScaleBarsModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _scaleBars_.Update(value.scaleBars) + _selectedScaleBar_.Value <- value.selectedScaleBar + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.scaleBars = _scaleBars_ :> FSharp.Data.Adaptive.amap + member __.selectedScaleBar = _selectedScaleBar_ :> FSharp.Data.Adaptive.aval> +[] +module ScaleBarsModelLenses = + type ScaleBarsModel with + static member version_ = ((fun (self : ScaleBarsModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : ScaleBarsModel) -> { self with version = value })) + static member scaleBars_ = ((fun (self : ScaleBarsModel) -> self.scaleBars), (fun (value : FSharp.Data.Adaptive.HashMap) (self : ScaleBarsModel) -> { self with scaleBars = value })) + static member selectedScaleBar_ = ((fun (self : ScaleBarsModel) -> self.selectedScaleBar), (fun (value : Microsoft.FSharp.Core.Option) (self : ScaleBarsModel) -> { self with selectedScaleBar = value })) + diff --git a/src/PRo3D.Core/SceneObjects-Model.g.fs b/src/PRo3D.Core/SceneObjects-Model.g.fs new file mode 100644 index 00000000..ff042b25 --- /dev/null +++ b/src/PRo3D.Core/SceneObjects-Model.g.fs @@ -0,0 +1,101 @@ +//fa1a7b6d-b094-6021-006b-0e9cf000e388 +//ecf64e6c-2876-bd13-f353-b97e5ed2a009 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core +[] +type AdaptiveSceneObject(value : SceneObject) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _guid_ = FSharp.Data.Adaptive.cval(value.guid) + let _name_ = FSharp.Data.Adaptive.cval(value.name) + let _importPath_ = FSharp.Data.Adaptive.cval(value.importPath) + let _isVisible_ = FSharp.Data.Adaptive.cval(value.isVisible) + let _position_ = FSharp.Data.Adaptive.cval(value.position) + let _scaling_ = Aardvark.UI.AdaptiveNumericInput(value.scaling) + let _transformation_ = PRo3D.Core.Surface.AdaptiveTransformations(value.transformation) + let _preTransform_ = FSharp.Data.Adaptive.cval(value.preTransform) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SceneObject) = AdaptiveSceneObject(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SceneObject) -> AdaptiveSceneObject(value)) (fun (adaptive : AdaptiveSceneObject) (value : SceneObject) -> adaptive.Update(value)) + member __.Update(value : SceneObject) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _guid_.Value <- value.guid + _name_.Value <- value.name + _importPath_.Value <- value.importPath + _isVisible_.Value <- value.isVisible + _position_.Value <- value.position + _scaling_.Update(value.scaling) + _transformation_.Update(value.transformation) + _preTransform_.Value <- value.preTransform + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.guid = _guid_ :> FSharp.Data.Adaptive.aval + member __.name = _name_ :> FSharp.Data.Adaptive.aval + member __.importPath = _importPath_ :> FSharp.Data.Adaptive.aval + member __.isVisible = _isVisible_ :> FSharp.Data.Adaptive.aval + member __.position = _position_ :> FSharp.Data.Adaptive.aval + member __.scaling = _scaling_ + member __.transformation = _transformation_ + member __.preTransform = _preTransform_ :> FSharp.Data.Adaptive.aval +[] +module SceneObjectLenses = + type SceneObject with + static member version_ = ((fun (self : SceneObject) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : SceneObject) -> { self with version = value })) + static member guid_ = ((fun (self : SceneObject) -> self.guid), (fun (value : System.Guid) (self : SceneObject) -> { self with guid = value })) + static member name_ = ((fun (self : SceneObject) -> self.name), (fun (value : Microsoft.FSharp.Core.string) (self : SceneObject) -> { self with name = value })) + static member importPath_ = ((fun (self : SceneObject) -> self.importPath), (fun (value : Microsoft.FSharp.Core.string) (self : SceneObject) -> { self with importPath = value })) + static member isVisible_ = ((fun (self : SceneObject) -> self.isVisible), (fun (value : Microsoft.FSharp.Core.bool) (self : SceneObject) -> { self with isVisible = value })) + static member position_ = ((fun (self : SceneObject) -> self.position), (fun (value : Aardvark.Base.V3d) (self : SceneObject) -> { self with position = value })) + static member scaling_ = ((fun (self : SceneObject) -> self.scaling), (fun (value : Aardvark.UI.NumericInput) (self : SceneObject) -> { self with scaling = value })) + static member transformation_ = ((fun (self : SceneObject) -> self.transformation), (fun (value : PRo3D.Core.Surface.Transformations) (self : SceneObject) -> { self with transformation = value })) + static member preTransform_ = ((fun (self : SceneObject) -> self.preTransform), (fun (value : Aardvark.Base.Trafo3d) (self : SceneObject) -> { self with preTransform = value })) +[] +type AdaptiveSceneObjectsModel(value : SceneObjectsModel) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _sceneObjects_ = + let inline __arg2 (m : AdaptiveSceneObject) (v : SceneObject) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.sceneObjects, (fun (v : SceneObject) -> AdaptiveSceneObject(v)), __arg2, (fun (m : AdaptiveSceneObject) -> m)) + let _sgSceneObjects_ = + let inline __arg2 (m : PRo3D.Core.Surface.AdaptiveSgSurface) (v : PRo3D.Core.Surface.SgSurface) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.sgSceneObjects, (fun (v : PRo3D.Core.Surface.SgSurface) -> PRo3D.Core.Surface.AdaptiveSgSurface(v)), __arg2, (fun (m : PRo3D.Core.Surface.AdaptiveSgSurface) -> m)) + let _selectedSceneObject_ = FSharp.Data.Adaptive.cval(value.selectedSceneObject) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SceneObjectsModel) = AdaptiveSceneObjectsModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SceneObjectsModel) -> AdaptiveSceneObjectsModel(value)) (fun (adaptive : AdaptiveSceneObjectsModel) (value : SceneObjectsModel) -> adaptive.Update(value)) + member __.Update(value : SceneObjectsModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _sceneObjects_.Update(value.sceneObjects) + _sgSceneObjects_.Update(value.sgSceneObjects) + _selectedSceneObject_.Value <- value.selectedSceneObject + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.sceneObjects = _sceneObjects_ :> FSharp.Data.Adaptive.amap + member __.sgSceneObjects = _sgSceneObjects_ :> FSharp.Data.Adaptive.amap + member __.selectedSceneObject = _selectedSceneObject_ :> FSharp.Data.Adaptive.aval> +[] +module SceneObjectsModelLenses = + type SceneObjectsModel with + static member version_ = ((fun (self : SceneObjectsModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : SceneObjectsModel) -> { self with version = value })) + static member sceneObjects_ = ((fun (self : SceneObjectsModel) -> self.sceneObjects), (fun (value : FSharp.Data.Adaptive.HashMap) (self : SceneObjectsModel) -> { self with sceneObjects = value })) + static member sgSceneObjects_ = ((fun (self : SceneObjectsModel) -> self.sgSceneObjects), (fun (value : FSharp.Data.Adaptive.HashMap) (self : SceneObjectsModel) -> { self with sgSceneObjects = value })) + static member selectedSceneObject_ = ((fun (self : SceneObjectsModel) -> self.selectedSceneObject), (fun (value : Microsoft.FSharp.Core.Option) (self : SceneObjectsModel) -> { self with selectedSceneObject = value })) + diff --git a/src/PRo3D.Core/SequencedBookmarks/SequencedBookmarks-Model.g.fs b/src/PRo3D.Core/SequencedBookmarks/SequencedBookmarks-Model.g.fs new file mode 100644 index 00000000..9807b7bd --- /dev/null +++ b/src/PRo3D.Core/SequencedBookmarks/SequencedBookmarks-Model.g.fs @@ -0,0 +1,196 @@ +//8847bf29-731b-1aa9-a4ab-296f596cc199 +//79609f7d-e143-1efc-f63c-8bfab5e84c71 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core.SequencedBookmarks + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core.SequencedBookmarks +[] +type AdaptiveSequencedBookmark(value : SequencedBookmark) = + let mutable _cameraView_ = FSharp.Data.Adaptive.cval(value.cameraView) + let mutable _name_ = FSharp.Data.Adaptive.cval(value.name) + let mutable _key_ = FSharp.Data.Adaptive.cval(value.key) + let _bookmark_ = PRo3D.Core.AdaptiveBookmark(value.bookmark) + let _sceneState_ = FSharp.Data.Adaptive.cval(value.sceneState) + let _delay_ = Aardvark.UI.AdaptiveNumericInput(value.delay) + let _duration_ = Aardvark.UI.AdaptiveNumericInput(value.duration) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SequencedBookmark) = AdaptiveSequencedBookmark(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SequencedBookmark) -> AdaptiveSequencedBookmark(value)) (fun (adaptive : AdaptiveSequencedBookmark) (value : SequencedBookmark) -> adaptive.Update(value)) + member __.Update(value : SequencedBookmark) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _cameraView_.Value <- value.cameraView + _name_.Value <- value.name + _key_.Value <- value.key + _bookmark_.Update(value.bookmark) + _sceneState_.Value <- value.sceneState + _delay_.Update(value.delay) + _duration_.Update(value.duration) + member __.Current = __adaptive + member __.cameraView = _cameraView_ :> FSharp.Data.Adaptive.aval + member __.name = _name_ :> FSharp.Data.Adaptive.aval + member __.key = _key_ :> FSharp.Data.Adaptive.aval + member __.version = __value.version + member __.bookmark = _bookmark_ + member __.sceneState = _sceneState_ :> FSharp.Data.Adaptive.aval> + member __.delay = _delay_ + member __.duration = _duration_ +[] +module SequencedBookmarkLenses = + type SequencedBookmark with + static member version_ = ((fun (self : SequencedBookmark) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : SequencedBookmark) -> { self with version = value })) + static member bookmark_ = ((fun (self : SequencedBookmark) -> self.bookmark), (fun (value : PRo3D.Core.Bookmark) (self : SequencedBookmark) -> { self with bookmark = value })) + static member sceneState_ = ((fun (self : SequencedBookmark) -> self.sceneState), (fun (value : Microsoft.FSharp.Core.option) (self : SequencedBookmark) -> { self with sceneState = value })) + static member delay_ = ((fun (self : SequencedBookmark) -> self.delay), (fun (value : Aardvark.UI.NumericInput) (self : SequencedBookmark) -> { self with delay = value })) + static member duration_ = ((fun (self : SequencedBookmark) -> self.duration), (fun (value : Aardvark.UI.NumericInput) (self : SequencedBookmark) -> { self with duration = value })) +[] +type AdaptiveAnimationSettings(value : AnimationSettings) = + let _globalDuration_ = Aardvark.UI.AdaptiveNumericInput(value.globalDuration) + let _useGlobalAnimation_ = FSharp.Data.Adaptive.cval(value.useGlobalAnimation) + let _loopMode_ = FSharp.Data.Adaptive.cval(value.loopMode) + let _useEasing_ = FSharp.Data.Adaptive.cval(value.useEasing) + let _applyStateOnSelect_ = FSharp.Data.Adaptive.cval(value.applyStateOnSelect) + let _smoothPath_ = FSharp.Data.Adaptive.cval(value.smoothPath) + let _smoothingFactor_ = Aardvark.UI.AdaptiveNumericInput(value.smoothingFactor) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : AnimationSettings) = AdaptiveAnimationSettings(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : AnimationSettings) -> AdaptiveAnimationSettings(value)) (fun (adaptive : AdaptiveAnimationSettings) (value : AnimationSettings) -> adaptive.Update(value)) + member __.Update(value : AnimationSettings) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _globalDuration_.Update(value.globalDuration) + _useGlobalAnimation_.Value <- value.useGlobalAnimation + _loopMode_.Value <- value.loopMode + _useEasing_.Value <- value.useEasing + _applyStateOnSelect_.Value <- value.applyStateOnSelect + _smoothPath_.Value <- value.smoothPath + _smoothingFactor_.Update(value.smoothingFactor) + member __.Current = __adaptive + member __.globalDuration = _globalDuration_ + member __.useGlobalAnimation = _useGlobalAnimation_ :> FSharp.Data.Adaptive.aval + member __.loopMode = _loopMode_ :> FSharp.Data.Adaptive.aval + member __.useEasing = _useEasing_ :> FSharp.Data.Adaptive.aval + member __.applyStateOnSelect = _applyStateOnSelect_ :> FSharp.Data.Adaptive.aval + member __.smoothPath = _smoothPath_ :> FSharp.Data.Adaptive.aval + member __.smoothingFactor = _smoothingFactor_ +[] +module AnimationSettingsLenses = + type AnimationSettings with + static member globalDuration_ = ((fun (self : AnimationSettings) -> self.globalDuration), (fun (value : Aardvark.UI.NumericInput) (self : AnimationSettings) -> { self with globalDuration = value })) + static member useGlobalAnimation_ = ((fun (self : AnimationSettings) -> self.useGlobalAnimation), (fun (value : Microsoft.FSharp.Core.bool) (self : AnimationSettings) -> { self with useGlobalAnimation = value })) + static member loopMode_ = ((fun (self : AnimationSettings) -> self.loopMode), (fun (value : AnimationLoopMode) (self : AnimationSettings) -> { self with loopMode = value })) + static member useEasing_ = ((fun (self : AnimationSettings) -> self.useEasing), (fun (value : Microsoft.FSharp.Core.bool) (self : AnimationSettings) -> { self with useEasing = value })) + static member applyStateOnSelect_ = ((fun (self : AnimationSettings) -> self.applyStateOnSelect), (fun (value : Microsoft.FSharp.Core.bool) (self : AnimationSettings) -> { self with applyStateOnSelect = value })) + static member smoothPath_ = ((fun (self : AnimationSettings) -> self.smoothPath), (fun (value : Microsoft.FSharp.Core.bool) (self : AnimationSettings) -> { self with smoothPath = value })) + static member smoothingFactor_ = ((fun (self : AnimationSettings) -> self.smoothingFactor), (fun (value : Aardvark.UI.NumericInput) (self : AnimationSettings) -> { self with smoothingFactor = value })) +[] +type AdaptiveSequencedBookmarks(value : SequencedBookmarks) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _bookmarks_ = + let inline __arg2 (m : AdaptiveSequencedBookmark) (v : SequencedBookmark) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.bookmarks, (fun (v : SequencedBookmark) -> AdaptiveSequencedBookmark(v)), __arg2, (fun (m : AdaptiveSequencedBookmark) -> m)) + let _savedSceneState_ = FSharp.Data.Adaptive.cval(value.savedSceneState) + let _orderList_ = FSharp.Data.Adaptive.cval(value.orderList) + let _selectedBookmark_ = FSharp.Data.Adaptive.cval(value.selectedBookmark) + let _animationSettings_ = AdaptiveAnimationSettings(value.animationSettings) + let _lastSavedBookmark_ = FSharp.Data.Adaptive.cval(value.lastSavedBookmark) + let _savedTimeSteps_ = FSharp.Data.Adaptive.cval(value.savedTimeSteps) + let _isRecording_ = FSharp.Data.Adaptive.cval(value.isRecording) + let _generateOnStop_ = FSharp.Data.Adaptive.cval(value.generateOnStop) + let _isGenerating_ = FSharp.Data.Adaptive.cval(value.isGenerating) + let _isCancelled_ = FSharp.Data.Adaptive.cval(value.isCancelled) + let _resolutionX_ = Aardvark.UI.AdaptiveNumericInput(value.resolutionX) + let _resolutionY_ = Aardvark.UI.AdaptiveNumericInput(value.resolutionY) + let _debug_ = FSharp.Data.Adaptive.cval(value.debug) + let _currentFps_ = FSharp.Data.Adaptive.cval(value.currentFps) + let _lastStart_ = FSharp.Data.Adaptive.cval(value.lastStart) + let _outputPath_ = FSharp.Data.Adaptive.cval(value.outputPath) + let _fpsSetting_ = FSharp.Data.Adaptive.cval(value.fpsSetting) + let _updateJsonBeforeRendering_ = FSharp.Data.Adaptive.cval(value.updateJsonBeforeRendering) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SequencedBookmarks) = AdaptiveSequencedBookmarks(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SequencedBookmarks) -> AdaptiveSequencedBookmarks(value)) (fun (adaptive : AdaptiveSequencedBookmarks) (value : SequencedBookmarks) -> adaptive.Update(value)) + member __.Update(value : SequencedBookmarks) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _bookmarks_.Update(value.bookmarks) + _savedSceneState_.Value <- value.savedSceneState + _orderList_.Value <- value.orderList + _selectedBookmark_.Value <- value.selectedBookmark + _animationSettings_.Update(value.animationSettings) + _lastSavedBookmark_.Value <- value.lastSavedBookmark + _savedTimeSteps_.Value <- value.savedTimeSteps + _isRecording_.Value <- value.isRecording + _generateOnStop_.Value <- value.generateOnStop + _isGenerating_.Value <- value.isGenerating + _isCancelled_.Value <- value.isCancelled + _resolutionX_.Update(value.resolutionX) + _resolutionY_.Update(value.resolutionY) + _debug_.Value <- value.debug + _currentFps_.Value <- value.currentFps + _lastStart_.Value <- value.lastStart + _outputPath_.Value <- value.outputPath + _fpsSetting_.Value <- value.fpsSetting + _updateJsonBeforeRendering_.Value <- value.updateJsonBeforeRendering + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.bookmarks = _bookmarks_ :> FSharp.Data.Adaptive.amap + member __.savedSceneState = _savedSceneState_ :> FSharp.Data.Adaptive.aval> + member __.orderList = _orderList_ :> FSharp.Data.Adaptive.aval> + member __.selectedBookmark = _selectedBookmark_ :> FSharp.Data.Adaptive.aval> + member __.animationSettings = _animationSettings_ + member __.lastSavedBookmark = _lastSavedBookmark_ :> FSharp.Data.Adaptive.aval> + member __.savedTimeSteps = _savedTimeSteps_ :> FSharp.Data.Adaptive.aval> + member __.isRecording = _isRecording_ :> FSharp.Data.Adaptive.aval + member __.generateOnStop = _generateOnStop_ :> FSharp.Data.Adaptive.aval + member __.isGenerating = _isGenerating_ :> FSharp.Data.Adaptive.aval + member __.isCancelled = _isCancelled_ :> FSharp.Data.Adaptive.aval + member __.resolutionX = _resolutionX_ + member __.resolutionY = _resolutionY_ + member __.debug = _debug_ :> FSharp.Data.Adaptive.aval + member __.currentFps = _currentFps_ :> FSharp.Data.Adaptive.aval> + member __.lastStart = _lastStart_ :> FSharp.Data.Adaptive.aval> + member __.outputPath = _outputPath_ :> FSharp.Data.Adaptive.aval + member __.fpsSetting = _fpsSetting_ :> FSharp.Data.Adaptive.aval + member __.snapshotThreads = __value.snapshotThreads + member __.updateJsonBeforeRendering = _updateJsonBeforeRendering_ :> FSharp.Data.Adaptive.aval +[] +module SequencedBookmarksLenses = + type SequencedBookmarks with + static member version_ = ((fun (self : SequencedBookmarks) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : SequencedBookmarks) -> { self with version = value })) + static member bookmarks_ = ((fun (self : SequencedBookmarks) -> self.bookmarks), (fun (value : FSharp.Data.Adaptive.HashMap) (self : SequencedBookmarks) -> { self with bookmarks = value })) + static member savedSceneState_ = ((fun (self : SequencedBookmarks) -> self.savedSceneState), (fun (value : Microsoft.FSharp.Core.Option) (self : SequencedBookmarks) -> { self with savedSceneState = value })) + static member orderList_ = ((fun (self : SequencedBookmarks) -> self.orderList), (fun (value : Microsoft.FSharp.Collections.List) (self : SequencedBookmarks) -> { self with orderList = value })) + static member selectedBookmark_ = ((fun (self : SequencedBookmarks) -> self.selectedBookmark), (fun (value : Microsoft.FSharp.Core.Option) (self : SequencedBookmarks) -> { self with selectedBookmark = value })) + static member animationSettings_ = ((fun (self : SequencedBookmarks) -> self.animationSettings), (fun (value : AnimationSettings) (self : SequencedBookmarks) -> { self with animationSettings = value })) + static member lastSavedBookmark_ = ((fun (self : SequencedBookmarks) -> self.lastSavedBookmark), (fun (value : Microsoft.FSharp.Core.option) (self : SequencedBookmarks) -> { self with lastSavedBookmark = value })) + static member savedTimeSteps_ = ((fun (self : SequencedBookmarks) -> self.savedTimeSteps), (fun (value : Microsoft.FSharp.Collections.list) (self : SequencedBookmarks) -> { self with savedTimeSteps = value })) + static member isRecording_ = ((fun (self : SequencedBookmarks) -> self.isRecording), (fun (value : Microsoft.FSharp.Core.bool) (self : SequencedBookmarks) -> { self with isRecording = value })) + static member generateOnStop_ = ((fun (self : SequencedBookmarks) -> self.generateOnStop), (fun (value : Microsoft.FSharp.Core.bool) (self : SequencedBookmarks) -> { self with generateOnStop = value })) + static member isGenerating_ = ((fun (self : SequencedBookmarks) -> self.isGenerating), (fun (value : Microsoft.FSharp.Core.bool) (self : SequencedBookmarks) -> { self with isGenerating = value })) + static member isCancelled_ = ((fun (self : SequencedBookmarks) -> self.isCancelled), (fun (value : Microsoft.FSharp.Core.bool) (self : SequencedBookmarks) -> { self with isCancelled = value })) + static member resolutionX_ = ((fun (self : SequencedBookmarks) -> self.resolutionX), (fun (value : Aardvark.UI.NumericInput) (self : SequencedBookmarks) -> { self with resolutionX = value })) + static member resolutionY_ = ((fun (self : SequencedBookmarks) -> self.resolutionY), (fun (value : Aardvark.UI.NumericInput) (self : SequencedBookmarks) -> { self with resolutionY = value })) + static member debug_ = ((fun (self : SequencedBookmarks) -> self.debug), (fun (value : Microsoft.FSharp.Core.bool) (self : SequencedBookmarks) -> { self with debug = value })) + static member currentFps_ = ((fun (self : SequencedBookmarks) -> self.currentFps), (fun (value : Microsoft.FSharp.Core.option) (self : SequencedBookmarks) -> { self with currentFps = value })) + static member lastStart_ = ((fun (self : SequencedBookmarks) -> self.lastStart), (fun (value : Microsoft.FSharp.Core.option) (self : SequencedBookmarks) -> { self with lastStart = value })) + static member outputPath_ = ((fun (self : SequencedBookmarks) -> self.outputPath), (fun (value : Microsoft.FSharp.Core.string) (self : SequencedBookmarks) -> { self with outputPath = value })) + static member fpsSetting_ = ((fun (self : SequencedBookmarks) -> self.fpsSetting), (fun (value : FPSSetting) (self : SequencedBookmarks) -> { self with fpsSetting = value })) + static member snapshotThreads_ = ((fun (self : SequencedBookmarks) -> self.snapshotThreads), (fun (value : FSharp.Data.Adaptive.ThreadPool) (self : SequencedBookmarks) -> { self with snapshotThreads = value })) + static member updateJsonBeforeRendering_ = ((fun (self : SequencedBookmarks) -> self.updateJsonBeforeRendering), (fun (value : Microsoft.FSharp.Core.bool) (self : SequencedBookmarks) -> { self with updateJsonBeforeRendering = value })) + diff --git a/src/PRo3D.Core/Surface-Model.g.fs b/src/PRo3D.Core/Surface-Model.g.fs new file mode 100644 index 00000000..310fc74a --- /dev/null +++ b/src/PRo3D.Core/Surface-Model.g.fs @@ -0,0 +1,313 @@ +//dabcc7cc-7f86-fd62-f016-c9143c8e8d35 +//876be93d-77db-a6e2-9108-3a112169eaed +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core.Surface + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core.Surface +[] +type AdaptiveScalarLayer(value : ScalarLayer) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _label_ = FSharp.Data.Adaptive.cval(value.label) + let _actualRange_ = FSharp.Data.Adaptive.cval(value.actualRange) + let _definedRange_ = FSharp.Data.Adaptive.cval(value.definedRange) + let _index_ = FSharp.Data.Adaptive.cval(value.index) + let _colorLegend_ = PRo3D.Base.AdaptiveFalseColorsModel(value.colorLegend) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ScalarLayer) = AdaptiveScalarLayer(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ScalarLayer) -> AdaptiveScalarLayer(value)) (fun (adaptive : AdaptiveScalarLayer) (value : ScalarLayer) -> adaptive.Update(value)) + member __.Update(value : ScalarLayer) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _label_.Value <- value.label + _actualRange_.Value <- value.actualRange + _definedRange_.Value <- value.definedRange + _index_.Value <- value.index + _colorLegend_.Update(value.colorLegend) + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.label = _label_ :> FSharp.Data.Adaptive.aval + member __.actualRange = _actualRange_ :> FSharp.Data.Adaptive.aval + member __.definedRange = _definedRange_ :> FSharp.Data.Adaptive.aval + member __.index = _index_ :> FSharp.Data.Adaptive.aval + member __.colorLegend = _colorLegend_ +[] +module ScalarLayerLenses = + type ScalarLayer with + static member version_ = ((fun (self : ScalarLayer) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : ScalarLayer) -> { self with version = value })) + static member label_ = ((fun (self : ScalarLayer) -> self.label), (fun (value : Microsoft.FSharp.Core.string) (self : ScalarLayer) -> { self with label = value })) + static member actualRange_ = ((fun (self : ScalarLayer) -> self.actualRange), (fun (value : Aardvark.Base.Range1d) (self : ScalarLayer) -> { self with actualRange = value })) + static member definedRange_ = ((fun (self : ScalarLayer) -> self.definedRange), (fun (value : Aardvark.Base.Range1d) (self : ScalarLayer) -> { self with definedRange = value })) + static member index_ = ((fun (self : ScalarLayer) -> self.index), (fun (value : Microsoft.FSharp.Core.int) (self : ScalarLayer) -> { self with index = value })) + static member colorLegend_ = ((fun (self : ScalarLayer) -> self.colorLegend), (fun (value : PRo3D.Base.FalseColorsModel) (self : ScalarLayer) -> { self with colorLegend = value })) +[] +type AdaptiveColorCorrection(value : ColorCorrection) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _contrast_ = Aardvark.UI.AdaptiveNumericInput(value.contrast) + let _useContrast_ = FSharp.Data.Adaptive.cval(value.useContrast) + let _brightness_ = Aardvark.UI.AdaptiveNumericInput(value.brightness) + let _useBrightn_ = FSharp.Data.Adaptive.cval(value.useBrightn) + let _gamma_ = Aardvark.UI.AdaptiveNumericInput(value.gamma) + let _useGamma_ = FSharp.Data.Adaptive.cval(value.useGamma) + let _color_ = Aardvark.UI.AdaptiveColorInput(value.color) + let _useColor_ = FSharp.Data.Adaptive.cval(value.useColor) + let _useGrayscale_ = FSharp.Data.Adaptive.cval(value.useGrayscale) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ColorCorrection) = AdaptiveColorCorrection(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ColorCorrection) -> AdaptiveColorCorrection(value)) (fun (adaptive : AdaptiveColorCorrection) (value : ColorCorrection) -> adaptive.Update(value)) + member __.Update(value : ColorCorrection) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _contrast_.Update(value.contrast) + _useContrast_.Value <- value.useContrast + _brightness_.Update(value.brightness) + _useBrightn_.Value <- value.useBrightn + _gamma_.Update(value.gamma) + _useGamma_.Value <- value.useGamma + _color_.Update(value.color) + _useColor_.Value <- value.useColor + _useGrayscale_.Value <- value.useGrayscale + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.contrast = _contrast_ + member __.useContrast = _useContrast_ :> FSharp.Data.Adaptive.aval + member __.brightness = _brightness_ + member __.useBrightn = _useBrightn_ :> FSharp.Data.Adaptive.aval + member __.gamma = _gamma_ + member __.useGamma = _useGamma_ :> FSharp.Data.Adaptive.aval + member __.color = _color_ + member __.useColor = _useColor_ :> FSharp.Data.Adaptive.aval + member __.useGrayscale = _useGrayscale_ :> FSharp.Data.Adaptive.aval +[] +module ColorCorrectionLenses = + type ColorCorrection with + static member version_ = ((fun (self : ColorCorrection) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : ColorCorrection) -> { self with version = value })) + static member contrast_ = ((fun (self : ColorCorrection) -> self.contrast), (fun (value : Aardvark.UI.NumericInput) (self : ColorCorrection) -> { self with contrast = value })) + static member useContrast_ = ((fun (self : ColorCorrection) -> self.useContrast), (fun (value : Microsoft.FSharp.Core.bool) (self : ColorCorrection) -> { self with useContrast = value })) + static member brightness_ = ((fun (self : ColorCorrection) -> self.brightness), (fun (value : Aardvark.UI.NumericInput) (self : ColorCorrection) -> { self with brightness = value })) + static member useBrightn_ = ((fun (self : ColorCorrection) -> self.useBrightn), (fun (value : Microsoft.FSharp.Core.bool) (self : ColorCorrection) -> { self with useBrightn = value })) + static member gamma_ = ((fun (self : ColorCorrection) -> self.gamma), (fun (value : Aardvark.UI.NumericInput) (self : ColorCorrection) -> { self with gamma = value })) + static member useGamma_ = ((fun (self : ColorCorrection) -> self.useGamma), (fun (value : Microsoft.FSharp.Core.bool) (self : ColorCorrection) -> { self with useGamma = value })) + static member color_ = ((fun (self : ColorCorrection) -> self.color), (fun (value : Aardvark.UI.ColorInput) (self : ColorCorrection) -> { self with color = value })) + static member useColor_ = ((fun (self : ColorCorrection) -> self.useColor), (fun (value : Microsoft.FSharp.Core.bool) (self : ColorCorrection) -> { self with useColor = value })) + static member useGrayscale_ = ((fun (self : ColorCorrection) -> self.useGrayscale), (fun (value : Microsoft.FSharp.Core.bool) (self : ColorCorrection) -> { self with useGrayscale = value })) +[] +type AdaptiveTransformations(value : Transformations) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _useTranslationArrows_ = FSharp.Data.Adaptive.cval(value.useTranslationArrows) + let _translation_ = Aardvark.UI.AdaptiveV3dInput(value.translation) + let _yaw_ = Aardvark.UI.AdaptiveNumericInput(value.yaw) + let _pitch_ = Aardvark.UI.AdaptiveNumericInput(value.pitch) + let _roll_ = Aardvark.UI.AdaptiveNumericInput(value.roll) + let _trafo_ = FSharp.Data.Adaptive.cval(value.trafo) + let _pivot_ = FSharp.Data.Adaptive.cval(value.pivot) + let _flipZ_ = FSharp.Data.Adaptive.cval(value.flipZ) + let _isSketchFab_ = FSharp.Data.Adaptive.cval(value.isSketchFab) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Transformations) = AdaptiveTransformations(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Transformations) -> AdaptiveTransformations(value)) (fun (adaptive : AdaptiveTransformations) (value : Transformations) -> adaptive.Update(value)) + member __.Update(value : Transformations) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _useTranslationArrows_.Value <- value.useTranslationArrows + _translation_.Update(value.translation) + _yaw_.Update(value.yaw) + _pitch_.Update(value.pitch) + _roll_.Update(value.roll) + _trafo_.Value <- value.trafo + _pivot_.Value <- value.pivot + _flipZ_.Value <- value.flipZ + _isSketchFab_.Value <- value.isSketchFab + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.useTranslationArrows = _useTranslationArrows_ :> FSharp.Data.Adaptive.aval + member __.translation = _translation_ + member __.yaw = _yaw_ + member __.pitch = _pitch_ + member __.roll = _roll_ + member __.trafo = _trafo_ :> FSharp.Data.Adaptive.aval + member __.pivot = _pivot_ :> FSharp.Data.Adaptive.aval + member __.flipZ = _flipZ_ :> FSharp.Data.Adaptive.aval + member __.isSketchFab = _isSketchFab_ :> FSharp.Data.Adaptive.aval +[] +module TransformationsLenses = + type Transformations with + static member version_ = ((fun (self : Transformations) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : Transformations) -> { self with version = value })) + static member useTranslationArrows_ = ((fun (self : Transformations) -> self.useTranslationArrows), (fun (value : Microsoft.FSharp.Core.bool) (self : Transformations) -> { self with useTranslationArrows = value })) + static member translation_ = ((fun (self : Transformations) -> self.translation), (fun (value : Aardvark.UI.V3dInput) (self : Transformations) -> { self with translation = value })) + static member yaw_ = ((fun (self : Transformations) -> self.yaw), (fun (value : Aardvark.UI.NumericInput) (self : Transformations) -> { self with yaw = value })) + static member pitch_ = ((fun (self : Transformations) -> self.pitch), (fun (value : Aardvark.UI.NumericInput) (self : Transformations) -> { self with pitch = value })) + static member roll_ = ((fun (self : Transformations) -> self.roll), (fun (value : Aardvark.UI.NumericInput) (self : Transformations) -> { self with roll = value })) + static member trafo_ = ((fun (self : Transformations) -> self.trafo), (fun (value : Aardvark.Base.Trafo3d) (self : Transformations) -> { self with trafo = value })) + static member pivot_ = ((fun (self : Transformations) -> self.pivot), (fun (value : Aardvark.Base.V3d) (self : Transformations) -> { self with pivot = value })) + static member flipZ_ = ((fun (self : Transformations) -> self.flipZ), (fun (value : Microsoft.FSharp.Core.bool) (self : Transformations) -> { self with flipZ = value })) + static member isSketchFab_ = ((fun (self : Transformations) -> self.isSketchFab), (fun (value : Microsoft.FSharp.Core.bool) (self : Transformations) -> { self with isSketchFab = value })) +[] +type AdaptiveSurface(value : Surface) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _guid_ = FSharp.Data.Adaptive.cval(value.guid) + let _name_ = FSharp.Data.Adaptive.cval(value.name) + let _importPath_ = FSharp.Data.Adaptive.cval(value.importPath) + let _opcNames_ = FSharp.Data.Adaptive.cval(value.opcNames) + let _opcPaths_ = FSharp.Data.Adaptive.cval(value.opcPaths) + let _relativePaths_ = FSharp.Data.Adaptive.cval(value.relativePaths) + let _fillMode_ = FSharp.Data.Adaptive.cval(value.fillMode) + let _cullMode_ = FSharp.Data.Adaptive.cval(value.cullMode) + let _isVisible_ = FSharp.Data.Adaptive.cval(value.isVisible) + let _isActive_ = FSharp.Data.Adaptive.cval(value.isActive) + let _quality_ = Aardvark.UI.AdaptiveNumericInput(value.quality) + let _priority_ = Aardvark.UI.AdaptiveNumericInput(value.priority) + let _triangleSize_ = Aardvark.UI.AdaptiveNumericInput(value.triangleSize) + let _scaling_ = Aardvark.UI.AdaptiveNumericInput(value.scaling) + let _preTransform_ = FSharp.Data.Adaptive.cval(value.preTransform) + let _scalarLayers_ = + let inline __arg2 (m : AdaptiveScalarLayer) (v : ScalarLayer) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.scalarLayers, (fun (v : ScalarLayer) -> AdaptiveScalarLayer(v)), __arg2, (fun (m : AdaptiveScalarLayer) -> m)) + let _selectedScalar_ = + let inline __arg2 (o : System.Object) (v : ScalarLayer) = + (unbox o).Update(v) + o + let inline __arg5 (o : System.Object) (v : ScalarLayer) = + (unbox o).Update(v) + o + Adaptify.FSharp.Core.AdaptiveOption(value.selectedScalar, (fun (v : ScalarLayer) -> AdaptiveScalarLayer(v) :> System.Object), __arg2, (fun (o : System.Object) -> unbox o), (fun (v : ScalarLayer) -> AdaptiveScalarLayer(v) :> System.Object), __arg5, (fun (o : System.Object) -> unbox o)) + let _textureLayers_ = FSharp.Data.Adaptive.clist(value.textureLayers) + let _selectedTexture_ = FSharp.Data.Adaptive.cval(value.selectedTexture) + let _colorCorrection_ = AdaptiveColorCorrection(value.colorCorrection) + let _homePosition_ = FSharp.Data.Adaptive.cval(value.homePosition) + let _transformation_ = AdaptiveTransformations(value.transformation) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Surface) = AdaptiveSurface(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Surface) -> AdaptiveSurface(value)) (fun (adaptive : AdaptiveSurface) (value : Surface) -> adaptive.Update(value)) + member __.Update(value : Surface) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _guid_.Value <- value.guid + _name_.Value <- value.name + _importPath_.Value <- value.importPath + _opcNames_.Value <- value.opcNames + _opcPaths_.Value <- value.opcPaths + _relativePaths_.Value <- value.relativePaths + _fillMode_.Value <- value.fillMode + _cullMode_.Value <- value.cullMode + _isVisible_.Value <- value.isVisible + _isActive_.Value <- value.isActive + _quality_.Update(value.quality) + _priority_.Update(value.priority) + _triangleSize_.Update(value.triangleSize) + _scaling_.Update(value.scaling) + _preTransform_.Value <- value.preTransform + _scalarLayers_.Update(value.scalarLayers) + _selectedScalar_.Update(value.selectedScalar) + _textureLayers_.Value <- value.textureLayers + _selectedTexture_.Value <- value.selectedTexture + _colorCorrection_.Update(value.colorCorrection) + _homePosition_.Value <- value.homePosition + _transformation_.Update(value.transformation) + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.guid = _guid_ :> FSharp.Data.Adaptive.aval + member __.name = _name_ :> FSharp.Data.Adaptive.aval + member __.importPath = _importPath_ :> FSharp.Data.Adaptive.aval + member __.opcNames = _opcNames_ :> FSharp.Data.Adaptive.aval> + member __.opcPaths = _opcPaths_ :> FSharp.Data.Adaptive.aval> + member __.relativePaths = _relativePaths_ :> FSharp.Data.Adaptive.aval + member __.fillMode = _fillMode_ :> FSharp.Data.Adaptive.aval + member __.cullMode = _cullMode_ :> FSharp.Data.Adaptive.aval + member __.isVisible = _isVisible_ :> FSharp.Data.Adaptive.aval + member __.isActive = _isActive_ :> FSharp.Data.Adaptive.aval + member __.quality = _quality_ + member __.priority = _priority_ + member __.triangleSize = _triangleSize_ + member __.scaling = _scaling_ + member __.preTransform = _preTransform_ :> FSharp.Data.Adaptive.aval + member __.scalarLayers = _scalarLayers_ :> FSharp.Data.Adaptive.amap + member __.selectedScalar = _selectedScalar_ :> FSharp.Data.Adaptive.aval> + member __.textureLayers = _textureLayers_ :> FSharp.Data.Adaptive.alist + member __.selectedTexture = _selectedTexture_ :> FSharp.Data.Adaptive.aval> + member __.surfaceType = __value.surfaceType + member __.colorCorrection = _colorCorrection_ + member __.homePosition = _homePosition_ :> FSharp.Data.Adaptive.aval> + member __.transformation = _transformation_ +[] +module SurfaceLenses = + type Surface with + static member version_ = ((fun (self : Surface) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : Surface) -> { self with version = value })) + static member guid_ = ((fun (self : Surface) -> self.guid), (fun (value : System.Guid) (self : Surface) -> { self with guid = value })) + static member name_ = ((fun (self : Surface) -> self.name), (fun (value : Microsoft.FSharp.Core.string) (self : Surface) -> { self with name = value })) + static member importPath_ = ((fun (self : Surface) -> self.importPath), (fun (value : Microsoft.FSharp.Core.string) (self : Surface) -> { self with importPath = value })) + static member opcNames_ = ((fun (self : Surface) -> self.opcNames), (fun (value : Microsoft.FSharp.Collections.list) (self : Surface) -> { self with opcNames = value })) + static member opcPaths_ = ((fun (self : Surface) -> self.opcPaths), (fun (value : Microsoft.FSharp.Collections.list) (self : Surface) -> { self with opcPaths = value })) + static member relativePaths_ = ((fun (self : Surface) -> self.relativePaths), (fun (value : Microsoft.FSharp.Core.bool) (self : Surface) -> { self with relativePaths = value })) + static member fillMode_ = ((fun (self : Surface) -> self.fillMode), (fun (value : Aardvark.Rendering.FillMode) (self : Surface) -> { self with fillMode = value })) + static member cullMode_ = ((fun (self : Surface) -> self.cullMode), (fun (value : Aardvark.Rendering.CullMode) (self : Surface) -> { self with cullMode = value })) + static member isVisible_ = ((fun (self : Surface) -> self.isVisible), (fun (value : Microsoft.FSharp.Core.bool) (self : Surface) -> { self with isVisible = value })) + static member isActive_ = ((fun (self : Surface) -> self.isActive), (fun (value : Microsoft.FSharp.Core.bool) (self : Surface) -> { self with isActive = value })) + static member quality_ = ((fun (self : Surface) -> self.quality), (fun (value : Aardvark.UI.NumericInput) (self : Surface) -> { self with quality = value })) + static member priority_ = ((fun (self : Surface) -> self.priority), (fun (value : Aardvark.UI.NumericInput) (self : Surface) -> { self with priority = value })) + static member triangleSize_ = ((fun (self : Surface) -> self.triangleSize), (fun (value : Aardvark.UI.NumericInput) (self : Surface) -> { self with triangleSize = value })) + static member scaling_ = ((fun (self : Surface) -> self.scaling), (fun (value : Aardvark.UI.NumericInput) (self : Surface) -> { self with scaling = value })) + static member preTransform_ = ((fun (self : Surface) -> self.preTransform), (fun (value : Aardvark.Base.Trafo3d) (self : Surface) -> { self with preTransform = value })) + static member scalarLayers_ = ((fun (self : Surface) -> self.scalarLayers), (fun (value : FSharp.Data.Adaptive.HashMap) (self : Surface) -> { self with scalarLayers = value })) + static member selectedScalar_ = ((fun (self : Surface) -> self.selectedScalar), (fun (value : Microsoft.FSharp.Core.option) (self : Surface) -> { self with selectedScalar = value })) + static member textureLayers_ = ((fun (self : Surface) -> self.textureLayers), (fun (value : FSharp.Data.Adaptive.IndexList) (self : Surface) -> { self with textureLayers = value })) + static member selectedTexture_ = ((fun (self : Surface) -> self.selectedTexture), (fun (value : Microsoft.FSharp.Core.option) (self : Surface) -> { self with selectedTexture = value })) + static member surfaceType_ = ((fun (self : Surface) -> self.surfaceType), (fun (value : SurfaceType) (self : Surface) -> { self with surfaceType = value })) + static member colorCorrection_ = ((fun (self : Surface) -> self.colorCorrection), (fun (value : ColorCorrection) (self : Surface) -> { self with colorCorrection = value })) + static member homePosition_ = ((fun (self : Surface) -> self.homePosition), (fun (value : Microsoft.FSharp.Core.Option) (self : Surface) -> { self with homePosition = value })) + static member transformation_ = ((fun (self : Surface) -> self.transformation), (fun (value : Transformations) (self : Surface) -> { self with transformation = value })) +[] +type AdaptiveSgSurface(value : SgSurface) = + let _trafo_ = Aardvark.UI.Trafos.AdaptiveTransformation(value.trafo) + let _globalBB_ = FSharp.Data.Adaptive.cval(value.globalBB) + let _sceneGraph_ = FSharp.Data.Adaptive.cval(value.sceneGraph) + let _picking_ = FSharp.Data.Adaptive.cval(value.picking) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SgSurface) = AdaptiveSgSurface(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SgSurface) -> AdaptiveSgSurface(value)) (fun (adaptive : AdaptiveSgSurface) (value : SgSurface) -> adaptive.Update(value)) + member __.Update(value : SgSurface) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _trafo_.Update(value.trafo) + _globalBB_.Value <- value.globalBB + _sceneGraph_.Value <- value.sceneGraph + _picking_.Value <- value.picking + () + member __.Current = __adaptive + member __.surface = __value.surface + member __.trafo = _trafo_ + member __.globalBB = _globalBB_ :> FSharp.Data.Adaptive.aval + member __.sceneGraph = _sceneGraph_ :> FSharp.Data.Adaptive.aval + member __.picking = _picking_ :> FSharp.Data.Adaptive.aval + member __.isObj = __value.isObj +[] +module SgSurfaceLenses = + type SgSurface with + static member surface_ = ((fun (self : SgSurface) -> self.surface), (fun (value : System.Guid) (self : SgSurface) -> { self with surface = value })) + static member trafo_ = ((fun (self : SgSurface) -> self.trafo), (fun (value : Aardvark.UI.Trafos.Transformation) (self : SgSurface) -> { self with trafo = value })) + static member globalBB_ = ((fun (self : SgSurface) -> self.globalBB), (fun (value : Aardvark.Base.Box3d) (self : SgSurface) -> { self with globalBB = value })) + static member sceneGraph_ = ((fun (self : SgSurface) -> self.sceneGraph), (fun (value : Aardvark.SceneGraph.ISg) (self : SgSurface) -> { self with sceneGraph = value })) + static member picking_ = ((fun (self : SgSurface) -> self.picking), (fun (value : Picking) (self : SgSurface) -> { self with picking = value })) + static member isObj_ = ((fun (self : SgSurface) -> self.isObj), (fun (value : Microsoft.FSharp.Core.bool) (self : SgSurface) -> { self with isObj = value })) + diff --git a/src/PRo3D.Core/Traverse-Model.g.fs b/src/PRo3D.Core/Traverse-Model.g.fs new file mode 100644 index 00000000..5191989a --- /dev/null +++ b/src/PRo3D.Core/Traverse-Model.g.fs @@ -0,0 +1,159 @@ +//c6250a53-235a-6766-b971-1a2859e6892a +//14366f9b-f6cd-6c2e-9589-b2430ce9134d +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core +[] +type AdaptiveSol(value : Sol) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _location_ = FSharp.Data.Adaptive.cval(value.location) + let _solNumber_ = FSharp.Data.Adaptive.cval(value.solNumber) + let _site_ = FSharp.Data.Adaptive.cval(value.site) + let _yaw_ = FSharp.Data.Adaptive.cval(value.yaw) + let _pitch_ = FSharp.Data.Adaptive.cval(value.pitch) + let _roll_ = FSharp.Data.Adaptive.cval(value.roll) + let _tilt_ = FSharp.Data.Adaptive.cval(value.tilt) + let _note_ = FSharp.Data.Adaptive.cval(value.note) + let _distanceM_ = FSharp.Data.Adaptive.cval(value.distanceM) + let _totalDistanceM_ = FSharp.Data.Adaptive.cval(value.totalDistanceM) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Sol) = AdaptiveSol(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Sol) -> AdaptiveSol(value)) (fun (adaptive : AdaptiveSol) (value : Sol) -> adaptive.Update(value)) + member __.Update(value : Sol) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _location_.Value <- value.location + _solNumber_.Value <- value.solNumber + _site_.Value <- value.site + _yaw_.Value <- value.yaw + _pitch_.Value <- value.pitch + _roll_.Value <- value.roll + _tilt_.Value <- value.tilt + _note_.Value <- value.note + _distanceM_.Value <- value.distanceM + _totalDistanceM_.Value <- value.totalDistanceM + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.location = _location_ :> FSharp.Data.Adaptive.aval + member __.solNumber = _solNumber_ :> FSharp.Data.Adaptive.aval + member __.site = _site_ :> FSharp.Data.Adaptive.aval + member __.yaw = _yaw_ :> FSharp.Data.Adaptive.aval + member __.pitch = _pitch_ :> FSharp.Data.Adaptive.aval + member __.roll = _roll_ :> FSharp.Data.Adaptive.aval + member __.tilt = _tilt_ :> FSharp.Data.Adaptive.aval + member __.note = _note_ :> FSharp.Data.Adaptive.aval + member __.distanceM = _distanceM_ :> FSharp.Data.Adaptive.aval + member __.totalDistanceM = _totalDistanceM_ :> FSharp.Data.Adaptive.aval +[] +module SolLenses = + type Sol with + static member version_ = ((fun (self : Sol) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : Sol) -> { self with version = value })) + static member location_ = ((fun (self : Sol) -> self.location), (fun (value : Aardvark.Base.V3d) (self : Sol) -> { self with location = value })) + static member solNumber_ = ((fun (self : Sol) -> self.solNumber), (fun (value : Microsoft.FSharp.Core.int) (self : Sol) -> { self with solNumber = value })) + static member site_ = ((fun (self : Sol) -> self.site), (fun (value : Microsoft.FSharp.Core.int) (self : Sol) -> { self with site = value })) + static member yaw_ = ((fun (self : Sol) -> self.yaw), (fun (value : Microsoft.FSharp.Core.float) (self : Sol) -> { self with yaw = value })) + static member pitch_ = ((fun (self : Sol) -> self.pitch), (fun (value : Microsoft.FSharp.Core.float) (self : Sol) -> { self with pitch = value })) + static member roll_ = ((fun (self : Sol) -> self.roll), (fun (value : Microsoft.FSharp.Core.float) (self : Sol) -> { self with roll = value })) + static member tilt_ = ((fun (self : Sol) -> self.tilt), (fun (value : Microsoft.FSharp.Core.float) (self : Sol) -> { self with tilt = value })) + static member note_ = ((fun (self : Sol) -> self.note), (fun (value : Microsoft.FSharp.Core.string) (self : Sol) -> { self with note = value })) + static member distanceM_ = ((fun (self : Sol) -> self.distanceM), (fun (value : Microsoft.FSharp.Core.float) (self : Sol) -> { self with distanceM = value })) + static member totalDistanceM_ = ((fun (self : Sol) -> self.totalDistanceM), (fun (value : Microsoft.FSharp.Core.float) (self : Sol) -> { self with totalDistanceM = value })) +[] +type AdaptiveTraverse(value : Traverse) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _guid_ = FSharp.Data.Adaptive.cval(value.guid) + let _tName_ = FSharp.Data.Adaptive.cval(value.tName) + let _sols_ = FSharp.Data.Adaptive.cval(value.sols) + let _selectedSol_ = FSharp.Data.Adaptive.cval(value.selectedSol) + let _showLines_ = FSharp.Data.Adaptive.cval(value.showLines) + let _showText_ = FSharp.Data.Adaptive.cval(value.showText) + let _tTextSize_ = Aardvark.UI.AdaptiveNumericInput(value.tTextSize) + let _showDots_ = FSharp.Data.Adaptive.cval(value.showDots) + let _isVisibleT_ = FSharp.Data.Adaptive.cval(value.isVisibleT) + let _color_ = Aardvark.UI.AdaptiveColorInput(value.color) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Traverse) = AdaptiveTraverse(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Traverse) -> AdaptiveTraverse(value)) (fun (adaptive : AdaptiveTraverse) (value : Traverse) -> adaptive.Update(value)) + member __.Update(value : Traverse) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _guid_.Value <- value.guid + _tName_.Value <- value.tName + _sols_.Value <- value.sols + _selectedSol_.Value <- value.selectedSol + _showLines_.Value <- value.showLines + _showText_.Value <- value.showText + _tTextSize_.Update(value.tTextSize) + _showDots_.Value <- value.showDots + _isVisibleT_.Value <- value.isVisibleT + _color_.Update(value.color) + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.guid = _guid_ :> FSharp.Data.Adaptive.aval + member __.tName = _tName_ :> FSharp.Data.Adaptive.aval + member __.sols = _sols_ :> FSharp.Data.Adaptive.aval> + member __.selectedSol = _selectedSol_ :> FSharp.Data.Adaptive.aval> + member __.showLines = _showLines_ :> FSharp.Data.Adaptive.aval + member __.showText = _showText_ :> FSharp.Data.Adaptive.aval + member __.tTextSize = _tTextSize_ + member __.showDots = _showDots_ :> FSharp.Data.Adaptive.aval + member __.isVisibleT = _isVisibleT_ :> FSharp.Data.Adaptive.aval + member __.color = _color_ +[] +module TraverseLenses = + type Traverse with + static member version_ = ((fun (self : Traverse) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : Traverse) -> { self with version = value })) + static member guid_ = ((fun (self : Traverse) -> self.guid), (fun (value : System.Guid) (self : Traverse) -> { self with guid = value })) + static member tName_ = ((fun (self : Traverse) -> self.tName), (fun (value : Microsoft.FSharp.Core.string) (self : Traverse) -> { self with tName = value })) + static member sols_ = ((fun (self : Traverse) -> self.sols), (fun (value : Microsoft.FSharp.Collections.List) (self : Traverse) -> { self with sols = value })) + static member selectedSol_ = ((fun (self : Traverse) -> self.selectedSol), (fun (value : Microsoft.FSharp.Core.option) (self : Traverse) -> { self with selectedSol = value })) + static member showLines_ = ((fun (self : Traverse) -> self.showLines), (fun (value : Microsoft.FSharp.Core.bool) (self : Traverse) -> { self with showLines = value })) + static member showText_ = ((fun (self : Traverse) -> self.showText), (fun (value : Microsoft.FSharp.Core.bool) (self : Traverse) -> { self with showText = value })) + static member tTextSize_ = ((fun (self : Traverse) -> self.tTextSize), (fun (value : Aardvark.UI.NumericInput) (self : Traverse) -> { self with tTextSize = value })) + static member showDots_ = ((fun (self : Traverse) -> self.showDots), (fun (value : Microsoft.FSharp.Core.bool) (self : Traverse) -> { self with showDots = value })) + static member isVisibleT_ = ((fun (self : Traverse) -> self.isVisibleT), (fun (value : Microsoft.FSharp.Core.bool) (self : Traverse) -> { self with isVisibleT = value })) + static member color_ = ((fun (self : Traverse) -> self.color), (fun (value : Aardvark.UI.ColorInput) (self : Traverse) -> { self with color = value })) +[] +type AdaptiveTraverseModel(value : TraverseModel) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _traverses_ = + let inline __arg2 (m : AdaptiveTraverse) (v : Traverse) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.traverses, (fun (v : Traverse) -> AdaptiveTraverse(v)), __arg2, (fun (m : AdaptiveTraverse) -> m)) + let _selectedTraverse_ = FSharp.Data.Adaptive.cval(value.selectedTraverse) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : TraverseModel) = AdaptiveTraverseModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : TraverseModel) -> AdaptiveTraverseModel(value)) (fun (adaptive : AdaptiveTraverseModel) (value : TraverseModel) -> adaptive.Update(value)) + member __.Update(value : TraverseModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _traverses_.Update(value.traverses) + _selectedTraverse_.Value <- value.selectedTraverse + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.traverses = _traverses_ :> FSharp.Data.Adaptive.amap + member __.selectedTraverse = _selectedTraverse_ :> FSharp.Data.Adaptive.aval> +[] +module TraverseModelLenses = + type TraverseModel with + static member version_ = ((fun (self : TraverseModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : TraverseModel) -> { self with version = value })) + static member traverses_ = ((fun (self : TraverseModel) -> self.traverses), (fun (value : FSharp.Data.Adaptive.HashMap) (self : TraverseModel) -> { self with traverses = value })) + static member selectedTraverse_ = ((fun (self : TraverseModel) -> self.selectedTraverse), (fun (value : Microsoft.FSharp.Core.Option) (self : TraverseModel) -> { self with selectedTraverse = value })) + diff --git a/src/PRo3D.Core/Validator/HeightValidator-Model.g.fs b/src/PRo3D.Core/Validator/HeightValidator-Model.g.fs new file mode 100644 index 00000000..600817a9 --- /dev/null +++ b/src/PRo3D.Core/Validator/HeightValidator-Model.g.fs @@ -0,0 +1,119 @@ +//f873c6f3-92e0-f38e-8069-7f6131573cd6 +//081e27ea-e13b-e7dc-2c45-7b7155519f83 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core +[] +type AdaptiveValidator(value : Validator) = + let _location_ = FSharp.Data.Adaptive.cval(value.location) + let _lower_ = FSharp.Data.Adaptive.cval(value.lower) + let _upper_ = FSharp.Data.Adaptive.cval(value.upper) + let _upVector_ = FSharp.Data.Adaptive.cval(value.upVector) + let _northVector_ = FSharp.Data.Adaptive.cval(value.northVector) + let _height_ = FSharp.Data.Adaptive.cval(value.height) + let _inclination_ = Aardvark.UI.AdaptiveNumericInput(value.inclination) + let _tiltedPlane_ = FSharp.Data.Adaptive.cval(value.tiltedPlane) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Validator) = AdaptiveValidator(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Validator) -> AdaptiveValidator(value)) (fun (adaptive : AdaptiveValidator) (value : Validator) -> adaptive.Update(value)) + member __.Update(value : Validator) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _location_.Value <- value.location + _lower_.Value <- value.lower + _upper_.Value <- value.upper + _upVector_.Value <- value.upVector + _northVector_.Value <- value.northVector + _height_.Value <- value.height + _inclination_.Update(value.inclination) + _tiltedPlane_.Value <- value.tiltedPlane + member __.Current = __adaptive + member __.location = _location_ :> FSharp.Data.Adaptive.aval + member __.lower = _lower_ :> FSharp.Data.Adaptive.aval + member __.upper = _upper_ :> FSharp.Data.Adaptive.aval + member __.upVector = _upVector_ :> FSharp.Data.Adaptive.aval + member __.northVector = _northVector_ :> FSharp.Data.Adaptive.aval + member __.height = _height_ :> FSharp.Data.Adaptive.aval + member __.inclination = _inclination_ + member __.tiltedPlane = _tiltedPlane_ :> FSharp.Data.Adaptive.aval +[] +module ValidatorLenses = + type Validator with + static member location_ = ((fun (self : Validator) -> self.location), (fun (value : Aardvark.Base.V3d) (self : Validator) -> { self with location = value })) + static member lower_ = ((fun (self : Validator) -> self.lower), (fun (value : Aardvark.Base.V3d) (self : Validator) -> { self with lower = value })) + static member upper_ = ((fun (self : Validator) -> self.upper), (fun (value : Aardvark.Base.V3d) (self : Validator) -> { self with upper = value })) + static member upVector_ = ((fun (self : Validator) -> self.upVector), (fun (value : Aardvark.Base.V3d) (self : Validator) -> { self with upVector = value })) + static member northVector_ = ((fun (self : Validator) -> self.northVector), (fun (value : Aardvark.Base.V3d) (self : Validator) -> { self with northVector = value })) + static member height_ = ((fun (self : Validator) -> self.height), (fun (value : Microsoft.FSharp.Core.double) (self : Validator) -> { self with height = value })) + static member inclination_ = ((fun (self : Validator) -> self.inclination), (fun (value : Aardvark.UI.NumericInput) (self : Validator) -> { self with inclination = value })) + static member tiltedPlane_ = ((fun (self : Validator) -> self.tiltedPlane), (fun (value : Aardvark.Base.Plane3d) (self : Validator) -> { self with tiltedPlane = value })) +[] +type AdaptiveValidatorResult(value : ValidatorResult) = + let _pointDistance_ = FSharp.Data.Adaptive.cval(value.pointDistance) + let _cooTrafoThickness_geographic_ = FSharp.Data.Adaptive.cval(value.cooTrafoThickness_geographic) + let _cooTrafoThickness_true_ = FSharp.Data.Adaptive.cval(value.cooTrafoThickness_true) + let _heightOverPlaneThickness_true_ = FSharp.Data.Adaptive.cval(value.heightOverPlaneThickness_true) + let _heightOverHorizontal_ = FSharp.Data.Adaptive.cval(value.heightOverHorizontal) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ValidatorResult) = AdaptiveValidatorResult(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ValidatorResult) -> AdaptiveValidatorResult(value)) (fun (adaptive : AdaptiveValidatorResult) (value : ValidatorResult) -> adaptive.Update(value)) + member __.Update(value : ValidatorResult) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _pointDistance_.Value <- value.pointDistance + _cooTrafoThickness_geographic_.Value <- value.cooTrafoThickness_geographic + _cooTrafoThickness_true_.Value <- value.cooTrafoThickness_true + _heightOverPlaneThickness_true_.Value <- value.heightOverPlaneThickness_true + _heightOverHorizontal_.Value <- value.heightOverHorizontal + member __.Current = __adaptive + member __.pointDistance = _pointDistance_ :> FSharp.Data.Adaptive.aval + member __.cooTrafoThickness_geographic = _cooTrafoThickness_geographic_ :> FSharp.Data.Adaptive.aval + member __.cooTrafoThickness_true = _cooTrafoThickness_true_ :> FSharp.Data.Adaptive.aval + member __.heightOverPlaneThickness_true = _heightOverPlaneThickness_true_ :> FSharp.Data.Adaptive.aval + member __.heightOverHorizontal = _heightOverHorizontal_ :> FSharp.Data.Adaptive.aval +[] +module ValidatorResultLenses = + type ValidatorResult with + static member pointDistance_ = ((fun (self : ValidatorResult) -> self.pointDistance), (fun (value : Microsoft.FSharp.Core.double) (self : ValidatorResult) -> { self with pointDistance = value })) + static member cooTrafoThickness_geographic_ = ((fun (self : ValidatorResult) -> self.cooTrafoThickness_geographic), (fun (value : Microsoft.FSharp.Core.double) (self : ValidatorResult) -> { self with cooTrafoThickness_geographic = value })) + static member cooTrafoThickness_true_ = ((fun (self : ValidatorResult) -> self.cooTrafoThickness_true), (fun (value : Microsoft.FSharp.Core.double) (self : ValidatorResult) -> { self with cooTrafoThickness_true = value })) + static member heightOverPlaneThickness_true_ = ((fun (self : ValidatorResult) -> self.heightOverPlaneThickness_true), (fun (value : Microsoft.FSharp.Core.double) (self : ValidatorResult) -> { self with heightOverPlaneThickness_true = value })) + static member heightOverHorizontal_ = ((fun (self : ValidatorResult) -> self.heightOverHorizontal), (fun (value : Microsoft.FSharp.Core.double) (self : ValidatorResult) -> { self with heightOverHorizontal = value })) +[] +type AdaptiveHeightValidatorModel(value : HeightValidatorModel) = + let _validatorBrush_ = FSharp.Data.Adaptive.clist(value.validatorBrush) + let _validator_ = AdaptiveValidator(value.validator) + let _result_ = AdaptiveValidatorResult(value.result) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : HeightValidatorModel) = AdaptiveHeightValidatorModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : HeightValidatorModel) -> AdaptiveHeightValidatorModel(value)) (fun (adaptive : AdaptiveHeightValidatorModel) (value : HeightValidatorModel) -> adaptive.Update(value)) + member __.Update(value : HeightValidatorModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _validatorBrush_.Value <- value.validatorBrush + _validator_.Update(value.validator) + _result_.Update(value.result) + member __.Current = __adaptive + member __.validatorBrush = _validatorBrush_ :> FSharp.Data.Adaptive.alist + member __.validator = _validator_ + member __.result = _result_ +[] +module HeightValidatorModelLenses = + type HeightValidatorModel with + static member validatorBrush_ = ((fun (self : HeightValidatorModel) -> self.validatorBrush), (fun (value : FSharp.Data.Adaptive.IndexList) (self : HeightValidatorModel) -> { self with validatorBrush = value })) + static member validator_ = ((fun (self : HeightValidatorModel) -> self.validator), (fun (value : Validator) (self : HeightValidatorModel) -> { self with validator = value })) + static member result_ = ((fun (self : HeightValidatorModel) -> self.result), (fun (value : ValidatorResult) (self : HeightValidatorModel) -> { self with result = value })) + diff --git a/src/PRo3D.Core/ViewConfigModel.g.fs b/src/PRo3D.Core/ViewConfigModel.g.fs new file mode 100644 index 00000000..e865ba5a --- /dev/null +++ b/src/PRo3D.Core/ViewConfigModel.g.fs @@ -0,0 +1,77 @@ +//fb42f2d5-50e6-3a96-7dce-a016af9a6e96 +//4e19262f-62f0-9207-7c3d-d8346bb66f8c +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Core + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Core +[] +type AdaptiveViewConfigModel(value : ViewConfigModel) = + let _nearPlane_ = Aardvark.UI.AdaptiveNumericInput(value.nearPlane) + let _farPlane_ = Aardvark.UI.AdaptiveNumericInput(value.farPlane) + let _navigationSensitivity_ = Aardvark.UI.AdaptiveNumericInput(value.navigationSensitivity) + let _importTriangleSize_ = Aardvark.UI.AdaptiveNumericInput(value.importTriangleSize) + let _arrowLength_ = Aardvark.UI.AdaptiveNumericInput(value.arrowLength) + let _arrowThickness_ = Aardvark.UI.AdaptiveNumericInput(value.arrowThickness) + let _dnsPlaneSize_ = Aardvark.UI.AdaptiveNumericInput(value.dnsPlaneSize) + let _offset_ = Aardvark.UI.AdaptiveNumericInput(value.offset) + let _pickingTolerance_ = Aardvark.UI.AdaptiveNumericInput(value.pickingTolerance) + let _lodColoring_ = FSharp.Data.Adaptive.cval(value.lodColoring) + let _drawOrientationCube_ = FSharp.Data.Adaptive.cval(value.drawOrientationCube) + let _filterTexture_ = FSharp.Data.Adaptive.cval(value.filterTexture) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ViewConfigModel) = AdaptiveViewConfigModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ViewConfigModel) -> AdaptiveViewConfigModel(value)) (fun (adaptive : AdaptiveViewConfigModel) (value : ViewConfigModel) -> adaptive.Update(value)) + member __.Update(value : ViewConfigModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _nearPlane_.Update(value.nearPlane) + _farPlane_.Update(value.farPlane) + _navigationSensitivity_.Update(value.navigationSensitivity) + _importTriangleSize_.Update(value.importTriangleSize) + _arrowLength_.Update(value.arrowLength) + _arrowThickness_.Update(value.arrowThickness) + _dnsPlaneSize_.Update(value.dnsPlaneSize) + _offset_.Update(value.offset) + _pickingTolerance_.Update(value.pickingTolerance) + _lodColoring_.Value <- value.lodColoring + _drawOrientationCube_.Value <- value.drawOrientationCube + _filterTexture_.Value <- value.filterTexture + member __.Current = __adaptive + member __.version = __value.version + member __.nearPlane = _nearPlane_ + member __.farPlane = _farPlane_ + member __.navigationSensitivity = _navigationSensitivity_ + member __.importTriangleSize = _importTriangleSize_ + member __.arrowLength = _arrowLength_ + member __.arrowThickness = _arrowThickness_ + member __.dnsPlaneSize = _dnsPlaneSize_ + member __.offset = _offset_ + member __.pickingTolerance = _pickingTolerance_ + member __.lodColoring = _lodColoring_ :> FSharp.Data.Adaptive.aval + member __.drawOrientationCube = _drawOrientationCube_ :> FSharp.Data.Adaptive.aval + member __.filterTexture = _filterTexture_ :> FSharp.Data.Adaptive.aval +[] +module ViewConfigModelLenses = + type ViewConfigModel with + static member version_ = ((fun (self : ViewConfigModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : ViewConfigModel) -> { self with version = value })) + static member nearPlane_ = ((fun (self : ViewConfigModel) -> self.nearPlane), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with nearPlane = value })) + static member farPlane_ = ((fun (self : ViewConfigModel) -> self.farPlane), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with farPlane = value })) + static member navigationSensitivity_ = ((fun (self : ViewConfigModel) -> self.navigationSensitivity), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with navigationSensitivity = value })) + static member importTriangleSize_ = ((fun (self : ViewConfigModel) -> self.importTriangleSize), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with importTriangleSize = value })) + static member arrowLength_ = ((fun (self : ViewConfigModel) -> self.arrowLength), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with arrowLength = value })) + static member arrowThickness_ = ((fun (self : ViewConfigModel) -> self.arrowThickness), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with arrowThickness = value })) + static member dnsPlaneSize_ = ((fun (self : ViewConfigModel) -> self.dnsPlaneSize), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with dnsPlaneSize = value })) + static member offset_ = ((fun (self : ViewConfigModel) -> self.offset), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with offset = value })) + static member pickingTolerance_ = ((fun (self : ViewConfigModel) -> self.pickingTolerance), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with pickingTolerance = value })) + static member lodColoring_ = ((fun (self : ViewConfigModel) -> self.lodColoring), (fun (value : Microsoft.FSharp.Core.bool) (self : ViewConfigModel) -> { self with lodColoring = value })) + static member drawOrientationCube_ = ((fun (self : ViewConfigModel) -> self.drawOrientationCube), (fun (value : Microsoft.FSharp.Core.bool) (self : ViewConfigModel) -> { self with drawOrientationCube = value })) + static member filterTexture_ = ((fun (self : ViewConfigModel) -> self.filterTexture), (fun (value : Microsoft.FSharp.Core.bool) (self : ViewConfigModel) -> { self with filterTexture = value })) + diff --git a/src/PRo3D.Lite/Model.g.fs b/src/PRo3D.Lite/Model.g.fs new file mode 100644 index 00000000..0e2dc97b --- /dev/null +++ b/src/PRo3D.Lite/Model.g.fs @@ -0,0 +1,59 @@ +//818ff77d-1857-b8f2-33da-e67b72ccfc79 +//405fba53-1dcc-2870-8aa0-161b09a02434 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Lite + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Lite +[] +type AdaptiveModel(value : Model) = + let _orbitState_ = PRo3D.Base.AdaptiveOrbitState(value.orbitState) + let _freeFlyState_ = Aardvark.UI.Primitives.AdaptiveCameraControllerState(value.freeFlyState) + let _cameraMode_ = FSharp.Data.Adaptive.cval(value.cameraMode) + let _mousePos_ = FSharp.Data.Adaptive.cval(value.mousePos) + let _cursor_ = FSharp.Data.Adaptive.cval(value.cursor) + let _cursorWorldSphereSize_ = FSharp.Data.Adaptive.cval(value.cursorWorldSphereSize) + let _state_ = AdaptiveState(value.state) + let _background_ = FSharp.Data.Adaptive.cval(value.background) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Model) = AdaptiveModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Model) -> AdaptiveModel(value)) (fun (adaptive : AdaptiveModel) (value : Model) -> adaptive.Update(value)) + member __.Update(value : Model) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _orbitState_.Update(value.orbitState) + _freeFlyState_.Update(value.freeFlyState) + _cameraMode_.Value <- value.cameraMode + _mousePos_.Value <- value.mousePos + _cursor_.Value <- value.cursor + _cursorWorldSphereSize_.Value <- value.cursorWorldSphereSize + _state_.Update(value.state) + _background_.Value <- value.background + member __.Current = __adaptive + member __.orbitState = _orbitState_ + member __.freeFlyState = _freeFlyState_ + member __.cameraMode = _cameraMode_ :> FSharp.Data.Adaptive.aval + member __.mousePos = _mousePos_ :> FSharp.Data.Adaptive.aval> + member __.cursor = _cursor_ :> FSharp.Data.Adaptive.aval> + member __.cursorWorldSphereSize = _cursorWorldSphereSize_ :> FSharp.Data.Adaptive.aval + member __.state = _state_ + member __.background = _background_ :> FSharp.Data.Adaptive.aval +[] +module ModelLenses = + type Model with + static member orbitState_ = ((fun (self : Model) -> self.orbitState), (fun (value : PRo3D.Base.OrbitState) (self : Model) -> { self with orbitState = value })) + static member freeFlyState_ = ((fun (self : Model) -> self.freeFlyState), (fun (value : Aardvark.UI.Primitives.CameraControllerState) (self : Model) -> { self with freeFlyState = value })) + static member cameraMode_ = ((fun (self : Model) -> self.cameraMode), (fun (value : CameraMode) (self : Model) -> { self with cameraMode = value })) + static member mousePos_ = ((fun (self : Model) -> self.mousePos), (fun (value : Microsoft.FSharp.Core.Option) (self : Model) -> { self with mousePos = value })) + static member cursor_ = ((fun (self : Model) -> self.cursor), (fun (value : Microsoft.FSharp.Core.Option) (self : Model) -> { self with cursor = value })) + static member cursorWorldSphereSize_ = ((fun (self : Model) -> self.cursorWorldSphereSize), (fun (value : Microsoft.FSharp.Core.float) (self : Model) -> { self with cursorWorldSphereSize = value })) + static member state_ = ((fun (self : Model) -> self.state), (fun (value : State) (self : Model) -> { self with state = value })) + static member background_ = ((fun (self : Model) -> self.background), (fun (value : Aardvark.Base.C4b) (self : Model) -> { self with background = value })) + diff --git a/src/PRo3D.Lite/OrbitModel.g.fs b/src/PRo3D.Lite/OrbitModel.g.fs new file mode 100644 index 00000000..6ce54b30 --- /dev/null +++ b/src/PRo3D.Lite/OrbitModel.g.fs @@ -0,0 +1,113 @@ +//abce7b4f-0cc5-e7b1-bb7c-7a997e65a75e +//f6c8aeec-7409-71ff-6185-c0a549162d02 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Base + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Base +[] +type AdaptiveOrbitState(value : OrbitState) = + let _sky_ = FSharp.Data.Adaptive.cval(value.sky) + let _right_ = FSharp.Data.Adaptive.cval(value.right) + let _center_ = FSharp.Data.Adaptive.cval(value.center) + let _phi_ = FSharp.Data.Adaptive.cval(value.phi) + let _theta_ = FSharp.Data.Adaptive.cval(value.theta) + let _radius_ = FSharp.Data.Adaptive.cval(value.radius) + let _targetPhi_ = FSharp.Data.Adaptive.cval(value.targetPhi) + let _targetTheta_ = FSharp.Data.Adaptive.cval(value.targetTheta) + let _targetRadius_ = FSharp.Data.Adaptive.cval(value.targetRadius) + let _targetCenter_ = FSharp.Data.Adaptive.cval(value.targetCenter) + let _dragStart_ = FSharp.Data.Adaptive.cval(value.dragStart) + let _panning_ = FSharp.Data.Adaptive.cval(value.panning) + let _pan_ = FSharp.Data.Adaptive.cval(value.pan) + let _targetPan_ = FSharp.Data.Adaptive.cval(value.targetPan) + let _view_ = FSharp.Data.Adaptive.cval(value.view) + let _radiusRange_ = FSharp.Data.Adaptive.cval(value.radiusRange) + let _thetaRange_ = FSharp.Data.Adaptive.cval(value.thetaRange) + let _moveSensitivity_ = FSharp.Data.Adaptive.cval(value.moveSensitivity) + let _zoomSensitivity_ = FSharp.Data.Adaptive.cval(value.zoomSensitivity) + let _speed_ = FSharp.Data.Adaptive.cval(value.speed) + let _config_ = FSharp.Data.Adaptive.cval(value.config) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : OrbitState) = AdaptiveOrbitState(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : OrbitState) -> AdaptiveOrbitState(value)) (fun (adaptive : AdaptiveOrbitState) (value : OrbitState) -> adaptive.Update(value)) + member __.Update(value : OrbitState) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _sky_.Value <- value.sky + _right_.Value <- value.right + _center_.Value <- value.center + _phi_.Value <- value.phi + _theta_.Value <- value.theta + _radius_.Value <- value.radius + _targetPhi_.Value <- value.targetPhi + _targetTheta_.Value <- value.targetTheta + _targetRadius_.Value <- value.targetRadius + _targetCenter_.Value <- value.targetCenter + _dragStart_.Value <- value.dragStart + _panning_.Value <- value.panning + _pan_.Value <- value.pan + _targetPan_.Value <- value.targetPan + _view_.Value <- value.view + _radiusRange_.Value <- value.radiusRange + _thetaRange_.Value <- value.thetaRange + _moveSensitivity_.Value <- value.moveSensitivity + _zoomSensitivity_.Value <- value.zoomSensitivity + _speed_.Value <- value.speed + _config_.Value <- value.config + member __.Current = __adaptive + member __.sky = _sky_ :> FSharp.Data.Adaptive.aval + member __.right = _right_ :> FSharp.Data.Adaptive.aval + member __.center = _center_ :> FSharp.Data.Adaptive.aval + member __.phi = _phi_ :> FSharp.Data.Adaptive.aval + member __.theta = _theta_ :> FSharp.Data.Adaptive.aval + member __.radius = _radius_ :> FSharp.Data.Adaptive.aval + member __.targetPhi = _targetPhi_ :> FSharp.Data.Adaptive.aval + member __.targetTheta = _targetTheta_ :> FSharp.Data.Adaptive.aval + member __.targetRadius = _targetRadius_ :> FSharp.Data.Adaptive.aval + member __.targetCenter = _targetCenter_ :> FSharp.Data.Adaptive.aval + member __.dragStart = _dragStart_ :> FSharp.Data.Adaptive.aval> + member __.panning = _panning_ :> FSharp.Data.Adaptive.aval + member __.pan = _pan_ :> FSharp.Data.Adaptive.aval + member __.targetPan = _targetPan_ :> FSharp.Data.Adaptive.aval + member __.lastRender = __value.lastRender + member __.view = _view_ :> FSharp.Data.Adaptive.aval + member __.radiusRange = _radiusRange_ :> FSharp.Data.Adaptive.aval + member __.thetaRange = _thetaRange_ :> FSharp.Data.Adaptive.aval + member __.moveSensitivity = _moveSensitivity_ :> FSharp.Data.Adaptive.aval + member __.zoomSensitivity = _zoomSensitivity_ :> FSharp.Data.Adaptive.aval + member __.speed = _speed_ :> FSharp.Data.Adaptive.aval + member __.config = _config_ :> FSharp.Data.Adaptive.aval +[] +module OrbitStateLenses = + type OrbitState with + static member sky_ = ((fun (self : OrbitState) -> self.sky), (fun (value : Aardvark.Base.V3d) (self : OrbitState) -> { self with sky = value })) + static member right_ = ((fun (self : OrbitState) -> self.right), (fun (value : Aardvark.Base.V3d) (self : OrbitState) -> { self with right = value })) + static member center_ = ((fun (self : OrbitState) -> self.center), (fun (value : Aardvark.Base.V3d) (self : OrbitState) -> { self with center = value })) + static member phi_ = ((fun (self : OrbitState) -> self.phi), (fun (value : Microsoft.FSharp.Core.float) (self : OrbitState) -> { self with phi = value })) + static member theta_ = ((fun (self : OrbitState) -> self.theta), (fun (value : Microsoft.FSharp.Core.float) (self : OrbitState) -> { self with theta = value })) + static member radius_ = ((fun (self : OrbitState) -> self.radius), (fun (value : Microsoft.FSharp.Core.float) (self : OrbitState) -> { self with radius = value })) + static member targetPhi_ = ((fun (self : OrbitState) -> self.targetPhi), (fun (value : Microsoft.FSharp.Core.float) (self : OrbitState) -> { self with targetPhi = value })) + static member targetTheta_ = ((fun (self : OrbitState) -> self.targetTheta), (fun (value : Microsoft.FSharp.Core.float) (self : OrbitState) -> { self with targetTheta = value })) + static member targetRadius_ = ((fun (self : OrbitState) -> self.targetRadius), (fun (value : Microsoft.FSharp.Core.float) (self : OrbitState) -> { self with targetRadius = value })) + static member targetCenter_ = ((fun (self : OrbitState) -> self.targetCenter), (fun (value : Aardvark.Base.V3d) (self : OrbitState) -> { self with targetCenter = value })) + static member dragStart_ = ((fun (self : OrbitState) -> self.dragStart), (fun (value : Microsoft.FSharp.Core.Option) (self : OrbitState) -> { self with dragStart = value })) + static member panning_ = ((fun (self : OrbitState) -> self.panning), (fun (value : Microsoft.FSharp.Core.bool) (self : OrbitState) -> { self with panning = value })) + static member pan_ = ((fun (self : OrbitState) -> self.pan), (fun (value : Aardvark.Base.V2d) (self : OrbitState) -> { self with pan = value })) + static member targetPan_ = ((fun (self : OrbitState) -> self.targetPan), (fun (value : Aardvark.Base.V2d) (self : OrbitState) -> { self with targetPan = value })) + static member lastRender_ = ((fun (self : OrbitState) -> self.lastRender), (fun (value : Microsoft.FSharp.Core.Option) (self : OrbitState) -> { self with lastRender = value })) + static member view_ = ((fun (self : OrbitState) -> self.view), (fun (value : Aardvark.Rendering.CameraView) (self : OrbitState) -> { self with view = value })) + static member radiusRange_ = ((fun (self : OrbitState) -> self.radiusRange), (fun (value : Aardvark.Base.Range1d) (self : OrbitState) -> { self with radiusRange = value })) + static member thetaRange_ = ((fun (self : OrbitState) -> self.thetaRange), (fun (value : Aardvark.Base.Range1d) (self : OrbitState) -> { self with thetaRange = value })) + static member moveSensitivity_ = ((fun (self : OrbitState) -> self.moveSensitivity), (fun (value : Microsoft.FSharp.Core.float) (self : OrbitState) -> { self with moveSensitivity = value })) + static member zoomSensitivity_ = ((fun (self : OrbitState) -> self.zoomSensitivity), (fun (value : Microsoft.FSharp.Core.float) (self : OrbitState) -> { self with zoomSensitivity = value })) + static member speed_ = ((fun (self : OrbitState) -> self.speed), (fun (value : Microsoft.FSharp.Core.float) (self : OrbitState) -> { self with speed = value })) + static member config_ = ((fun (self : OrbitState) -> self.config), (fun (value : OrbitControllerConfig) (self : OrbitState) -> { self with config = value })) + diff --git a/src/PRo3D.Lite/PRo3D.Lite.fsproj b/src/PRo3D.Lite/PRo3D.Lite.fsproj index f62f10df..5b847a17 100644 --- a/src/PRo3D.Lite/PRo3D.Lite.fsproj +++ b/src/PRo3D.Lite/PRo3D.Lite.fsproj @@ -13,11 +13,14 @@ + + + diff --git a/src/PRo3D.Lite/PRo3D.State.g.fs b/src/PRo3D.Lite/PRo3D.State.g.fs new file mode 100644 index 00000000..7af45b72 --- /dev/null +++ b/src/PRo3D.Lite/PRo3D.State.g.fs @@ -0,0 +1,61 @@ +//10e1c5f8-6542-1265-7999-26e992df23b0 +//3afe8c84-5e74-4045-1f98-656bf40ae708 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Lite + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Lite +[] +type AdaptiveSurface(value : Surface) = + let _opcs_ = FSharp.Data.Adaptive.cmap(value.opcs) + let _trafo_ = FSharp.Data.Adaptive.cval(value.trafo) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Surface) = AdaptiveSurface(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Surface) -> AdaptiveSurface(value)) (fun (adaptive : AdaptiveSurface) (value : Surface) -> adaptive.Update(value)) + member __.Update(value : Surface) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _opcs_.Value <- value.opcs + _trafo_.Value <- value.trafo + member __.Current = __adaptive + member __.opcs = _opcs_ :> FSharp.Data.Adaptive.amap + member __.trafo = _trafo_ :> FSharp.Data.Adaptive.aval +[] +module SurfaceLenses = + type Surface with + static member opcs_ = ((fun (self : Surface) -> self.opcs), (fun (value : FSharp.Data.Adaptive.HashMap) (self : Surface) -> { self with opcs = value })) + static member trafo_ = ((fun (self : Surface) -> self.trafo), (fun (value : Aardvark.Base.Trafo3d) (self : Surface) -> { self with trafo = value })) +[] +type AdaptiveState(value : State) = + let _surfaces_ = + let inline __arg2 (m : AdaptiveSurface) (v : Surface) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.surfaces, (fun (v : Surface) -> AdaptiveSurface(v)), __arg2, (fun (m : AdaptiveSurface) -> m)) + let _planet_ = FSharp.Data.Adaptive.cval(value.planet) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : State) = AdaptiveState(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : State) -> AdaptiveState(value)) (fun (adaptive : AdaptiveState) (value : State) -> adaptive.Update(value)) + member __.Update(value : State) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _surfaces_.Update(value.surfaces) + _planet_.Value <- value.planet + member __.Current = __adaptive + member __.surfaces = _surfaces_ :> FSharp.Data.Adaptive.amap + member __.planet = _planet_ :> FSharp.Data.Adaptive.aval +[] +module StateLenses = + type State with + static member surfaces_ = ((fun (self : State) -> self.surfaces), (fun (value : FSharp.Data.Adaptive.HashMap) (self : State) -> { self with surfaces = value })) + static member planet_ = ((fun (self : State) -> self.planet), (fun (value : PRo3D.Base.Planet) (self : State) -> { self with planet = value })) + diff --git a/src/PRo3D.Minerva/Model.g.fs b/src/PRo3D.Minerva/Model.g.fs new file mode 100644 index 00000000..e5c18a6d --- /dev/null +++ b/src/PRo3D.Minerva/Model.g.fs @@ -0,0 +1,364 @@ +//d18ae8ca-5581-d5c2-3b82-103302d78870 +//86898f7b-bc7a-21ef-2f2f-b17b448ce11f +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Minerva + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Minerva +[] +type AdaptiveFeatureCollection(value : FeatureCollection) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _name_ = FSharp.Data.Adaptive.cval(value.name) + let _typus_ = FSharp.Data.Adaptive.cval(value.typus) + let _boundingBox_ = FSharp.Data.Adaptive.cval(value.boundingBox) + let _features_ = FSharp.Data.Adaptive.clist(value.features) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : FeatureCollection) = AdaptiveFeatureCollection(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : FeatureCollection) -> AdaptiveFeatureCollection(value)) (fun (adaptive : AdaptiveFeatureCollection) (value : FeatureCollection) -> adaptive.Update(value)) + member __.Update(value : FeatureCollection) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _name_.Value <- value.name + _typus_.Value <- value.typus + _boundingBox_.Value <- value.boundingBox + _features_.Value <- value.features + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.name = _name_ :> FSharp.Data.Adaptive.aval + member __.typus = _typus_ :> FSharp.Data.Adaptive.aval + member __.boundingBox = _boundingBox_ :> FSharp.Data.Adaptive.aval + member __.features = _features_ :> FSharp.Data.Adaptive.alist +[] +module FeatureCollectionLenses = + type FeatureCollection with + static member version_ = ((fun (self : FeatureCollection) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : FeatureCollection) -> { self with version = value })) + static member name_ = ((fun (self : FeatureCollection) -> self.name), (fun (value : Microsoft.FSharp.Core.string) (self : FeatureCollection) -> { self with name = value })) + static member typus_ = ((fun (self : FeatureCollection) -> self.typus), (fun (value : Typus) (self : FeatureCollection) -> { self with typus = value })) + static member boundingBox_ = ((fun (self : FeatureCollection) -> self.boundingBox), (fun (value : Aardvark.Base.Box2d) (self : FeatureCollection) -> { self with boundingBox = value })) + static member features_ = ((fun (self : FeatureCollection) -> self.features), (fun (value : FSharp.Data.Adaptive.IndexList) (self : FeatureCollection) -> { self with features = value })) +[] +type AdaptiveSgFeatures(value : SgFeatures) = + let _names_ = FSharp.Data.Adaptive.cval(value.names) + let _positions_ = FSharp.Data.Adaptive.cval(value.positions) + let _colors_ = FSharp.Data.Adaptive.cval(value.colors) + let _trafo_ = FSharp.Data.Adaptive.cval(value.trafo) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SgFeatures) = AdaptiveSgFeatures(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SgFeatures) -> AdaptiveSgFeatures(value)) (fun (adaptive : AdaptiveSgFeatures) (value : SgFeatures) -> adaptive.Update(value)) + member __.Update(value : SgFeatures) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _names_.Value <- value.names + _positions_.Value <- value.positions + _colors_.Value <- value.colors + _trafo_.Value <- value.trafo + member __.Current = __adaptive + member __.names = _names_ :> FSharp.Data.Adaptive.aval<(Microsoft.FSharp.Core.string)[]> + member __.positions = _positions_ :> FSharp.Data.Adaptive.aval<(Aardvark.Base.V3d)[]> + member __.colors = _colors_ :> FSharp.Data.Adaptive.aval<(Aardvark.Base.C4b)[]> + member __.trafo = _trafo_ :> FSharp.Data.Adaptive.aval +[] +module SgFeaturesLenses = + type SgFeatures with + static member names_ = ((fun (self : SgFeatures) -> self.names), (fun (value : (Microsoft.FSharp.Core.string)[]) (self : SgFeatures) -> { self with names = value })) + static member positions_ = ((fun (self : SgFeatures) -> self.positions), (fun (value : (Aardvark.Base.V3d)[]) (self : SgFeatures) -> { self with positions = value })) + static member colors_ = ((fun (self : SgFeatures) -> self.colors), (fun (value : (Aardvark.Base.C4b)[]) (self : SgFeatures) -> { self with colors = value })) + static member trafo_ = ((fun (self : SgFeatures) -> self.trafo), (fun (value : Aardvark.Base.Trafo3d) (self : SgFeatures) -> { self with trafo = value })) +[] +type AdaptiveInstrumentColor(value : InstrumentColor) = + let _mahli_ = FSharp.Data.Adaptive.cval(value.mahli) + let _frontHazcam_ = FSharp.Data.Adaptive.cval(value.frontHazcam) + let _mastcam_ = FSharp.Data.Adaptive.cval(value.mastcam) + let _apxs_ = FSharp.Data.Adaptive.cval(value.apxs) + let _frontHazcamR_ = FSharp.Data.Adaptive.cval(value.frontHazcamR) + let _frontHazcamL_ = FSharp.Data.Adaptive.cval(value.frontHazcamL) + let _mastcamR_ = FSharp.Data.Adaptive.cval(value.mastcamR) + let _mastcamL_ = FSharp.Data.Adaptive.cval(value.mastcamL) + let _chemLib_ = FSharp.Data.Adaptive.cval(value.chemLib) + let _chemRmi_ = FSharp.Data.Adaptive.cval(value.chemRmi) + let _color_ = Aardvark.UI.AdaptiveColorInput(value.color) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : InstrumentColor) = AdaptiveInstrumentColor(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : InstrumentColor) -> AdaptiveInstrumentColor(value)) (fun (adaptive : AdaptiveInstrumentColor) (value : InstrumentColor) -> adaptive.Update(value)) + member __.Update(value : InstrumentColor) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _mahli_.Value <- value.mahli + _frontHazcam_.Value <- value.frontHazcam + _mastcam_.Value <- value.mastcam + _apxs_.Value <- value.apxs + _frontHazcamR_.Value <- value.frontHazcamR + _frontHazcamL_.Value <- value.frontHazcamL + _mastcamR_.Value <- value.mastcamR + _mastcamL_.Value <- value.mastcamL + _chemLib_.Value <- value.chemLib + _chemRmi_.Value <- value.chemRmi + _color_.Update(value.color) + member __.Current = __adaptive + member __.mahli = _mahli_ :> FSharp.Data.Adaptive.aval + member __.frontHazcam = _frontHazcam_ :> FSharp.Data.Adaptive.aval + member __.mastcam = _mastcam_ :> FSharp.Data.Adaptive.aval + member __.apxs = _apxs_ :> FSharp.Data.Adaptive.aval + member __.frontHazcamR = _frontHazcamR_ :> FSharp.Data.Adaptive.aval + member __.frontHazcamL = _frontHazcamL_ :> FSharp.Data.Adaptive.aval + member __.mastcamR = _mastcamR_ :> FSharp.Data.Adaptive.aval + member __.mastcamL = _mastcamL_ :> FSharp.Data.Adaptive.aval + member __.chemLib = _chemLib_ :> FSharp.Data.Adaptive.aval + member __.chemRmi = _chemRmi_ :> FSharp.Data.Adaptive.aval + member __.color = _color_ +[] +module InstrumentColorLenses = + type InstrumentColor with + static member mahli_ = ((fun (self : InstrumentColor) -> self.mahli), (fun (value : Aardvark.Base.C4b) (self : InstrumentColor) -> { self with mahli = value })) + static member frontHazcam_ = ((fun (self : InstrumentColor) -> self.frontHazcam), (fun (value : Aardvark.Base.C4b) (self : InstrumentColor) -> { self with frontHazcam = value })) + static member mastcam_ = ((fun (self : InstrumentColor) -> self.mastcam), (fun (value : Aardvark.Base.C4b) (self : InstrumentColor) -> { self with mastcam = value })) + static member apxs_ = ((fun (self : InstrumentColor) -> self.apxs), (fun (value : Aardvark.Base.C4b) (self : InstrumentColor) -> { self with apxs = value })) + static member frontHazcamR_ = ((fun (self : InstrumentColor) -> self.frontHazcamR), (fun (value : Aardvark.Base.C4b) (self : InstrumentColor) -> { self with frontHazcamR = value })) + static member frontHazcamL_ = ((fun (self : InstrumentColor) -> self.frontHazcamL), (fun (value : Aardvark.Base.C4b) (self : InstrumentColor) -> { self with frontHazcamL = value })) + static member mastcamR_ = ((fun (self : InstrumentColor) -> self.mastcamR), (fun (value : Aardvark.Base.C4b) (self : InstrumentColor) -> { self with mastcamR = value })) + static member mastcamL_ = ((fun (self : InstrumentColor) -> self.mastcamL), (fun (value : Aardvark.Base.C4b) (self : InstrumentColor) -> { self with mastcamL = value })) + static member chemLib_ = ((fun (self : InstrumentColor) -> self.chemLib), (fun (value : Aardvark.Base.C4b) (self : InstrumentColor) -> { self with chemLib = value })) + static member chemRmi_ = ((fun (self : InstrumentColor) -> self.chemRmi), (fun (value : Aardvark.Base.C4b) (self : InstrumentColor) -> { self with chemRmi = value })) + static member color_ = ((fun (self : InstrumentColor) -> self.color), (fun (value : Aardvark.UI.ColorInput) (self : InstrumentColor) -> { self with color = value })) +[] +type AdaptiveFeatureProperties(value : FeatureProperties) = + let _pointSize_ = Aardvark.UI.AdaptiveNumericInput(value.pointSize) + let _textSize_ = Aardvark.UI.AdaptiveNumericInput(value.textSize) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : FeatureProperties) = AdaptiveFeatureProperties(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : FeatureProperties) -> AdaptiveFeatureProperties(value)) (fun (adaptive : AdaptiveFeatureProperties) (value : FeatureProperties) -> adaptive.Update(value)) + member __.Update(value : FeatureProperties) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _pointSize_.Update(value.pointSize) + _textSize_.Update(value.textSize) + member __.Current = __adaptive + member __.pointSize = _pointSize_ + member __.textSize = _textSize_ +[] +module FeaturePropertiesLenses = + type FeatureProperties with + static member pointSize_ = ((fun (self : FeatureProperties) -> self.pointSize), (fun (value : Aardvark.UI.NumericInput) (self : FeatureProperties) -> { self with pointSize = value })) + static member textSize_ = ((fun (self : FeatureProperties) -> self.textSize), (fun (value : Aardvark.UI.NumericInput) (self : FeatureProperties) -> { self with textSize = value })) +[] +type AdaptiveQueryModel(value : QueryModel) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _minSol_ = Aardvark.UI.AdaptiveNumericInput(value.minSol) + let _maxSol_ = Aardvark.UI.AdaptiveNumericInput(value.maxSol) + let _distance_ = Aardvark.UI.AdaptiveNumericInput(value.distance) + let _filterLocation_ = FSharp.Data.Adaptive.cval(value.filterLocation) + let _checkMAHLI_ = FSharp.Data.Adaptive.cval(value.checkMAHLI) + let _checkFrontHazcam_ = FSharp.Data.Adaptive.cval(value.checkFrontHazcam) + let _checkMastcam_ = FSharp.Data.Adaptive.cval(value.checkMastcam) + let _checkAPXS_ = FSharp.Data.Adaptive.cval(value.checkAPXS) + let _checkFrontHazcamR_ = FSharp.Data.Adaptive.cval(value.checkFrontHazcamR) + let _checkFrontHazcamL_ = FSharp.Data.Adaptive.cval(value.checkFrontHazcamL) + let _checkMastcamR_ = FSharp.Data.Adaptive.cval(value.checkMastcamR) + let _checkMastcamL_ = FSharp.Data.Adaptive.cval(value.checkMastcamL) + let _checkChemLib_ = FSharp.Data.Adaptive.cval(value.checkChemLib) + let _checkChemRmi_ = FSharp.Data.Adaptive.cval(value.checkChemRmi) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : QueryModel) = AdaptiveQueryModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : QueryModel) -> AdaptiveQueryModel(value)) (fun (adaptive : AdaptiveQueryModel) (value : QueryModel) -> adaptive.Update(value)) + member __.Update(value : QueryModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _minSol_.Update(value.minSol) + _maxSol_.Update(value.maxSol) + _distance_.Update(value.distance) + _filterLocation_.Value <- value.filterLocation + _checkMAHLI_.Value <- value.checkMAHLI + _checkFrontHazcam_.Value <- value.checkFrontHazcam + _checkMastcam_.Value <- value.checkMastcam + _checkAPXS_.Value <- value.checkAPXS + _checkFrontHazcamR_.Value <- value.checkFrontHazcamR + _checkFrontHazcamL_.Value <- value.checkFrontHazcamL + _checkMastcamR_.Value <- value.checkMastcamR + _checkMastcamL_.Value <- value.checkMastcamL + _checkChemLib_.Value <- value.checkChemLib + _checkChemRmi_.Value <- value.checkChemRmi + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.minSol = _minSol_ + member __.maxSol = _maxSol_ + member __.distance = _distance_ + member __.filterLocation = _filterLocation_ :> FSharp.Data.Adaptive.aval + member __.checkMAHLI = _checkMAHLI_ :> FSharp.Data.Adaptive.aval + member __.checkFrontHazcam = _checkFrontHazcam_ :> FSharp.Data.Adaptive.aval + member __.checkMastcam = _checkMastcam_ :> FSharp.Data.Adaptive.aval + member __.checkAPXS = _checkAPXS_ :> FSharp.Data.Adaptive.aval + member __.checkFrontHazcamR = _checkFrontHazcamR_ :> FSharp.Data.Adaptive.aval + member __.checkFrontHazcamL = _checkFrontHazcamL_ :> FSharp.Data.Adaptive.aval + member __.checkMastcamR = _checkMastcamR_ :> FSharp.Data.Adaptive.aval + member __.checkMastcamL = _checkMastcamL_ :> FSharp.Data.Adaptive.aval + member __.checkChemLib = _checkChemLib_ :> FSharp.Data.Adaptive.aval + member __.checkChemRmi = _checkChemRmi_ :> FSharp.Data.Adaptive.aval +[] +module QueryModelLenses = + type QueryModel with + static member version_ = ((fun (self : QueryModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : QueryModel) -> { self with version = value })) + static member minSol_ = ((fun (self : QueryModel) -> self.minSol), (fun (value : Aardvark.UI.NumericInput) (self : QueryModel) -> { self with minSol = value })) + static member maxSol_ = ((fun (self : QueryModel) -> self.maxSol), (fun (value : Aardvark.UI.NumericInput) (self : QueryModel) -> { self with maxSol = value })) + static member distance_ = ((fun (self : QueryModel) -> self.distance), (fun (value : Aardvark.UI.NumericInput) (self : QueryModel) -> { self with distance = value })) + static member filterLocation_ = ((fun (self : QueryModel) -> self.filterLocation), (fun (value : Aardvark.Base.V3d) (self : QueryModel) -> { self with filterLocation = value })) + static member checkMAHLI_ = ((fun (self : QueryModel) -> self.checkMAHLI), (fun (value : Microsoft.FSharp.Core.bool) (self : QueryModel) -> { self with checkMAHLI = value })) + static member checkFrontHazcam_ = ((fun (self : QueryModel) -> self.checkFrontHazcam), (fun (value : Microsoft.FSharp.Core.bool) (self : QueryModel) -> { self with checkFrontHazcam = value })) + static member checkMastcam_ = ((fun (self : QueryModel) -> self.checkMastcam), (fun (value : Microsoft.FSharp.Core.bool) (self : QueryModel) -> { self with checkMastcam = value })) + static member checkAPXS_ = ((fun (self : QueryModel) -> self.checkAPXS), (fun (value : Microsoft.FSharp.Core.bool) (self : QueryModel) -> { self with checkAPXS = value })) + static member checkFrontHazcamR_ = ((fun (self : QueryModel) -> self.checkFrontHazcamR), (fun (value : Microsoft.FSharp.Core.bool) (self : QueryModel) -> { self with checkFrontHazcamR = value })) + static member checkFrontHazcamL_ = ((fun (self : QueryModel) -> self.checkFrontHazcamL), (fun (value : Microsoft.FSharp.Core.bool) (self : QueryModel) -> { self with checkFrontHazcamL = value })) + static member checkMastcamR_ = ((fun (self : QueryModel) -> self.checkMastcamR), (fun (value : Microsoft.FSharp.Core.bool) (self : QueryModel) -> { self with checkMastcamR = value })) + static member checkMastcamL_ = ((fun (self : QueryModel) -> self.checkMastcamL), (fun (value : Microsoft.FSharp.Core.bool) (self : QueryModel) -> { self with checkMastcamL = value })) + static member checkChemLib_ = ((fun (self : QueryModel) -> self.checkChemLib), (fun (value : Microsoft.FSharp.Core.bool) (self : QueryModel) -> { self with checkChemLib = value })) + static member checkChemRmi_ = ((fun (self : QueryModel) -> self.checkChemRmi), (fun (value : Microsoft.FSharp.Core.bool) (self : QueryModel) -> { self with checkChemRmi = value })) +[] +type AdaptiveSelectionModel(value : SelectionModel) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _selectedProducts_ = FSharp.Data.Adaptive.cset(value.selectedProducts) + let _highlightedFrustra_ = FSharp.Data.Adaptive.cset(value.highlightedFrustra) + let _singleSelectProduct_ = FSharp.Data.Adaptive.cval(value.singleSelectProduct) + let _selectionMinDist_ = FSharp.Data.Adaptive.cval(value.selectionMinDist) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SelectionModel) = AdaptiveSelectionModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SelectionModel) -> AdaptiveSelectionModel(value)) (fun (adaptive : AdaptiveSelectionModel) (value : SelectionModel) -> adaptive.Update(value)) + member __.Update(value : SelectionModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _selectedProducts_.Value <- value.selectedProducts + _highlightedFrustra_.Value <- value.highlightedFrustra + _singleSelectProduct_.Value <- value.singleSelectProduct + _selectionMinDist_.Value <- value.selectionMinDist + () + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.selectedProducts = _selectedProducts_ :> FSharp.Data.Adaptive.aset + member __.highlightedFrustra = _highlightedFrustra_ :> FSharp.Data.Adaptive.aset + member __.singleSelectProduct = _singleSelectProduct_ :> FSharp.Data.Adaptive.aval> + member __.selectionMinDist = _selectionMinDist_ :> FSharp.Data.Adaptive.aval + member __.kdTree = __value.kdTree + member __.flatPos = __value.flatPos + member __.flatID = __value.flatID +[] +module SelectionModelLenses = + type SelectionModel with + static member version_ = ((fun (self : SelectionModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : SelectionModel) -> { self with version = value })) + static member selectedProducts_ = ((fun (self : SelectionModel) -> self.selectedProducts), (fun (value : FSharp.Data.Adaptive.HashSet) (self : SelectionModel) -> { self with selectedProducts = value })) + static member highlightedFrustra_ = ((fun (self : SelectionModel) -> self.highlightedFrustra), (fun (value : FSharp.Data.Adaptive.HashSet) (self : SelectionModel) -> { self with highlightedFrustra = value })) + static member singleSelectProduct_ = ((fun (self : SelectionModel) -> self.singleSelectProduct), (fun (value : Microsoft.FSharp.Core.option) (self : SelectionModel) -> { self with singleSelectProduct = value })) + static member selectionMinDist_ = ((fun (self : SelectionModel) -> self.selectionMinDist), (fun (value : Microsoft.FSharp.Core.float) (self : SelectionModel) -> { self with selectionMinDist = value })) + static member kdTree_ = ((fun (self : SelectionModel) -> self.kdTree), (fun (value : Aardvark.Geometry.PointKdTreeD<(Aardvark.Base.V3d)[], Aardvark.Base.V3d>) (self : SelectionModel) -> { self with kdTree = value })) + static member flatPos_ = ((fun (self : SelectionModel) -> self.flatPos), (fun (value : Microsoft.FSharp.Core.array) (self : SelectionModel) -> { self with flatPos = value })) + static member flatID_ = ((fun (self : SelectionModel) -> self.flatID), (fun (value : Microsoft.FSharp.Core.array) (self : SelectionModel) -> { self with flatID = value })) +[] +type AdaptiveSession(value : Session) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _queryFilter_ = AdaptiveQueryModel(value.queryFilter) + let _featureProperties_ = AdaptiveFeatureProperties(value.featureProperties) + let _selection_ = AdaptiveSelectionModel(value.selection) + let _queries_ = FSharp.Data.Adaptive.cval(value.queries) + let _filteredFeatures_ = FSharp.Data.Adaptive.clist(value.filteredFeatures) + let _dataFilePath_ = FSharp.Data.Adaptive.cval(value.dataFilePath) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Session) = AdaptiveSession(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Session) -> AdaptiveSession(value)) (fun (adaptive : AdaptiveSession) (value : Session) -> adaptive.Update(value)) + member __.Update(value : Session) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _queryFilter_.Update(value.queryFilter) + _featureProperties_.Update(value.featureProperties) + _selection_.Update(value.selection) + _queries_.Value <- value.queries + _filteredFeatures_.Value <- value.filteredFeatures + _dataFilePath_.Value <- value.dataFilePath + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.queryFilter = _queryFilter_ + member __.featureProperties = _featureProperties_ + member __.selection = _selection_ + member __.queries = _queries_ :> FSharp.Data.Adaptive.aval> + member __.filteredFeatures = _filteredFeatures_ :> FSharp.Data.Adaptive.alist + member __.dataFilePath = _dataFilePath_ :> FSharp.Data.Adaptive.aval +[] +module SessionLenses = + type Session with + static member version_ = ((fun (self : Session) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : Session) -> { self with version = value })) + static member queryFilter_ = ((fun (self : Session) -> self.queryFilter), (fun (value : QueryModel) (self : Session) -> { self with queryFilter = value })) + static member featureProperties_ = ((fun (self : Session) -> self.featureProperties), (fun (value : FeatureProperties) (self : Session) -> { self with featureProperties = value })) + static member selection_ = ((fun (self : Session) -> self.selection), (fun (value : SelectionModel) (self : Session) -> { self with selection = value })) + static member queries_ = ((fun (self : Session) -> self.queries), (fun (value : Microsoft.FSharp.Collections.list) (self : Session) -> { self with queries = value })) + static member filteredFeatures_ = ((fun (self : Session) -> self.filteredFeatures), (fun (value : FSharp.Data.Adaptive.IndexList) (self : Session) -> { self with filteredFeatures = value })) + static member dataFilePath_ = ((fun (self : Session) -> self.dataFilePath), (fun (value : Microsoft.FSharp.Core.string) (self : Session) -> { self with dataFilePath = value })) +[] +type AdaptiveMinervaModel(value : MinervaModel) = + let _session_ = AdaptiveSession(value.session) + let _data_ = AdaptiveFeatureCollection(value.data) + let _kdTreeBounds_ = FSharp.Data.Adaptive.cval(value.kdTreeBounds) + let _hoveredProduct_ = FSharp.Data.Adaptive.cval(value.hoveredProduct) + let _solLabels_ = FSharp.Data.Adaptive.cmap(value.solLabels) + let _sgFeatures_ = AdaptiveSgFeatures(value.sgFeatures) + let _selectedSgFeatures_ = AdaptiveSgFeatures(value.selectedSgFeatures) + let _picking_ = FSharp.Data.Adaptive.cval(value.picking) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : MinervaModel) = AdaptiveMinervaModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : MinervaModel) -> AdaptiveMinervaModel(value)) (fun (adaptive : AdaptiveMinervaModel) (value : MinervaModel) -> adaptive.Update(value)) + member __.Update(value : MinervaModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _session_.Update(value.session) + _data_.Update(value.data) + _kdTreeBounds_.Value <- value.kdTreeBounds + _hoveredProduct_.Value <- value.hoveredProduct + _solLabels_.Value <- value.solLabels + _sgFeatures_.Update(value.sgFeatures) + _selectedSgFeatures_.Update(value.selectedSgFeatures) + _picking_.Value <- value.picking + member __.Current = __adaptive + member __.session = _session_ + member __.data = _data_ + member __.comm = __value.comm + member __.vplMessages = __value.vplMessages + member __.kdTreeBounds = _kdTreeBounds_ :> FSharp.Data.Adaptive.aval + member __.hoveredProduct = _hoveredProduct_ :> FSharp.Data.Adaptive.aval> + member __.solLabels = _solLabels_ :> FSharp.Data.Adaptive.amap + member __.sgFeatures = _sgFeatures_ + member __.selectedSgFeatures = _selectedSgFeatures_ + member __.picking = _picking_ :> FSharp.Data.Adaptive.aval +[] +module MinervaModelLenses = + type MinervaModel with + static member session_ = ((fun (self : MinervaModel) -> self.session), (fun (value : Session) (self : MinervaModel) -> { self with session = value })) + static member data_ = ((fun (self : MinervaModel) -> self.data), (fun (value : FeatureCollection) (self : MinervaModel) -> { self with data = value })) + static member comm_ = ((fun (self : MinervaModel) -> self.comm), (fun (value : Microsoft.FSharp.Core.option) (self : MinervaModel) -> { self with comm = value })) + static member vplMessages_ = ((fun (self : MinervaModel) -> self.vplMessages), (fun (value : FSharp.Data.Adaptive.ThreadPool) (self : MinervaModel) -> { self with vplMessages = value })) + static member kdTreeBounds_ = ((fun (self : MinervaModel) -> self.kdTreeBounds), (fun (value : Aardvark.Base.Box3d) (self : MinervaModel) -> { self with kdTreeBounds = value })) + static member hoveredProduct_ = ((fun (self : MinervaModel) -> self.hoveredProduct), (fun (value : Microsoft.FSharp.Core.Option) (self : MinervaModel) -> { self with hoveredProduct = value })) + static member solLabels_ = ((fun (self : MinervaModel) -> self.solLabels), (fun (value : FSharp.Data.Adaptive.HashMap) (self : MinervaModel) -> { self with solLabels = value })) + static member sgFeatures_ = ((fun (self : MinervaModel) -> self.sgFeatures), (fun (value : SgFeatures) (self : MinervaModel) -> { self with sgFeatures = value })) + static member selectedSgFeatures_ = ((fun (self : MinervaModel) -> self.selectedSgFeatures), (fun (value : SgFeatures) (self : MinervaModel) -> { self with selectedSgFeatures = value })) + static member picking_ = ((fun (self : MinervaModel) -> self.picking), (fun (value : Microsoft.FSharp.Core.bool) (self : MinervaModel) -> { self with picking = value })) + diff --git a/src/PRo3D.Minerva/PRo3D.Minerva.fsproj b/src/PRo3D.Minerva/PRo3D.Minerva.fsproj index cced201b..92db21af 100644 --- a/src/PRo3D.Minerva/PRo3D.Minerva.fsproj +++ b/src/PRo3D.Minerva/PRo3D.Minerva.fsproj @@ -6,17 +6,14 @@ True - False - true win10-x64 - ..\..\bin\Debug\ @@ -34,6 +31,7 @@ + diff --git a/src/PRo3D.SimulatedViews/Comparison/Comparison-Model.g.fs b/src/PRo3D.SimulatedViews/Comparison/Comparison-Model.g.fs new file mode 100644 index 00000000..b67a5015 --- /dev/null +++ b/src/PRo3D.SimulatedViews/Comparison/Comparison-Model.g.fs @@ -0,0 +1,200 @@ +//52b50b77-282f-7864-5c40-10f5edd4298b +//d502d29b-902e-e80c-598e-b9fc438eee99 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Comparison + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Comparison +[] +type AdaptiveVertexStatistics(value : VertexStatistics) = + let _avgDistance_ = FSharp.Data.Adaptive.cval(value.avgDistance) + let _maxDistance_ = FSharp.Data.Adaptive.cval(value.maxDistance) + let _minDistance_ = FSharp.Data.Adaptive.cval(value.minDistance) + let _diffPoints1_ = FSharp.Data.Adaptive.cval(value.diffPoints1) + let _diffPoints2_ = FSharp.Data.Adaptive.cval(value.diffPoints2) + let _trafo1_ = FSharp.Data.Adaptive.cval(value.trafo1) + let _trafo2_ = FSharp.Data.Adaptive.cval(value.trafo2) + let _distances_ = FSharp.Data.Adaptive.cval(value.distances) + let _colorLegend_ = PRo3D.Base.AdaptiveFalseColorsModel(value.colorLegend) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : VertexStatistics) = AdaptiveVertexStatistics(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : VertexStatistics) -> AdaptiveVertexStatistics(value)) (fun (adaptive : AdaptiveVertexStatistics) (value : VertexStatistics) -> adaptive.Update(value)) + member __.Update(value : VertexStatistics) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _avgDistance_.Value <- value.avgDistance + _maxDistance_.Value <- value.maxDistance + _minDistance_.Value <- value.minDistance + _diffPoints1_.Value <- value.diffPoints1 + _diffPoints2_.Value <- value.diffPoints2 + _trafo1_.Value <- value.trafo1 + _trafo2_.Value <- value.trafo2 + _distances_.Value <- value.distances + _colorLegend_.Update(value.colorLegend) + member __.Current = __adaptive + member __.avgDistance = _avgDistance_ :> FSharp.Data.Adaptive.aval + member __.maxDistance = _maxDistance_ :> FSharp.Data.Adaptive.aval + member __.minDistance = _minDistance_ :> FSharp.Data.Adaptive.aval + member __.diffPoints1 = _diffPoints1_ :> FSharp.Data.Adaptive.aval<(Aardvark.Base.V3d)[]> + member __.diffPoints2 = _diffPoints2_ :> FSharp.Data.Adaptive.aval<(Aardvark.Base.V3d)[]> + member __.trafo1 = _trafo1_ :> FSharp.Data.Adaptive.aval + member __.trafo2 = _trafo2_ :> FSharp.Data.Adaptive.aval + member __.distances = _distances_ :> FSharp.Data.Adaptive.aval> + member __.colorLegend = _colorLegend_ +[] +module VertexStatisticsLenses = + type VertexStatistics with + static member avgDistance_ = ((fun (self : VertexStatistics) -> self.avgDistance), (fun (value : Microsoft.FSharp.Core.float) (self : VertexStatistics) -> { self with avgDistance = value })) + static member maxDistance_ = ((fun (self : VertexStatistics) -> self.maxDistance), (fun (value : Microsoft.FSharp.Core.float) (self : VertexStatistics) -> { self with maxDistance = value })) + static member minDistance_ = ((fun (self : VertexStatistics) -> self.minDistance), (fun (value : Microsoft.FSharp.Core.float) (self : VertexStatistics) -> { self with minDistance = value })) + static member diffPoints1_ = ((fun (self : VertexStatistics) -> self.diffPoints1), (fun (value : (Aardvark.Base.V3d)[]) (self : VertexStatistics) -> { self with diffPoints1 = value })) + static member diffPoints2_ = ((fun (self : VertexStatistics) -> self.diffPoints2), (fun (value : (Aardvark.Base.V3d)[]) (self : VertexStatistics) -> { self with diffPoints2 = value })) + static member trafo1_ = ((fun (self : VertexStatistics) -> self.trafo1), (fun (value : Aardvark.Base.Trafo3d) (self : VertexStatistics) -> { self with trafo1 = value })) + static member trafo2_ = ((fun (self : VertexStatistics) -> self.trafo2), (fun (value : Aardvark.Base.Trafo3d) (self : VertexStatistics) -> { self with trafo2 = value })) + static member distances_ = ((fun (self : VertexStatistics) -> self.distances), (fun (value : Microsoft.FSharp.Collections.list) (self : VertexStatistics) -> { self with distances = value })) + static member colorLegend_ = ((fun (self : VertexStatistics) -> self.colorLegend), (fun (value : PRo3D.Base.FalseColorsModel) (self : VertexStatistics) -> { self with colorLegend = value })) +[] +type AdaptiveAreaSelection(value : AreaSelection) = + let _label_ = FSharp.Data.Adaptive.cval(value.label) + let _radius_ = FSharp.Data.Adaptive.cval(value.radius) + let _location_ = FSharp.Data.Adaptive.cval(value.location) + let _highResolution_ = FSharp.Data.Adaptive.cval(value.highResolution) + let _visible_ = FSharp.Data.Adaptive.cval(value.visible) + let _surfaceTrafo_ = FSharp.Data.Adaptive.cval(value.surfaceTrafo) + let _verticesSurf1_ = FSharp.Data.Adaptive.clist(value.verticesSurf1) + let _verticesSurf2_ = FSharp.Data.Adaptive.clist(value.verticesSurf2) + let _statistics_ = + let inline __arg2 (o : System.Object) (v : VertexStatistics) = + (unbox o).Update(v) + o + let inline __arg5 (o : System.Object) (v : VertexStatistics) = + (unbox o).Update(v) + o + Adaptify.FSharp.Core.AdaptiveOption(value.statistics, (fun (v : VertexStatistics) -> AdaptiveVertexStatistics(v) :> System.Object), __arg2, (fun (o : System.Object) -> unbox o), (fun (v : VertexStatistics) -> AdaptiveVertexStatistics(v) :> System.Object), __arg5, (fun (o : System.Object) -> unbox o)) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : AreaSelection) = AdaptiveAreaSelection(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : AreaSelection) -> AdaptiveAreaSelection(value)) (fun (adaptive : AdaptiveAreaSelection) (value : AreaSelection) -> adaptive.Update(value)) + member __.Update(value : AreaSelection) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _label_.Value <- value.label + _radius_.Value <- value.radius + _location_.Value <- value.location + _highResolution_.Value <- value.highResolution + _visible_.Value <- value.visible + _surfaceTrafo_.Value <- value.surfaceTrafo + _verticesSurf1_.Value <- value.verticesSurf1 + _verticesSurf2_.Value <- value.verticesSurf2 + _statistics_.Update(value.statistics) + member __.Current = __adaptive + member __.id = __value.id + member __.label = _label_ :> FSharp.Data.Adaptive.aval + member __.radius = _radius_ :> FSharp.Data.Adaptive.aval + member __.location = _location_ :> FSharp.Data.Adaptive.aval + member __.highResolution = _highResolution_ :> FSharp.Data.Adaptive.aval + member __.visible = _visible_ :> FSharp.Data.Adaptive.aval + member __.surfaceTrafo = _surfaceTrafo_ :> FSharp.Data.Adaptive.aval + member __.verticesSurf1 = _verticesSurf1_ :> FSharp.Data.Adaptive.alist + member __.verticesSurf2 = _verticesSurf2_ :> FSharp.Data.Adaptive.alist + member __.statistics = _statistics_ :> FSharp.Data.Adaptive.aval> +[] +module AreaSelectionLenses = + type AreaSelection with + static member id_ = ((fun (self : AreaSelection) -> self.id), (fun (value : System.Guid) (self : AreaSelection) -> { self with id = value })) + static member label_ = ((fun (self : AreaSelection) -> self.label), (fun (value : Microsoft.FSharp.Core.string) (self : AreaSelection) -> { self with label = value })) + static member radius_ = ((fun (self : AreaSelection) -> self.radius), (fun (value : Microsoft.FSharp.Core.float) (self : AreaSelection) -> { self with radius = value })) + static member location_ = ((fun (self : AreaSelection) -> self.location), (fun (value : Aardvark.Base.V3d) (self : AreaSelection) -> { self with location = value })) + static member highResolution_ = ((fun (self : AreaSelection) -> self.highResolution), (fun (value : Microsoft.FSharp.Core.bool) (self : AreaSelection) -> { self with highResolution = value })) + static member visible_ = ((fun (self : AreaSelection) -> self.visible), (fun (value : Microsoft.FSharp.Core.bool) (self : AreaSelection) -> { self with visible = value })) + static member surfaceTrafo_ = ((fun (self : AreaSelection) -> self.surfaceTrafo), (fun (value : Aardvark.Base.Trafo3d) (self : AreaSelection) -> { self with surfaceTrafo = value })) + static member verticesSurf1_ = ((fun (self : AreaSelection) -> self.verticesSurf1), (fun (value : FSharp.Data.Adaptive.IndexList) (self : AreaSelection) -> { self with verticesSurf1 = value })) + static member verticesSurf2_ = ((fun (self : AreaSelection) -> self.verticesSurf2), (fun (value : FSharp.Data.Adaptive.IndexList) (self : AreaSelection) -> { self with verticesSurf2 = value })) + static member statistics_ = ((fun (self : AreaSelection) -> self.statistics), (fun (value : Microsoft.FSharp.Core.option) (self : AreaSelection) -> { self with statistics = value })) +[] +type AdaptiveComparisonApp(value : ComparisonApp) = + let _state_ = FSharp.Data.Adaptive.cval(value.state) + let _threads_ = FSharp.Data.Adaptive.cval(value.threads) + let _showMeasurementsSg_ = FSharp.Data.Adaptive.cval(value.showMeasurementsSg) + let _nrOfCreatedAreas_ = FSharp.Data.Adaptive.cval(value.nrOfCreatedAreas) + let _originMode_ = FSharp.Data.Adaptive.cval(value.originMode) + let _surface1_ = FSharp.Data.Adaptive.cval(value.surface1) + let _surface2_ = FSharp.Data.Adaptive.cval(value.surface2) + let _surfaceMeasurements_ = FSharp.Data.Adaptive.cval(value.surfaceMeasurements) + let _annotationMeasurements_ = FSharp.Data.Adaptive.cval(value.annotationMeasurements) + let _surfaceGeometryType_ = FSharp.Data.Adaptive.cval(value.surfaceGeometryType) + let _initialAreaSize_ = Aardvark.UI.AdaptiveNumericInput(value.initialAreaSize) + let _pointSizeFactor_ = Aardvark.UI.AdaptiveNumericInput(value.pointSizeFactor) + let _selectedArea_ = FSharp.Data.Adaptive.cval(value.selectedArea) + let _isEditingArea_ = FSharp.Data.Adaptive.cval(value.isEditingArea) + let _areas_ = + let inline __arg2 (m : AdaptiveAreaSelection) (v : AreaSelection) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.areas, (fun (v : AreaSelection) -> AdaptiveAreaSelection(v)), __arg2, (fun (m : AdaptiveAreaSelection) -> m)) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ComparisonApp) = AdaptiveComparisonApp(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ComparisonApp) -> AdaptiveComparisonApp(value)) (fun (adaptive : AdaptiveComparisonApp) (value : ComparisonApp) -> adaptive.Update(value)) + member __.Update(value : ComparisonApp) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _state_.Value <- value.state + _threads_.Value <- value.threads + _showMeasurementsSg_.Value <- value.showMeasurementsSg + _nrOfCreatedAreas_.Value <- value.nrOfCreatedAreas + _originMode_.Value <- value.originMode + _surface1_.Value <- value.surface1 + _surface2_.Value <- value.surface2 + _surfaceMeasurements_.Value <- value.surfaceMeasurements + _annotationMeasurements_.Value <- value.annotationMeasurements + _surfaceGeometryType_.Value <- value.surfaceGeometryType + _initialAreaSize_.Update(value.initialAreaSize) + _pointSizeFactor_.Update(value.pointSizeFactor) + _selectedArea_.Value <- value.selectedArea + _isEditingArea_.Value <- value.isEditingArea + _areas_.Update(value.areas) + member __.Current = __adaptive + member __.state = _state_ :> FSharp.Data.Adaptive.aval + member __.threads = _threads_ :> FSharp.Data.Adaptive.aval> + member __.showMeasurementsSg = _showMeasurementsSg_ :> FSharp.Data.Adaptive.aval + member __.nrOfCreatedAreas = _nrOfCreatedAreas_ :> FSharp.Data.Adaptive.aval + member __.originMode = _originMode_ :> FSharp.Data.Adaptive.aval + member __.surface1 = _surface1_ :> FSharp.Data.Adaptive.aval> + member __.surface2 = _surface2_ :> FSharp.Data.Adaptive.aval> + member __.surfaceMeasurements = _surfaceMeasurements_ :> FSharp.Data.Adaptive.aval + member __.annotationMeasurements = _annotationMeasurements_ :> FSharp.Data.Adaptive.aval> + member __.surfaceGeometryType = _surfaceGeometryType_ :> FSharp.Data.Adaptive.aval + member __.initialAreaSize = _initialAreaSize_ + member __.pointSizeFactor = _pointSizeFactor_ + member __.selectedArea = _selectedArea_ :> FSharp.Data.Adaptive.aval> + member __.isEditingArea = _isEditingArea_ :> FSharp.Data.Adaptive.aval + member __.areas = _areas_ :> FSharp.Data.Adaptive.amap +[] +module ComparisonAppLenses = + type ComparisonApp with + static member state_ = ((fun (self : ComparisonApp) -> self.state), (fun (value : ComparisonAppState) (self : ComparisonApp) -> { self with state = value })) + static member threads_ = ((fun (self : ComparisonApp) -> self.threads), (fun (value : FSharp.Data.Adaptive.ThreadPool) (self : ComparisonApp) -> { self with threads = value })) + static member showMeasurementsSg_ = ((fun (self : ComparisonApp) -> self.showMeasurementsSg), (fun (value : Microsoft.FSharp.Core.bool) (self : ComparisonApp) -> { self with showMeasurementsSg = value })) + static member nrOfCreatedAreas_ = ((fun (self : ComparisonApp) -> self.nrOfCreatedAreas), (fun (value : Microsoft.FSharp.Core.int) (self : ComparisonApp) -> { self with nrOfCreatedAreas = value })) + static member originMode_ = ((fun (self : ComparisonApp) -> self.originMode), (fun (value : OriginMode) (self : ComparisonApp) -> { self with originMode = value })) + static member surface1_ = ((fun (self : ComparisonApp) -> self.surface1), (fun (value : Microsoft.FSharp.Core.option) (self : ComparisonApp) -> { self with surface1 = value })) + static member surface2_ = ((fun (self : ComparisonApp) -> self.surface2), (fun (value : Microsoft.FSharp.Core.option) (self : ComparisonApp) -> { self with surface2 = value })) + static member surfaceMeasurements_ = ((fun (self : ComparisonApp) -> self.surfaceMeasurements), (fun (value : SurfaceComparison) (self : ComparisonApp) -> { self with surfaceMeasurements = value })) + static member annotationMeasurements_ = ((fun (self : ComparisonApp) -> self.annotationMeasurements), (fun (value : Microsoft.FSharp.Collections.list) (self : ComparisonApp) -> { self with annotationMeasurements = value })) + static member surfaceGeometryType_ = ((fun (self : ComparisonApp) -> self.surfaceGeometryType), (fun (value : DistanceMode) (self : ComparisonApp) -> { self with surfaceGeometryType = value })) + static member initialAreaSize_ = ((fun (self : ComparisonApp) -> self.initialAreaSize), (fun (value : Aardvark.UI.NumericInput) (self : ComparisonApp) -> { self with initialAreaSize = value })) + static member pointSizeFactor_ = ((fun (self : ComparisonApp) -> self.pointSizeFactor), (fun (value : Aardvark.UI.NumericInput) (self : ComparisonApp) -> { self with pointSizeFactor = value })) + static member selectedArea_ = ((fun (self : ComparisonApp) -> self.selectedArea), (fun (value : Microsoft.FSharp.Core.option) (self : ComparisonApp) -> { self with selectedArea = value })) + static member isEditingArea_ = ((fun (self : ComparisonApp) -> self.isEditingArea), (fun (value : Microsoft.FSharp.Core.bool) (self : ComparisonApp) -> { self with isEditingArea = value })) + static member areas_ = ((fun (self : ComparisonApp) -> self.areas), (fun (value : FSharp.Data.Adaptive.HashMap) (self : ComparisonApp) -> { self with areas = value })) + diff --git a/src/PRo3D.SimulatedViews/Lighting/Shading-Model.g.fs b/src/PRo3D.SimulatedViews/Lighting/Shading-Model.g.fs new file mode 100644 index 00000000..9b08f7ba --- /dev/null +++ b/src/PRo3D.SimulatedViews/Lighting/Shading-Model.g.fs @@ -0,0 +1,87 @@ +//c0577544-57ed-5d4c-1d8e-c3a6e82b9044 +//9f4d4086-1eb5-3dd6-d3a7-4fbb4066cd9e +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Shading + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Shading +[] +type AdaptiveShadingApp(value : ShadingApp) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _useLightLocation_ = FSharp.Data.Adaptive.cval(value.useLightLocation) + let _lightLocation_ = Aardvark.UI.AdaptiveV3dInput(value.lightLocation) + let _lightDirection_ = Aardvark.UI.AdaptiveV3dInput(value.lightDirection) + let _normalizeLightDirection_ = FSharp.Data.Adaptive.cval(value.normalizeLightDirection) + let _lightDistance_ = Aardvark.UI.AdaptiveNumericInput(value.lightDistance) + let _useLighting_ = FSharp.Data.Adaptive.cval(value.useLighting) + let _useShadows_ = FSharp.Data.Adaptive.cval(value.useShadows) + let _useMask_ = FSharp.Data.Adaptive.cval(value.useMask) + let _ambient_ = Aardvark.UI.AdaptiveNumericInput(value.ambient) + let _ambientShadow_ = Aardvark.UI.AdaptiveNumericInput(value.ambientShadow) + let _shadowFrustum_ = Aardvark.UI.AdaptiveNumericInput(value.shadowFrustum) + let _shadowProjection_ = FSharp.Data.Adaptive.cval(value.shadowProjection) + let _debug_ = FSharp.Data.Adaptive.cval(value.debug) + let _showShadowMap_ = FSharp.Data.Adaptive.cval(value.showShadowMap) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ShadingApp) = AdaptiveShadingApp(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ShadingApp) -> AdaptiveShadingApp(value)) (fun (adaptive : AdaptiveShadingApp) (value : ShadingApp) -> adaptive.Update(value)) + member __.Update(value : ShadingApp) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _useLightLocation_.Value <- value.useLightLocation + _lightLocation_.Update(value.lightLocation) + _lightDirection_.Update(value.lightDirection) + _normalizeLightDirection_.Value <- value.normalizeLightDirection + _lightDistance_.Update(value.lightDistance) + _useLighting_.Value <- value.useLighting + _useShadows_.Value <- value.useShadows + _useMask_.Value <- value.useMask + _ambient_.Update(value.ambient) + _ambientShadow_.Update(value.ambientShadow) + _shadowFrustum_.Update(value.shadowFrustum) + _shadowProjection_.Value <- value.shadowProjection + _debug_.Value <- value.debug + _showShadowMap_.Value <- value.showShadowMap + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.useLightLocation = _useLightLocation_ :> FSharp.Data.Adaptive.aval + member __.lightLocation = _lightLocation_ + member __.lightDirection = _lightDirection_ + member __.normalizeLightDirection = _normalizeLightDirection_ :> FSharp.Data.Adaptive.aval + member __.lightDistance = _lightDistance_ + member __.useLighting = _useLighting_ :> FSharp.Data.Adaptive.aval + member __.useShadows = _useShadows_ :> FSharp.Data.Adaptive.aval + member __.useMask = _useMask_ :> FSharp.Data.Adaptive.aval + member __.ambient = _ambient_ + member __.ambientShadow = _ambientShadow_ + member __.shadowFrustum = _shadowFrustum_ + member __.shadowProjection = _shadowProjection_ :> FSharp.Data.Adaptive.aval + member __.debug = _debug_ :> FSharp.Data.Adaptive.aval + member __.showShadowMap = _showShadowMap_ :> FSharp.Data.Adaptive.aval +[] +module ShadingAppLenses = + type ShadingApp with + static member version_ = ((fun (self : ShadingApp) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : ShadingApp) -> { self with version = value })) + static member useLightLocation_ = ((fun (self : ShadingApp) -> self.useLightLocation), (fun (value : Microsoft.FSharp.Core.bool) (self : ShadingApp) -> { self with useLightLocation = value })) + static member lightLocation_ = ((fun (self : ShadingApp) -> self.lightLocation), (fun (value : Aardvark.UI.V3dInput) (self : ShadingApp) -> { self with lightLocation = value })) + static member lightDirection_ = ((fun (self : ShadingApp) -> self.lightDirection), (fun (value : Aardvark.UI.V3dInput) (self : ShadingApp) -> { self with lightDirection = value })) + static member normalizeLightDirection_ = ((fun (self : ShadingApp) -> self.normalizeLightDirection), (fun (value : Microsoft.FSharp.Core.bool) (self : ShadingApp) -> { self with normalizeLightDirection = value })) + static member lightDistance_ = ((fun (self : ShadingApp) -> self.lightDistance), (fun (value : Aardvark.UI.NumericInput) (self : ShadingApp) -> { self with lightDistance = value })) + static member useLighting_ = ((fun (self : ShadingApp) -> self.useLighting), (fun (value : Microsoft.FSharp.Core.bool) (self : ShadingApp) -> { self with useLighting = value })) + static member useShadows_ = ((fun (self : ShadingApp) -> self.useShadows), (fun (value : Microsoft.FSharp.Core.bool) (self : ShadingApp) -> { self with useShadows = value })) + static member useMask_ = ((fun (self : ShadingApp) -> self.useMask), (fun (value : Microsoft.FSharp.Core.bool) (self : ShadingApp) -> { self with useMask = value })) + static member ambient_ = ((fun (self : ShadingApp) -> self.ambient), (fun (value : Aardvark.UI.NumericInput) (self : ShadingApp) -> { self with ambient = value })) + static member ambientShadow_ = ((fun (self : ShadingApp) -> self.ambientShadow), (fun (value : Aardvark.UI.NumericInput) (self : ShadingApp) -> { self with ambientShadow = value })) + static member shadowFrustum_ = ((fun (self : ShadingApp) -> self.shadowFrustum), (fun (value : Aardvark.UI.NumericInput) (self : ShadingApp) -> { self with shadowFrustum = value })) + static member shadowProjection_ = ((fun (self : ShadingApp) -> self.shadowProjection), (fun (value : ShadowProjection) (self : ShadingApp) -> { self with shadowProjection = value })) + static member debug_ = ((fun (self : ShadingApp) -> self.debug), (fun (value : Microsoft.FSharp.Core.bool) (self : ShadingApp) -> { self with debug = value })) + static member showShadowMap_ = ((fun (self : ShadingApp) -> self.showShadowMap), (fun (value : Microsoft.FSharp.Core.bool) (self : ShadingApp) -> { self with showShadowMap = value })) + diff --git a/src/PRo3D.SimulatedViews/PRo3D.SimulatedViews.fsproj b/src/PRo3D.SimulatedViews/PRo3D.SimulatedViews.fsproj index 1a2669fb..e845ee16 100644 --- a/src/PRo3D.SimulatedViews/PRo3D.SimulatedViews.fsproj +++ b/src/PRo3D.SimulatedViews/PRo3D.SimulatedViews.fsproj @@ -15,12 +15,14 @@ + + @@ -28,8 +30,10 @@ + + @@ -38,6 +42,7 @@ + @@ -45,15 +50,19 @@ + + + + diff --git a/src/PRo3D.SimulatedViews/Rabbyte/Drawing/DrawingModel.g.fs b/src/PRo3D.SimulatedViews/Rabbyte/Drawing/DrawingModel.g.fs new file mode 100644 index 00000000..aac2072f --- /dev/null +++ b/src/PRo3D.SimulatedViews/Rabbyte/Drawing/DrawingModel.g.fs @@ -0,0 +1,51 @@ +//11849af6-c57e-3e10-661b-b0b8e3801979 +//b23b43bc-0ee4-55bc-ae39-010243007705 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec Rabbyte.Drawing + +open System +open FSharp.Data.Adaptive +open Adaptify +open Rabbyte.Drawing +[] +type AdaptiveBrushStyle(value : BrushStyle) = + let _primary_ = Aardvark.UI.AdaptiveColorInput(value.primary) + let _secondary_ = Aardvark.UI.AdaptiveColorInput(value.secondary) + let _lineStyle_ = FSharp.Data.Adaptive.cval(value.lineStyle) + let _areaStyle_ = FSharp.Data.Adaptive.cval(value.areaStyle) + let _thickness_ = FSharp.Data.Adaptive.cval(value.thickness) + let _samplingRate_ = FSharp.Data.Adaptive.cval(value.samplingRate) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : BrushStyle) = AdaptiveBrushStyle(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : BrushStyle) -> AdaptiveBrushStyle(value)) (fun (adaptive : AdaptiveBrushStyle) (value : BrushStyle) -> adaptive.Update(value)) + member __.Update(value : BrushStyle) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _primary_.Update(value.primary) + _secondary_.Update(value.secondary) + _lineStyle_.Value <- value.lineStyle + _areaStyle_.Value <- value.areaStyle + _thickness_.Value <- value.thickness + _samplingRate_.Value <- value.samplingRate + member __.Current = __adaptive + member __.primary = _primary_ + member __.secondary = _secondary_ + member __.lineStyle = _lineStyle_ :> FSharp.Data.Adaptive.aval> + member __.areaStyle = _areaStyle_ :> FSharp.Data.Adaptive.aval> + member __.thickness = _thickness_ :> FSharp.Data.Adaptive.aval + member __.samplingRate = _samplingRate_ :> FSharp.Data.Adaptive.aval +[] +module BrushStyleLenses = + type BrushStyle with + static member primary_ = ((fun (self : BrushStyle) -> self.primary), (fun (value : Aardvark.UI.ColorInput) (self : BrushStyle) -> { self with primary = value })) + static member secondary_ = ((fun (self : BrushStyle) -> self.secondary), (fun (value : Aardvark.UI.ColorInput) (self : BrushStyle) -> { self with secondary = value })) + static member lineStyle_ = ((fun (self : BrushStyle) -> self.lineStyle), (fun (value : Microsoft.FSharp.Core.Option) (self : BrushStyle) -> { self with lineStyle = value })) + static member areaStyle_ = ((fun (self : BrushStyle) -> self.areaStyle), (fun (value : Microsoft.FSharp.Core.Option) (self : BrushStyle) -> { self with areaStyle = value })) + static member thickness_ = ((fun (self : BrushStyle) -> self.thickness), (fun (value : Microsoft.FSharp.Core.float) (self : BrushStyle) -> { self with thickness = value })) + static member samplingRate_ = ((fun (self : BrushStyle) -> self.samplingRate), (fun (value : Microsoft.FSharp.Core.float) (self : BrushStyle) -> { self with samplingRate = value })) + diff --git a/src/PRo3D.SimulatedViews/Screenshots/Screenshot-Model.g.fs b/src/PRo3D.SimulatedViews/Screenshots/Screenshot-Model.g.fs new file mode 100644 index 00000000..7e022288 --- /dev/null +++ b/src/PRo3D.SimulatedViews/Screenshots/Screenshot-Model.g.fs @@ -0,0 +1,47 @@ +//0628b933-295e-08a7-8915-f1da10e95443 +//ba8656d7-033a-270e-dbc8-4f90753f5351 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.SimulatedViews + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.SimulatedViews +[] +type AdaptiveScreenshotModel(value : ScreenshotModel) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _width_ = Aardvark.UI.AdaptiveNumericInput(value.width) + let _height_ = Aardvark.UI.AdaptiveNumericInput(value.height) + let _backgroundColor_ = Aardvark.UI.AdaptiveColorInput(value.backgroundColor) + let _imageFormat_ = FSharp.Data.Adaptive.cval(value.imageFormat) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ScreenshotModel) = AdaptiveScreenshotModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ScreenshotModel) -> AdaptiveScreenshotModel(value)) (fun (adaptive : AdaptiveScreenshotModel) (value : ScreenshotModel) -> adaptive.Update(value)) + member __.Update(value : ScreenshotModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _width_.Update(value.width) + _height_.Update(value.height) + _backgroundColor_.Update(value.backgroundColor) + _imageFormat_.Value <- value.imageFormat + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.width = _width_ + member __.height = _height_ + member __.backgroundColor = _backgroundColor_ + member __.imageFormat = _imageFormat_ :> FSharp.Data.Adaptive.aval +[] +module ScreenshotModelLenses = + type ScreenshotModel with + static member version_ = ((fun (self : ScreenshotModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : ScreenshotModel) -> { self with version = value })) + static member width_ = ((fun (self : ScreenshotModel) -> self.width), (fun (value : Aardvark.UI.NumericInput) (self : ScreenshotModel) -> { self with width = value })) + static member height_ = ((fun (self : ScreenshotModel) -> self.height), (fun (value : Aardvark.UI.NumericInput) (self : ScreenshotModel) -> { self with height = value })) + static member backgroundColor_ = ((fun (self : ScreenshotModel) -> self.backgroundColor), (fun (value : Aardvark.UI.ColorInput) (self : ScreenshotModel) -> { self with backgroundColor = value })) + static member imageFormat_ = ((fun (self : ScreenshotModel) -> self.imageFormat), (fun (value : ImageFormat) (self : ScreenshotModel) -> { self with imageFormat = value })) + diff --git a/src/PRo3D.SimulatedViews/Snapshots/ObjectPlacement-Model.g.fs b/src/PRo3D.SimulatedViews/Snapshots/ObjectPlacement-Model.g.fs new file mode 100644 index 00000000..66cd2c32 --- /dev/null +++ b/src/PRo3D.SimulatedViews/Snapshots/ObjectPlacement-Model.g.fs @@ -0,0 +1,79 @@ +//ace9c9ca-99ab-3566-150e-1df4530bbc8a +//efc319d7-d72b-186e-9b33-bd656110d26a +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.SimulatedViews + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.SimulatedViews +[] +type AdaptiveObjectPlacementApp(value : ObjectPlacementApp) = + let _name_ = FSharp.Data.Adaptive.cval(value.name) + let _count_ = Aardvark.UI.AdaptiveNumericInput(value.count) + let _scaleFrom_ = Aardvark.UI.AdaptiveNumericInput(value.scaleFrom) + let _scaleTo_ = Aardvark.UI.AdaptiveNumericInput(value.scaleTo) + let _xRotationFrom_ = Aardvark.UI.AdaptiveNumericInput(value.xRotationFrom) + let _xRotationTo_ = Aardvark.UI.AdaptiveNumericInput(value.xRotationTo) + let _yRotationFrom_ = Aardvark.UI.AdaptiveNumericInput(value.yRotationFrom) + let _yRotationTo_ = Aardvark.UI.AdaptiveNumericInput(value.yRotationTo) + let _zRotationFrom_ = Aardvark.UI.AdaptiveNumericInput(value.zRotationFrom) + let _zRotationTo_ = Aardvark.UI.AdaptiveNumericInput(value.zRotationTo) + let _maxDistance_ = Aardvark.UI.AdaptiveNumericInput(value.maxDistance) + let _subsurface_ = Aardvark.UI.AdaptiveNumericInput(value.subsurface) + let _maskColor_ = Aardvark.UI.AdaptiveColorInput(value.maskColor) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ObjectPlacementApp) = AdaptiveObjectPlacementApp(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ObjectPlacementApp) -> AdaptiveObjectPlacementApp(value)) (fun (adaptive : AdaptiveObjectPlacementApp) (value : ObjectPlacementApp) -> adaptive.Update(value)) + member __.Update(value : ObjectPlacementApp) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _name_.Value <- value.name + _count_.Update(value.count) + _scaleFrom_.Update(value.scaleFrom) + _scaleTo_.Update(value.scaleTo) + _xRotationFrom_.Update(value.xRotationFrom) + _xRotationTo_.Update(value.xRotationTo) + _yRotationFrom_.Update(value.yRotationFrom) + _yRotationTo_.Update(value.yRotationTo) + _zRotationFrom_.Update(value.zRotationFrom) + _zRotationTo_.Update(value.zRotationTo) + _maxDistance_.Update(value.maxDistance) + _subsurface_.Update(value.subsurface) + _maskColor_.Update(value.maskColor) + member __.Current = __adaptive + member __.name = _name_ :> FSharp.Data.Adaptive.aval + member __.count = _count_ + member __.scaleFrom = _scaleFrom_ + member __.scaleTo = _scaleTo_ + member __.xRotationFrom = _xRotationFrom_ + member __.xRotationTo = _xRotationTo_ + member __.yRotationFrom = _yRotationFrom_ + member __.yRotationTo = _yRotationTo_ + member __.zRotationFrom = _zRotationFrom_ + member __.zRotationTo = _zRotationTo_ + member __.maxDistance = _maxDistance_ + member __.subsurface = _subsurface_ + member __.maskColor = _maskColor_ +[] +module ObjectPlacementAppLenses = + type ObjectPlacementApp with + static member name_ = ((fun (self : ObjectPlacementApp) -> self.name), (fun (value : Microsoft.FSharp.Core.string) (self : ObjectPlacementApp) -> { self with name = value })) + static member count_ = ((fun (self : ObjectPlacementApp) -> self.count), (fun (value : Aardvark.UI.NumericInput) (self : ObjectPlacementApp) -> { self with count = value })) + static member scaleFrom_ = ((fun (self : ObjectPlacementApp) -> self.scaleFrom), (fun (value : Aardvark.UI.NumericInput) (self : ObjectPlacementApp) -> { self with scaleFrom = value })) + static member scaleTo_ = ((fun (self : ObjectPlacementApp) -> self.scaleTo), (fun (value : Aardvark.UI.NumericInput) (self : ObjectPlacementApp) -> { self with scaleTo = value })) + static member xRotationFrom_ = ((fun (self : ObjectPlacementApp) -> self.xRotationFrom), (fun (value : Aardvark.UI.NumericInput) (self : ObjectPlacementApp) -> { self with xRotationFrom = value })) + static member xRotationTo_ = ((fun (self : ObjectPlacementApp) -> self.xRotationTo), (fun (value : Aardvark.UI.NumericInput) (self : ObjectPlacementApp) -> { self with xRotationTo = value })) + static member yRotationFrom_ = ((fun (self : ObjectPlacementApp) -> self.yRotationFrom), (fun (value : Aardvark.UI.NumericInput) (self : ObjectPlacementApp) -> { self with yRotationFrom = value })) + static member yRotationTo_ = ((fun (self : ObjectPlacementApp) -> self.yRotationTo), (fun (value : Aardvark.UI.NumericInput) (self : ObjectPlacementApp) -> { self with yRotationTo = value })) + static member zRotationFrom_ = ((fun (self : ObjectPlacementApp) -> self.zRotationFrom), (fun (value : Aardvark.UI.NumericInput) (self : ObjectPlacementApp) -> { self with zRotationFrom = value })) + static member zRotationTo_ = ((fun (self : ObjectPlacementApp) -> self.zRotationTo), (fun (value : Aardvark.UI.NumericInput) (self : ObjectPlacementApp) -> { self with zRotationTo = value })) + static member maxDistance_ = ((fun (self : ObjectPlacementApp) -> self.maxDistance), (fun (value : Aardvark.UI.NumericInput) (self : ObjectPlacementApp) -> { self with maxDistance = value })) + static member subsurface_ = ((fun (self : ObjectPlacementApp) -> self.subsurface), (fun (value : Aardvark.UI.NumericInput) (self : ObjectPlacementApp) -> { self with subsurface = value })) + static member maskColor_ = ((fun (self : ObjectPlacementApp) -> self.maskColor), (fun (value : Aardvark.UI.ColorInput) (self : ObjectPlacementApp) -> { self with maskColor = value })) + diff --git a/src/PRo3D.SimulatedViews/Snapshots/SnapshotApp.g.fs b/src/PRo3D.SimulatedViews/Snapshots/SnapshotApp.g.fs new file mode 100644 index 00000000..57f6e4ca --- /dev/null +++ b/src/PRo3D.SimulatedViews/Snapshots/SnapshotApp.g.fs @@ -0,0 +1,74 @@ +//1645cc87-9977-37ea-b375-591fc49ce443 +//2cd279cd-1d6f-a673-b71e-edd330c1a64e +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.SimulatedViews + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.SimulatedViews +[] +type AdaptiveSnapshotApp<'model, '_primmodel, '_amodel, 'aModel, '_primaModel, '_aaModel, 'msg, '_primmsg, '_amsg>(value : SnapshotApp<'model, 'aModel, 'msg>, _primmodelinit : 'model -> System.Object, _primmodelupdate : System.Object -> 'model -> System.Object, _primmodelview : System.Object -> '_primmodel, _modelinit : 'model -> System.Object, _modelupdate : System.Object -> 'model -> System.Object, _modelview : System.Object -> '_amodel, _primaModelinit : 'aModel -> System.Object, _primaModelupdate : System.Object -> 'aModel -> System.Object, _primaModelview : System.Object -> '_primaModel, _aModelinit : 'aModel -> System.Object, _aModelupdate : System.Object -> 'aModel -> System.Object, _aModelview : System.Object -> '_aaModel, _primmsginit : 'msg -> System.Object, _primmsgupdate : System.Object -> 'msg -> System.Object, _primmsgview : System.Object -> '_primmsg, _msginit : 'msg -> System.Object, _msgupdate : System.Object -> 'msg -> System.Object, _msgview : System.Object -> '_amsg) = + let _mutableApp_ = FSharp.Data.Adaptive.cval(value.mutableApp) + let _adaptiveModel_ = _aModelinit value.adaptiveModel + let _sg_ = FSharp.Data.Adaptive.cval(value.sg) + let _snapshotAnimation_ = FSharp.Data.Adaptive.cval(value.snapshotAnimation) + let _getAnimationActions_ = FSharp.Data.Adaptive.cval(value.getAnimationActions) + let _getSnapshotActions_ = FSharp.Data.Adaptive.cval(value.getSnapshotActions) + let _runtime_ = FSharp.Data.Adaptive.cval(value.runtime) + let _renderRange_ = FSharp.Data.Adaptive.cval(value.renderRange) + let _outputFolder_ = FSharp.Data.Adaptive.cval(value.outputFolder) + let _renderMask_ = FSharp.Data.Adaptive.cval(value.renderMask) + let _renderDepth_ = FSharp.Data.Adaptive.cval(value.renderDepth) + let _verbose_ = FSharp.Data.Adaptive.cval(value.verbose) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SnapshotApp<'model, 'aModel, 'msg>, _primmodelinit : 'model -> System.Object, _primmodelupdate : System.Object -> 'model -> System.Object, _primmodelview : System.Object -> '_primmodel, _modelinit : 'model -> System.Object, _modelupdate : System.Object -> 'model -> System.Object, _modelview : System.Object -> '_amodel, _primaModelinit : 'aModel -> System.Object, _primaModelupdate : System.Object -> 'aModel -> System.Object, _primaModelview : System.Object -> '_primaModel, _aModelinit : 'aModel -> System.Object, _aModelupdate : System.Object -> 'aModel -> System.Object, _aModelview : System.Object -> '_aaModel, _primmsginit : 'msg -> System.Object, _primmsgupdate : System.Object -> 'msg -> System.Object, _primmsgview : System.Object -> '_primmsg, _msginit : 'msg -> System.Object, _msgupdate : System.Object -> 'msg -> System.Object, _msgview : System.Object -> '_amsg) = AdaptiveSnapshotApp<'model, '_primmodel, '_amodel, 'aModel, '_primaModel, '_aaModel, 'msg, '_primmsg, '_amsg>(value, _primmodelinit, _primmodelupdate, _primmodelview, _modelinit, _modelupdate, _modelview, _primaModelinit, _primaModelupdate, _primaModelview, _aModelinit, _aModelupdate, _aModelview, _primmsginit, _primmsgupdate, _primmsgview, _msginit, _msgupdate, _msgview) + member __.Update(value : SnapshotApp<'model, 'aModel, 'msg>) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer>.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _mutableApp_.Value <- value.mutableApp + ignore (_aModelupdate _adaptiveModel_ value.adaptiveModel) + _sg_.Value <- value.sg + _snapshotAnimation_.Value <- value.snapshotAnimation + _getAnimationActions_.Value <- value.getAnimationActions + _getSnapshotActions_.Value <- value.getSnapshotActions + _runtime_.Value <- value.runtime + _renderRange_.Value <- value.renderRange + _outputFolder_.Value <- value.outputFolder + _renderMask_.Value <- value.renderMask + _renderDepth_.Value <- value.renderDepth + _verbose_.Value <- value.verbose + member __.Current = __adaptive + member __.mutableApp = _mutableApp_ :> FSharp.Data.Adaptive.aval> + member __.adaptiveModel = _aModelview _adaptiveModel_ + member __.sg = _sg_ :> FSharp.Data.Adaptive.aval + member __.snapshotAnimation = _snapshotAnimation_ :> FSharp.Data.Adaptive.aval + member __.getAnimationActions = _getAnimationActions_ :> FSharp.Data.Adaptive.aval Microsoft.FSharp.Collections.seq<'msg>> + member __.getSnapshotActions = _getSnapshotActions_ :> FSharp.Data.Adaptive.aval NearFarRecalculation -> Microsoft.FSharp.Core.string -> Microsoft.FSharp.Collections.seq<'msg>> + member __.runtime = _runtime_ :> FSharp.Data.Adaptive.aval + member __.renderRange = _renderRange_ :> FSharp.Data.Adaptive.aval> + member __.outputFolder = _outputFolder_ :> FSharp.Data.Adaptive.aval + member __.renderMask = _renderMask_ :> FSharp.Data.Adaptive.aval + member __.renderDepth = _renderDepth_ :> FSharp.Data.Adaptive.aval + member __.verbose = _verbose_ :> FSharp.Data.Adaptive.aval +[] +module SnapshotAppLenses = + type SnapshotApp<'model, 'aModel, 'msg> with + static member mutableApp_ = ((fun (self : SnapshotApp<'model, 'aModel, 'msg>) -> self.mutableApp), (fun (value : Aardvark.UI.MutableApp<'model, 'msg>) (self : SnapshotApp<'model, 'aModel, 'msg>) -> { self with mutableApp = value })) + static member adaptiveModel_ = ((fun (self : SnapshotApp<'model, 'aModel, 'msg>) -> self.adaptiveModel), (fun (value : 'aModel) (self : SnapshotApp<'model, 'aModel, 'msg>) -> { self with adaptiveModel = value })) + static member sg_ = ((fun (self : SnapshotApp<'model, 'aModel, 'msg>) -> self.sg), (fun (value : Aardvark.SceneGraph.ISg) (self : SnapshotApp<'model, 'aModel, 'msg>) -> { self with sg = value })) + static member snapshotAnimation_ = ((fun (self : SnapshotApp<'model, 'aModel, 'msg>) -> self.snapshotAnimation), (fun (value : SnapshotAnimation) (self : SnapshotApp<'model, 'aModel, 'msg>) -> { self with snapshotAnimation = value })) + static member getAnimationActions_ = ((fun (self : SnapshotApp<'model, 'aModel, 'msg>) -> self.getAnimationActions), (fun (value : SnapshotAnimation -> Microsoft.FSharp.Collections.seq<'msg>) (self : SnapshotApp<'model, 'aModel, 'msg>) -> { self with getAnimationActions = value })) + static member getSnapshotActions_ = ((fun (self : SnapshotApp<'model, 'aModel, 'msg>) -> self.getSnapshotActions), (fun (value : Snapshot -> NearFarRecalculation -> Microsoft.FSharp.Core.string -> Microsoft.FSharp.Collections.seq<'msg>) (self : SnapshotApp<'model, 'aModel, 'msg>) -> { self with getSnapshotActions = value })) + static member runtime_ = ((fun (self : SnapshotApp<'model, 'aModel, 'msg>) -> self.runtime), (fun (value : Aardvark.Rendering.IRuntime) (self : SnapshotApp<'model, 'aModel, 'msg>) -> { self with runtime = value })) + static member renderRange_ = ((fun (self : SnapshotApp<'model, 'aModel, 'msg>) -> self.renderRange), (fun (value : Microsoft.FSharp.Core.option) (self : SnapshotApp<'model, 'aModel, 'msg>) -> { self with renderRange = value })) + static member outputFolder_ = ((fun (self : SnapshotApp<'model, 'aModel, 'msg>) -> self.outputFolder), (fun (value : Microsoft.FSharp.Core.string) (self : SnapshotApp<'model, 'aModel, 'msg>) -> { self with outputFolder = value })) + static member renderMask_ = ((fun (self : SnapshotApp<'model, 'aModel, 'msg>) -> self.renderMask), (fun (value : Microsoft.FSharp.Core.bool) (self : SnapshotApp<'model, 'aModel, 'msg>) -> { self with renderMask = value })) + static member renderDepth_ = ((fun (self : SnapshotApp<'model, 'aModel, 'msg>) -> self.renderDepth), (fun (value : Microsoft.FSharp.Core.bool) (self : SnapshotApp<'model, 'aModel, 'msg>) -> { self with renderDepth = value })) + static member verbose_ = ((fun (self : SnapshotApp<'model, 'aModel, 'msg>) -> self.verbose), (fun (value : Microsoft.FSharp.Core.bool) (self : SnapshotApp<'model, 'aModel, 'msg>) -> { self with verbose = value })) + diff --git a/src/PRo3D.SimulatedViews/Snapshots/SnapshotSettings-Model.g.fs b/src/PRo3D.SimulatedViews/Snapshots/SnapshotSettings-Model.g.fs new file mode 100644 index 00000000..7338740b --- /dev/null +++ b/src/PRo3D.SimulatedViews/Snapshots/SnapshotSettings-Model.g.fs @@ -0,0 +1,47 @@ +//4ecced35-ec41-e50c-2438-6ec981b816c2 +//f9ed43ba-8f35-9076-9996-f992f2403b49 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.SimulatedViews + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.SimulatedViews +[] +type AdaptiveSnapshotSettings(value : SnapshotSettings) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _numSnapshots_ = Aardvark.UI.AdaptiveNumericInput(value.numSnapshots) + let _fieldOfView_ = Aardvark.UI.AdaptiveNumericInput(value.fieldOfView) + let _renderMask_ = FSharp.Data.Adaptive.cval(value.renderMask) + let _useObjectPlacements_ = FSharp.Data.Adaptive.cval(value.useObjectPlacements) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SnapshotSettings) = AdaptiveSnapshotSettings(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SnapshotSettings) -> AdaptiveSnapshotSettings(value)) (fun (adaptive : AdaptiveSnapshotSettings) (value : SnapshotSettings) -> adaptive.Update(value)) + member __.Update(value : SnapshotSettings) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _numSnapshots_.Update(value.numSnapshots) + _fieldOfView_.Update(value.fieldOfView) + _renderMask_.Value <- value.renderMask + _useObjectPlacements_.Value <- value.useObjectPlacements + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.numSnapshots = _numSnapshots_ + member __.fieldOfView = _fieldOfView_ + member __.renderMask = _renderMask_ :> FSharp.Data.Adaptive.aval> + member __.useObjectPlacements = _useObjectPlacements_ :> FSharp.Data.Adaptive.aval +[] +module SnapshotSettingsLenses = + type SnapshotSettings with + static member version_ = ((fun (self : SnapshotSettings) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : SnapshotSettings) -> { self with version = value })) + static member numSnapshots_ = ((fun (self : SnapshotSettings) -> self.numSnapshots), (fun (value : Aardvark.UI.NumericInput) (self : SnapshotSettings) -> { self with numSnapshots = value })) + static member fieldOfView_ = ((fun (self : SnapshotSettings) -> self.fieldOfView), (fun (value : Aardvark.UI.NumericInput) (self : SnapshotSettings) -> { self with fieldOfView = value })) + static member renderMask_ = ((fun (self : SnapshotSettings) -> self.renderMask), (fun (value : Microsoft.FSharp.Core.option) (self : SnapshotSettings) -> { self with renderMask = value })) + static member useObjectPlacements_ = ((fun (self : SnapshotSettings) -> self.useObjectPlacements), (fun (value : Microsoft.FSharp.Core.bool) (self : SnapshotSettings) -> { self with useObjectPlacements = value })) + diff --git a/src/PRo3D.SimulatedViews/Viewplanner/FootPrint-Model.g.fs b/src/PRo3D.SimulatedViews/Viewplanner/FootPrint-Model.g.fs new file mode 100644 index 00000000..48319028 --- /dev/null +++ b/src/PRo3D.SimulatedViews/Viewplanner/FootPrint-Model.g.fs @@ -0,0 +1,73 @@ +//0a5b8430-6b4e-861b-9040-a788cec5621f +//81f925df-c82e-e235-bcfe-289a46ea0551 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.FootPrint + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.FootPrint +[] +type AdaptiveSimulatedViewData(value : SimulatedViewData) = + let _fileInfo_ = FSharp.Data.Adaptive.cval(value.fileInfo) + let _calibration_ = FSharp.Data.Adaptive.cval(value.calibration) + let _acquisition_ = FSharp.Data.Adaptive.cval(value.acquisition) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SimulatedViewData) = AdaptiveSimulatedViewData(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SimulatedViewData) -> AdaptiveSimulatedViewData(value)) (fun (adaptive : AdaptiveSimulatedViewData) (value : SimulatedViewData) -> adaptive.Update(value)) + member __.Update(value : SimulatedViewData) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _fileInfo_.Value <- value.fileInfo + _calibration_.Value <- value.calibration + _acquisition_.Value <- value.acquisition + member __.Current = __adaptive + member __.fileInfo = _fileInfo_ :> FSharp.Data.Adaptive.aval + member __.calibration = _calibration_ :> FSharp.Data.Adaptive.aval + member __.acquisition = _acquisition_ :> FSharp.Data.Adaptive.aval +[] +module SimulatedViewDataLenses = + type SimulatedViewData with + static member fileInfo_ = ((fun (self : SimulatedViewData) -> self.fileInfo), (fun (value : FileInfo) (self : SimulatedViewData) -> { self with fileInfo = value })) + static member calibration_ = ((fun (self : SimulatedViewData) -> self.calibration), (fun (value : Calibration) (self : SimulatedViewData) -> { self with calibration = value })) + static member acquisition_ = ((fun (self : SimulatedViewData) -> self.acquisition), (fun (value : Acquisition) (self : SimulatedViewData) -> { self with acquisition = value })) +[] +type AdaptiveFootPrint(value : FootPrint) = + let _vpId_ = FSharp.Data.Adaptive.cval(value.vpId) + let _isVisible_ = FSharp.Data.Adaptive.cval(value.isVisible) + let _projectionMatrix_ = FSharp.Data.Adaptive.cval(value.projectionMatrix) + let _instViewMatrix_ = FSharp.Data.Adaptive.cval(value.instViewMatrix) + let _projTex_ = FSharp.Data.Adaptive.cval(value.projTex) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : FootPrint) = AdaptiveFootPrint(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : FootPrint) -> AdaptiveFootPrint(value)) (fun (adaptive : AdaptiveFootPrint) (value : FootPrint) -> adaptive.Update(value)) + member __.Update(value : FootPrint) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _vpId_.Value <- value.vpId + _isVisible_.Value <- value.isVisible + _projectionMatrix_.Value <- value.projectionMatrix + _instViewMatrix_.Value <- value.instViewMatrix + _projTex_.Value <- value.projTex + member __.Current = __adaptive + member __.vpId = _vpId_ :> FSharp.Data.Adaptive.aval> + member __.isVisible = _isVisible_ :> FSharp.Data.Adaptive.aval + member __.projectionMatrix = _projectionMatrix_ :> FSharp.Data.Adaptive.aval + member __.instViewMatrix = _instViewMatrix_ :> FSharp.Data.Adaptive.aval + member __.projTex = _projTex_ :> FSharp.Data.Adaptive.aval +[] +module FootPrintLenses = + type FootPrint with + static member vpId_ = ((fun (self : FootPrint) -> self.vpId), (fun (value : Microsoft.FSharp.Core.option) (self : FootPrint) -> { self with vpId = value })) + static member isVisible_ = ((fun (self : FootPrint) -> self.isVisible), (fun (value : Microsoft.FSharp.Core.bool) (self : FootPrint) -> { self with isVisible = value })) + static member projectionMatrix_ = ((fun (self : FootPrint) -> self.projectionMatrix), (fun (value : Aardvark.Base.M44d) (self : FootPrint) -> { self with projectionMatrix = value })) + static member instViewMatrix_ = ((fun (self : FootPrint) -> self.instViewMatrix), (fun (value : Aardvark.Base.M44d) (self : FootPrint) -> { self with instViewMatrix = value })) + static member projTex_ = ((fun (self : FootPrint) -> self.projTex), (fun (value : Aardvark.Rendering.ITexture) (self : FootPrint) -> { self with projTex = value })) + diff --git a/src/PRo3D.SimulatedViews/Viewplanner/Rover-Model.g.fs b/src/PRo3D.SimulatedViews/Viewplanner/Rover-Model.g.fs new file mode 100644 index 00000000..5adb5c24 --- /dev/null +++ b/src/PRo3D.SimulatedViews/Viewplanner/Rover-Model.g.fs @@ -0,0 +1,413 @@ +//f46a455d-d47f-b065-e7f1-384d52161b0f +//1f7ec80a-a614-bacc-acf4-b9da52f986d9 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.SimulatedViews + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.SimulatedViews +[] +type AdaptiveExtrinsics(value : Extrinsics) = + let _position_ = FSharp.Data.Adaptive.cval(value.position) + let _camUp_ = FSharp.Data.Adaptive.cval(value.camUp) + let _camLookAt_ = FSharp.Data.Adaptive.cval(value.camLookAt) + let _box_ = FSharp.Data.Adaptive.cval(value.box) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Extrinsics) = AdaptiveExtrinsics(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Extrinsics) -> AdaptiveExtrinsics(value)) (fun (adaptive : AdaptiveExtrinsics) (value : Extrinsics) -> adaptive.Update(value)) + member __.Update(value : Extrinsics) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _position_.Value <- value.position + _camUp_.Value <- value.camUp + _camLookAt_.Value <- value.camLookAt + _box_.Value <- value.box + member __.Current = __adaptive + member __.position = _position_ :> FSharp.Data.Adaptive.aval + member __.camUp = _camUp_ :> FSharp.Data.Adaptive.aval + member __.camLookAt = _camLookAt_ :> FSharp.Data.Adaptive.aval + member __.box = _box_ :> FSharp.Data.Adaptive.aval +[] +module ExtrinsicsLenses = + type Extrinsics with + static member position_ = ((fun (self : Extrinsics) -> self.position), (fun (value : Aardvark.Base.V3d) (self : Extrinsics) -> { self with position = value })) + static member camUp_ = ((fun (self : Extrinsics) -> self.camUp), (fun (value : Aardvark.Base.V3d) (self : Extrinsics) -> { self with camUp = value })) + static member camLookAt_ = ((fun (self : Extrinsics) -> self.camLookAt), (fun (value : Aardvark.Base.V3d) (self : Extrinsics) -> { self with camLookAt = value })) + static member box_ = ((fun (self : Extrinsics) -> self.box), (fun (value : Aardvark.Base.Box3d) (self : Extrinsics) -> { self with box = value })) +[] +type AdaptiveInstrument(value : Instrument) = + let _id_ = FSharp.Data.Adaptive.cval(value.id) + let _iType_ = FSharp.Data.Adaptive.cval(value.iType) + let _calibratedFocalLengths_ = FSharp.Data.Adaptive.cval(value.calibratedFocalLengths) + let _focal_ = Aardvark.UI.AdaptiveNumericInput(value.focal) + let _intrinsics_ = FSharp.Data.Adaptive.cval(value.intrinsics) + let _extrinsics_ = AdaptiveExtrinsics(value.extrinsics) + let _index_ = FSharp.Data.Adaptive.cval(value.index) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Instrument) = AdaptiveInstrument(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Instrument) -> AdaptiveInstrument(value)) (fun (adaptive : AdaptiveInstrument) (value : Instrument) -> adaptive.Update(value)) + member __.Update(value : Instrument) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _id_.Value <- value.id + _iType_.Value <- value.iType + _calibratedFocalLengths_.Value <- value.calibratedFocalLengths + _focal_.Update(value.focal) + _intrinsics_.Value <- value.intrinsics + _extrinsics_.Update(value.extrinsics) + _index_.Value <- value.index + member __.Current = __adaptive + member __.id = _id_ :> FSharp.Data.Adaptive.aval + member __.iType = _iType_ :> FSharp.Data.Adaptive.aval + member __.calibratedFocalLengths = _calibratedFocalLengths_ :> FSharp.Data.Adaptive.aval> + member __.focal = _focal_ + member __.intrinsics = _intrinsics_ :> FSharp.Data.Adaptive.aval + member __.extrinsics = _extrinsics_ + member __.index = _index_ :> FSharp.Data.Adaptive.aval +[] +module InstrumentLenses = + type Instrument with + static member id_ = ((fun (self : Instrument) -> self.id), (fun (value : Microsoft.FSharp.Core.string) (self : Instrument) -> { self with id = value })) + static member iType_ = ((fun (self : Instrument) -> self.iType), (fun (value : InstrumentType) (self : Instrument) -> { self with iType = value })) + static member calibratedFocalLengths_ = ((fun (self : Instrument) -> self.calibratedFocalLengths), (fun (value : Microsoft.FSharp.Collections.list) (self : Instrument) -> { self with calibratedFocalLengths = value })) + static member focal_ = ((fun (self : Instrument) -> self.focal), (fun (value : Aardvark.UI.NumericInput) (self : Instrument) -> { self with focal = value })) + static member intrinsics_ = ((fun (self : Instrument) -> self.intrinsics), (fun (value : Intrinsics) (self : Instrument) -> { self with intrinsics = value })) + static member extrinsics_ = ((fun (self : Instrument) -> self.extrinsics), (fun (value : Extrinsics) (self : Instrument) -> { self with extrinsics = value })) + static member index_ = ((fun (self : Instrument) -> self.index), (fun (value : Microsoft.FSharp.Core.int) (self : Instrument) -> { self with index = value })) +[] +type AdaptiveAxis(value : Axis) = + let _id_ = FSharp.Data.Adaptive.cval(value.id) + let _description_ = FSharp.Data.Adaptive.cval(value.description) + let _startPoint_ = FSharp.Data.Adaptive.cval(value.startPoint) + let _endPoint_ = FSharp.Data.Adaptive.cval(value.endPoint) + let _index_ = FSharp.Data.Adaptive.cval(value.index) + let _angle_ = Aardvark.UI.AdaptiveNumericInput(value.angle) + let _degreesMapped_ = FSharp.Data.Adaptive.cval(value.degreesMapped) + let _degreesNegated_ = FSharp.Data.Adaptive.cval(value.degreesNegated) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Axis) = AdaptiveAxis(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Axis) -> AdaptiveAxis(value)) (fun (adaptive : AdaptiveAxis) (value : Axis) -> adaptive.Update(value)) + member __.Update(value : Axis) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _id_.Value <- value.id + _description_.Value <- value.description + _startPoint_.Value <- value.startPoint + _endPoint_.Value <- value.endPoint + _index_.Value <- value.index + _angle_.Update(value.angle) + _degreesMapped_.Value <- value.degreesMapped + _degreesNegated_.Value <- value.degreesNegated + member __.Current = __adaptive + member __.id = _id_ :> FSharp.Data.Adaptive.aval + member __.description = _description_ :> FSharp.Data.Adaptive.aval + member __.startPoint = _startPoint_ :> FSharp.Data.Adaptive.aval + member __.endPoint = _endPoint_ :> FSharp.Data.Adaptive.aval + member __.index = _index_ :> FSharp.Data.Adaptive.aval + member __.angle = _angle_ + member __.degreesMapped = _degreesMapped_ :> FSharp.Data.Adaptive.aval + member __.degreesNegated = _degreesNegated_ :> FSharp.Data.Adaptive.aval +[] +module AxisLenses = + type Axis with + static member id_ = ((fun (self : Axis) -> self.id), (fun (value : Microsoft.FSharp.Core.string) (self : Axis) -> { self with id = value })) + static member description_ = ((fun (self : Axis) -> self.description), (fun (value : Microsoft.FSharp.Core.string) (self : Axis) -> { self with description = value })) + static member startPoint_ = ((fun (self : Axis) -> self.startPoint), (fun (value : Aardvark.Base.V3d) (self : Axis) -> { self with startPoint = value })) + static member endPoint_ = ((fun (self : Axis) -> self.endPoint), (fun (value : Aardvark.Base.V3d) (self : Axis) -> { self with endPoint = value })) + static member index_ = ((fun (self : Axis) -> self.index), (fun (value : Microsoft.FSharp.Core.int) (self : Axis) -> { self with index = value })) + static member angle_ = ((fun (self : Axis) -> self.angle), (fun (value : Aardvark.UI.NumericInput) (self : Axis) -> { self with angle = value })) + static member degreesMapped_ = ((fun (self : Axis) -> self.degreesMapped), (fun (value : Microsoft.FSharp.Core.bool) (self : Axis) -> { self with degreesMapped = value })) + static member degreesNegated_ = ((fun (self : Axis) -> self.degreesNegated), (fun (value : Microsoft.FSharp.Core.bool) (self : Axis) -> { self with degreesNegated = value })) +[] +type AdaptiveRover(value : Rover) = + let _id_ = FSharp.Data.Adaptive.cval(value.id) + let _platform2Ground_ = FSharp.Data.Adaptive.cval(value.platform2Ground) + let _wheelPositions_ = FSharp.Data.Adaptive.cval(value.wheelPositions) + let _instruments_ = + let inline __arg2 (m : AdaptiveInstrument) (v : Instrument) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.instruments, (fun (v : Instrument) -> AdaptiveInstrument(v)), __arg2, (fun (m : AdaptiveInstrument) -> m)) + let _axes_ = + let inline __arg2 (m : AdaptiveAxis) (v : Axis) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.axes, (fun (v : Axis) -> AdaptiveAxis(v)), __arg2, (fun (m : AdaptiveAxis) -> m)) + let _box_ = FSharp.Data.Adaptive.cval(value.box) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Rover) = AdaptiveRover(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Rover) -> AdaptiveRover(value)) (fun (adaptive : AdaptiveRover) (value : Rover) -> adaptive.Update(value)) + member __.Update(value : Rover) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _id_.Value <- value.id + _platform2Ground_.Value <- value.platform2Ground + _wheelPositions_.Value <- value.wheelPositions + _instruments_.Update(value.instruments) + _axes_.Update(value.axes) + _box_.Value <- value.box + member __.Current = __adaptive + member __.id = _id_ :> FSharp.Data.Adaptive.aval + member __.platform2Ground = _platform2Ground_ :> FSharp.Data.Adaptive.aval + member __.wheelPositions = _wheelPositions_ :> FSharp.Data.Adaptive.aval> + member __.instruments = _instruments_ :> FSharp.Data.Adaptive.amap + member __.axes = _axes_ :> FSharp.Data.Adaptive.amap + member __.box = _box_ :> FSharp.Data.Adaptive.aval +[] +module RoverLenses = + type Rover with + static member id_ = ((fun (self : Rover) -> self.id), (fun (value : Microsoft.FSharp.Core.string) (self : Rover) -> { self with id = value })) + static member platform2Ground_ = ((fun (self : Rover) -> self.platform2Ground), (fun (value : Aardvark.Base.M44d) (self : Rover) -> { self with platform2Ground = value })) + static member wheelPositions_ = ((fun (self : Rover) -> self.wheelPositions), (fun (value : Microsoft.FSharp.Collections.list) (self : Rover) -> { self with wheelPositions = value })) + static member instruments_ = ((fun (self : Rover) -> self.instruments), (fun (value : FSharp.Data.Adaptive.HashMap) (self : Rover) -> { self with instruments = value })) + static member axes_ = ((fun (self : Rover) -> self.axes), (fun (value : FSharp.Data.Adaptive.HashMap) (self : Rover) -> { self with axes = value })) + static member box_ = ((fun (self : Rover) -> self.box), (fun (value : Aardvark.Base.Box3d) (self : Rover) -> { self with box = value })) +[] +type AdaptiveRoverModel(value : RoverModel) = + let _rovers_ = + let inline __arg2 (m : AdaptiveRover) (v : Rover) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.rovers, (fun (v : Rover) -> AdaptiveRover(v)), __arg2, (fun (m : AdaptiveRover) -> m)) + let _platforms_ = FSharp.Data.Adaptive.cmap(value.platforms) + let _selectedRover_ = + let inline __arg2 (o : System.Object) (v : Rover) = + (unbox o).Update(v) + o + let inline __arg5 (o : System.Object) (v : Rover) = + (unbox o).Update(v) + o + Adaptify.FSharp.Core.AdaptiveOption(value.selectedRover, (fun (v : Rover) -> AdaptiveRover(v) :> System.Object), __arg2, (fun (o : System.Object) -> unbox o), (fun (v : Rover) -> AdaptiveRover(v) :> System.Object), __arg5, (fun (o : System.Object) -> unbox o)) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : RoverModel) = AdaptiveRoverModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : RoverModel) -> AdaptiveRoverModel(value)) (fun (adaptive : AdaptiveRoverModel) (value : RoverModel) -> adaptive.Update(value)) + member __.Update(value : RoverModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _rovers_.Update(value.rovers) + _platforms_.Value <- value.platforms + _selectedRover_.Update(value.selectedRover) + member __.Current = __adaptive + member __.rovers = _rovers_ :> FSharp.Data.Adaptive.amap + member __.platforms = _platforms_ :> FSharp.Data.Adaptive.amap + member __.selectedRover = _selectedRover_ :> FSharp.Data.Adaptive.aval> +[] +module RoverModelLenses = + type RoverModel with + static member rovers_ = ((fun (self : RoverModel) -> self.rovers), (fun (value : FSharp.Data.Adaptive.HashMap) (self : RoverModel) -> { self with rovers = value })) + static member platforms_ = ((fun (self : RoverModel) -> self.platforms), (fun (value : FSharp.Data.Adaptive.HashMap) (self : RoverModel) -> { self with platforms = value })) + static member selectedRover_ = ((fun (self : RoverModel) -> self.selectedRover), (fun (value : Microsoft.FSharp.Core.option) (self : RoverModel) -> { self with selectedRover = value })) +[] +type AdaptiveSimulatedViewData(value : SimulatedViewData) = + let _fileInfo_ = FSharp.Data.Adaptive.cval(value.fileInfo) + let _calibration_ = FSharp.Data.Adaptive.cval(value.calibration) + let _acquisition_ = FSharp.Data.Adaptive.cval(value.acquisition) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SimulatedViewData) = AdaptiveSimulatedViewData(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SimulatedViewData) -> AdaptiveSimulatedViewData(value)) (fun (adaptive : AdaptiveSimulatedViewData) (value : SimulatedViewData) -> adaptive.Update(value)) + member __.Update(value : SimulatedViewData) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _fileInfo_.Value <- value.fileInfo + _calibration_.Value <- value.calibration + _acquisition_.Value <- value.acquisition + member __.Current = __adaptive + member __.fileInfo = _fileInfo_ :> FSharp.Data.Adaptive.aval + member __.calibration = _calibration_ :> FSharp.Data.Adaptive.aval + member __.acquisition = _acquisition_ :> FSharp.Data.Adaptive.aval +[] +module SimulatedViewDataLenses = + type SimulatedViewData with + static member fileInfo_ = ((fun (self : SimulatedViewData) -> self.fileInfo), (fun (value : FileInfo) (self : SimulatedViewData) -> { self with fileInfo = value })) + static member calibration_ = ((fun (self : SimulatedViewData) -> self.calibration), (fun (value : Calibration) (self : SimulatedViewData) -> { self with calibration = value })) + static member acquisition_ = ((fun (self : SimulatedViewData) -> self.acquisition), (fun (value : Acquisition) (self : SimulatedViewData) -> { self with acquisition = value })) +[] +type AdaptiveFootPrint(value : FootPrint) = + let _vpId_ = FSharp.Data.Adaptive.cval(value.vpId) + let _isVisible_ = FSharp.Data.Adaptive.cval(value.isVisible) + let _projectionMatrix_ = FSharp.Data.Adaptive.cval(value.projectionMatrix) + let _instViewMatrix_ = FSharp.Data.Adaptive.cval(value.instViewMatrix) + let _projTex_ = FSharp.Data.Adaptive.cval(value.projTex) + let _globalToLocalPos_ = FSharp.Data.Adaptive.cval(value.globalToLocalPos) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : FootPrint) = AdaptiveFootPrint(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : FootPrint) -> AdaptiveFootPrint(value)) (fun (adaptive : AdaptiveFootPrint) (value : FootPrint) -> adaptive.Update(value)) + member __.Update(value : FootPrint) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _vpId_.Value <- value.vpId + _isVisible_.Value <- value.isVisible + _projectionMatrix_.Value <- value.projectionMatrix + _instViewMatrix_.Value <- value.instViewMatrix + _projTex_.Value <- value.projTex + _globalToLocalPos_.Value <- value.globalToLocalPos + member __.Current = __adaptive + member __.vpId = _vpId_ :> FSharp.Data.Adaptive.aval> + member __.isVisible = _isVisible_ :> FSharp.Data.Adaptive.aval + member __.projectionMatrix = _projectionMatrix_ :> FSharp.Data.Adaptive.aval + member __.instViewMatrix = _instViewMatrix_ :> FSharp.Data.Adaptive.aval + member __.projTex = _projTex_ :> FSharp.Data.Adaptive.aval + member __.globalToLocalPos = _globalToLocalPos_ :> FSharp.Data.Adaptive.aval +[] +module FootPrintLenses = + type FootPrint with + static member vpId_ = ((fun (self : FootPrint) -> self.vpId), (fun (value : Microsoft.FSharp.Core.option) (self : FootPrint) -> { self with vpId = value })) + static member isVisible_ = ((fun (self : FootPrint) -> self.isVisible), (fun (value : Microsoft.FSharp.Core.bool) (self : FootPrint) -> { self with isVisible = value })) + static member projectionMatrix_ = ((fun (self : FootPrint) -> self.projectionMatrix), (fun (value : Aardvark.Base.M44d) (self : FootPrint) -> { self with projectionMatrix = value })) + static member instViewMatrix_ = ((fun (self : FootPrint) -> self.instViewMatrix), (fun (value : Aardvark.Base.M44d) (self : FootPrint) -> { self with instViewMatrix = value })) + static member projTex_ = ((fun (self : FootPrint) -> self.projTex), (fun (value : Aardvark.Rendering.ITexture) (self : FootPrint) -> { self with projTex = value })) + static member globalToLocalPos_ = ((fun (self : FootPrint) -> self.globalToLocalPos), (fun (value : Aardvark.Base.V3d) (self : FootPrint) -> { self with globalToLocalPos = value })) +[] +type AdaptiveViewPlan(value : ViewPlan) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _name_ = FSharp.Data.Adaptive.cval(value.name) + let _position_ = FSharp.Data.Adaptive.cval(value.position) + let _lookAt_ = FSharp.Data.Adaptive.cval(value.lookAt) + let _viewerState_ = FSharp.Data.Adaptive.cval(value.viewerState) + let _vectorsVisible_ = FSharp.Data.Adaptive.cval(value.vectorsVisible) + let _rover_ = AdaptiveRover(value.rover) + let _roverTrafo_ = FSharp.Data.Adaptive.cval(value.roverTrafo) + let _isVisible_ = FSharp.Data.Adaptive.cval(value.isVisible) + let _selectedInstrument_ = + let inline __arg2 (o : System.Object) (v : Instrument) = + (unbox o).Update(v) + o + let inline __arg5 (o : System.Object) (v : Instrument) = + (unbox o).Update(v) + o + Adaptify.FSharp.Core.AdaptiveOption(value.selectedInstrument, (fun (v : Instrument) -> AdaptiveInstrument(v) :> System.Object), __arg2, (fun (o : System.Object) -> unbox o), (fun (v : Instrument) -> AdaptiveInstrument(v) :> System.Object), __arg5, (fun (o : System.Object) -> unbox o)) + let _selectedAxis_ = + let inline __arg2 (o : System.Object) (v : Axis) = + (unbox o).Update(v) + o + let inline __arg5 (o : System.Object) (v : Axis) = + (unbox o).Update(v) + o + Adaptify.FSharp.Core.AdaptiveOption(value.selectedAxis, (fun (v : Axis) -> AdaptiveAxis(v) :> System.Object), __arg2, (fun (o : System.Object) -> unbox o), (fun (v : Axis) -> AdaptiveAxis(v) :> System.Object), __arg5, (fun (o : System.Object) -> unbox o)) + let _currentAngle_ = Aardvark.UI.AdaptiveNumericInput(value.currentAngle) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ViewPlan) = AdaptiveViewPlan(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ViewPlan) -> AdaptiveViewPlan(value)) (fun (adaptive : AdaptiveViewPlan) (value : ViewPlan) -> adaptive.Update(value)) + member __.Update(value : ViewPlan) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _name_.Value <- value.name + _position_.Value <- value.position + _lookAt_.Value <- value.lookAt + _viewerState_.Value <- value.viewerState + _vectorsVisible_.Value <- value.vectorsVisible + _rover_.Update(value.rover) + _roverTrafo_.Value <- value.roverTrafo + _isVisible_.Value <- value.isVisible + _selectedInstrument_.Update(value.selectedInstrument) + _selectedAxis_.Update(value.selectedAxis) + _currentAngle_.Update(value.currentAngle) + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.id = __value.id + member __.name = _name_ :> FSharp.Data.Adaptive.aval + member __.position = _position_ :> FSharp.Data.Adaptive.aval + member __.lookAt = _lookAt_ :> FSharp.Data.Adaptive.aval + member __.viewerState = _viewerState_ :> FSharp.Data.Adaptive.aval + member __.vectorsVisible = _vectorsVisible_ :> FSharp.Data.Adaptive.aval + member __.rover = _rover_ + member __.roverTrafo = _roverTrafo_ :> FSharp.Data.Adaptive.aval + member __.isVisible = _isVisible_ :> FSharp.Data.Adaptive.aval + member __.selectedInstrument = _selectedInstrument_ :> FSharp.Data.Adaptive.aval> + member __.selectedAxis = _selectedAxis_ :> FSharp.Data.Adaptive.aval> + member __.currentAngle = _currentAngle_ +[] +module ViewPlanLenses = + type ViewPlan with + static member version_ = ((fun (self : ViewPlan) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : ViewPlan) -> { self with version = value })) + static member id_ = ((fun (self : ViewPlan) -> self.id), (fun (value : System.Guid) (self : ViewPlan) -> { self with id = value })) + static member name_ = ((fun (self : ViewPlan) -> self.name), (fun (value : Microsoft.FSharp.Core.string) (self : ViewPlan) -> { self with name = value })) + static member position_ = ((fun (self : ViewPlan) -> self.position), (fun (value : Aardvark.Base.V3d) (self : ViewPlan) -> { self with position = value })) + static member lookAt_ = ((fun (self : ViewPlan) -> self.lookAt), (fun (value : Aardvark.Base.V3d) (self : ViewPlan) -> { self with lookAt = value })) + static member viewerState_ = ((fun (self : ViewPlan) -> self.viewerState), (fun (value : Aardvark.Rendering.CameraView) (self : ViewPlan) -> { self with viewerState = value })) + static member vectorsVisible_ = ((fun (self : ViewPlan) -> self.vectorsVisible), (fun (value : Microsoft.FSharp.Core.bool) (self : ViewPlan) -> { self with vectorsVisible = value })) + static member rover_ = ((fun (self : ViewPlan) -> self.rover), (fun (value : Rover) (self : ViewPlan) -> { self with rover = value })) + static member roverTrafo_ = ((fun (self : ViewPlan) -> self.roverTrafo), (fun (value : Aardvark.Base.Trafo3d) (self : ViewPlan) -> { self with roverTrafo = value })) + static member isVisible_ = ((fun (self : ViewPlan) -> self.isVisible), (fun (value : Microsoft.FSharp.Core.bool) (self : ViewPlan) -> { self with isVisible = value })) + static member selectedInstrument_ = ((fun (self : ViewPlan) -> self.selectedInstrument), (fun (value : Microsoft.FSharp.Core.option) (self : ViewPlan) -> { self with selectedInstrument = value })) + static member selectedAxis_ = ((fun (self : ViewPlan) -> self.selectedAxis), (fun (value : Microsoft.FSharp.Core.option) (self : ViewPlan) -> { self with selectedAxis = value })) + static member currentAngle_ = ((fun (self : ViewPlan) -> self.currentAngle), (fun (value : Aardvark.UI.NumericInput) (self : ViewPlan) -> { self with currentAngle = value })) +[] +type AdaptiveViewPlanModel(value : ViewPlanModel) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _viewPlans_ = + let inline __arg2 (m : AdaptiveViewPlan) (v : ViewPlan) = + m.Update(v) + m + FSharp.Data.Traceable.ChangeableModelMap(value.viewPlans, (fun (v : ViewPlan) -> AdaptiveViewPlan(v)), __arg2, (fun (m : AdaptiveViewPlan) -> m)) + let _selectedViewPlan_ = + let inline __arg2 (o : System.Object) (v : ViewPlan) = + (unbox o).Update(v) + o + let inline __arg5 (o : System.Object) (v : ViewPlan) = + (unbox o).Update(v) + o + Adaptify.FSharp.Core.AdaptiveOption(value.selectedViewPlan, (fun (v : ViewPlan) -> AdaptiveViewPlan(v) :> System.Object), __arg2, (fun (o : System.Object) -> unbox o), (fun (v : ViewPlan) -> AdaptiveViewPlan(v) :> System.Object), __arg5, (fun (o : System.Object) -> unbox o)) + let _working_ = FSharp.Data.Adaptive.cval(value.working) + let _roverModel_ = AdaptiveRoverModel(value.roverModel) + let _instrumentCam_ = FSharp.Data.Adaptive.cval(value.instrumentCam) + let _instrumentFrustum_ = FSharp.Data.Adaptive.cval(value.instrumentFrustum) + let _footPrint_ = AdaptiveFootPrint(value.footPrint) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ViewPlanModel) = AdaptiveViewPlanModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ViewPlanModel) -> AdaptiveViewPlanModel(value)) (fun (adaptive : AdaptiveViewPlanModel) (value : ViewPlanModel) -> adaptive.Update(value)) + member __.Update(value : ViewPlanModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _viewPlans_.Update(value.viewPlans) + _selectedViewPlan_.Update(value.selectedViewPlan) + _working_.Value <- value.working + _roverModel_.Update(value.roverModel) + _instrumentCam_.Value <- value.instrumentCam + _instrumentFrustum_.Value <- value.instrumentFrustum + _footPrint_.Update(value.footPrint) + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.viewPlans = _viewPlans_ :> FSharp.Data.Adaptive.amap + member __.selectedViewPlan = _selectedViewPlan_ :> FSharp.Data.Adaptive.aval> + member __.working = _working_ :> FSharp.Data.Adaptive.aval> + member __.roverModel = _roverModel_ + member __.instrumentCam = _instrumentCam_ :> FSharp.Data.Adaptive.aval + member __.instrumentFrustum = _instrumentFrustum_ :> FSharp.Data.Adaptive.aval + member __.footPrint = _footPrint_ +[] +module ViewPlanModelLenses = + type ViewPlanModel with + static member version_ = ((fun (self : ViewPlanModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : ViewPlanModel) -> { self with version = value })) + static member viewPlans_ = ((fun (self : ViewPlanModel) -> self.viewPlans), (fun (value : FSharp.Data.Adaptive.HashMap) (self : ViewPlanModel) -> { self with viewPlans = value })) + static member selectedViewPlan_ = ((fun (self : ViewPlanModel) -> self.selectedViewPlan), (fun (value : Microsoft.FSharp.Core.Option) (self : ViewPlanModel) -> { self with selectedViewPlan = value })) + static member working_ = ((fun (self : ViewPlanModel) -> self.working), (fun (value : Microsoft.FSharp.Collections.list) (self : ViewPlanModel) -> { self with working = value })) + static member roverModel_ = ((fun (self : ViewPlanModel) -> self.roverModel), (fun (value : RoverModel) (self : ViewPlanModel) -> { self with roverModel = value })) + static member instrumentCam_ = ((fun (self : ViewPlanModel) -> self.instrumentCam), (fun (value : Aardvark.Rendering.CameraView) (self : ViewPlanModel) -> { self with instrumentCam = value })) + static member instrumentFrustum_ = ((fun (self : ViewPlanModel) -> self.instrumentFrustum), (fun (value : Aardvark.Rendering.Frustum) (self : ViewPlanModel) -> { self with instrumentFrustum = value })) + static member footPrint_ = ((fun (self : ViewPlanModel) -> self.footPrint), (fun (value : FootPrint) (self : ViewPlanModel) -> { self with footPrint = value })) + diff --git a/src/PRo3D.Viewer/Models/Model.g.fs b/src/PRo3D.Viewer/Models/Model.g.fs new file mode 100644 index 00000000..1629453f --- /dev/null +++ b/src/PRo3D.Viewer/Models/Model.g.fs @@ -0,0 +1,177 @@ +//2ef1cb93-aefb-a2e8-fd54-49b0a45d2cd9 +//22027587-635f-7aca-c676-eb4b7ef489a7 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D +[] +type AdaptiveStatistics(value : Statistics) = + let _average_ = FSharp.Data.Adaptive.cval(value.average) + let _min_ = FSharp.Data.Adaptive.cval(value.min) + let _max_ = FSharp.Data.Adaptive.cval(value.max) + let _stdev_ = FSharp.Data.Adaptive.cval(value.stdev) + let _sumOfSquares_ = FSharp.Data.Adaptive.cval(value.sumOfSquares) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Statistics) = AdaptiveStatistics(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Statistics) -> AdaptiveStatistics(value)) (fun (adaptive : AdaptiveStatistics) (value : Statistics) -> adaptive.Update(value)) + member __.Update(value : Statistics) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _average_.Value <- value.average + _min_.Value <- value.min + _max_.Value <- value.max + _stdev_.Value <- value.stdev + _sumOfSquares_.Value <- value.sumOfSquares + member __.Current = __adaptive + member __.average = _average_ :> FSharp.Data.Adaptive.aval + member __.min = _min_ :> FSharp.Data.Adaptive.aval + member __.max = _max_ :> FSharp.Data.Adaptive.aval + member __.stdev = _stdev_ :> FSharp.Data.Adaptive.aval + member __.sumOfSquares = _sumOfSquares_ :> FSharp.Data.Adaptive.aval +[] +module StatisticsLenses = + type Statistics with + static member average_ = ((fun (self : Statistics) -> self.average), (fun (value : Microsoft.FSharp.Core.float) (self : Statistics) -> { self with average = value })) + static member min_ = ((fun (self : Statistics) -> self.min), (fun (value : Microsoft.FSharp.Core.float) (self : Statistics) -> { self with min = value })) + static member max_ = ((fun (self : Statistics) -> self.max), (fun (value : Microsoft.FSharp.Core.float) (self : Statistics) -> { self with max = value })) + static member stdev_ = ((fun (self : Statistics) -> self.stdev), (fun (value : Microsoft.FSharp.Core.float) (self : Statistics) -> { self with stdev = value })) + static member sumOfSquares_ = ((fun (self : Statistics) -> self.sumOfSquares), (fun (value : Microsoft.FSharp.Core.float) (self : Statistics) -> { self with sumOfSquares = value })) +[] +type AdaptiveOrientationCubeModel(value : OrientationCubeModel) = + let _camera_ = Aardvark.UI.Primitives.AdaptiveCameraControllerState(value.camera) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : OrientationCubeModel) = AdaptiveOrientationCubeModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : OrientationCubeModel) -> AdaptiveOrientationCubeModel(value)) (fun (adaptive : AdaptiveOrientationCubeModel) (value : OrientationCubeModel) -> adaptive.Update(value)) + member __.Update(value : OrientationCubeModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _camera_.Update(value.camera) + member __.Current = __adaptive + member __.camera = _camera_ +[] +module OrientationCubeModelLenses = + type OrientationCubeModel with + static member camera_ = ((fun (self : OrientationCubeModel) -> self.camera), (fun (value : Aardvark.UI.Primitives.CameraControllerState) (self : OrientationCubeModel) -> { self with camera = value })) +[] +type AdaptivePathProxy(value : PathProxy) = + let _absolutePath_ = FSharp.Data.Adaptive.cval(value.absolutePath) + let _relativePath_ = FSharp.Data.Adaptive.cval(value.relativePath) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : PathProxy) = AdaptivePathProxy(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : PathProxy) -> AdaptivePathProxy(value)) (fun (adaptive : AdaptivePathProxy) (value : PathProxy) -> adaptive.Update(value)) + member __.Update(value : PathProxy) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _absolutePath_.Value <- value.absolutePath + _relativePath_.Value <- value.relativePath + member __.Current = __adaptive + member __.absolutePath = _absolutePath_ :> FSharp.Data.Adaptive.aval> + member __.relativePath = _relativePath_ :> FSharp.Data.Adaptive.aval> +[] +module PathProxyLenses = + type PathProxy with + static member absolutePath_ = ((fun (self : PathProxy) -> self.absolutePath), (fun (value : Microsoft.FSharp.Core.option) (self : PathProxy) -> { self with absolutePath = value })) + static member relativePath_ = ((fun (self : PathProxy) -> self.relativePath), (fun (value : Microsoft.FSharp.Core.option) (self : PathProxy) -> { self with relativePath = value })) +[] +type AdaptiveViewConfigModel(value : ViewConfigModel) = + let _nearPlane_ = Aardvark.UI.AdaptiveNumericInput(value.nearPlane) + let _farPlane_ = Aardvark.UI.AdaptiveNumericInput(value.farPlane) + let _navigationSensitivity_ = Aardvark.UI.AdaptiveNumericInput(value.navigationSensitivity) + let _importTriangleSize_ = Aardvark.UI.AdaptiveNumericInput(value.importTriangleSize) + let _arrowLength_ = Aardvark.UI.AdaptiveNumericInput(value.arrowLength) + let _arrowThickness_ = Aardvark.UI.AdaptiveNumericInput(value.arrowThickness) + let _dnsPlaneSize_ = Aardvark.UI.AdaptiveNumericInput(value.dnsPlaneSize) + let _offset_ = Aardvark.UI.AdaptiveNumericInput(value.offset) + let _pickingTolerance_ = Aardvark.UI.AdaptiveNumericInput(value.pickingTolerance) + let _lodColoring_ = FSharp.Data.Adaptive.cval(value.lodColoring) + let _drawOrientationCube_ = FSharp.Data.Adaptive.cval(value.drawOrientationCube) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : ViewConfigModel) = AdaptiveViewConfigModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : ViewConfigModel) -> AdaptiveViewConfigModel(value)) (fun (adaptive : AdaptiveViewConfigModel) (value : ViewConfigModel) -> adaptive.Update(value)) + member __.Update(value : ViewConfigModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _nearPlane_.Update(value.nearPlane) + _farPlane_.Update(value.farPlane) + _navigationSensitivity_.Update(value.navigationSensitivity) + _importTriangleSize_.Update(value.importTriangleSize) + _arrowLength_.Update(value.arrowLength) + _arrowThickness_.Update(value.arrowThickness) + _dnsPlaneSize_.Update(value.dnsPlaneSize) + _offset_.Update(value.offset) + _pickingTolerance_.Update(value.pickingTolerance) + _lodColoring_.Value <- value.lodColoring + _drawOrientationCube_.Value <- value.drawOrientationCube + member __.Current = __adaptive + member __.version = __value.version + member __.nearPlane = _nearPlane_ + member __.farPlane = _farPlane_ + member __.navigationSensitivity = _navigationSensitivity_ + member __.importTriangleSize = _importTriangleSize_ + member __.arrowLength = _arrowLength_ + member __.arrowThickness = _arrowThickness_ + member __.dnsPlaneSize = _dnsPlaneSize_ + member __.offset = _offset_ + member __.pickingTolerance = _pickingTolerance_ + member __.lodColoring = _lodColoring_ :> FSharp.Data.Adaptive.aval + member __.drawOrientationCube = _drawOrientationCube_ :> FSharp.Data.Adaptive.aval +[] +module ViewConfigModelLenses = + type ViewConfigModel with + static member version_ = ((fun (self : ViewConfigModel) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : ViewConfigModel) -> { self with version = value })) + static member nearPlane_ = ((fun (self : ViewConfigModel) -> self.nearPlane), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with nearPlane = value })) + static member farPlane_ = ((fun (self : ViewConfigModel) -> self.farPlane), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with farPlane = value })) + static member navigationSensitivity_ = ((fun (self : ViewConfigModel) -> self.navigationSensitivity), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with navigationSensitivity = value })) + static member importTriangleSize_ = ((fun (self : ViewConfigModel) -> self.importTriangleSize), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with importTriangleSize = value })) + static member arrowLength_ = ((fun (self : ViewConfigModel) -> self.arrowLength), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with arrowLength = value })) + static member arrowThickness_ = ((fun (self : ViewConfigModel) -> self.arrowThickness), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with arrowThickness = value })) + static member dnsPlaneSize_ = ((fun (self : ViewConfigModel) -> self.dnsPlaneSize), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with dnsPlaneSize = value })) + static member offset_ = ((fun (self : ViewConfigModel) -> self.offset), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with offset = value })) + static member pickingTolerance_ = ((fun (self : ViewConfigModel) -> self.pickingTolerance), (fun (value : Aardvark.UI.NumericInput) (self : ViewConfigModel) -> { self with pickingTolerance = value })) + static member lodColoring_ = ((fun (self : ViewConfigModel) -> self.lodColoring), (fun (value : Microsoft.FSharp.Core.bool) (self : ViewConfigModel) -> { self with lodColoring = value })) + static member drawOrientationCube_ = ((fun (self : ViewConfigModel) -> self.drawOrientationCube), (fun (value : Microsoft.FSharp.Core.bool) (self : ViewConfigModel) -> { self with drawOrientationCube = value })) +[] +type AdaptiveFrustumModel(value : FrustumModel) = + let _toggleFocal_ = FSharp.Data.Adaptive.cval(value.toggleFocal) + let _focal_ = Aardvark.UI.AdaptiveNumericInput(value.focal) + let _oldFrustum_ = FSharp.Data.Adaptive.cval(value.oldFrustum) + let _frustum_ = FSharp.Data.Adaptive.cval(value.frustum) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : FrustumModel) = AdaptiveFrustumModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : FrustumModel) -> AdaptiveFrustumModel(value)) (fun (adaptive : AdaptiveFrustumModel) (value : FrustumModel) -> adaptive.Update(value)) + member __.Update(value : FrustumModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _toggleFocal_.Value <- value.toggleFocal + _focal_.Update(value.focal) + _oldFrustum_.Value <- value.oldFrustum + _frustum_.Value <- value.frustum + member __.Current = __adaptive + member __.toggleFocal = _toggleFocal_ :> FSharp.Data.Adaptive.aval + member __.focal = _focal_ + member __.oldFrustum = _oldFrustum_ :> FSharp.Data.Adaptive.aval + member __.frustum = _frustum_ :> FSharp.Data.Adaptive.aval +[] +module FrustumModelLenses = + type FrustumModel with + static member toggleFocal_ = ((fun (self : FrustumModel) -> self.toggleFocal), (fun (value : Microsoft.FSharp.Core.bool) (self : FrustumModel) -> { self with toggleFocal = value })) + static member focal_ = ((fun (self : FrustumModel) -> self.focal), (fun (value : Aardvark.UI.NumericInput) (self : FrustumModel) -> { self with focal = value })) + static member oldFrustum_ = ((fun (self : FrustumModel) -> self.oldFrustum), (fun (value : Aardvark.Rendering.Frustum) (self : FrustumModel) -> { self with oldFrustum = value })) + static member frustum_ = ((fun (self : FrustumModel) -> self.frustum), (fun (value : Aardvark.Rendering.Frustum) (self : FrustumModel) -> { self with frustum = value })) + diff --git a/src/PRo3D.Viewer/PRo3D.Viewer.fsproj b/src/PRo3D.Viewer/PRo3D.Viewer.fsproj index b487eb15..3c513487 100644 --- a/src/PRo3D.Viewer/PRo3D.Viewer.fsproj +++ b/src/PRo3D.Viewer/PRo3D.Viewer.fsproj @@ -9,19 +9,15 @@ True True - False - win10-x64 - - ..\..\bin\Debug\ 0686 @@ -40,21 +36,21 @@ + - + + - - @@ -66,6 +62,7 @@ + @@ -123,7 +120,7 @@ - + @@ -136,4 +133,4 @@ - + \ No newline at end of file diff --git a/src/PRo3D.Viewer/RemoteControlModel.g.fs b/src/PRo3D.Viewer/RemoteControlModel.g.fs new file mode 100644 index 00000000..e2d5f76c --- /dev/null +++ b/src/PRo3D.Viewer/RemoteControlModel.g.fs @@ -0,0 +1,43 @@ +//547cbef5-1299-8806-026d-c86a82869aab +//7dbe8123-17bb-1c87-be06-237a9e69d935 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec RemoteControlModel + +open System +open FSharp.Data.Adaptive +open Adaptify +open RemoteControlModel +[] +type AdaptiveRemoteModel(value : RemoteModel) = + let _selectedShot_ = FSharp.Data.Adaptive.cval(value.selectedShot) + let _shots_ = FSharp.Data.Adaptive.clist(value.shots) + let _platformShots_ = FSharp.Data.Adaptive.clist(value.platformShots) + let _Rover_ = PRo3D.SimulatedViews.AdaptiveRoverModel(value.Rover) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : RemoteModel) = AdaptiveRemoteModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : RemoteModel) -> AdaptiveRemoteModel(value)) (fun (adaptive : AdaptiveRemoteModel) (value : RemoteModel) -> adaptive.Update(value)) + member __.Update(value : RemoteModel) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _selectedShot_.Value <- value.selectedShot + _shots_.Value <- value.shots + _platformShots_.Value <- value.platformShots + _Rover_.Update(value.Rover) + member __.Current = __adaptive + member __.selectedShot = _selectedShot_ :> FSharp.Data.Adaptive.aval> + member __.shots = _shots_ :> FSharp.Data.Adaptive.alist + member __.platformShots = _platformShots_ :> FSharp.Data.Adaptive.alist + member __.Rover = _Rover_ +[] +module RemoteModelLenses = + type RemoteModel with + static member selectedShot_ = ((fun (self : RemoteModel) -> self.selectedShot), (fun (value : Microsoft.FSharp.Core.Option) (self : RemoteModel) -> { self with selectedShot = value })) + static member shots_ = ((fun (self : RemoteModel) -> self.shots), (fun (value : FSharp.Data.Adaptive.IndexList) (self : RemoteModel) -> { self with shots = value })) + static member platformShots_ = ((fun (self : RemoteModel) -> self.platformShots), (fun (value : FSharp.Data.Adaptive.IndexList) (self : RemoteModel) -> { self with platformShots = value })) + static member Rover_ = ((fun (self : RemoteModel) -> self.Rover), (fun (value : PRo3D.SimulatedViews.RoverModel) (self : RemoteModel) -> { self with Rover = value })) + diff --git a/src/PRo3D.Viewer/Viewer-Model.g.fs b/src/PRo3D.Viewer/Viewer-Model.g.fs new file mode 100644 index 00000000..002be4db --- /dev/null +++ b/src/PRo3D.Viewer/Viewer-Model.g.fs @@ -0,0 +1,324 @@ +//13697e27-5ff3-babb-b285-45789255a539 +//67388f21-daa1-0433-9750-f24f48fb0af1 +#nowarn "49" // upper case patterns +#nowarn "66" // upcast is unncecessary +#nowarn "1337" // internal types +#nowarn "1182" // value is unused +namespace rec PRo3D.Viewer + +open System +open FSharp.Data.Adaptive +open Adaptify +open PRo3D.Viewer +[] +type AdaptiveScene(value : Scene) = + let _version_ = FSharp.Data.Adaptive.cval(value.version) + let _cameraView_ = FSharp.Data.Adaptive.cval(value.cameraView) + let _navigationMode_ = FSharp.Data.Adaptive.cval(value.navigationMode) + let _exploreCenter_ = FSharp.Data.Adaptive.cval(value.exploreCenter) + let _interaction_ = FSharp.Data.Adaptive.cval(value.interaction) + let _surfacesModel_ = PRo3D.Core.AdaptiveSurfaceModel(value.surfacesModel) + let _config_ = PRo3D.Core.AdaptiveViewConfigModel(value.config) + let _scenePath_ = FSharp.Data.Adaptive.cval(value.scenePath) + let _referenceSystem_ = PRo3D.Core.AdaptiveReferenceSystem(value.referenceSystem) + let _bookmarks_ = PRo3D.Core.AdaptiveGroupsModel(value.bookmarks) + let _scaleBars_ = PRo3D.Core.AdaptiveScaleBarsModel(value.scaleBars) + let _traverses_ = PRo3D.Core.AdaptiveTraverseModel(value.traverses) + let _viewPlans_ = PRo3D.SimulatedViews.AdaptiveViewPlanModel(value.viewPlans) + let _dockConfig_ = FSharp.Data.Adaptive.cval(value.dockConfig) + let _closedPages_ = FSharp.Data.Adaptive.cval(value.closedPages) + let _firstImport_ = FSharp.Data.Adaptive.cval(value.firstImport) + let _userFeedback_ = FSharp.Data.Adaptive.cval(value.userFeedback) + let _feedbackThreads_ = FSharp.Data.Adaptive.cval(value.feedbackThreads) + let _comparisonApp_ = PRo3D.Comparison.AdaptiveComparisonApp(value.comparisonApp) + let _sceneObjectsModel_ = PRo3D.Core.AdaptiveSceneObjectsModel(value.sceneObjectsModel) + let _geologicSurfacesModel_ = PRo3D.Core.AdaptiveGeologicSurfacesModel(value.geologicSurfacesModel) + let _sequencedBookmarks_ = PRo3D.Core.SequencedBookmarks.AdaptiveSequencedBookmarks(value.sequencedBookmarks) + let _screenshotModel_ = PRo3D.SimulatedViews.AdaptiveScreenshotModel(value.screenshotModel) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Scene) = AdaptiveScene(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Scene) -> AdaptiveScene(value)) (fun (adaptive : AdaptiveScene) (value : Scene) -> adaptive.Update(value)) + member __.Update(value : Scene) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _version_.Value <- value.version + _cameraView_.Value <- value.cameraView + _navigationMode_.Value <- value.navigationMode + _exploreCenter_.Value <- value.exploreCenter + _interaction_.Value <- value.interaction + _surfacesModel_.Update(value.surfacesModel) + _config_.Update(value.config) + _scenePath_.Value <- value.scenePath + _referenceSystem_.Update(value.referenceSystem) + _bookmarks_.Update(value.bookmarks) + _scaleBars_.Update(value.scaleBars) + _traverses_.Update(value.traverses) + _viewPlans_.Update(value.viewPlans) + _dockConfig_.Value <- value.dockConfig + _closedPages_.Value <- value.closedPages + _firstImport_.Value <- value.firstImport + _userFeedback_.Value <- value.userFeedback + _feedbackThreads_.Value <- value.feedbackThreads + _comparisonApp_.Update(value.comparisonApp) + _sceneObjectsModel_.Update(value.sceneObjectsModel) + _geologicSurfacesModel_.Update(value.geologicSurfacesModel) + _sequencedBookmarks_.Update(value.sequencedBookmarks) + _screenshotModel_.Update(value.screenshotModel) + member __.Current = __adaptive + member __.version = _version_ :> FSharp.Data.Adaptive.aval + member __.cameraView = _cameraView_ :> FSharp.Data.Adaptive.aval + member __.navigationMode = _navigationMode_ :> FSharp.Data.Adaptive.aval + member __.exploreCenter = _exploreCenter_ :> FSharp.Data.Adaptive.aval + member __.interaction = _interaction_ :> FSharp.Data.Adaptive.aval + member __.surfacesModel = _surfacesModel_ + member __.config = _config_ + member __.scenePath = _scenePath_ :> FSharp.Data.Adaptive.aval> + member __.referenceSystem = _referenceSystem_ + member __.bookmarks = _bookmarks_ + member __.scaleBars = _scaleBars_ + member __.traverses = _traverses_ + member __.viewPlans = _viewPlans_ + member __.dockConfig = _dockConfig_ :> FSharp.Data.Adaptive.aval + member __.closedPages = _closedPages_ :> FSharp.Data.Adaptive.aval> + member __.firstImport = _firstImport_ :> FSharp.Data.Adaptive.aval + member __.userFeedback = _userFeedback_ :> FSharp.Data.Adaptive.aval + member __.feedbackThreads = _feedbackThreads_ :> FSharp.Data.Adaptive.aval> + member __.comparisonApp = _comparisonApp_ + member __.sceneObjectsModel = _sceneObjectsModel_ + member __.geologicSurfacesModel = _geologicSurfacesModel_ + member __.sequencedBookmarks = _sequencedBookmarks_ + member __.screenshotModel = _screenshotModel_ +[] +module SceneLenses = + type Scene with + static member version_ = ((fun (self : Scene) -> self.version), (fun (value : Microsoft.FSharp.Core.int) (self : Scene) -> { self with version = value })) + static member cameraView_ = ((fun (self : Scene) -> self.cameraView), (fun (value : Aardvark.Rendering.CameraView) (self : Scene) -> { self with cameraView = value })) + static member navigationMode_ = ((fun (self : Scene) -> self.navigationMode), (fun (value : PRo3D.Base.NavigationMode) (self : Scene) -> { self with navigationMode = value })) + static member exploreCenter_ = ((fun (self : Scene) -> self.exploreCenter), (fun (value : Aardvark.Base.V3d) (self : Scene) -> { self with exploreCenter = value })) + static member interaction_ = ((fun (self : Scene) -> self.interaction), (fun (value : PRo3D.InteractionMode) (self : Scene) -> { self with interaction = value })) + static member surfacesModel_ = ((fun (self : Scene) -> self.surfacesModel), (fun (value : PRo3D.Core.SurfaceModel) (self : Scene) -> { self with surfacesModel = value })) + static member config_ = ((fun (self : Scene) -> self.config), (fun (value : PRo3D.Core.ViewConfigModel) (self : Scene) -> { self with config = value })) + static member scenePath_ = ((fun (self : Scene) -> self.scenePath), (fun (value : Microsoft.FSharp.Core.Option) (self : Scene) -> { self with scenePath = value })) + static member referenceSystem_ = ((fun (self : Scene) -> self.referenceSystem), (fun (value : PRo3D.Core.ReferenceSystem) (self : Scene) -> { self with referenceSystem = value })) + static member bookmarks_ = ((fun (self : Scene) -> self.bookmarks), (fun (value : PRo3D.Core.GroupsModel) (self : Scene) -> { self with bookmarks = value })) + static member scaleBars_ = ((fun (self : Scene) -> self.scaleBars), (fun (value : PRo3D.Core.ScaleBarsModel) (self : Scene) -> { self with scaleBars = value })) + static member traverses_ = ((fun (self : Scene) -> self.traverses), (fun (value : PRo3D.Core.TraverseModel) (self : Scene) -> { self with traverses = value })) + static member viewPlans_ = ((fun (self : Scene) -> self.viewPlans), (fun (value : PRo3D.SimulatedViews.ViewPlanModel) (self : Scene) -> { self with viewPlans = value })) + static member dockConfig_ = ((fun (self : Scene) -> self.dockConfig), (fun (value : Aardvark.UI.Primitives.DockConfig) (self : Scene) -> { self with dockConfig = value })) + static member closedPages_ = ((fun (self : Scene) -> self.closedPages), (fun (value : Microsoft.FSharp.Collections.list) (self : Scene) -> { self with closedPages = value })) + static member firstImport_ = ((fun (self : Scene) -> self.firstImport), (fun (value : Microsoft.FSharp.Core.bool) (self : Scene) -> { self with firstImport = value })) + static member userFeedback_ = ((fun (self : Scene) -> self.userFeedback), (fun (value : Microsoft.FSharp.Core.string) (self : Scene) -> { self with userFeedback = value })) + static member feedbackThreads_ = ((fun (self : Scene) -> self.feedbackThreads), (fun (value : FSharp.Data.Adaptive.ThreadPool) (self : Scene) -> { self with feedbackThreads = value })) + static member comparisonApp_ = ((fun (self : Scene) -> self.comparisonApp), (fun (value : PRo3D.Comparison.ComparisonApp) (self : Scene) -> { self with comparisonApp = value })) + static member sceneObjectsModel_ = ((fun (self : Scene) -> self.sceneObjectsModel), (fun (value : PRo3D.Core.SceneObjectsModel) (self : Scene) -> { self with sceneObjectsModel = value })) + static member geologicSurfacesModel_ = ((fun (self : Scene) -> self.geologicSurfacesModel), (fun (value : PRo3D.Core.GeologicSurfacesModel) (self : Scene) -> { self with geologicSurfacesModel = value })) + static member sequencedBookmarks_ = ((fun (self : Scene) -> self.sequencedBookmarks), (fun (value : PRo3D.Core.SequencedBookmarks.SequencedBookmarks) (self : Scene) -> { self with sequencedBookmarks = value })) + static member screenshotModel_ = ((fun (self : Scene) -> self.screenshotModel), (fun (value : PRo3D.SimulatedViews.ScreenshotModel) (self : Scene) -> { self with screenshotModel = value })) +[] +type AdaptiveSceneHandle(value : SceneHandle) = + let _path_ = FSharp.Data.Adaptive.cval(value.path) + let _name_ = FSharp.Data.Adaptive.cval(value.name) + let _writeDate_ = FSharp.Data.Adaptive.cval(value.writeDate) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : SceneHandle) = AdaptiveSceneHandle(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : SceneHandle) -> AdaptiveSceneHandle(value)) (fun (adaptive : AdaptiveSceneHandle) (value : SceneHandle) -> adaptive.Update(value)) + member __.Update(value : SceneHandle) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _path_.Value <- value.path + _name_.Value <- value.name + _writeDate_.Value <- value.writeDate + member __.Current = __adaptive + member __.path = _path_ :> FSharp.Data.Adaptive.aval + member __.name = _name_ :> FSharp.Data.Adaptive.aval + member __.writeDate = _writeDate_ :> FSharp.Data.Adaptive.aval +[] +module SceneHandleLenses = + type SceneHandle with + static member path_ = ((fun (self : SceneHandle) -> self.path), (fun (value : Microsoft.FSharp.Core.string) (self : SceneHandle) -> { self with path = value })) + static member name_ = ((fun (self : SceneHandle) -> self.name), (fun (value : Microsoft.FSharp.Core.string) (self : SceneHandle) -> { self with name = value })) + static member writeDate_ = ((fun (self : SceneHandle) -> self.writeDate), (fun (value : System.DateTime) (self : SceneHandle) -> { self with writeDate = value })) +[] +type AdaptiveRecent(value : Recent) = + let _recentScenes_ = FSharp.Data.Adaptive.cval(value.recentScenes) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Recent) = AdaptiveRecent(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Recent) -> AdaptiveRecent(value)) (fun (adaptive : AdaptiveRecent) (value : Recent) -> adaptive.Update(value)) + member __.Update(value : Recent) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _recentScenes_.Value <- value.recentScenes + member __.Current = __adaptive + member __.recentScenes = _recentScenes_ :> FSharp.Data.Adaptive.aval> +[] +module RecentLenses = + type Recent with + static member recentScenes_ = ((fun (self : Recent) -> self.recentScenes), (fun (value : Microsoft.FSharp.Collections.list) (self : Recent) -> { self with recentScenes = value })) +[] +type AdaptiveModel(value : Model) = + let _startupArgs_ = FSharp.Data.Adaptive.cval(value.startupArgs) + let _dashboardMode_ = FSharp.Data.Adaptive.cval(value.dashboardMode) + let _scene_ = AdaptiveScene(value.scene) + let _drawing_ = PRo3D.Core.Drawing.AdaptiveDrawingModel(value.drawing) + let _interaction_ = FSharp.Data.Adaptive.cval(value.interaction) + let _recent_ = AdaptiveRecent(value.recent) + let _waypoints_ = FSharp.Data.Adaptive.clist(value.waypoints) + let _aspect_ = FSharp.Data.Adaptive.cval(value.aspect) + let _trafoKind_ = FSharp.Data.Adaptive.cval(value.trafoKind) + let _trafoMode_ = FSharp.Data.Adaptive.cval(value.trafoMode) + let _tabMenu_ = FSharp.Data.Adaptive.cval(value.tabMenu) + let _viewerMode_ = FSharp.Data.Adaptive.cval(value.viewerMode) + let _animations_ = Aardvark.UI.Animation.AdaptiveAnimationModel(value.animations) + let _messagingMailbox_ = FSharp.Data.Adaptive.cval(value.messagingMailbox) + let _mailboxState_ = FSharp.Data.Adaptive.cval(value.mailboxState) + let _navigation_ = PRo3D.Base.AdaptiveNavigationModel(value.navigation) + let _properties_ = FSharp.Data.Adaptive.cval(value.properties) + let _multiSelectBox_ = FSharp.Data.Adaptive.cval(value.multiSelectBox) + let _shiftFlag_ = FSharp.Data.Adaptive.cval(value.shiftFlag) + let _picking_ = FSharp.Data.Adaptive.cval(value.picking) + let _ctrlFlag_ = FSharp.Data.Adaptive.cval(value.ctrlFlag) + let _frustum_ = FSharp.Data.Adaptive.cval(value.frustum) + let _viewPortSizes_ = FSharp.Data.Adaptive.cmap(value.viewPortSizes) + let _overlayFrustum_ = FSharp.Data.Adaptive.cval(value.overlayFrustum) + let _scaleBarsDrawing_ = PRo3D.Core.AdaptiveScaleBarDrawing(value.scaleBarsDrawing) + let _past_ = FSharp.Data.Adaptive.cval(value.past) + let _future_ = FSharp.Data.Adaptive.cval(value.future) + let _footPrint_ = PRo3D.SimulatedViews.AdaptiveFootPrint(value.footPrint) + let _snapshotThreads_ = FSharp.Data.Adaptive.cval(value.snapshotThreads) + let _showExplorationPoint_ = FSharp.Data.Adaptive.cval(value.showExplorationPoint) + let _heighValidation_ = PRo3D.Core.AdaptiveHeightValidatorModel(value.heighValidation) + let _frustumModel_ = PRo3D.AdaptiveFrustumModel(value.frustumModel) + let _filterTexture_ = FSharp.Data.Adaptive.cval(value.filterTexture) + let _numberOfSamples_ = FSharp.Data.Adaptive.cval(value.numberOfSamples) + let _renderingUrl_ = FSharp.Data.Adaptive.cval(value.renderingUrl) + let _screenshotDirectory_ = FSharp.Data.Adaptive.cval(value.screenshotDirectory) + let mutable __value = value + let __adaptive = FSharp.Data.Adaptive.AVal.custom((fun (token : FSharp.Data.Adaptive.AdaptiveToken) -> __value)) + static member Create(value : Model) = AdaptiveModel(value) + static member Unpersist = Adaptify.Unpersist.create (fun (value : Model) -> AdaptiveModel(value)) (fun (adaptive : AdaptiveModel) (value : Model) -> adaptive.Update(value)) + member __.Update(value : Model) = + if Microsoft.FSharp.Core.Operators.not((FSharp.Data.Adaptive.ShallowEqualityComparer.ShallowEquals(value, __value))) then + __value <- value + __adaptive.MarkOutdated() + _startupArgs_.Value <- value.startupArgs + _dashboardMode_.Value <- value.dashboardMode + _scene_.Update(value.scene) + _drawing_.Update(value.drawing) + _interaction_.Value <- value.interaction + _recent_.Update(value.recent) + _waypoints_.Value <- value.waypoints + _aspect_.Value <- value.aspect + _trafoKind_.Value <- value.trafoKind + _trafoMode_.Value <- value.trafoMode + _tabMenu_.Value <- value.tabMenu + _viewerMode_.Value <- value.viewerMode + _animations_.Update(value.animations) + _messagingMailbox_.Value <- value.messagingMailbox + _mailboxState_.Value <- value.mailboxState + _navigation_.Update(value.navigation) + _properties_.Value <- value.properties + _multiSelectBox_.Value <- value.multiSelectBox + _shiftFlag_.Value <- value.shiftFlag + _picking_.Value <- value.picking + _ctrlFlag_.Value <- value.ctrlFlag + _frustum_.Value <- value.frustum + _viewPortSizes_.Value <- value.viewPortSizes + _overlayFrustum_.Value <- value.overlayFrustum + _scaleBarsDrawing_.Update(value.scaleBarsDrawing) + _past_.Value <- value.past + _future_.Value <- value.future + _footPrint_.Update(value.footPrint) + _snapshotThreads_.Value <- value.snapshotThreads + _showExplorationPoint_.Value <- value.showExplorationPoint + _heighValidation_.Update(value.heighValidation) + _frustumModel_.Update(value.frustumModel) + _filterTexture_.Value <- value.filterTexture + _numberOfSamples_.Value <- value.numberOfSamples + _renderingUrl_.Value <- value.renderingUrl + _screenshotDirectory_.Value <- value.screenshotDirectory + () + member __.Current = __adaptive + member __.startupArgs = _startupArgs_ :> FSharp.Data.Adaptive.aval + member __.dashboardMode = _dashboardMode_ :> FSharp.Data.Adaptive.aval + member __.scene = _scene_ + member __.drawing = _drawing_ + member __.interaction = _interaction_ :> FSharp.Data.Adaptive.aval + member __.recent = _recent_ + member __.waypoints = _waypoints_ :> FSharp.Data.Adaptive.alist + member __.aspect = _aspect_ :> FSharp.Data.Adaptive.aval + member __.trafoKind = _trafoKind_ :> FSharp.Data.Adaptive.aval + member __.trafoMode = _trafoMode_ :> FSharp.Data.Adaptive.aval + member __.tabMenu = _tabMenu_ :> FSharp.Data.Adaptive.aval + member __.viewerMode = _viewerMode_ :> FSharp.Data.Adaptive.aval + member __.animations = _animations_ + member __.messagingMailbox = _messagingMailbox_ :> FSharp.Data.Adaptive.aval + member __.mailboxState = _mailboxState_ :> FSharp.Data.Adaptive.aval + member __.navigation = _navigation_ + member __.properties = _properties_ :> FSharp.Data.Adaptive.aval + member __.multiSelectBox = _multiSelectBox_ :> FSharp.Data.Adaptive.aval> + member __.shiftFlag = _shiftFlag_ :> FSharp.Data.Adaptive.aval + member __.picking = _picking_ :> FSharp.Data.Adaptive.aval + member __.ctrlFlag = _ctrlFlag_ :> FSharp.Data.Adaptive.aval + member __.frustum = _frustum_ :> FSharp.Data.Adaptive.aval + member __.viewPortSizes = _viewPortSizes_ :> FSharp.Data.Adaptive.amap + member __.overlayFrustum = _overlayFrustum_ :> FSharp.Data.Adaptive.aval> + member __.scaleBarsDrawing = _scaleBarsDrawing_ + member __.past = _past_ :> FSharp.Data.Adaptive.aval> + member __.future = _future_ :> FSharp.Data.Adaptive.aval> + member __.footPrint = _footPrint_ + member __.snapshotThreads = _snapshotThreads_ :> FSharp.Data.Adaptive.aval> + member __.showExplorationPoint = _showExplorationPoint_ :> FSharp.Data.Adaptive.aval + member __.heighValidation = _heighValidation_ + member __.frustumModel = _frustumModel_ + member __.filterTexture = _filterTexture_ :> FSharp.Data.Adaptive.aval + member __.numberOfSamples = _numberOfSamples_ :> FSharp.Data.Adaptive.aval + member __.renderingUrl = _renderingUrl_ :> FSharp.Data.Adaptive.aval + member __.screenshotDirectory = _screenshotDirectory_ :> FSharp.Data.Adaptive.aval + member __.animator = __value.animator +[] +module ModelLenses = + type Model with + static member startupArgs_ = ((fun (self : Model) -> self.startupArgs), (fun (value : PRo3D.StartupArgs) (self : Model) -> { self with startupArgs = value })) + static member dashboardMode_ = ((fun (self : Model) -> self.dashboardMode), (fun (value : Microsoft.FSharp.Core.string) (self : Model) -> { self with dashboardMode = value })) + static member scene_ = ((fun (self : Model) -> self.scene), (fun (value : Scene) (self : Model) -> { self with scene = value })) + static member drawing_ = ((fun (self : Model) -> self.drawing), (fun (value : PRo3D.Core.Drawing.DrawingModel) (self : Model) -> { self with drawing = value })) + static member interaction_ = ((fun (self : Model) -> self.interaction), (fun (value : PRo3D.Core.Interactions) (self : Model) -> { self with interaction = value })) + static member recent_ = ((fun (self : Model) -> self.recent), (fun (value : Recent) (self : Model) -> { self with recent = value })) + static member waypoints_ = ((fun (self : Model) -> self.waypoints), (fun (value : FSharp.Data.Adaptive.IndexList) (self : Model) -> { self with waypoints = value })) + static member aspect_ = ((fun (self : Model) -> self.aspect), (fun (value : Microsoft.FSharp.Core.double) (self : Model) -> { self with aspect = value })) + static member trafoKind_ = ((fun (self : Model) -> self.trafoKind), (fun (value : Aardvark.UI.Trafos.TrafoKind) (self : Model) -> { self with trafoKind = value })) + static member trafoMode_ = ((fun (self : Model) -> self.trafoMode), (fun (value : Aardvark.UI.Trafos.TrafoMode) (self : Model) -> { self with trafoMode = value })) + static member tabMenu_ = ((fun (self : Model) -> self.tabMenu), (fun (value : TabMenu) (self : Model) -> { self with tabMenu = value })) + static member viewerMode_ = ((fun (self : Model) -> self.viewerMode), (fun (value : PRo3D.ViewerMode) (self : Model) -> { self with viewerMode = value })) + static member animations_ = ((fun (self : Model) -> self.animations), (fun (value : Aardvark.UI.Animation.AnimationModel) (self : Model) -> { self with animations = value })) + static member messagingMailbox_ = ((fun (self : Model) -> self.messagingMailbox), (fun (value : MessagingMailbox) (self : Model) -> { self with messagingMailbox = value })) + static member mailboxState_ = ((fun (self : Model) -> self.mailboxState), (fun (value : MailboxState) (self : Model) -> { self with mailboxState = value })) + static member navigation_ = ((fun (self : Model) -> self.navigation), (fun (value : PRo3D.Base.NavigationModel) (self : Model) -> { self with navigation = value })) + static member properties_ = ((fun (self : Model) -> self.properties), (fun (value : Properties) (self : Model) -> { self with properties = value })) + static member multiSelectBox_ = ((fun (self : Model) -> self.multiSelectBox), (fun (value : Microsoft.FSharp.Core.Option) (self : Model) -> { self with multiSelectBox = value })) + static member shiftFlag_ = ((fun (self : Model) -> self.shiftFlag), (fun (value : Microsoft.FSharp.Core.bool) (self : Model) -> { self with shiftFlag = value })) + static member picking_ = ((fun (self : Model) -> self.picking), (fun (value : Microsoft.FSharp.Core.bool) (self : Model) -> { self with picking = value })) + static member ctrlFlag_ = ((fun (self : Model) -> self.ctrlFlag), (fun (value : Microsoft.FSharp.Core.bool) (self : Model) -> { self with ctrlFlag = value })) + static member frustum_ = ((fun (self : Model) -> self.frustum), (fun (value : Aardvark.Rendering.Frustum) (self : Model) -> { self with frustum = value })) + static member viewPortSizes_ = ((fun (self : Model) -> self.viewPortSizes), (fun (value : FSharp.Data.Adaptive.HashMap) (self : Model) -> { self with viewPortSizes = value })) + static member overlayFrustum_ = ((fun (self : Model) -> self.overlayFrustum), (fun (value : Microsoft.FSharp.Core.Option) (self : Model) -> { self with overlayFrustum = value })) + static member scaleBarsDrawing_ = ((fun (self : Model) -> self.scaleBarsDrawing), (fun (value : PRo3D.Core.ScaleBarDrawing) (self : Model) -> { self with scaleBarsDrawing = value })) + static member past_ = ((fun (self : Model) -> self.past), (fun (value : Microsoft.FSharp.Core.Option) (self : Model) -> { self with past = value })) + static member future_ = ((fun (self : Model) -> self.future), (fun (value : Microsoft.FSharp.Core.Option) (self : Model) -> { self with future = value })) + static member footPrint_ = ((fun (self : Model) -> self.footPrint), (fun (value : PRo3D.SimulatedViews.FootPrint) (self : Model) -> { self with footPrint = value })) + static member snapshotThreads_ = ((fun (self : Model) -> self.snapshotThreads), (fun (value : FSharp.Data.Adaptive.ThreadPool) (self : Model) -> { self with snapshotThreads = value })) + static member showExplorationPoint_ = ((fun (self : Model) -> self.showExplorationPoint), (fun (value : Microsoft.FSharp.Core.bool) (self : Model) -> { self with showExplorationPoint = value })) + static member heighValidation_ = ((fun (self : Model) -> self.heighValidation), (fun (value : PRo3D.Core.HeightValidatorModel) (self : Model) -> { self with heighValidation = value })) + static member frustumModel_ = ((fun (self : Model) -> self.frustumModel), (fun (value : PRo3D.FrustumModel) (self : Model) -> { self with frustumModel = value })) + static member filterTexture_ = ((fun (self : Model) -> self.filterTexture), (fun (value : Microsoft.FSharp.Core.bool) (self : Model) -> { self with filterTexture = value })) + static member numberOfSamples_ = ((fun (self : Model) -> self.numberOfSamples), (fun (value : Microsoft.FSharp.Core.int) (self : Model) -> { self with numberOfSamples = value })) + static member renderingUrl_ = ((fun (self : Model) -> self.renderingUrl), (fun (value : Microsoft.FSharp.Core.string) (self : Model) -> { self with renderingUrl = value })) + static member screenshotDirectory_ = ((fun (self : Model) -> self.screenshotDirectory), (fun (value : Microsoft.FSharp.Core.string) (self : Model) -> { self with screenshotDirectory = value })) + static member animator_ = ((fun (self : Model) -> self.animator), (fun (value : Aardvark.UI.Anewmation.Animator) (self : Model) -> { self with animator = value })) +